initevents
set %lpc 100
set %Pet
set %ContPosX #cliXres + #cliLeft
set %ContPosY #cliTop + 325
set %IsPetDead #false
set %Mounted #true
menu HideEUO
menu hide
gosub Dismount
gosub SetPet
loop:
if %IsPetDead || #CharGhost <> no
    halt
gosub Mount
goto loop
sub SetPet
{
    event sysmessage Binek seciniz...
    set #targCurs 1
    while #targCurs = 1
        wait
    set %Pet #LTargetID
    event statbar %Pet
    while #contname <> status_gump
        wait
    contPos %ContPosX %ContPosY
    while #ContPosX <> %ContPosX || #ContPosY <> %ContPosY
        wait
    return
}
sub Mount
{
    findItem %Pet G
    if #findCnt > 0
    {
        _Mount:
        repeat
        {
            gosub CheckDeadState
            findItem %Pet G
        }
        until #findDist <= 2 || %IsPetDead
        if ! %IsPetDead && #CharGhost = no
        {
            set #LObjectID %Pet
            event macro 17 0
            wait 5
            findItem %Pet G
            if #findCnt > 0
                goto _Mount
            else
                set %Mounted #true
        }
    }
    return
}
sub DisMount
{
    if %Mounted
    {
        set #LobjectId #CharId
        event macro 17
        wait 5
        set %Mounted #false
    }
    return
}
sub CheckDeadState
{
    set %IsPetDead #false
    gosub HealthbarScan %ContPosX %ContPosY
    if #result <= 0
        set %IsPetDead #true
    return
}
sub HealthbarScan
{
    set %left %1 + 37
    set %top %2 + 43
    set %mod 24
    set %sec
    repeat
    {
        set %mod ( %mod + 1 ) / 2
        set %sec %sec + %mod
        set %x ( 100 * ( %sec - 1 ) / 23 + 3 ) * 98 / 100 + %left
        savepix %x %top 1
        if #pixcol in 37463033221908269558926955393741902374418132175563217564157915621732991052746157914015770592166924216691626912202166907216696510548191577034157913115770502168931
           set %sec %sec - %mod
    }
    until %mod = 1
    set #result 100 * %sec / 24
    return #result
}