Stealth Client Forum

Code: Select all

program Mageryept;
var t:Integer; 

{$Include 'all.inc'} 

Begin 
SetARStatus(true); 
Hungry(1,backpack); 
while not dead do 
  begin  
    while (mana > MaxMana - 7 ) do
     begin 
      CheckSave; 
      waittargetself;
      cast('Poison');
      Wait(3500); 
      while (HP < 60) do
        begin
         UseObject(FindType($0E21,backpack));
         WaitTargetSelf;
         Wait(3500); 
        end;
     end;
    while (Mana < MaxMana) do
    begin
     useskill('Meditation');
     wait(3000);
    end; 
  end; 
    CheckSave; 
End.