Стрижка овец

[Alex]

скрипт расчитан на новые инклуды от Миралекса
нубику положите ножницы в пак, потому что он сам из шерсти делает бинты, используя прялку и колесо.

Code: Select all

Program Sheep;
var b:TDateTime;
wheel:cardinal;
loom:cardinal;

{$Include 'all.inc'}

Begin
SetARStatus(true);
FindDistance:=3;
wheel:=findtype($10A4,ground);
loom:=findtype($105F,ground);
while not dead do
begin
checksave;
WaitConnection(5000);
while findtype($00CF,ground) > 0 do
begin
 checksave;
 WaitConnection(5000);
 CheckTargetError(1,10000);
 waittargetobject(finditem);
 useobject(findtype($0F51,backpack));
 AddToSystemJournal('Cutting');
 wait(1000);
end;

while getquantity(findtype($0DF8,backpack)) > 0 do
begin
 b:=Now;
 checksave;
 WaitConnection(5000);
 CheckTargetError(1,10000);
 waittargetobject(wheel);
 useobject(findtype($0DF8,backpack));
 WaitJournalline(b,'You spin some wool and create some yarn',10000);
end;

while getquantity(findtype($0E1F,backpack)) > 4 do
begin
 checksave;
 WaitConnection(5000);
 CheckTargetError(1,10000);
 waittargetobject(loom);
 useobject(finditem);
 wait(500);
end;

WaitConnection(5000);
Hungry(1,ground);
if getquantity(findtype($0F95,backpack)) > 9 then stack($0F95,$0000);
Wait(3600);
end;
End.

[Alex]

кстати для круглосуточного макроса 2 воинов достаточно чтобы нубик стриг 6-7 овец

[Гpu3Jl]

Ув. Аlex большое спасибо за скрипт. Но во время его использования возникла следующая трабла: чар, который стоит на этом макросе срезает шерсть, только тогда когда возле него происходят какието обновления(рост шерсти на овечках не конает), если он стоит в одиночистве, то овец он стрижет только тогда, когда к нему кто то подбегает либо что то делает, достаточно стоять рядом на макросе и чтото кричать раз в минуту, а если чар стоит на едине с овцами, то шерсть не срезает. Иногда...
Не поможете ль ? Играю на ФоФе
С Ув. Гризл.

Пы.Сы. Чего форум Дрима не работает ?

[Alex]

может у тебя стелс старый? попробуй обнови, недавно вышел новый 095б...

у меня срезал в любое время суток и кол-во чаров, внимательно посмотри на место где чар стоит, может ему там что то мешает..

ии еще момент..попробуй в скрипт вставить addtosystemjournal('1')
и тд в разных местах и потом узнаеш в каком месте подглючивает

[Гpu3Jl]

может у тебя стелс старый? попробуй обнови, недавно вышел новый 095б...

у меня срезал в любое время суток и кол-во чаров, внимательно посмотри на место где чар стоит, может ему там что то мешает..

ии еще момент..попробуй в скрипт вставить addtosystemjournal('1')
и тд в разных местах и потом узнаеш в каком месте подглючивает

Стелс стоит самый последний, вроде ничего не мешает резать шерсть(именно резать).Просто если в округе ничего не происходит, то шерсть у меня не режется... Тоесть скрипт не замечает то, что шерсть на овцах обновилась, а достаточно сделать шаг чаром и все работает...

[Termit]

Подскажите что там надо вырезать чтоб чар тупо переробатывал шерсть,которая лежит на полу и дропал нитки...

[Гpu3Jl]

ВСе, последний раз прошу помощь, по этому скрипту
Просто как оказалось на шарде, где я играю Овечки респятся, только после того как что то на экране обновилось - чар пробежал, изменилось колл. вещей каких то на расстоянии экрана от овец. Походу в этом деле может помочь

Code: Select all

uo.resend

если я правильно понял смысл этой команды. Так вот вопрос : есть ли аналог в стелсе такой команды? И потом как в этом скрипте поставить задержку не 5 сек, а побольше ?
Заранее спасибо за помощь [/color] [/b] .

[Miralex]

есть ли аналог в стелсе такой команды? .

Нету.
А An Ort например или еще что-то не помогает?

И потом как в этом скрипте поставить задержку не 5 сек, а побольше ?

Задержку на что?

[Гpu3Jl]

есть ли аналог в стелсе такой команды? .

Нету.
А An Ort например или еще что-то не помогает?

И потом как в этом скрипте поставить задержку не 5 сек, а побольше ?

Задержку на что?

Ан Орт не тестил, не знаю, а какой принцип вы предлогаете ?

Задержка на проверку сыт ли чар, у меня проверяется сыт ли чар каждые 15 секунд

[Alex]

добавь счетчик, например

Code: Select all

t := t+1;
if t > 30 then begin
t:=1;
hungry(1,ground);
end;

[Гpu3Jl]

добавь счетчик, например

Code: Select all

t := t+1;
if t > 30 then begin
t:=1;
hungry(1,ground);
end;

Большое спасибо! Я ошибся, не режется. Кто то может помочь ?

[ParadoX]

заупстил я эту страсть... гадость..
аффтар, а если нету у меня около овец прялки, тяжело сделать иф прялка = 0 то не прясти ? или если нет овец то делать из этого всего бинты, и дохрена функций и неправильно расставленых, если вейтконекшн это то о чем я думаю то почему его нет где инициализируются прялка и колесо ? чтобы было не все забито словами каттинг и между респами 10 реконектов, а нормально как то... за каждый час например сколько порезалось сколько сорваалось ? пару переменных в цикле которые проверяются на время и добавляется количество того что сделал чар. карочи завтра буду делать ТРУ

[Oasis]

подскажите, как добавить сюда функцию, что бы чар побрил овец, сделал рулоны и ушел в офф на N-ное время?
просто овцы не обрастают если не дисконектить.
спс