Stealth Client Forum

Code: Select all

Program Evaluate;
var i : Integer;
HorseType : Word; 
Horse : Cardinal;


{$Include 'all.inc'} 


procedure FullDisconnect; 
begin 
SetARStatus(false); 
Disconnect; 
end; 


procedure CheckDead;
begin
waitconnection(3000);
CheckSave;
if Dead then
begin
 SetWarMode(true);
 WaitGump('1');
 wait(5000);
 while (Dead) do Wait (1000);
 wait (2000);
 Hungry(1, ground);
end;
end;


Begin
FindDistance := 5;
SetARStatus(false);
waitconnection(3000);
CheckSave;
wait(3000);
SetARStatus(true);
HorseType := $00E4;
FindType(HorseType, ground);
Horse := finditem;
if Horse = 0 then
    begin
    FullDisconnect;
    AddToSystemJournal('Horse no finded');
    end;


while true do
begin

waitconnection(3000);
CheckSave;
CheckTargetError(5, 2);
CheckDead;
Hungry(2, ground);
wait(1000);
i := 0;
while i < 10 do
  begin
  waitconnection(3000);
  CheckSave;
  UseSkill('Evaluate Intelligence');
  WaitTargetObject(Horse);
  wait(10000);
  i := i + 1;
  end;

end;

End.