VR 0.3.DL

{$CLEO .cs}

0000:

wait 10000 // wait 10sec until samp is ready

const
    VRSTOP = 0
    VRREC = 1
    VRPLAY = 2
end

29@ = true /// LINE DRAW TRUE

while true
wait 0

if and
24@ == true
25@ == true
then
    24@ = false
    27@ = true /// ANTI BUG WHEN WE WANNA PRESS AGAIN - VRP
    31@ = VRPLAY
end

IF
0ADC:   test_cheat "vro"
THEN
    if
    26@ == false
    then
        IF
        0AAB:   file_exists "CLEO\VehicleRecording.path"
        THEN
            0B00: delete_file "CLEO\VehicleRecording.path"
        END
        26@ = true
        31@ = VRREC
        0AD1: show_formatted_text_highpriority "~R~RECORDING" time 1337
    else
        26@ = false
        31@ = VRSTOP
        0AD1: show_formatted_text_highpriority "~R~RECORDING STOPPED" time 1337
    end
END

IF AND
0AAB:   file_exists "CLEO\VehicleRecording.path"
0ADC:   test_cheat "vrp"
THEN
    if
    27@ == false
    then
        27@ = true
        31@ = VRPLAY
        0AD1: show_formatted_text_highpriority "~R~PLAYING" time 1337
    else
        27@ = false
        31@ = VRSTOP
        0AD1: show_formatted_text_highpriority "~R~PLAYING STOPPED" time 1337
    end
END

IF AND
0AAB:   file_exists "CLEO\VehicleRecording.path"
0ADC:   test_cheat "vrl"
THEN
    if
    25@ == false
    then
        25@ = true
        0AD1: show_formatted_text_highpriority "~R~LOOP ENABLED" time 1337
    else
        25@ = false
        0AD1: show_formatted_text_highpriority "~R~LOOP DISABLED" time 1337
    end
END

IF
0ADC:   test_cheat "line"
THEN
    IF
    29@ = false
    THEN
        29@ = TRUE
        0AD1: show_formatted_text_highpriority "~R~LINE ENABLED" time 1337
    ELSE
        29@ = FALSE
        0AD1: show_formatted_text_highpriority "~R~LINE DISABLED" time 1337
    END
END

if and
00DF: actor $PLAYER_ACTOR driving
31@ == VRREC
then
    0A9A: 28@ = openfile "CLEO\VehicleRecording.path" mode "wb+"
    while 31@ == VRREC
        IF
        0ADC:   test_cheat "vro"
        THEN
            if
            26@ == false
            then
                26@ = true
                31@ = VRREC
                0AD1: show_formatted_text_highpriority "~R~RECORDING" time 1337
            else
                26@ = false
                31@ = VRSTOP
                0AD1: show_formatted_text_highpriority "~R~RECORDING STOPPED" time 1337
            end
        END
        IF
        0ADC:   test_cheat "line"
        THEN
            IF
            29@ == false
            THEN
                29@ = TRUE
                0AD1: show_formatted_text_highpriority "~R~LINE ENABLED" time 1337
            ELSE
                29@ = FALSE
                0AD1: show_formatted_text_highpriority "~R~LINE DISABLED" time 1337
            END
        END

        if 80DF: actor $PLAYER_ACTOR driving
        then
            break
        end

        03C0: 0@ = actor $PLAYER_ACTOR car
        0407: coords 1@ 2@ 3@ car 0@ with_offset 0.0 0.0 -0.6
        02E3: 4@ = car 0@ speed
        0A9E: writefile 28@ size 4 from 1@
        0A9E: writefile 28@ size 4 from 2@
        0A9E: writefile 28@ size 4 from 3@
        0A9E: writefile 28@ size 4 from 4@
        018C: play_sound 1052 at 0.0 0.0 0.0
        0001: wait 0 ms
        if
        29@ == true
        then
            0AB1: call_scm_func @DrawTwoLinesBetweenPoints 3 1@ 2@ 3@
        end
    end
    0A9B: closefile 28@
    0006: 31@ = VRSTOP
    26@ = false /// ANTI BUG WHEN WE WANNA PRESS AGAIN - VRO
end


