Yoko :: Бовкрафт (на все логи)

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/