Page 1 of 1
Стрижка овец
Posted: 11.09.2005 4:18
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.
Posted: 11.09.2005 4:19
by Alex
кстати для круглосуточного макроса 2 воинов достаточно чтобы нубик стриг 6-7 овец
Posted: 12.12.2005 21:03
by Гpu3Jl
Ув. Аlex большое спасибо за скрипт. Но во время его использования возникла следующая трабла: чар, который стоит на этом макросе срезает шерсть, только тогда когда возле него происходят какието обновления(рост шерсти на овечках не конает), если он стоит в одиночистве, то овец он стрижет только тогда, когда к нему кто то подбегает либо что то делает, достаточно стоять рядом на макросе и чтото кричать раз в минуту, а если чар стоит на едине с овцами, то шерсть не срезает. Иногда...
Не поможете ль ? Играю на ФоФе
С Ув. Гризл.
Пы.Сы. Чего форум Дрима не работает ?
Posted: 12.12.2005 22:34
by Alex
может у тебя стелс старый? попробуй обнови, недавно вышел новый 095б...
у меня срезал в любое время суток и кол-во чаров, внимательно посмотри на место где чар стоит, может ему там что то мешает..
ии еще момент..попробуй в скрипт вставить addtosystemjournal('1')
и тд в разных местах и потом узнаеш в каком месте подглючивает
Posted: 13.12.2005 23:15
by Гpu3Jl
Alex wrote:может у тебя стелс старый? попробуй обнови, недавно вышел новый 095б...
у меня срезал в любое время суток и кол-во чаров, внимательно посмотри на место где чар стоит, может ему там что то мешает..
ии еще момент..попробуй в скрипт вставить addtosystemjournal('1')
и тд в разных местах и потом узнаеш в каком месте подглючивает
Стелс стоит самый последний, вроде ничего не мешает резать шерсть(именно резать).Просто если в округе ничего не происходит, то шерсть у меня не режется... Тоесть скрипт не замечает то, что шерсть на овцах обновилась, а достаточно сделать шаг чаром и все работает...
Posted: 23.12.2005 14:42
by Termit
Подскажите что там надо вырезать чтоб чар тупо переробатывал шерсть,которая лежит на полу и дропал нитки...
Posted: 06.01.2006 0:58
by Гpu3Jl
ВСе, последний раз прошу помощь, по этому скрипту
Просто как оказалось на шарде, где я играю Овечки респятся, только после того как что то на экране обновилось - чар пробежал, изменилось колл. вещей каких то на расстоянии экрана от овец. Походу в этом деле может помочь если я правильно понял смысл этой команды. Так вот вопрос : есть ли аналог в стелсе такой команды? И потом как в этом скрипте поставить задержку не 5 сек, а побольше ?
Заранее спасибо за помощь [/color] [/b]
.
Posted: 07.01.2006 4:54
by Miralex
Гpu3Jl wrote:есть ли аналог в стелсе такой команды? .
Нету.
А An Ort например или еще что-то не помогает?
И потом как в этом скрипте поставить задержку не 5 сек, а побольше ?
Задержку на что?
Posted: 08.01.2006 4:09
by Гpu3Jl
Miralex wrote:Гpu3Jl wrote:есть ли аналог в стелсе такой команды? .
Нету.
А An Ort например или еще что-то не помогает?
И потом как в этом скрипте поставить задержку не 5 сек, а побольше ?
Задержку на что?
Ан Орт не тестил, не знаю, а какой принцип вы предлогаете ?
Задержка на проверку сыт ли чар, у меня проверяется сыт ли чар каждые 15 секунд
Posted: 10.01.2006 23:50
by Alex
добавь счетчик, например
Code: Select all
t := t+1;
if t > 30 then begin
t:=1;
hungry(1,ground);
end;
Posted: 11.01.2006 14:00
by Гpu3Jl
Alex wrote:добавь счетчик, например
Code: Select all
t := t+1;
if t > 30 then begin
t:=1;
hungry(1,ground);
end;
Большое спасибо! Я ошибся, не режется. Кто то может помочь ?
Posted: 26.02.2006 0:02
by ParadoX
заупстил я эту страсть... гадость..
аффтар, а если нету у меня около овец прялки, тяжело сделать иф прялка = 0 то не прясти ? или если нет овец то делать из этого всего бинты, и дохрена функций и неправильно расставленых, если вейтконекшн это то о чем я думаю то почему его нет где инициализируются прялка и колесо ? чтобы было не все забито словами каттинг и между респами 10 реконектов, а нормально как то... за каждый час например сколько порезалось сколько сорваалось ? пару переменных в цикле которые проверяются на время и добавляется количество того что сделал чар. карочи завтра буду делать ТРУ
Re: Стрижка овец
Posted: 16.09.2015 22:08
by Oasis
подскажите, как добавить сюда функцию, что бы чар побрил овец, сделал рулоны и ушел в офф на N-ное время?
просто овцы не обрастают если не дисконектить.
спс