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

Нарезка Шерсти + Энимал Лор

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

Posted Image

 

 

 

 

program ovceeb;
//Crafted by Rincewind
Begin
while (true) do
  begin 
canceltarget;
  FindDistance := 2;
  WaitTargetobject(findtype($00CF,ground));
   AddToSystemJournal(IntToStr(FindCount)+' Овец');
   AddToSystemJournal(IntToStr(CountEx($0DF8,$0000,backpack))+' Шерсти');
   UseObject(findtype($0F9E,backpack)); 
   wait(5000);
  end;
end.

В основном паке должны быть ножницы. А вокруг чара овцы.

  • Like 1

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


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

дописал вариант для ренжеров, чтоб не простаивал когда заканчиваются лохматые овцы, а качал лор

program ovceeb_lore;{$Include 'all.inc'}var x: Integer;procedure Strijka;begin    repeat    if TargetPresent then CancelTarget;    FindDistance := 2;    WaitTargetObject(FindType($00CF,Ground));    UseObject(FindType($0F9E,Backpack));    AddToSystemJournal(IntToStr(CountEx($0DF8,$FFFF,Backpack))+ ' piles of wool');    Wait(5000);    until (FindType($00CF,Ground) = 0);end;procedure AnimaLore;begin    if TargetPresent then CancelTarget;    WaitTargetObject(FindType($00DF,Ground));    UseSkill('Animal Lore');    Wait(10000);end;BeginSetARStatus(true);while (not Dead) and (Connected) do    begin    Hungry(1,Backpack);    Wait(1000);    for x := 0 to 100 do        begin        if (FindType($00CF,Ground) > 0) then Strijka;        AnimaLore;        end;    end;End.
Изменено пользователем 80aX

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


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

Прикольно а чтоб подбегал к овечкам в определенном радиусе от конкретного тайла (центра загона) стриг овцу и кидал его в игнор лист на минут 10:)

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


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

Прикольно а чтоб подбегал к овечкам в определенном радиусе от конкретного тайла (центра загона) стриг овцу и кидал его в игнор лист на минут 10:)

 

Да что угодно можно я думаю. Тут дело такое, бери и пиши что хочешь и как нравится, никто не запрещает :)

  • Like 1

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


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

Прикольно а чтоб подбегал к овечкам в определенном радиусе от конкретного тайла (центра загона) стриг овцу и кидал его в игнор лист на минут 10:)

1. Игнор лист чистится либо весь сразу, либо вообще не чистится.

2. Когда с овцы состригаешь всю шерсть ее тип и так меняется нет смысла ставить в игнор лист эту бедолагу.

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


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

1. Игнор лист чистится либо весь сразу, либо вообще не чистится.2. Когда с овцы состригаешь всю шерсть ее тип и так меняется нет смысла ставить в игнор лист эту бедолагу.

)))) Наверное минусом такого скрипта будет стамина, при перевесе стамина будет уходить в 0 и сбивать все... Чтоб скрипт имел вид законченого надо будет вписать рекол и разгрузку при достижении определенного веса. Запустил чара в загон включил скрипт и обеспечил себя на пол года вперед высококачественной овечьей шерстью)

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


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

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