Ultima Online Antares

sub Smelt()
VAR Ruda = '0x19B9'; eo?a ?oau
VAR Ruda3 = '0x19B8'; Oei ?oau - 3 oo.
VAR Ruda2 = '0x19BA'; Oei ?oau - 2 oo.
VAR Ruda1 = '0x19B7'; Oei ?oau - 1 oo.
uo.unsetreceivingcontainer()
uo.print('Where are Ore')
uo.exec('addobject sumka')
while uo.targeting()
wait(100)
wend
uo.DeleteJournal()
While Not UO.InJournal("No more ")
UO.Findtype( Ruda, -1, 'sumka' ); Euai ?oao a noiea
If UO.Findcount() == 0 Then
UO.Findtype( Ruda3, -1, 1 )
If UO.Findcount() == 0 Then
UO.Findtype( Ruda2, -1, 1 )
If UO.Findcount() == 0 Then
UO.Findtype( Ruda1, -1, 1 )
If UO.Findcount() == 0 Then
UO.Print( "No more ore for smelt..." )
gong(1)
Return
Endif
Endif
Endif
Endif
UO.Exec( "moveitem finditem 5" ); Oauei 1 a iae ii?ii iiiaiyou ia 2,3,4,5....
Wait( 200 )
UO.Findtype( Ruda, -1, 'backpack'); Euai ?oao a noiea
UO.Usetype( ruda ); ia?aieaaeyai
Wait( 200 )
wend
endsub

sub smelt()
repeat
if UO.Count( '0x19B9' ) < 10 then
wait(200)
UO.FindType( '0x19B9', 'all', '0x40101881' )## Сундук
uo.grab(400,'finditem')
wait(300)
end if
UO.FindType('0x19B9',-1,-1)
UO.WaitTargetObject('finditem')
UO.UseFromGround('0x0FB1') #Тип форжы
wait(300)
if UO.Count('0x1BEF') > 200 then
UO.FindType('0x1BEF', -1, -1 )
UO.MoveItem('finditem', 0,'0x40101881')## Сундук
end if
until uo.dead()
end sub