таминг

[nepopus]

Не кормит, не гуляет, не подтирает. Для истинных ценителей ручного дела

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.