Forum in READ ONLY mode! All questions and discussions on Discord official server, invite link: https://discord.gg/VxsGzJ7

Стрижка овец

Only working scripts
Post Reply
Alex
Moderator
Moderator
Posts: 351
Joined: 07.04.2005 4:41

Стрижка овец

Post by 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.
Last edited by Alex on 23.09.2005 15:52, edited 3 times in total.
Alex
Moderator
Moderator
Posts: 351
Joined: 07.04.2005 4:41

Post by Alex »

кстати для круглосуточного макроса 2 воинов достаточно чтобы нубик стриг 6-7 овец
Гpu3Jl
Neophyte
Neophyte
Posts: 11
Joined: 11.09.2005 15:13
Contact:

Post by Гpu3Jl »

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

Пы.Сы. Чего форум Дрима не работает ?
:?
Alex
Moderator
Moderator
Posts: 351
Joined: 07.04.2005 4:41

Post by Alex »

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

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

ии еще момент..попробуй в скрипт вставить addtosystemjournal('1')
и тд в разных местах и потом узнаеш в каком месте подглючивает
Гpu3Jl
Neophyte
Neophyte
Posts: 11
Joined: 11.09.2005 15:13
Contact:

Post by Гpu3Jl »

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

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

ии еще момент..попробуй в скрипт вставить addtosystemjournal('1')
и тд в разных местах и потом узнаеш в каком месте подглючивает
Стелс стоит самый последний, вроде ничего не мешает резать шерсть(именно резать).Просто если в округе ничего не происходит, то шерсть у меня не режется... Тоесть скрипт не замечает то, что шерсть на овцах обновилась, а достаточно сделать шаг чаром и все работает...
:?
Termit
Neophyte
Neophyte
Posts: 13
Joined: 24.05.2005 21:33

Post by Termit »

Подскажите что там надо вырезать чтоб чар тупо переробатывал шерсть,которая лежит на полу и дропал нитки...
Гpu3Jl
Neophyte
Neophyte
Posts: 11
Joined: 11.09.2005 15:13
Contact:

Post by Гpu3Jl »

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

Code: Select all

uo.resend
если я правильно понял смысл этой команды. Так вот вопрос : есть ли аналог в стелсе такой команды? И потом как в этом скрипте поставить задержку не 5 сек, а побольше ?
Заранее спасибо за помощь [/color] [/b] :P .
Miralex
Developer
Developer
Posts: 656
Joined: 11.03.2005 19:12
Contact:

Post by Miralex »

Гpu3Jl wrote:есть ли аналог в стелсе такой команды? :P .
Нету.
А An Ort например или еще что-то не помогает?
И потом как в этом скрипте поставить задержку не 5 сек, а побольше ?
Задержку на что?
Гpu3Jl
Neophyte
Neophyte
Posts: 11
Joined: 11.09.2005 15:13
Contact:

Post by Гpu3Jl »

Miralex wrote:
Гpu3Jl wrote:есть ли аналог в стелсе такой команды? :P .
Нету.
А An Ort например или еще что-то не помогает?
И потом как в этом скрипте поставить задержку не 5 сек, а побольше ?
Задержку на что?
Ан Орт не тестил, не знаю, а какой принцип вы предлогаете ?

Задержка на проверку сыт ли чар, у меня проверяется сыт ли чар каждые 15 секунд
:P
Alex
Moderator
Moderator
Posts: 351
Joined: 07.04.2005 4:41

Post by Alex »

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

Code: Select all

t := t+1;
if t > 30 then begin
t:=1;
hungry(1,ground);
end;
Гpu3Jl
Neophyte
Neophyte
Posts: 11
Joined: 11.09.2005 15:13
Contact:

Post by Гpu3Jl »

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

Code: Select all

t := t+1;
if t > 30 then begin
t:=1;
hungry(1,ground);
end;
Большое спасибо! Я ошибся, не режется. Кто то может помочь ?
ParadoX
Apprentice
Apprentice
Posts: 256
Joined: 17.03.2005 16:06

Post by ParadoX »

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

Re: Стрижка овец

Post by Oasis »

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