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

   UO.Print('gde predmet???') 
   UO.AddObject('item_for_lore_skills') 
   while UO.Targeting() 
    wait(50) 
   wend 
   endif 

   Lore('Anatomy',1) 
   Lore('Animal Lore',1) 
   Lore('Arms Lore',2) 
   Lore('Detect Hidden',0) 
   Lore('Evaluate Intelligence',1) 
   Lore('Hiding',0)        
   Lore('Item ID',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_lore_skills') 
     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