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

Бовкрафт (на все логи)
http://forum.yoko.com.ua/viewtopic.php?f=20&t=14492
Page 1 of 1

Author:  +GhosT+ [ 2009-03-02 04:27:26 ]
Post subject:  Бовкрафт (на все логи)

Вот скрит на бовкрафт, но он мне не нравиться... Так как берет ткоа простые логи ! Зделаите плз чтоб он брал все логи которые есть в сундуке ... Заранее спасибо !
Code:
var Chest='0x40277A42' ## - 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('1','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?','shaft (1 log)')
wait(1000)
uo.DeleteJournal()
while not (uo.InJournal('You put') or uo.InJournal('You fail'))
wait(300)
wend
if uo.Weight>63 then
uo.SetReceivingContainer(Chest)
wait(500)
uo.FindType(Shaft)
if uo.GetQuantity('finditem')>0 then
uo.Grab('1','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:  Millerbeer [ 2009-03-02 07:11:20 ]
Post subject: 

Code:
var Chest='0x40277A42' ## - 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,'-1',Chest)
wait(1000)
uo.Grab('1','finditem')
wend
wait(700)
ChekLag()
uo.FindType(Logs,'-1','backpack')
uo.WaittargetType(Logs)
uo.Usetype(dagger)
uo.WaitMenu('What do you want to carve the wood into?','shaft (1 log)')
wait(1000)
uo.DeleteJournal()
while not (uo.InJournal('You put') or uo.InJournal('You fail'))
wait(300)
wend
if uo.Weight>63 then
uo.SetReceivingContainer(Chest)
wait(500)
uo.FindType(Shaft)
if uo.GetQuantity('finditem')>0 then
uo.Grab('1','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:  +GhosT+ [ 2009-03-02 10:12:07 ]
Post subject: 

сПАСИБО

Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/