Yoko

############################################################################################
#File info##################################################################################
############################################################################################
;Copiraten: by ICe aka ICeCREAm                                                            #
;     Mail: Hoob@narod.ru  писать с пометкой UO                                            #
;      Icq: 222228147 писать с пометкой UO                                                 #
;      WWW: http://hoob.narod.ru      >                                                    #
;[; plz not sale outside for russia,for all questions call #911 or (Hoob@narod.ru) ask me;]#
#############################################################(с) 2005 made in russia :) ####


################## 
### Переменные ### 
###################################################################################### 
### 
var Chest='0x402F7A23' ## - ID сундука из которого будем брать логи и класть шафты. 
### 
var Logs='0x1BDD' ## - Type логов. 
### 
var Shaft='0x13B1' ## - Type шафтов. 
### 
var dagger='0x0F52' ## - 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?','bow (8 log)') 
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('0','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

sub Bowcraft() 
var dagger='0x0F51' 
var logs='0x1BDD' 

 while not uo.Dead() 
   uo.DeleteJournal() 
   uo.WaitMenu('What do you want to carve the' ,'bow') 
   uo.WaitTargetType(logs) 
   uo.UseType(dagger) 
   while not uo.InJournal('item') or uo.InJournal('pack') or uo.InJournal('you fail') 
     wait(100) 
   wend 
 wend 
end sub

подскажите подлаусто я не тот тут написал он не такой какойто =( скажите вот луче этот быбрать а вот вопросик в том -
можете написать - как после того как от сделает обычный луч - чтоб в ведро для мусора скидывал эти луки? чтоб они там самоликвидировались - trash can.и еще можно чтоб из сундука логи ьбрал!