Code: Select all
procedure main; /// основная процедура
begin
AddToSystemJournal('X ' + inttostr(m));
AddToSystemJournal('y ' + inttostr(n));
AnimalType:= [$0017,$00D3,$00E7,$00D8,$00D1,$00A7,$00EA,$0006,$00E8,$00D4,$00E9,$00CF,$00E1,$00D6,$003F, $0005];
FindDistance:=20;
FindVertical := 10;
// FindVertical:=10;
Ignore(self);
for i:= 0 to 15 do
begin
AddToSystemJournal('Ищем номер ' + IntToStr(i)) ;
FindNotoriety(AnimalType[i],-1)
wait(100);
Animal:= finditem ;
// Animal:= FindTypeEx(-1,-1,Ground,false) ;
wait(100);
AddToSystemJournal('Нашли ' + inttostr(Animal) + ' Имя ' + getname(Animal));
if (GetType(Animal)<>$2006) and (getname(Animal) <> '') then
begin
wait(300);
wait(700);
NewMoveXY(getx(Animal),gety(FindItem),True,1,False);
if (GetType(Animal) = $00E8 ) or (GetType(Animal) = $00E9) or (GetType(Animal) = $00D4 ) or (GetType(Animal) = $0017) then taming(Animal);
if Life < 80 then HealBand;
if Life < 20 then GotoOnHome;
Killing(Animal);
end;
Ignore(Animal);
if weight > maxweight - 60 then
begin
GotoOnHome;
DropLoot;
GrabTools;
end;
if Life < 80 then HealBand;
End;
IgnoreReset;
AddToSystemJournal('Следующая точка');
End;