Yoko

Code: Select all

Sub ToHide()
VAR LastTimer, HidFlag=1
    if UO.Hidden() then
        HidFlag=0
    else
    end if
    while HidFlag
        DeleteJournal("can't seem to hide|to perform|stop trying|прекратили|не удалось|удачно|You have hidden yourself well")
        LastTimer=UO.Timer()
        UO.Exec('warmode 0')
        UO.UseSkill('Hiding')
        repeat
            wait(50)
        until UO.InJournal("can't seem to hide|to perform|stop trying|прекратили|не удалось|удачно|You have hidden yourself well") || LastTimer+50<UO.Timer()
        if UO.InJournal("0xA5F8|удачно|You have hidden yourself well") then
            HidFlag=0
        end if
    wend
end sub

Sub DeleteJournal(msg)
 While UO.InJournal(msg)
     UO.SetJournalLine(UO.InJournal(msg) - 1,'') 
 wend
endsub