sub tohide()
var h=1
   uo.useskill(Hiding)
end sub

sub checkhide()
var h
   if h == 1 then
   uo.print('Wait for Hiding')
tohide()
   else
uo.print('Hiding complete')

var hiding=1 ; при =0 не прячется

if hiding then
hide()
endif

Sub Hide()
VAR LastTimer, n=0, 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.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
        else
            n=n+1
            if n>3 then
 UO.Set('quiet','0')
                UO.Print('Спрятаться не получается')
 UO.Set('quiet','1')
  #ДЕЙСТВИЕ ПРИ НЕУДАЧЕ#
            end if
        end if
wend
end sub