if and
00DF: actor $PLAYER_ACTOR driving
31@ == VRPLAY
then
    0A9A: 28@ = openfile "CLEO\VehicleRecording.path" mode "rb"

    while 31@ == VRPLAY
        IF AND
        0AAB:   file_exists "CLEO\VehicleRecording.path"
        0ADC:   test_cheat "vrp"
        THEN
            if
            27@ == false
            then
                27@ = true
                31@ = VRPLAY
                0AD1: show_formatted_text_highpriority "~R~PLAYING" time 1337
            else
                27@ = false
                31@ = VRSTOP
                0AD1: show_formatted_text_highpriority "~R~PLAYING STOPPED" time 1337
            end
        END
        IF AND
        0AAB:   file_exists "CLEO\VehicleRecording.path"
        0ADC:   test_cheat "vrl"
        THEN
            if
            25@ == false
            then
                25@ = true
                0AD1: show_formatted_text_highpriority "~R~LOOP ENABLED" time 1337
            else
                25@ = false
                0AD1: show_formatted_text_highpriority "~R~LOOP DISABLED" time 1337
            end
        END
        IF
        0ADC:   test_cheat "line"
        THEN
            IF
            29@ == false
            THEN
                29@ = TRUE
                0AD1: show_formatted_text_highpriority "~R~LINE ENABLED" time 1337
            ELSE
                29@ = FALSE
                0AD1: show_formatted_text_highpriority "~R~LINE DISABLED" time 1337
            END
        END

        if 0AD6: end_of_file 28@ reached
        then
            24@ = true
            break
        end

        if 80DF: actor $PLAYER_ACTOR driving
        then
            break
        end

        0A9D: readfile 28@ size 4 to 1@
        0A9D: readfile 28@ size 4 to 2@
        0A9D: readfile 28@ size 4 to 3@
        0A9D: readfile 28@ size 4 to 4@
        while 8100: actor $PLAYER_ACTOR in_sphere 1@ 2@ 3@ radius 7.0 7.0 7.0 sphere 0 in_car

            if 80DF: actor $PLAYER_ACTOR driving
            then
                break
            end

            if 00DF: actor $PLAYER_ACTOR driving
            then
                02EB: restore_camera_with_jumpcut
            end

            if
            29@ == true
            then
                0AB1: call_scm_func @DrawLineBetweenPoints 3 1@ 2@ 3@
            end
            0AB1: call_scm_func @TurningControl 2 1@ 2@
            0AB1: call_scm_func @EngineControl 1 4@

            0001: wait 0 ms
        end
    end
    0A9B: closefile 28@
    0006: 31@ = VRSTOP
    27@ = false /// ANTI BUG WHEN WE WANNA PRESS AGAIN - VRP
end
wait 0
end

:DrawLineBetweenPoints
03C0: 31@ = actor $PLAYER_ACTOR car
0407: coords 4@ 5@ 6@ car 31@ with_offset 0.0 0.0 0.0
0AB1: call_scm_func @getScreenXYFrom3DCoords 3 3D_coords_X 0@ Y 1@ Z 2@ store_screen_X_to 7@ Y_to 8@
0AB1: call_scm_func @getScreenXYFrom3DCoords 3 3D_coords_X 4@ Y 5@ Z 6@ store_screen_X_to 9@ Y_to 10@
0AB1: call_scm_func @DRAW_LINE 9 x1y1 7@ 8@ x2y2 9@ 10@ thickness 2.0 R 255 G 0 B 0 A 255
0AB2: ret 0

:DrawTwoLinesBetweenPoints
03C0: 31@ = actor $PLAYER_ACTOR car
0407: coords 4@ 5@ 6@ car 31@ with_offset 0.0 0.0 0.0
0AB1: call_scm_func @getScreenXYFrom3DCoords 3 3D_coords_X 0@ Y 1@ Z 2@ store_screen_X_to 7@ Y_to 8@
0AB1: call_scm_func @getScreenXYFrom3DCoords 3 3D_coords_X 4@ Y 5@ Z 6@ store_screen_X_to 9@ Y_to 10@
0AB1: call_scm_func @DRAW_LINE 9 x1y1 7@ 8@ x2y2 9@ 10@ thickness 2.0 R 255 G 0 B 0 A 255
7@ += 5.0
0AB1: call_scm_func @DRAW_LINE 9 x1y1 7@ 8@ x2y2 9@ 10@ thickness 2.0 R 255 G 0 B 0 A 255
0AB2: ret 0

:TurningControl
03C0: 4@ = actor $PLAYER_ACTOR car
0407: coords 2@ 3@ 4@ car 4@ with_offset 0.0 0.0 0.0
0063: 0@ -= 2@
0063: 1@ -= 3@
0604: get_Z_angle_for_point 0@ 1@ store_to 31@
0172: 30@ = actor $PLAYER_ACTOR Z_angle
000F: 30@ -= 360.0
0097: make 30@ absolute_float
005B: 31@ += 30@
02F6: 30@ = sine 31@
02F7: 31@ = cosine 31@
0604: get_Z_angle_for_point 30@ 31@ store_to 31@
if and
0021: 31@ > 180.0
8031: 31@ >= 358.0
then //press left
    0AB1: call_scm_func @PRESS_KEY 1 set_game_key_0_state -255
    if 8021: 31@ > 200.0
    then
         0AB1: call_scm_func @BRAKE 1 set_game_key_6_state 255
    else
        0AB1: call_scm_func @BRAKE 1 set_game_key_6_state 0
    end
