{$CLEO}
0000:

REPEAT
0001: 0
UNTIL SAMP.Available()
0B34: samp register_client_command "rrptp" to_label @ReventRPTeleport
chatmsg "{1959D1}[RRPTP]: {FFFFFF}Àâòîð: {FF6666}Jerry{FFFFFF}."

WHILE TRUE
0001: 0
    IF 0@ == TRUE
    THEN
        0050: gosub @SendOnFootData
        0@ = FALSE
        1@ = TRUE
    END
    
    IF 1@ == TRUE
    THEN
        IF 00F0:   actor $PLAYER_ACTOR 0 near_point 557.6578 -1505.8523 radius 3.0 3.0 stopped_on_foot
        THEN
            0050: gosub @TeleportAtMarker
            018C: play_sound 1139 at 0.0 0.0 0.0
            1@ = FALSE
        END
    END
    
//    IF 0ADC:   test_cheat "1"
//    THEN
//        0A92: create_custom_thread "RRPTP.CS"
//        0A93: end_custom_thread
//        wait 150
//    END
END

:ReventRPTeleport
0@ = TRUE
SAMP.CmdRet()

:TeleportAtMarker
IF 0AB6: store_target_marker_coords_to 0@ 1@ 2@
THEN
    0AB6: store_target_marker_coords_to 0@ 1@ 2@
    04E4: refresh_game_renderer_at 0@ 1@
    03CB: set_rendering_origin_at 0@ 1@ 2@
    02CE: 2@ = ground_z_at 0@ 1@ 500.0
    00A1: put_actor $PLAYER_ACTOR at 0@ 1@ 2@
ELSE
    chatmsg "{1959D1}[RRPTP]: {FFFFFF}Ïîñòàâüòå ìåòêó." 0xFFFFFF
END
RETURN

:SendOnFootData
0B2B: samp 0@ = get_player_id_by_actor_handle $PLAYER_ACTOR
0AC8: 1@ = allocate_memory_size 68
0BBA: samp store_player 0@ onfoot_data 1@
0C0D: struct 1@ offset 6 size 4 = 1205.4078  
0C0D: struct 1@ offset 10 size 4 = 1509.7498
0C0D: struct 1@ offset 14 size 4 = 1523.955  
0BC0: samp send_onfoot_data 1@
0AC9: free_allocated_memory 1@
0BD1: samp send_picked_up_pickup 372
RETURN