Исходный код
// ---------------------------------------------------------------------------------------------
// Stealth Client * Anatomy * [ANTARES] Jikus 2005
// ---------------------------------------------------------------------------------------------
Program Anatomy;
var t : Integer;
TimeParser : TDateTime;
Begin
SetARStatus(true);
ClearJournal;
while not Dead do
begin
if Connected then
begin
TimeParser := Now
for t := 0 to 20 do
begin
if TargetPresent then CancelTarget;
UseSkill('Anatomy');
WaitTargetObject(Self);
WaitJournalLine(Now, 'looks|You', 20000)
wait(300)
end;
if InJournalBetweenTimes('You are very hungry|You are starving',TimeParser,Now) >=0 then
begin
while not InJournalBetweenTimes('You are stuffed',TimeParser,Now) >=0 do
UseObject(FindType($097B, backpack));
end;
end;
end;
End.