Camping

Берём Kindlings, кидаем на пол, запускаем скрипт.

program Camping;
{$include 'all.inc'}

var
i, o : integer;

Begin
  i := 0;
  while (true) do
  begin
    Hungry(1, backpack);
    i := i + 1;
    UseObject(findtype($0DE1, ground));
    wait(500);
    if i > 50 then begin
      AddToSystemJournal(IntToStr(FindFullQuantity) + ' Kindlings left');
      i := 0;
    end;
  end;
end.
 
faq/stealth/camping.txt · Последние изменения: 2019/11/20 09:07 — tsatsur
 
Recent changes RSS feed Creative Commons License Donate Powered by PHP Valid XHTML 1.0 Valid CSS Driven by DokuWiki