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.
- еда была на полу;
- лошадь была в радиусе 5 клеток;