Code: Select all
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