initevents
menu hideEUO
menu Window Size 200 76
menu Text InfoLabel 20 10 Yükleniyor...
menu show
set %corpse YFM_WNF_QNF
set %CorpseID
set %openCorpseTimeOut
set #MenuButton N/A
menu Button Closed 60 36 80 30 Close
menu set InfoLabel ...
main:
gosub FindCorpse
gosub #MenuButton
goto main
sub FindCorpse
{
    finditem %corpse G_2
    if #findcnt > 0
    {
        event exMsg #findId 0 0 Burada
        set %CorpseID #findId
        gosub OpenCorpse
    }
    return
}
sub closed
{
    menu hide
    halt
    return
}
sub OpenCorpse
{
    finditem %CorpseID G_2
    if #findcnt <= 0 || #finddist > 2
        return
    if #finddist <= 2
    {
        set #nextcposx ( #cliXRes - 144 ) / 2
        set #nextcposy ( #cliYRes - 212 ) / 2
        set %openCorpseTimeOut #systime + 2000
        reTry:
        if %openCorpseTimeOut < #systime
            return
        set #lobjectId %CorpseID
        event macro 17 ; Last Object
        scanjournal #jIndex
        if that_is_too_far in #journal || you_did_not_earn in #journal || you_may_not in #journal || criminal in #journal
        {
            ignoreItem %CorpseID
            return
        }
        if you_must_wait in #journal
            goto reTry
        while #contname <> container_gump || #contsize <> 144_212
        {
            if %openCorpseTimeOut < #systime
                break
        }
        ignoreItem %CorpseID
    }
    return
}