sub Lores(); Качаем все лоры 
; 0 - не прицеливается, для скиллов как Hiding
; 1 - прицел на себя, для скиллов как Anatomy
; 2 - прицел на предметы для навыков ItemID указывается тут.

   UO.Addobject('Item_for_actions_kills')
   UO.Print('Укажите на предмет на что будем юзать навыки...') 
   while UO.Targeting() 
    wait(50)
   wend
   endif

   Lore('Anatomy',1)
   Lore('Animal Lore',1)
   Lore('Arms Lore',2)
   Lore('Detect Hidden',0) 
   Lore('Evaluating Intelligence',1); при качании данного навыка скрипт не идёт дальше....
   Lore('Begging',1)
   Lore('Hiding',0)
   Lore('Item Identification',2) ; при качании данного навыка скрипт не идёт дальше....
   Lore('Stealth',0)             
   Lore('Taste Identification',2); при качании данного навыка скрипт не идёт дальше....
end sub

sub Lore(skill, targ); Качаем лор
   while UO.SkillVal(skill) < 1000
   if targ > 0 then
     if targ == 2 then
        UO.Waittargetobject('Item_for_actions_kills')
     else
        UO.Waittargetself()
     endif   
   endif   
   UO.UseSkill(skill)
   UO.DeleteJournal()
   UO.Print('Waiting '+skill+' action...')
   if skill == 'Begging' then
      Wait(1000)
   else
      repeat
       Wait(100)
      until UO.InJournal('about this item') or UO.InJournal('does not appear') or UO.InJournal('looks') or UO.InJournal('think') or UO.InJournal('You estimate') or UO.InJournal('This item is') or UO.InJournal('You can see') or UO.InJournal('You find') or UO.InJournal('It tastes') or UO.InJournal('to hide here') or UO.InJournal('You have hidden') or UO.InJournal('You cannot')
   endif
   wend
   UO.Print('You now grand master of ' + skill+' skill')
end sub