else
    if and
    0021: 31@ > 2.0
    8031: 31@ >= 180.0
    then //press right
        0AB1: call_scm_func @PRESS_KEY 1 set_game_key_0_state 255
        if 0021: 31@ > 160.0
        then
            0AB1: call_scm_func @BRAKE 1 set_game_key_6_state 255
        else
            0AB1: call_scm_func @BRAKE 1 set_game_key_6_state 0
        end
    else
        0AB1: call_scm_func @PRESS_KEY 1 set_game_key_0_state 0
        0AB1: call_scm_func @BRAKE 1 set_game_key_6_state 0
    end
end
0AB2: ret 0

:PRESS_KEY
IF
0@ == -255
THEN // PRESS LEFT
    0006: 10@ = 0xB73458
    000A: 10@ += 0x1
    0A8C: write_memory 10@ size 1 value 128 virtual_protect 0
ELSE
    IF
    0@ == 255
    THEN // PRESS RIGHT
        0006: 10@ = 0xB73458
        000A: 10@ += 0x0
        0A8C: write_memory 10@ size 1 value 128 virtual_protect 0
    ELSE
        IF
        0@ == 0
        THEN // UNPRESS RIGHT
            0006: 10@ = 0xB73458
            000A: 10@ += 0x0
            0A8C: write_memory 10@ size 1 value 0 virtual_protect 0
        END
    END
END
0AB2: ret 0

:BRAKE
IF
0@ == 255
THEN
    0006: 20@ = 0xB73458
    000A: 20@ += 0xC
    0A8C: write_memory 20@ size 1 value 255 virtual_protect 0
ELSE
    IF
    0@ == 0
    THEN // NOT PRESS
        0006: 20@ = 0xB73458
        000A: 20@ += 0xC
        0A8C: write_memory 20@ size 1 value 0 virtual_protect 0
    END
END
0AB2: ret 0

:EngineControl
03C0: 1@ = actor $PLAYER_ACTOR car
02E3: 1@ = car 1@ speed
if 0025: 0@ > 1@
then // gas
    0006: 0@ = 0xB73458
    000A: 0@ += 0x20
    0A8C: write_memory 0@ size 1 value 255 virtual_protect 0
else
    0063: 1@ -= 0@
    if 1@ > 0.1
    then // brake
        0006: 0@ = 0xB73458
        000A: 0@ += 0xC
        0A8C: write_memory 0@ size 1 value 255 virtual_protect 0
    else
        0006: 0@ = 0xB73458
        000A: 0@ += 0x20
        0A8C: write_memory 0@ size 1 value 255 virtual_protect 0
    end
end
0AB2: ret 0

//0AB1: call_scm_func @getScreenXYFrom3DCoords 3 3D_coords_X 0@ Y 1@ Z 2@ store_screen_X_to 3@ Y_to 4@
:getScreenXYFrom3DCoords
0AC7: 14@ = var 0@ offset
0AC7: 15@ = var 3@ offset
0AC7: 16@ = var 6@ offset
0AC7: 17@ = var 9@ offset
0AA5: call 0x70CE30 num_params 6 pop 6 {18@ 18@} 0 0 17@ 16@ 15@ 14@
0007: 12@ = 640.0
0007: 13@ = 448.0
0A8D: 14@ = read_memory 0xC17044 size 4 virtual_protect 0
0A8D: 15@ = read_memory 0xC17048 size 4 virtual_protect 0
0093: 14@ = integer 14@ to_float
0093: 15@ = integer 15@ to_float
0073: 12@ /= 14@
0073: 13@ /= 15@
006B: 3@ *= 12@
006B: 4@ *= 13@
0AB2: ret 2 3@ 4@

:DRAW_LINE
//0AB1: call_scm_func @DRAW_LINE 9 x1y1 0@ 1@ x2y2 2@ 3@ thickness 1.0 R 255 G 255 B 255 A 255
0509: 9@ = distance_between_XY 0@ 1@ and_XY 2@ 3@
0063: 2@ -= 0@
0063: 3@ -= 1@
0604: get_Z_angle_for_point 2@ 3@ store_to 10@
10@ += 90.0
0017: 2@ /= 2.0
0017: 3@ /= 2.0
005B: 0@ += 2@
005B: 1@ += 3@
03F0: enable_text_draw 1
074B: draw_texture 666 position 0@ 1@ scale 9@ 4@ angle 10@ color_RGBA 5@ 6@ 7@ 8@
0AB2: ret 0