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

[+GhosT+]

Вот скрит на бовкрафт, но он мне не нравиться... Так как берет ткоа простые логи ! Зделаите плз чтоб он брал все логи которые есть в сундуке ... Заранее спасибо !

Code: Select all

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

[Millerbeer]

Code: Select all

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

[+GhosT+]

сПАСИБО