Program Tracking; {$Include 'all.inc'} var x: Integer; Begin SetARStatus(true); while (not Dead) and Connected do begin Hungry(1, Backpack); for x := 0 to 100 do begin CloseMenu; CancelMenu; WaitMenu('category', '(first)'); WaitMenu('creature', '(first)'); UseSkill('Tracking'); Wait(10100); end; end; end.