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. 

Code: Select all

18:07:46: D:\проги\Stealth_v0.93Full\Stealth1\Scripts\Include\all.inc
18:07:46: Compiling
18:07:46: Compiler: [Error] (Evaluate Intelligence.inc at 19:1):  Unknown identifier 'waitconnection'
18:07:46: Compiling failed
18:07:46: Script Evaluate Intelligence.inc stoped successfuly