Stealth Client Forum

Code: Select all

Program HorseAtackHealing; 

var 
bandages:cardinal; 
Str1,str2,str3,str4,str5:String; 

{$Include 'all.inc'} 

Begin 
bandages:=FindType($0E21,backpack); 
Str1:='You bandage'; 
Str2:='You put '; 
Str3:='You sucessfully '; 
Str4:='Do you '; 
Str5:='You must wait to perform another action'; 

if HP < MaxHP THEN 
Begin 

While HP < MaxHP do 
Begin 
ClearJournal; 
UseObject(bandages); 
WaitTargetSelf; 

While (InJournal(str1)<0) and (InJournal(str2)<0) and (InJournal(str3)<0) and (InJournal(str4)<0) and (InJournal(str5)<0) do wait(500); 
Wait(2500) 

end; 
end; 

UseObject(self); 
while MaxHP = MaxHP do 
Begin 
ClearJournal; 
While HP > 50 do wait(500); 
UseObject(FindType($00E2,ground)); 
wait(1000); 

While HP < MaxHP do 
begin 
UseObject(bandages); 
WaitTargetSelf; 

ClearJournal; 
While (InJournal(str1)<0) and (InJournal(str2)<0) and (InJournal(str3)<0) and (InJournal(str4)<0) and (InJournal(str5)<0) do wait(500); 
Wait(2500) 

end; 

UseObject(self); 
wait(5000); 

if HP = MaxHP THEN 
Begin 
UseObject(FindType($00E2,ground)); 
wait(3000); 
UseObject(self); 
end; 
end; 
End.

Code: Select all

while MaxHP = MaxHP do 
Begin 
Hungry(2,-1);<-------------

ClearJournal; 
While HP > 50 do wait(500); 
UseObject(FindType($00E2,ground)); 
wait(1000); 

While HP < MaxHP do 
begin 
UseObject(bandages); 
WaitTargetSelf; 

ClearJournal; 
While (InJournal(str1)<0) and (InJournal(str2)<0) and (InJournal(str3)<0) and (InJournal(str4)<0) and (InJournal(str5)<0) do wait(500); 
Wait(2500) 

end; 

UseObject(self); 
wait(5000); 

if HP = MaxHP THEN 
Begin 
UseObject(FindType($00E2,ground)); 
wait(3000); 
UseObject(self); 
end; 
end; 
End.

Code: Select all

Program HorseAtackHealing; 

var 
bandages:cardinal; 
stime : TDateTime;
time : Cardinal;

{$Include 'hungry.inc'} 
{$Include 'checksave.inc'}

Begin
time :=Timer;
if FindType($0E21,backpack) > 0 then
  bandages:= finditem
else
  begin
    AddToSystemJournal('Bandages not found!');
    Exit;
    //тут еще можно Disconnect;
  end;
while True do
  begin
    if Timer > Time + 10*60*1000 then
      begin
        Hungry(1,$FFFFFFFF);
        time :=Timer;
      end;
    if FindType($00E2,ground) > 0 then
    UseObject(FindType($00E2,ground))
    else
      begin
        AddToSystemJournal('Horse not found!');
        Exit;
        //тут еще можно Disconnect;
      end;
    wait(1000);   
    IF HP < MaxHP then
      begin
        stime := Now;  
        WaitTargetSelf;  
        UseObject(bandages); 
        repeat 
          CheckSave; 
          InJournalBetweenTimes('You bandage|You put|sucessfully|Do you|perform another action', stime, Now); 
          wait(100); 
        until (LineCount >= 1) or (Now > stime + (4.9/1440));
      end;
      wait(50);
  end;
end.