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

[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.

[Gauhar]

Это потому что в твоем скрипте есть Procedure Cast и она без параметров - переименуй ее так чтоб ее имя не совпадало с именем встроенной функции.

[Respik]

Ту проблему поправил, но отрабатывает не правильно, доберусь до компьютера, опишу всю суть.

[Respik]

Все вроде работает, хоть и слегка процедура медитация немного закручена с оружием !

[nah nah]

Браво!)

[Respik]

Докрутил по полной))
Переделал почти каждую процедуру, но собрал до идеала как считаю для своего уровня пользования и понимания.
Хотел бы услышать мысли людей которые знают в этом лучше, изменение в первом сообщении отобразил в виде полностью рабочего скрипта )

[nah nah]

Браво!)

Поторопился

[Respik]

Браво!)

Поторопился

))

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