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

Re: Нужна помощь ! Боукрафт!
http://forum.yoko.com.ua/viewtopic.php?f=17&t=16921		 Page 1 of 1
Author:  Frenck [ 2012-03-01 12:57:56 ]
Post subject:  Re: Нужна помощь ! Боукрафт!
Подскажите как вставить сюда кормилку ! Ну что бы чар сам хавку ел , брать из сундука не надо что тупа из бекпака ел и усе ) Заранее спасибо .
###
var Chest='0x4005ECF6' ## - ID сундука из которого будем брать логи и класть шафты.
###
var Logs='0x1BDD' ## - Type логов.
###
var Shaft='0x1BD4' ## - Type шафтов.
###
var dagger='0x0F51' ## - 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','Bowyer Items','Bowyer Items','Shafts' )
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:  ZeroDX [ 2012-03-01 14:42:07 ]
Post subject:  Re: Нужна помощь ! Боукрафт!
после строки
Code:
ChekLag()
воткни строку
Code:
uo.usetype('тип еды в паке')
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/