[PMT] Teleport Master

{$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@