Yoko

   var newitem
sub full_dwp()
   var i
   var material=0x1BF2 #тип ингов
   
   Dim armor[5]
   armor[0] = 'Platemail Gorget'
   armor[1] = 'Dwarwen Platemail Breastplate'
   armor[2] = 'Dwarwen Platemail Arms'
   armor[3] = 'Dwarwen Platemail Gloves'
   armor[4] = 'Dwarwen Platemail Legs'
   
   Dim brak[6]
   brak[0] = '0x1413'    ## Platemail Gorget
   brak[1] = '0x1416'    ## Dwarwen Platemail Breastplate
   brak[2] = '0x1417'    ## Dwarwen Platemail Arms
   brak[3] = '0x1418'    ## Dwarwen Platemail Gloves
   brak[4] = '0x141A'    ## Dwarwen Platemail Legs
   brak[5] = '0x1419'    ## Dwarwen Plate Helm
   
   uo.print("!Set receiving bag!")
   uo.addobject('thebag')
   while uo.targeting()
      wait(100)
   wend
   
   for i = 0 to 4
      repeat
         uo.deletejournal()
         uo.waittargettype('material')
         uo.usetype('0x13E3')
         uo.waitmenu('What', 'Armor', 'Select', 'Platemail', 'Select', armor[i])
         WaitJournal('in your pack|destroy',10000)
         MeltNonExeptional(brak[i])
      until uo.injournal('exceptional')
      wait(100)
      newitem = WaitType(brak[i],1000)
      UO.MoveItem(newitem,1,'thebag')
      uo.deletejournal()
   next
   
   repeat
      uo.deletejournal()
      uo.waittargettype('material')
      uo.usetype('0x13E3')
      uo.waitmenu('What', 'Armor', 'Select', 'Helmets', 'Select', 'Dwarven')
      WaitJournal('in your pack|destroy',10000)
      MeltNonExeptional(brak[5])
   until uo.injournal('exceptional')
   wait(100)
   newitem = WaitType(brak[5],1000)
   UO.MoveItem(newitem,1,'thebag')
   
end sub

sub MeltNonExeptional(type)
   if uo.injournal('create') then
      uo.waittargettype(type)
      uo.usetype('0x0FBB')
      while not uo.injournal('You could make some material from that.')
         wait(100)
      wend
      wait(3000)
   endif
end sub

sub WaitJournal(Line,maxWait)
   if (maxWait < 0) then
      maxWait = 60*60*24*30*12
   end if
   
   while (not UO.InJournal(Line)) and (maxWait > 0)
      wait(100)
      maxWait = maxWait - 100
   wend
   wait(100)
end sub

sub WaitType(Type,maxWait) 
   if (maxWait < 0) then
      maxWait = 60*60*24*30*12
   end if

   UO.findtype(Type,-1,-1)
   while (not UO.FindCount()) and (maxWait > 0)
      wait(100) 
      maxWait = maxWait - 100
      UO.findtype(Type,-1,-1)
   wend 
   return uo.getserial("finditem")
end sub