################################
VAR Meshok = '0x40E5068D'
sub main()
uo.Print('Укажите руну к печке') 
uo.Exec('addobject pe4ka') 
while uo.Targeting() 
wait(100) 
wend 
uo.Print('Укажите руну к ящику с рудой') 
uo.Exec('addobject cont_s_rudoi') 
while uo.Targeting() 
wait(100) 
wend 




sub plavka() 
VAR Meshok = '0x40E5068D'; Сериал мешка c рудой
VAR Ruda = '0x19b9'; Тип руды
VAR Ingi = '0x1bef'; Тип ингов
VAR Ingi1 = '0x1BF2';Тип ингов
VAR Ingi2 = '0x1BE3';Тип ингов
VAR Ingi3 = '0x0F8E';Тип ингов
VAR Ingi4 = '0x1BE6';Тип ингов
VAR Kolvo = 500 ; Брать руды
VAR Pechka = '0x40021643'; Сериал печки
VAR k = 0 
repeat 
While TRUE 
UO.FindType( Ruda, -1, Meshok )
If UO.FindCount() == 0 Then 
UO.Print("Nety irona") 
return
Endif 
UO.Grab( Str( Kolvo ), 'finditem' ) 
wait( 2000 ) 
med()
takereg()
Recall('pe4ka')
While UO.Count( Ruda ) > 1 
UO.DeleteJournal() 
UO.WaitTargetType(Ruda)
UO.UseObject(Pechka) 
k = 0 
while NOT UO.InJournal('You put') AND NOT UO.InJournal('не удалось') AND ( k < 9 ) 
k = k + 1 
wait(500) 
wend 
if UO.Count( Ingi ) > 0 then 
Recall('cont_s_rudoi')
UO.FindType( Ingi, -1, -1 ) 
UO.MoveItem( 'finditem', 0, Meshok ) 
wait( 1000 ) 
UO.Print( 'Ingots moved' ) 
end if 
if UO.Count( Ingi1 ) > 0 then 
Recall('cont_s_rudoi')
UO.FindType( Ingi1, -1, -1 ) 
UO.MoveItem( 'finditem', 0, Meshok ) 
wait( 1000 ) 
UO.Print( 'Ingots moved' ) 
end if
if UO.Count( Ingi2 ) > 0 then 
Recall('cont_s_rudoi')
UO.FindType( Ingi2, -1, -1 ) 
UO.MoveItem( 'finditem', 0, Meshok ) 
wait( 1000 ) 
UO.Print( 'Ingots moved' ) 
end if
if UO.Count( Ingi3 ) > 0 then 
Recall('cont_s_rudoi')
UO.FindType( Ingi3, -1, -1 ) 
UO.MoveItem( 'finditem', 0, Meshok ) 
wait( 1000 ) 
UO.Print( 'Ingots moved' ) 
end if
if UO.Count( Ingi4 ) > 0 then 
Recall('cont_s_rudoi')
UO.FindType( Ingi4, -1, -1 ) 
UO.MoveItem( 'finditem', 0, Meshok ) 
wait( 1000 ) 
UO.Print( 'Ingots moved' ) 
end if
Wend 
Wend 
until UO.Dead() 
end sub
###################################
sub med()
VAR LastTimer 
UO.DeleteJournal() 
while UO.Mana<UO.Int 
LastTimer=UO.Timer() 
UO.UseSkill('Meditation') 
repeat 
  wait(100) 
until UO.InJournal("You are") OR UO.InJournal("You lose") OR UO.Timer()>LastTimer+200 
UO.DeleteJournal() 
wait(200) 
wend 
end sub
#########################################
sub takereg()
DIM reg[3]
var i,n
reg[1]='0x0F86'; MR
reg[2]='0x0F7A'; BP
reg[3]='0x0F7B'; BM

UO.UseObject('Meshok')
for i=1 to 3
  while UO.Count(reg[i])<5
    UO.FindType(reg[i],-1, Meshok)
    n=UO.Count(reg[i])
    UO.Grab(str(5-n),'finditem')
    wait(200)
  wend  
next
end sub
###################################
sub Recall(dest) 
var b 
uo.print('Recoll')
for b=1 to 1 
  uo.deletejournal() 
  uo.cast('Recall',dest) 
  if WaitForRecall()==1 then 
    return 1 
  end if 
next
return 0 
end sub 
###################################
sub WaitForRecall() 
var Text1=uo.getname()+": The spell fizzles." 
var mess='',lastX=uo.getX(),lastY=uo.getY() 
for var v=0 to 200 
  mess=uo.journal(0) 
  if uo.Journal(0)==Text1 then 
    return 0 
  end if 
  if uo.getX()<>lastX OR uo.getY()<>LastY then 
    return 1 
  end if 
  wait(50) 
next 
return 0 
end sub