Stealth Client Forum

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.