Sitemap

Take Kindlings, drop on the ground, launch script.

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.