Yoko

uo.WaitTargetObject('finditem') #ore
uo.UseObject('Forge')

############################################ 
#  Script Name: Плавка по 1 руде# 
var Version = ' 2.1'                       # 
#  Shard : www.nightday.com.ua             # 
#  Created by : Levsha                     # 
#  E-Mail : duha@ukr.net                   # 
#  ICQ : 32404540                          # 
#  Параметры:                              # 
var Ore='0x19b9'   ;Тип Руды               # 
var Ingot='0x1bf2' ;Тип Ингот            # 
############################################ 
Sub main() 
var i 
var tp 
uo.print("Scripts : Plavka Po 1 Rudinke") 
uo.print("Version" + Version) 
Wait(2000)  
   UO.AddObject('Gorn') 
   While UO.Targeting()==2 
      wait(500) 
   Wend 
   UO.SaveConfig() 
    
   UO.AddObject('Sunduk') 
   While UO.Targeting()==2 
      wait(500) 
   Wend 
   UO.SaveConfig() 
While NOT UO.Dead() 
 UO.FindType('0x19B9','-1','Sunduk') 
      if UO.GetQuantity('finditem')>0 then 
        UO.Grab('1','finditem') 
        wait(400) 
        CheckLag() 
      end if  
repeat 
 UO.FindType(Ore,'-1','-1') 
      if UO.GetQuantity('finditem')>0 then    
   uo.waittargetobject('Gorn') 
   UO.UseType(Ore) 
   tp=0 
   repeat 
    tp=tp+1 
    wait(100) 
   until UO.InJournal("cliloc# 0xA8E4") OR UO.InJournal("cliloc# 0xA8E5") OR tp>=30 
   UO.FindType(Ore,'-1','-1') 
      end if 
until  UO.GetQuantity('finditem')==0  
repeat 
       UO.FindType(Ingot,'-1','-1') 
      if UO.GetQuantity('finditem')>0 then 
        UO.MoveItem('finditem',0,'Sunduk') 
        wait(400) 
        CheckLag() 
        UO.FindType(Ingot,'-1','-1') 
      end if  
until UO.GetQuantity('finditem')==0 
wend 
End Sub 
Sub CheckLag() 
If uo.stamina < 5 Then 
    Wait(20000) 
endif 
if uo.Waiting()>0 then 
   uo.Exec('canceltarget') 
end if 
    uo.DeleteJournal() 
    uo.Click('backpack') 
repeat 
       wait(200) 
until uo.InJournal('cliloc# 0x9A12');backpack 
end sub