Ultima Online Antares

#########################################################
################### Weapon Ecnhant ###################
#########################################################

Sub MoveItem(Item, Count, Container)
  
   while UO.ContainerOf(Item) <> UO.GetSerial(Container) && not UO.Dead()
      UO.MoveItem(Item, Count, Container)
      Wait(350)
      if UO.InJournalBetweenTimes('World save ', Now() - 350) > 0 then
         UO.ReceiveObjectName('backpack', 30000)
      end if
      if UO.ContainerOf(Item) == UO.GetSerial(Container) then
         Wait((500 - 350) * (500 > 350))
      end if
   wend
end sub

Sub AddItems(Type, Color, Count, Source, Dest)
  
   while UO.Count(Type, Color, Dest) < Count
      if UO.FindType(Type, Color, Source) <> '' then
         MoveItem('finditem', Count - UO.Count(Type, Color, Dest), Dest)
      else
         return False
      end if
   wend
   return True
  
end sub

Sub craft_enchant(type_crystal, color_crystal, type, color, count, source)
   UO.DeleteJournal()
   repeat  
      if UO.Count(type, color, 'backpack')  >= count then  
         repeat
            UO.DeleteJournal()
            UO.WaitMenu('Misc','Crystal')
            UO.UseType('0x1EBC')
            repeat                        
               wait(300)
            until UO.InJournal('You put|failed|anything')
         until UO.InJournal('You put|anything')
      else
         AddItems(type, color, count, source, 'backpack')
      end if
   until UO.InJournal('You put|anything')
end sub


sub weapon_enchant_main()
   var source = '0x40D81940' # sunduk

   if UO.Count(0x1869, 0x0991, 'backpack')  == 0 then        
      AddItems(0x1869, 0x0991, 1, source, 'backpack')
   end if
   craft_enchant(0x1F19, 0x0492, 0x0F26, 0x0492, 20, source) #granate
   craft_enchant(0x1F19, 0x0445, 0x0F25, 0x0000, 18, source) #amber
   craft_enchant(0x1F19, 0x0486, 0x0F13, 0x0000, 16, source) #ruby
   craft_enchant(0x1F19, 0x078D, 0x0F11, 0x0000, 14, source) #sapphire
   craft_enchant(0x1F19, 0x05CE, 0x0F18, 0x0000, 12, source) #tourmaline
   craft_enchant(0x1F19, 0x044B, 0x0F15, 0x0000, 10, source) #cetrine
   craft_enchant(0x1F19, 0x0487, 0x0F10, 0x0000, 8, source) #emerald
   craft_enchant(0x1F19, 0x00DF, 0x0F16, 0x0000, 6, source) #amethyst
   craft_enchant(0x1F19, 0x0920, 0x0F26, 0x0000, 4, source) #diamond
    
end sub