Ultima Online Antares

sub train()
   var i,a, printcolour = '1069'
   var gold = '0x0EED'
   var SkillVal = 350;    
   var teacherID = '0x00C07F03'; ID  
   dim skill[50]
   skill[1] = "Alchemy"
   skill[2] = "Anatomy"
   skill[3] = "AnimalLore"
   skill[4] = "ItemID"
   skill[5] = "ArmsLore"
   skill[6] = "Parrying"
   skill[7] = "Begging"
   skill[8] = "Blacksmithing"
   skill[9] = "Bowcraft"
   skill[10] = "Peacemaking"
   skill[11] = "Camping"
   skill[12] = "Carpentry"
   skill[13] = "Cartography"
   skill[14] = "Cooking"
   skill[15] = "DetectingHidden"
   skill[16] = "Enticement"
   skill[17] = "EvaluateIntelligence"
   skill[18] = "Healing"
   skill[19] = "Fishing"
   skill[20] = "Forensics"
   skill[21] = "Herding"
   skill[22] = "Hiding"
   skill[23] = "Provocation"
   skill[24] = "Inscription"
   skill[25] = "Lockpicking"
   skill[26] = "Magery"
   skill[27] = "MagicResistance"
   skill[28] = "Tactics"
   skill[29] = "Snooping"
   skill[30] = "Musicianship"
   skill[31] = "Poisoning"
   skill[32] = "Archery"
   skill[33] = "SpiritSpeak"
   skill[34] = "Stealing"
   skill[35] = "Tailoring"
   skill[36] = "AnimalTaming"
   skill[37] = "TasteIdentification"
   skill[38] = "Tinkering"
   skill[39] = "Tracking"
   skill[40] = "Veterinary"
   skill[41] = "Swordsmanship"
   skill[42] = "MaceFighting"
   skill[43] = "Fencing"
   skill[44] = "Wrestling"
   skill[45] = "Lumberjacking"
   skill[46] = "Mining"
   skill[47] = "Meditation"
   skill[48] = "Stealth"
   skill[49] = "RemoveTrap"
   skill[50] = "Necromancy"
   dim skilln[50]
   skilln[1] = "Alchemy"
   skilln[2] = "Anatomy"
   skilln[3] = "Animal Lore"
   skilln[4] = "Item ID"
   skilln[5] = "Arms Lore"
   skilln[6] = "Parrying"
   skilln[7] = "Begging"
   skilln[8] = "Blacksmithing"
   skilln[9] = "Bowcraft"
   skilln[10] = "Peacemaking"
   skilln[11] = "Camping"
   skilln[12] = "Carpentry"
   skilln[13] = "Cartography"
   skilln[14] = "Cooking"
   skilln[15] = "Detect Hidden"
   skilln[16] = "Enticement"
   skilln[17] = "Evaluate Intelligence"
   skilln[18] = "Healing"
   skilln[19] = "Fishing"
   skilln[20] = "Forensic Evaluation"
   skilln[21] = "Herding"
   skilln[22] = "Hiding"
   skilln[23] = "Provocation"
   skilln[24] = "Inscription"
   skilln[25] = "Lockpicking"
   skilln[26] = "Magery"
   skilln[27] = "Magic Resistance"
   skilln[28] = "Tactics"
   skilln[29] = "Snooping"
   skilln[30] = "Musicianship"
   skilln[31] = "Poisoning"
   skilln[32] = "Archery"
   skilln[33] = "Spirit Speak"
   skilln[34] = "Stealing"
   skilln[35] = "Tailoring"
   skilln[36] = "Animal Taming"
   skilln[37] = "Taste Identification"
   skilln[38] = "Tinkering"
   skilln[39] = "Tracking"
   skilln[40] = "Veterinary"
   skilln[41] = "Swordsmanship"
   skilln[42] = "Mace Fighting"
   skilln[43] = "Fencing"
   skilln[44] = "Wrestling"
   skilln[45] = "Lumberjacking"
   skilln[46] = "Mining"
   skilln[47] = "Meditation"
   skilln[48] = "Stealth"
   skilln[49] = "Remove Trap"
   skilln[50] = "Necromancy"
   UO.Set('quiet','1')
   UO.SetReceivingContainer(teacherID)
   for i=1 to 49
      If uo.SkillVal(skilln[i]) < SkillVal then
         uo.charprint('self', printcolour, skilln[i] +' ' +str(350-uo.SkillVal(skilln[i])))
         uo.msg('train ' +skill[i])
         Wait(500)
         UO.FindType(gold,-1,'backpack')          
         if UO.FindCount() then
            UO.Grab(str(350-uo.SkillVal(skilln[i])),'finditem')
            Wait(600)
         else
            return
         endif
      End If
   Next
   UO.UnSetReceivingContainer()
   UO.Set('quiet','0')
End Sub