Yoko
http://forum.yoko.com.ua/

помогите пожалуйсто Боукравт
http://forum.yoko.com.ua/viewtopic.php?f=20&t=12119		 Page 1 of 1
Author:  pika [ 2007-06-20 01:03:58 ]
Post subject:  помогите пожалуйсто Боукравт
У меня есть скрипт на Боукрафт,чар делает шафты - но с шафтов медленно растёт и яб хотел делать луки (bow 8logs) обычные.

Code:
### 
var Chest='0x40122EBF' ## - ID сундука из которого будем брать логи и класть шафты. 
### 
var Logs='0x1BDD' ## - Type логов. 
### 
var Shaft='0x13B1' ## - Type шафтов. 
### 
var dagger='0x0F52' ## - Type даггера. 
### 
####################################################################################### 
sub BowCraft() 
Open(Chest) 
while 1==1 
uo.FindType(Logs,-1,'backpack') 
while uo.GetQuantity('finditem')==0 
uo.FindType(Logs,'0x0000',Chest) 
wait(1000) 
uo.Grab('20','finditem') 
wend 
wait(700) 
ChekLag() 
uo.FindType(Logs,'0x0000','backpack') 
uo.WaittargetType(Logs) 
uo.Usetype(dagger) 
uo.WaitMenu('What do you want to carve the wood into?','bow (8 log)') 
wait(1000) 
uo.DeleteJournal() 
while not (uo.InJournal('You put') or uo.InJournal('You fail')) 
wait(300) 
wend 
if uo.Weight>100 then 
uo.SetReceivingContainer(Chest) 
wait(500) 
uo.FindType(Shaft) 
if uo.GetQuantity('finditem')>0 then 
uo.Grab('20','finditem') 
wait(3000) 
end if 
uo.UnSetReceivingContainer() 
end if 
wend 
end sub 

sub Open(Container) 
uo.DeleteJournal() 
uo.UseObject(Container) 
repeat 
wait(500) 
until uo.InJournal('Contains') 
end sub 

sub ChekLag() 
uo.DeleteJournal() 
uo.Click('backpack') 
repeat 
wait(100) 
until uo.InJournal("backpack") 
end sub


