{$CLEO .cs}

0000:

:main
wait 0
if
    Player.Defined($PLAYER_CHAR)
then
    00A0: store_actor $PLAYER_ACTOR position_to 0@ 1@ 2@
    041C: find_all_references_in_memory_of_object 968 in_area 0@ 1@ 2@ radius 10.0
    if
        80A6: not actor $PLAYER_ACTOR sphere 0 in_area
    then
        0AB0: key_pressed 121 
        wait 100
        0AB0: key_pressed 121 
        wait 100
        0AB0: key_pressed 121 
        wait 100
    end
end

jump @main