Ultima Online Antares

sub armorsplav()
uo.print('!!где фулы!! ')
uo.exec('addobject cu')
while uo.targeting()
wait(100)
wend


uo.print('!!куда ирон!! ')
uo.exec('addobject cu2')
while uo.targeting()
wait(100)
wend
uo.print('!!где форжа?!! ')
uo.exec('addobject cu3')
while uo.targeting()
wait(100)
wend

dim armor[10]
armor[0]=0x0F51
armor[1]=0x1413
armor[2]=0x1412
armor[3]=0x1410
armor[4]=0x1414
armor[5]=0x1415
armor[6]=0x140E
armor[7]=0x1408
armor[8]=0x1B76
armor[9]=0x140A
var i
for i = 0 to 9


while uo.dead()<1
   UO.FindType( armor[i],'-1','cu')
  if UO.FindCount()> 0 Then
         UO.FindType( armor[i],'-1','cu')
         if UO.FindCount() > 0 Then
            UO.moveitem('finditem','1','my')
            wait(800)
            Endif
            else
            next
         endif
         UO.FindType( armor[i],'-1','my')
         if uo.findcount()>0 then
         wait(200)
  uo.waittargetobject('finditem')
      wait(800)
  uo.useobject('cu3')
       endif
  wait(800)
   uo.findtype('0x1BEF')
  
if uo.GetQuantity('finditem')>=50 then
uo.findtype('0x1BEF','-1','my')
uo.moveitem('finditem','1000','cu2')
wait(800)
endif
wend
end sub

sub Smelt()

dim Items[17]
    Items[1]    = 0x1412       ; Platemail helm
    Items[2]    = 0x140C       ; Bascinet
    Items[3]    = 0x140E       ; Nose helm
    Items[4]    = 0x1408       ; Closed helm
    Items[5]    = 0x140A       ; Helmet
    Items[6]    = 0x1414       ; Platemail gloves
    Items[7]    = 0x1410       ; Platemail arms
    Items[8]    = 0x1415       ; Platemail chest
    Items[9]    = 0x1411       ; Platemail legs
    Items[10]   = 0x1B74       ; Kite metal shield
    Items[11]   = 0x1413       ; Platemail gorget
    Items[12]   = 0x13EC       ; Ringmail tunic
    Items[13]   = 0x1B73       ; Buckler shield
    Items[14]   = 0x13BE       ; Chainmail leggings
    Items[15]   = 0x13BF       ; Chainmail tunic
    Items[16]   = 0x13EE       ; Ringmail sleeves
    Items[17]   = 0x13EB       ; Ringmail gloves

var Forge       = UO.FindType(0x0FB1, -1, 'ground', 2, -1, -1)
var Index

  if Forge == '' then
    UO.ColorPrint(0x0026, 'Персонаж должен находиться рядом с форжой!')
    return
  end if

  for Index = 1 to 17
    while UO.FindType(Items[Index], 0x0000, 'lastcontainer') <> ''
      UO.WaitTargetObject('finditem')
      UO.UseObject(Forge)
      UO.WaitingForJournalText(Now(), 20000, "You put|You smelt|You can't|Вы переплавили")
      Wait(50)
    wend
  next

  UO.ColorPrint(0x042B, 'Переплавка завершена.')

end sub

sub Smelt()

var Forge       = UO.FindType(0x0FB1, -1, 'ground', 2, -1, -1)

  if Forge == '' then
    UO.ColorPrint(0x0026, 'Персонаж должен находиться рядом с форжой!')
    return
  end if

  while UO.FindType(-1, -1, 'lastcontainer') <> ''
    UO.WaitTargetObject('finditem')
    UO.UseObject(Forge)
    UO.WaitingForJournalText(Now(), 20000, "You put|You smelt|Вы переплавили|You can't|не сможете")
    if UO.GetFoundedTextID() > 2 then
      UO.Ignore('finditem')
    end if
    Wait(50)
  wend

  UO.IgnoreReset()
  UO.ColorPrint(0x042B, 'Переплавка завершена.')

end sub