Create a new version of paste:

{$CLEO .cs}
{$NOSOURCE}
0000: NOP
0662: "PopandauL"
thread 'PMT'

if
    8AF7: get_samp_base_to 33@
then
    0A93: end_custom_thread
end
repeat
    wait 400
until 0AFA: is_samp_structures_available

wait 0
if and
8AAB:   file_exists "CLEO\Teleports.ini"
8AAB:   file_exists "CLEO\TeleportSettings.ini"
then
wait 3000
0AF8: samp add_message_to_chat "[{BAFF00}PMT{FFFFFF}]: One of the ini files is missing." color 0xFFFFFF
0A93: end_custom_thread
else
wait 3000
0AF8: samp add_message_to_chat "[{BAFF00}PMT{FFFFFF}]: Teleport.cs by {00B5FF}PopandauL {FFFFFF}was successfully loaded." color 0xFFFFFF
0AF0: 29@ = get_int_from_ini_file "cleo\TeleportSettings.ini" section "Keys" key "Key1"
0AF0: 28@ = get_int_from_ini_file "cleo\TeleportSettings.ini" section "Keys" key "Key2"
end

wait 0
0B34: samp register_client_command "ptp" to_label @teleport
0B34: samp register_client_command "pcp" to_label @teleportcp
0B34: samp register_client_command "ptpc" to_label @teleportcoordinates
0B34: samp register_client_command "pspos" to_label @savepos
0B34: samp register_client_command "plpos" to_label @loadpos
0B34: samp register_client_command "pback" to_label @teleportback   
0B34: samp register_client_command "pmthelp" to_label @pmthelp

while true
wait 0
    if Player.Defined($PLAYER_ACTOR)
    then
    0A8D: 12@ = read_memory 0xBA6774 size 1 virtual_protect 0
        if and
        0AB0: 28@
        0AB0: 29@
        8039:   12@ == 0
        then
        0AB6: store_target_marker_coords_to 5@ 6@ 7@
        00A0: store_actor $PLAYER_ACTOR position_to 9@ 10@ 11@
        04E4: refresh_game_renderer_at 5@ 6@ 
        Camera.SetAtPos(5@, 6@, 7@) 
        00A1: put_actor $PLAYER_ACTOR at 5@ 6@ -100.0
        wait 500
        end
    end
end

:teleport
wait 0
0B35: samp 0@ = get_last_command_params
    if 0AD4: 30@ = scan_string 0@ format "%d" 0@
    then
        if 0B23:  samp is_player_connected 0@
        then
            if 8B20: samp 4@ = actor_handle_by_samp_player_id 0@
            then
            0B2F: samp get_streamed_out_player_pos 0@ to 1@ 2@ 3@  
            else 
            00A0: store_actor 4@ position_to 1@ 2@ 3@
            end     
        00A0: store_actor $PLAYER_ACTOR position_to 9@ 10@ 11@   
        04E4: refresh_game_renderer_at 1@ 2@ 
        Camera.SetAtPos(1@, 2@, 3@)              
        Actor.PutAt($PLAYER_ACTOR,1@,2@,3@)
        else
        0AF8: samp add_message_to_chat "[{BAFF00}PMT{E3E3E3}]: Player not connected." color 0xE3E3E3
        end
    else
    0AF8: samp add_message_to_chat "[{BAFF00}PMT{E3E3E3}]: Please enter a valid ID." color 0xE3E3E3
    end
Samp.CmdRet()

:teleportcp
wait 0
17@ = 0
for 13@ = 0 to 32
    if 0AB1: @GetMarkerPosition 1 13@ 14@ 15@ 16@
    then
    17@ = 1
    00A0: store_actor $PLAYER_ACTOR position_to 9@ 10@ 11@      
    04E4: refresh_game_renderer_at 14@ 15@ 
    Camera.SetAtPos(14@, 15@, 16@)        
    00A1: put_actor $PLAYER_ACTOR at 14@ 15@ 16@
    end
end
if 17@ == 0
then
0AF8: samp add_message_to_chat "[{BAFF00}PMT{E3E3E3}]: No checkpoint was found." color 0xE3E3E3
end
Samp.CmdRet()

:teleportcoordinates
wait 0
0B35: samp 0@ = get_last_command_params
    if 0AD4: 30@ = scan_string 0@ format "%f %f %f" 1@ 2@ 3@
    then
    00A0: store_actor $PLAYER_ACTOR position_to 9@ 10@ 11@      
    04E4: refresh_game_renderer_at 1@ 2@ 
    Camera.SetAtPos(1@, 2@, 3@)           
    00A1: put_actor $PLAYER_ACTOR at 1@ 2@ 3@
    end
Samp.CmdRet()

:savepos
wait 0
0B35: samp 0@ = get_last_command_params
    if 0AD4: 30@ = scan_string 0@ format "%d" 0@
    then
    00A0: store_actor $PLAYER_ACTOR position_to 1@ 2@ 3@
    0AD3: 4@v = format "%d" 0@
    0AF3: write_float 1@ to_ini_file "cleo\Teleports.ini" section 4@v key "X"
    0AF3: write_float 2@ to_ini_file "cleo\Teleports.ini" section 4@v key "Y"
    0AF3: write_float 3@ to_ini_file "cleo\Teleports.ini" section 4@v key "Z"
    else
    0AF8: samp add_message_to_chat "[{BAFF00}PMT{E3E3E3}]: Please enter a valid teleport ID." color 0xE3E3E3
    end
Samp.CmdRet()

