Code: Select all
program taming;
const
animalID = $00177C27;
staffType = $13F8;
var
cTime: tdatetime;
begin
while NOT dead do begin
if (injournalbetweentimes('accept|fail|already', cTime, now) >= 0) OR (cTime+1.0/(24*60*3) <= now) then begin
if injournalbetweentimes('accept|already', cTime, now) >= 0 then begin
uosay('all release');
checklag(10000);
wait(100);
end;
wait(100);
cTime := now;
if warmode then
setwarmode(false);
if targetpresent then
canceltarget;
waittargetobject(animalID);
usetype(stafftype, $FFFF);
checklag(10000);
wait(100);
if injournalbetweentimes('fail', cTime, now) >= 0 then begin
wait(100);
cTime := now;
end;
end;
wait(300);
end;
end.