Page 1 of 1

Re: Нужна помощь ! Боукрафт!

Posted: 2012-03-01 12:57:56
by Frenck
Подскажите как вставить сюда кормилку ! Ну что бы чар сам хавку ел , брать из сундука не надо что тупа из бекпака ел и усе ) Заранее спасибо .
###
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

Re: Нужна помощь ! Боукрафт!

Posted: 2012-03-01 14:42:07
by ZeroDX
после строки

Code: Select all

ChekLag()
воткни строку

Code: Select all

uo.usetype('тип еды в паке')