Перейти к публикации
Rincewind

Кемпинг

Рекомендованные сообщения

program arms;
var
i,o : integer;
Begin
i:=0;
while (true) do
  begin
  
   i:=i+1;
  
   UseObject(findtype($0DE1,ground));
  wait(500);
  
  
   if i>50 then begin
   attack($00311DE6);
   AddToSystemJournal(IntToStr(FindFullQuantity) + ' Kindlings left');
   i:=0;
   end;
  
  
  end;
end.

 

Чара в дом. На пол под чара ветошь (kindling)

Поделиться сообщением


Ссылка на сообщение
Поделиться на других сайтах

Щепки себе в мешок, встаем где удобно что бы не убили.

и надо квадрат свободный 2*2 места.

program camping;
{$Include 'all.inc'}
var
x,y: integer;
begin
SetARStatus(true); //Включаем автореконектор
Hungry(1,backpack);
while not dead do // Зацикливаем
begin		   
  FindType($0DE1, backpack)
  while findcount > 0 do // пока есть щепы в мешке
  begin
   for x:=-2 to 2 do
   begin
    for y:=-2 to +2 do
    begin
	 FindType($0DE1, backpack)
	 Wait(500);
	 Drop(finditem, 1, GetX(self)+x, GetY(self)+y, GetZ(self));
	 Wait(1000);
	 FindType($0DE1, ground);
	 while findcount > 0 do
	 begin
	  UseObject(findtype($0DE1,ground));
	  Wait(2700);
	  FindType($0DE1, ground);
	 end;
    end;
   end;
   FindType($0DE1, backpack)
   end;
  end;
End.

Поделиться сообщением


Ссылка на сообщение
Поделиться на других сайтах

×
×
  • Создать...