Вообще этот скрипт - на шафты
Но я вставил лук.Он делает делает луки а потом почемуто перестаеет! =( После 8 луков он уже просто стоит и ничего не делает.Посмотрите пожалуйсто что нетак? Menu chose not found : Menu canceled
Вот что вылетает =( Ктото подскажите как сделать чтобы он эти луки кидал сразу в мусорное ведро?[/code]
Author:  pika [ 2007-06-23 12:48:52 ]
Post subject: 
можете сказать - как сделать так - чтобы он то что сделал не в сундук ложил а в траш кан?
Author:  Laden [ 2007-06-23 17:37:16 ]
Post subject: 
pika wrote:
можете сказать - как сделать так - чтобы он то что сделал не в сундук ложил а в траш кан?


Очень просто... в переменную Chest='0x40122EBF'
вместо 0x40122EBF (ID твоего сундука) поставь ID Трэш чана.. И все дела)
Author:  pika [ 2007-06-25 22:38:28 ]
Post subject: 
ладен помагии плищ - просто я вгляделся в скрипт но - там надо эту бочку мусореую указать!! вот когда он сделает луки - там строчка идет
[/code]if uo.Weight>100 then
uo.SetReceivingContainer(Chest)
wait(500)
Code:

но этоде сундук указан!! =( а вначале криипта надо указать - ид сундука иид дакггера и ид логов - а треш кан нет!
есл я просто поменяю сундун на траш кан - то получается мой чар -= будет брать логи из мусорного ведра (trash can) и ложить туда а там все пропадет а это беееедааа =( подскажите пожалуйсто 
как сделать чтоб он как   надо в этом скрипте брал логи из сундука а потом ложил в траш кан!
сэнк
Author:  Laden [ 2007-06-26 14:43:09 ]
Post subject: 
Хм, ну да, логично...
Тогда попробуй так:
1) создай в начале скрипта ещё одну переменную
var Trash='ID_мусорной_корзины'

2) в коде
Code:
if uo.Weight>100 then 
uo.SetReceivingContainer(Chest) 
wait(500)


замени
Code:
uo.SetReceivingContainer(Chest)

на
Code:
uo.SetReceivingContainer(Trash)


Если до всех махинаций со скриптом он всё делал так, как тебе надо, то должно работать..


С другой стороны, тебе надо чтобы он делал лук и тут же его скидывал в Трэш.. Поскольку проверить и отладить нет ни желания ни, что является более определяющим фактором, возможности, то пробуй вот что:
Код
Code:
if uo.Weight>100 then 
uo.SetReceivingContainer(Chest) 
wait(500) 
uo.FindType(Shaft) 
if uo.GetQuantity('finditem')>0 then 
uo.Grab('20','finditem') 
wait(3000) 
end if 
uo.UnSetReceivingContainer() 
end if

замени на
Code:
uo.FindType(Shaft) 
if uo.findcount() then 
uo.SetReceivingContainer(Trash) 
wait(500) 
if uo.GetQuantity('finditem')>0 then 
uo.Grab('20','finditem') 
wait(3000) 
end if 
uo.UnSetReceivingContainer() 
end if
Author:  pika [ 2007-06-26 16:38:16 ]
Post subject: 
сэнк я попробовал написал как ты велел но чотонето =( первый твой способ просто вот что
он далает то чно надо а перед тем как положит в мусорник вот такое вылезает
ERROR 58: Runtime Error
и в мусорник не ложит а ложит себе в сумку! =()
если ченсо я както хочу сказать что есть еще коечто -
этот скрипт на шафты а я хочу луки делать

Я поставил Меню - Лук - 8 Логов
А перед этим
Code:
 uo.FindType(Logs,'0x0000',Chest) 
wait(1000) 
uo.Grab('20','finditem') 
wend

но он почемуто берет 2 лога всегда и вылетает ошибка
Menu not FOUND!
Это иизатого что он два лога взял =(( Вот еще что1 хотел сказать - если чесно то один раз я вкоючил скрипт он брал логов 8 - 2 минуты постоял - потом 4 брать начал и ВСЁЁЁ! Можете сказать пожалусто чтото нетак?
Author:  pika [ 2007-06-26 16:59:04 ]
Post subject: 
мне очень надо чтоб он делал луки
вот я просмотрел весь скриптовой фольклёр на боукрафтинг и
переделал
Code:
var dagger='0x0F52'

var Logs='0x1BDD'

var Chest='0x402F7A23


sub Bowcraft() 
Open(Chest)
while 1==1
uo.FindType(Logs,-1,'backpack')
while uo.GetQuantity('finditem')==0
uo.FindType(Logs,'0x1BDD',Chest)
wait(1000)
uo.Grab('8',finditem')
wend
wait(700)
ChekLag()
uo.FindType(Logs,'0x0000','backpack')
uo.WaittargetType(Logs)
uo.Usetype(dagger)
uo.Waitmenu('What do you want to carve the wood into?','bow (8 log)')
wait(1000)
uo.DeleteJournal()
while not (uo.InJournal('You put') or uo.InJournal('You fail'))
wait(300)
wend
if uo.weight>100 then
uo.SetReceivingContainer(Chest)
wait(500)

sub Open(Container)
uo.DeleteJournal()
uo.UseObject(Container)
repeat
wait(500)
until uo.InJournal('Contains')
end sub
sub ChekLag()
uo.DeleteJournal()
uo.Click('backpack')
repeat
wait(100)
until uo.Injournal("backpack")
end sub


 while not uo.Dead() 
   uo.DeleteJournal() 
   uo.WaitMenu('What do you want to carve the' ,'bow') 
   uo.WaitTargetType(logs) 
   uo.UseType(dagger) 
   while not uo.InJournal('item') or uo.InJournal('pack') or uo.InJournal('you fail') 
     wait(100) 
   wend 
 wend 
end sub

он должен брать логи из сундука и делать луки
но он даже скрипт не запускается!! =(( можете сказать пожалуйсто что я нетак переделал?
Author:  Rivory [ 2007-06-26 20:49:36 ]
Post subject: 
Code:
sub Bowcraft() 
var dagger='0x0F52'

var Logs='0x1BDD'

var Chest='0x402F7A23


Open(Chest)
while 1==1
uo.FindType(Logs,-1,'backpack')
while uo.GetQuantity('finditem')==0
uo.FindType(Logs,'0x1BDD',Chest)
wait(1000)
uo.Grab('8',finditem')
wend
wait(700)
ChekLag()
uo.FindType(Logs,'0x0000','backpack')
uo.WaittargetType(Logs)
uo.Usetype(dagger)
uo.Waitmenu('What do you want to carve the wood into?','bow (8 log)')
wait(1000)
uo.DeleteJournal()
while not (uo.InJournal('You put') or uo.InJournal('You fail'))
wait(300)
wend
if uo.Weight>100 then 
uo.SetReceivingContainer(Chest) 
wait(500) 
uo.FindType(Shaft) 
if uo.GetQuantity('finditem')>0 then 
uo.Grab('20','finditem') 
wait(3000) 
end if 
uo.UnSetReceivingContainer() 
end if 
wend 
end sub

sub Open(Container)
uo.DeleteJournal()
uo.UseObject(Container)
repeat
wait(500)
until uo.InJournal('Contains')
end sub


sub ChekLag()
uo.DeleteJournal()
uo.Click('backpack')
repeat
wait(100)
until uo.Injournal("backpack")
end sub

Выше написан какой-то бред... просто отрывки скриптов, работать они, разумеется, не будут.
Author:  pika [ 2007-07-04 14:52:12 ]
Post subject: 
бред то что ты на свет родился =( я спросил как переделать его а некак мне его ошибку показать - скажите пожалуйсто как переделать или напишите если несложно
Author:  Rivory [ 2007-07-05 18:41:21 ]
Post subject: 
pika wrote:
бред то что ты на свет родился =(


бред - то что ты сидишь на этом форуме и хамишь тем, кто скриптов в своей жизни написал больше чем ты. сам дрочись со своим скриптом, тебе я помогать не буду и в эту тему больше не зайду.
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/