Резка овец

Встаём в комнату с овцами. Берём ножницы (scissors).

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

var
ctime : TDateTime;

const
dropmessage = 'wooldrop'; //фраза которую можно сказать персонажу, чтобы он скинул шерсть(лучше задавать какую-то свою, хоть какую. 
//Подходим к тому кто режет (можем оставить кого-то в хайде рядом, пишем .msg Persname (имя пресонажа) и ключевую фразу типа wooldrop, овцерез скинет шерсть под себя.

Begin
  while (true) do
  begin
    SetARStatus(true);
    ctime := Now;
    canceltarget;
    FindDistance := 2;
    Hungry(1, backpack);
    WaitTargetobject(findtype($00CF,ground));
    AddToSystemJournal(IntToStr(FindCount)+' Овец');
    AddToSystemJournal(IntToStr(CountEx($0DF8,$0000,backpack))+' Шерсти');
    UseObject(findtype($0F9E,backpack));
    wait(5000);
    if InJournalBetweenTimes(dropmessage, ctime, Now) <> -1 then
    begin
      DropHere(FindType($0DF8, backpack));
      Wait(200);
      If FindType($097B, ground) > 0 then
      begin
        MoveItem(FindItem,GetQuantity(FindItem),backpack,0,0,0);
      end;
    end;
  end;
end.
 
faq/stealth/etc/sheeps.txt · Последние изменения: 2019/11/19 15:13 — tsatsur
 
Recent changes RSS feed Creative Commons License Donate Powered by PHP Valid XHTML 1.0 Valid CSS Driven by DokuWiki