Forum in READ ONLY mode! All questions and discussions on Discord official server, invite link: https://discord.gg/VxsGzJ7

Медитация Pol 95 Client 2.0.0b

тут можно задать вопрос по скриптингу
Post Reply
Respik
Neophyte
Neophyte
Posts: 12
Joined: 15.05.2012 3:17

Медитация Pol 95 Client 2.0.0b

Post by Respik »

В общем так как я писать не могу, решил собрать скрипт из нескольких
Суть скрипта - Маг кастует на себя блесс и инту, потом пойсоном сбивает всю ману и начинает медитить, как только медитация сработала, он одевает даггер, проверяет количество маны, если больше чем надо на каст пойсона, выкастовывает и снова пытается медитировать.

Code: Select all

Program Meditating;
var i:integer;

const
booka = $0EFA;
dagger = $0F51;
{$Include 'all.inc'}

Procedure Meditation;
begin
Checksave;
while (Mana < 9) do
begin
UseSkill('Meditation');
WaitJournalLine(Now, 'start to|cant focus', 3000);
if (getquantity(findtype(dagger,backpack)) > 0) 
    and (gettype(ObjAtLayer(RhandLayer)) <> gettype(finditem)) then 
  begin 
    UnEquip(RHandLayer); 
    wait(500); 
    Equip(RhandLayer,finditem);
    wait(500);
UnEquip(RHandLayer); 
    wait(10500);
  end;
end;
end;

Procedure Casting;
begin
  if (Int < 190) then
  begin
UseSkill('Meditation');
    wait(10500);
  If TargetPresent Then CancelTarget;
  WaitTargetObject(self);
  Cast('Bless');
  WaitTargetSelf;
  Wait(2000);
  WaitTargetObject(self);
  Cast('Cunning');
  WaitTargetSelf;
  Wait(2000);
  WaitTargetObject(self);
  Cast('Polymorph');
  Wait(4000);
  end;
end;

Procedure CastPoison;
begin
Checksave;
while (Mana > 10) do
begin
Cast('Poison'); 
FindType(booka,backpack);
WaitTargetObject(FindType(booka,backpack));
wait(1000);
end;
end;

begin
Addtosystemjournal('Скрипт успешно стартовал. Made by Respik.');
SetARStatus(true);
while true do begin
Casting;
CastPoison;
Meditation;
Hungry(1,ground);
end;

end.
Last edited by Respik on 13.03.2017 20:16, edited 2 times in total.
Gauhar
Novice
Novice
Posts: 87
Joined: 08.07.2008 17:40

Re: Медитация Pol 95 Client 2.0.0b

Post by Gauhar »

Это потому что в твоем скрипте есть Procedure Cast и она без параметров - переименуй ее так чтоб ее имя не совпадало с именем встроенной функции.
Respik
Neophyte
Neophyte
Posts: 12
Joined: 15.05.2012 3:17

Re: Медитация Pol 95 Client 2.0.0b

Post by Respik »

Ту проблему поправил, но отрабатывает не правильно, доберусь до компьютера, опишу всю суть.
Respik
Neophyte
Neophyte
Posts: 12
Joined: 15.05.2012 3:17

Re: Медитация Pol 95 Client 2.0.0b

Post by Respik »

Все вроде работает, хоть и слегка процедура медитация немного закручена с оружием !
nah nah
Developer
Developer
Posts: 414
Joined: 13.07.2011 11:23
Contact:

Re: Медитация Pol 95 Client 2.0.0b

Post by nah nah »

Браво!)
Respik
Neophyte
Neophyte
Posts: 12
Joined: 15.05.2012 3:17

Re: Медитация Pol 95 Client 2.0.0b

Post by Respik »

Докрутил по полной))
Переделал почти каждую процедуру, но собрал до идеала как считаю для своего уровня пользования и понимания.
Хотел бы услышать мысли людей которые знают в этом лучше, изменение в первом сообщении отобразил в виде полностью рабочего скрипта )
nah nah
Developer
Developer
Posts: 414
Joined: 13.07.2011 11:23
Contact:

Re: Медитация Pol 95 Client 2.0.0b

Post by nah nah »

nah nah wrote:Браво!)
Поторопился :mrgreen:
Respik
Neophyte
Neophyte
Posts: 12
Joined: 15.05.2012 3:17

Re: Медитация Pol 95 Client 2.0.0b

Post by Respik »

nah nah wrote:
nah nah wrote:Браво!)
Поторопился :mrgreen:
))

Проблемка образовалась, в какой-то момент он остался с даггером в руках, и не мог кастовать пойсон, как бы так по красивее засунуть в скрипт постоянную проверку на наличии даггера в руках ?
А то регов спустил в воздух большое количество из-за этого
Post Reply