нет опилок, работает тока тракинг
в авто меню проставьте свои названия для тракинга, у меня стоит там тотем..
Code: Select all
Program track_and_camp;
var
i,t:integer;
{$Include 'all.inc'}
function timer(var acttimer:integer;actafter:integer):boolean;
begin
result:=false;
acttimer:=acttimer+1;
if acttimer>=actafter then
begin
acttimer:=0;
result:=true;
end;
end;
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
SetARStatus(true);
i:=0;
AutoMenu('creature','a');
AutoMenu('category','a');
Hungry(1,ground);
while true do begin
checksave;
checkdead;
if timer(i,100) then Hungry(1,ground);
UseSkill('Tracking');
Wait(1000);
FindType($0DE1,$0000);
if FindCount > 0 then begin for t:= 0 to 1 do begin useobject(finditem); wait(5000); end; end
else Wait(10000);
Wait(1000);
end;
END.