Code: Select all
Program New;
const
kaka = $0F3B;
stone = $40123CEA;
var
i: integer;
procedure checksave;
////////////////////////////////////////////
//////////////////////////////////////////// Проверка сохранения мира.
begin
if injournalbetweentimes('World is saving now...', now-(1.0/(24*60*2)), now) > -1 then
repeat wait(500); until injournalbetweentimes('World data saved in ', now-(1.0/(24*60*2)), now) > 1;
checklag(5000);
end;
begin
setrunmounttimer(100);
setwalkmounttimer(200);
setrununmounttimer(200);
setwalkunmounttimer(400);
finddistance := 20;
moveopendoor := true;
newmovexy(1314, 982, false, 1, true);
while true do begin
while (weight > str*3) OR (findtype(kaka, ground) > 0) do begin
newmovexy(getx(finditem), gety(finditem), false, 1, true);
checksave;
useobject(finditem);
addtosystemjournal('Я собрал ' + inttostr(i) + ' какашек :)');
i := i+1;
checksave;
wait(300);
end;
if weight > str then begin
newmovexy(1316, 950, false, 1, true);
checksave;
useobject(backpack);
checksave;
wait(300);
while findtype(kaka, backpack) > 0 do begin
useobject(stone);
checksave;
wait(300);
end;
newmovexy(1314, 982, false, 1, true);
checksave;
end;
end;
end.