:loadpos
wait 0
if 0AAB:   file_exists "cleo\Teleports.ini"
then
0B35: samp 0@ = get_last_command_params
    if 0AD4: 30@ = scan_string 0@ format "%d" 0@
    then
    0AD3: 4@v = format "%d" 0@
        if and
        0AF2: 1@ = get_float_from_ini_file "cleo\Teleports.ini" section 4@v key "X"
        0AF2: 2@ = get_float_from_ini_file "cleo\Teleports.ini" section 4@v key "Y"
        0AF2: 3@ = get_float_from_ini_file "cleo\Teleports.ini" section 4@v key "Z"
        then
        00A0: store_actor $PLAYER_ACTOR position_to 9@ 10@ 11@
        00A1: put_actor $PLAYER_ACTOR at 1@ 2@ 3@
        else
        0AF8: samp add_message_to_chat "[{BAFF00}PMT{E3E3E3}]: Not a valid teleport ID." color 0xE3E3E3
        end
    else
    0AF8: samp add_message_to_chat "[{BAFF00}PMT{E3E3E3}]: Please enter a valid teleport ID." color 0xE3E3E3
    end
else
0AF8: samp add_message_to_chat "[{BAFF00}PMT{E3E3E3}]: Teleports.ini was not found." color 0xE3E3E3
end
Samp.CmdRet()

:teleportback
wait 0
    if and
    8043:   9@ == 0.0
    8043:   10@ == 0.0
    8043:   11@ == 0.0
    then        
    0087: 18@ = 9@
    0087: 19@ = 10@
    0087: 20@ = 11@
    00A0: store_actor $PLAYER_ACTOR position_to 9@ 10@ 11@
    00A1: put_actor $PLAYER_ACTOR at 18@ 19@ 20@
    else
    0AF8: samp add_message_to_chat "[{BAFF00}PMT{E3E3E3}]: A valid previous position was not found." color 0xE3E3E3
    end
Samp.CmdRet()

:pmthelp
wait 0
0AC6: 20@ = label @help offset 
0B3B: samp show_dialog id 2 caption "Mod by PopandauL" text 20@ button_1 "Close" button_2 "" style 0 
Samp.CmdRet()

:help
hex
7b 46 46 46 46 46 46 7d 43 6f 6d 6d 61 6e 64 
73 3a 0d 0a 7b 30 32 46 36 45 42 7d 2f 70 74 
70 7b 43 30 46 46 30 31 7d 3a 20 74 65 6c 65 
70 6f 72 74 20 74 6f 20 61 20 70 6c 61 79 65 
72 20 28 65 67 2e 20 2f 70 74 70 20 31 30 29 
2e 0d 0a 7b 30 32 46 36 45 42 7d 2f 70 63 70 
7b 43 30 46 46 30 31 7d 3a 20 74 65 6c 65 70 
6f 72 74 20 74 6f 20 63 68 65 63 6b 70 6f 69 
6e 74 20 28 65 67 2e 20 2f 70 63 70 29 2e 0d 
0a 7b 30 32 46 36 45 42 7d 2f 70 74 70 63 7b 
43 30 46 46 30 31 7d 3a 20 74 65 6c 65 70 6f 
72 74 20 74 6f 20 63 6f 6f 72 64 69 6e 61 74 
65 73 20 28 65 67 2e 20 2f 70 74 70 63 20 31 
30 30 2e 30 20 31 30 30 2e 30 20 32 35 30 2e 
30 29 2e 0d 0a 7b 30 32 46 36 45 42 7d 2f 70 
73 70 6f 73 7b 43 30 46 46 30 31 7d 3a 20 73 
61 76 65 20 61 20 70 6f 73 69 74 69 6f 6e 20 
75 6e 64 65 72 20 61 20 64 65 63 69 6d 61 6c 
20 6e 61 6d 65 20 28 65 67 2e 20 2f 70 73 70 
6f 73 20 32 29 2e 0d 0a 7b 30 32 46 36 45 42 
7d 2f 70 6c 70 6f 73 7b 43 30 46 46 30 31 7d 
3a 20 6c 6f 61 64 20 61 20 70 6f 73 69 74 69 
6f 6e 20 28 65 67 2e 20 2f 70 6c 70 6f 73 20 
32 29 2e 0d 0a 7b 30 32 46 36 45 42 7d 2f 70 
62 61 63 6b 7b 43 30 46 46 30 31 7d 3a 20 74 
65 6c 65 70 6f 72 74 20 62 61 63 6b 20 74 6f 
20 79 6f 75 72 20 6c 61 73 74 20 70 6f 73 69 
74 69 6f 6e 2e 00
end

:GetMarkerPosition
//0AB1: @GetMarkerPosition 1 0@ 1@ 2@ 3@ 
0@ *= 0xA0
0@ += 0xC7DD58
0@ += 0x30      
0A8D: 1@ = read_memory 0@ size 4 virtual_protect 0
0@ += 0x4
0A8D: 2@ = read_memory 0@ size 4 virtual_protect 0
0@ += 0x4
0A8D: 3@ = read_memory 0@ size 4 virtual_protect 0
0@ += 0x1A
0A8D: 4@ = read_memory 0@ size 1 virtual_protect 0
    if and
    1@ == 1099.551025
    2@ == 1601.496948
    3@ == 11.555000
    then
    5@ = 0
    else
    5@ = 1
        if and
        1@ == 2695.624023
        2@ == -1704.687988
        3@ == 10.844000
        then
        6@ = 0
        else
        6@ = 1
            if and
            1@ == 0.0
            2@ == 0.0
            3@ == 0.0
            then
            7@ = 0
            else
            7@ = 1
            end
        end
    end
    
    if and
    4@ == 1
    5@ == 1
    6@ == 1
    7@ == 1
    then
    0485:  return_true
    else
    059A:  return_false
    end
0AB2: ret 3 1@ 2@ 3@