Я боюсь что проблема с перебором - я его както неправильно прописал?
Code: Select all
Program Animal_Taming; //v1.3h
{$Include 'checksave.inc'}
const
animal=$0295eab1;
var
ctime : TDateTime;
animal_type : array [1..4] of Byte;
i : Integer;
BEGIN
animal_type[1] := $00CC // коричневая лошадь
animal_type[2] := $00E2 // серая лошадь
animal_type[3] := $00C8 // обычная лошадь
animal_type[4] := $00E4 // лошадь-медведь
FindDistance := 10
FindVertical := 20
i := 1
SetARStatus(True);
SetPauseScriptOnDisconnectStatus(True);
SetWarMode(False);
while (Dead = False) do
begin
if (i > 0) and (i <= 4) then
begin
while FindTypeEX(animal_type[i], $FFFF, Ground, False) <> 0 do
begin
CheckSave;
if TargetPresent then CancelTarget;
UseSkill('Animal Taming');
WaitTargetObject(FindItem);
repeat
wait(100);
CheckSave;
until (InJournalBetweenTimes('полюбило вас.|Вы не в состоянии|уже приручили.|fail to tame', ctime, Now) <> -1);
wait(100);
If (InJournal('полюбило вас.|Это существо уже приручили.') <> -1) then UoSay('all release');
wait(100);
ClearJournal;
end;
end;
end;
END.