{$CLEO .cs}

0662: "by woksonal blasthack.net"
0662: "offsets - 0B36"

if not 0@ = SAMP.Base()
then 0A93: end_custom_thread
end

while not SAMP.Available()
    wait 100
end

0B34: samp register_client_command "cc" to_label @fp
0B34: samp register_client_command "gp" to_label @gp
0B34: samp register_client_command "rcc" to_label @rfp
0B34: samp register_client_command "rgp" to_label @rgp

0BDE: pause_thread 0

:fp
if call @is_cp_active 0
then
    call @get_cp_pos 0 X 1@ Y 2@ Z 3@
    0AD1: show_formatted_text_highpriority "%f %f %f" time 1448 1@ 2@ 3@
    if Actor.Driving($PLAYER_ACTOR)
    then
        call @incar 3 X 1@ Y 2@ Z 3@
    else
        call @onfoot 3 X 1@ Y 2@ Z 3@
    end
else
    0AD1: show_formatted_text_highpriority "Acum scrie /rcc" time 1448
end
samp.CmdRet()

:gp
if call @is_cp_active 0
then
    call @get_cp_pos 0 X 1@ Y 2@ Z 3@
    0AD1: show_formatted_text_highpriority "%f %f %f" time 1448 1@ 2@ 3@
    if Actor.Driving($PLAYER_ACTOR)
    then
        Actor.PutAt($PLAYER_ACTOR, 1@, 2@, 3@)
    else
        call @actor_teleport 3 X 1@ Y 2@ Z 3@
    end
else
    0AD1: show_formatted_text_highpriority "checkpoint not found" time 1448
end
samp.CmdRet()

:rfp
if call @is_racecp_active 0
then
    call @get_racecp_pos 0 X 1@ Y 2@ Z 3@
    0AD1: show_formatted_text_highpriority "%f %f %f" time 1448 1@ 2@ 3@
    if Actor.Driving($PLAYER_ACTOR)
    then
        call @incar 3 X 1@ Y 2@ Z 3@
    else
        call @onfoot 3 X 1@ Y 2@ Z 3@
    end
else
    0AD1: show_formatted_text_highpriority "race checkpoint not found" time 1448
end
samp.CmdRet()

:rgp
if call @is_racecp_active 0
then
    call @get_racecp_pos 0 X 1@ Y 2@ Z 3@
    0AD1: show_formatted_text_highpriority "%f %f %f" time 1448 1@ 2@ 3@
    if Actor.Driving($PLAYER_ACTOR)
    then
        Actor.PutAt($PLAYER_ACTOR, 1@, 2@, 3@)
    else
        call @actor_teleport 3 X 1@ Y 2@ Z 3@
    end
else
    0AD1: show_formatted_text_highpriority "race checkpoint not found" time 1448
end
samp.CmdRet()

:onfoot
0B2B: samp 9@ = get_player_id_by_actor_handle $PLAYER_ACTOR
0AC8: 10@ = allocate_memory_size 68
0BBA: samp store_player 9@ onfoot_data 10@
0C0D: struct 10@ offset 6 size 4 = 0@
0C0D: struct 10@ offset 10 size 4 = 1@
0C0D: struct 10@ offset 14 size 4 = 2@
0BC0: samp send_onfoot_data 10@
0AC9: free_allocated_memory 10@
0AB2: ret 0

:incar
0B2B: samp 13@ = get_player_id_by_actor_handle $PLAYER_ACTOR
0AC8: 14@ = allocate_memory_size 63
0BBB: samp store_player 13@ incar_data 14@
0C0D: struct 14@ offset 24 size 4 = 0@
0C0D: struct 14@ offset 28 size 4 = 1@
0C0D: struct 14@ offset 32 size 4 = 2@
0C0D: struct 14@ offset 36 size 4 = 0.0
0C0D: struct 14@ offset 40 size 4 = 0.0
0C0D: struct 14@ offset 44 size 4 = 0.0
0BC1: samp send_incar_data 14@
0AC9: free_allocated_memory 14@
0AB2: ret 0

:is_cp_active
if 0AA2: 0@ = loadlib "samp.dll"
then 0A8E: 1@ = 0@ + 0x21A10C
    0A8D: 1@ = readMem 1@ sz 4 vp 0
    1@ += 0x24
    0A8D: 1@ = readMem 1@ sz 4 vp 0
    if 1@ == true
    then 0485:  return_true
    else 059A:  return_false
    end
    0AA3: freelib 0@
end
0AB2: ret 0

:get_cp_pos
if 0AA2: 0@ = loadlib "samp.dll"
then 0A8E: 1@ = 0@ + 0x21A10C
    0A8D: 1@ = readMem 1@ sz 4 vp 0
    1@ += 0xC
    0A8D: 2@ = readMem 1@ sz 4 vp 0
    1@ += 0x4
    0A8D: 3@ = readMem 1@ sz 4 vp 0
    1@ += 0x4
    0A8D: 4@ = readMem 1@ sz 4 vp 0
    0AA3: freelib 0@
end
0AB2: ret 3 2@ 3@ 4@

:is_racecp_active
if 0AA2: 0@ = loadlib "samp.dll"
then 0A8E: 1@ = 0@ + 0x21A10C
    0A8D: 1@ = readMem 1@ sz 4 vp 0
    1@ += 0x49
    0A8D: 1@ = readMem 1@ sz 4 vp 0
    if 1@ == true
    then 0485:  return_true
    else 059A:  return_false
    end
    0AA3: freelib 0@
end
0AB2: ret 0

:get_racecp_pos
if 0AA2: 0@ = loadlib "samp.dll"
then 0A8E: 1@ = 0@ + 0x21A10C
    0A8D: 1@ = readMem 1@ sz 4 vp 0
    1@ += 0x2C
    0A8D: 2@ = readMem 1@ sz 4 vp 0
    1@ += 0x4
    0A8D: 3@ = readMem 1@ sz 4 vp 0
    1@ += 0x4
    0A8D: 4@ = readMem 1@ sz 4 vp 0
    0AA3: freelib 0@
end
0AB2: ret 3 2@ 3@ 4@

:actor_teleport
0A96: 4@ = actor $PLAYER_ACTOR struct
4@ += 20
0A8D: 4@ = read_memory 4@ size 4 virtual_protect 0
4@ += 48
0A8C: write_memory 4@ size 4 value 0@ virtual_protect 0
4@ += 4
0A8C: write_memory 4@ size 4 value 1@ virtual_protect 0
4@ += 4
0A8C: write_memory 4@ size 4 value 2@ virtual_protect 0
ret 0