fpscam.cs (ThirteenAG)

{$CLEO}
0000:
const
WIDESCREEN_STATUS = 19@
IS_IN_WIDESCREEN  = 29@
IS_IN_CUTSCENE    = 28@
end

while true
    wait 0
        if and
        //84C8:   not actor $PLAYER_ACTOR driving_flying_vehicle
        89AE:   not actor $PLAYER_ACTOR driving_train
        //847A:   not actor $PLAYER_ACTOR driving_bike
        //84A7:   not actor $PLAYER_ACTOR driving_boat
        00DF:   actor $PLAYER_ACTOR driving
        0AB0:   key_pressed 66
        0@ == 0
        then
        wait 100

        gosub @start
        end




if and
00DF:   actor $PLAYER_ACTOR driving
0@ == 1
then
0A4A: store_joystick_X_offset_to 15@ Y_offset_to 16@
15@ *= 0.0025
16@ *= 0.0025

005B: 17@ += 15@ // (float)
005B: 18@ += 16@ // (float)

if
17@ < -0.9
then
17@ = -0.9
end

if
17@ > 0.9
then
17@ = 0.9
end

if
18@ < -0.09
then
18@ = -0.09
end

if
18@ > 0.09
then
18@ = 0.09
end

0087: 20@ = 3@ // (float)
0087: 21@ = 5@ // (float)
005B: 20@ += 17@ // (float)
005B: 21@ += 18@ // (float)

if
847A:   not actor $PLAYER_ACTOR driving_bike
then
067C: put_camera_on_actor $PLAYER_ACTOR with_offset 3@ 4@ 5@ rotation 20@ 0.0 21@ 13@ 2
else
067C: put_camera_on_actor $PLAYER_ACTOR with_offset 3@ 0.3 5@ rotation 20@ 1.0 21@ 13@ 2
end





end



    gosub @CutsceneCheck
    gosub @WideScreenCheck
    if and
    00DF:   actor $PLAYER_ACTOR driving
    30@ == true
    IS_IN_CUTSCENE == FALSE
    IS_IN_WIDESCREEN == FALSE
    then
    gosub @start
    30@ = false
    end

    if or
    IS_IN_CUTSCENE == TRUE
    IS_IN_WIDESCREEN == TRUE
    27@ == 1
    then
          if and
           00DF:   actor $PLAYER_ACTOR driving
          0@ <> 0
          then
          30@ = true
          gosub @off
          27@ = 0
          end
    end






        if and
        00DF:   actor $PLAYER_ACTOR driving
        0AB0:   key_pressed 66
        0@ <> 0
        then
        wait 100
        gosub @off
        end


        if and
        80DF:   not actor $PLAYER_ACTOR driving
        0@ <> 0
        then
        gosub @off
        end

if and
00DF:   actor $PLAYER_ACTOR driving
0@ <> 0
0AB0:   key_pressed 2
then
gosub @off
while 0AB0:   key_pressed 2
wait 0
end
gosub @start
end





end


:start
if
00DF:   actor $PLAYER_ACTOR driving
then
//0@ = 0
1@ = -1
2@ = -1
3@ = 0.0//75
4@ = -0.222
5@ = 0.666
10@ = 0.0
11@ = 200.0
12@ = 0.75
13@ = 0.0
14@ = 0
15@ = 0.0
16@ = 0.0
17@ = 0.0
18@ = 0.0
20@ = 0.0
21@ = 0.0
22@ = 0.0

        03C0: 1@ = actor $PLAYER_ACTOR car
        0376: 2@ = create_random_actor_at 0.0 0.0 0.0
        02A9: set_actor 2@ immune_to_nonplayer 1
        02AB: set_actor 2@ immunities BP 1 FP 1 EP 1 CP 1 MP 1
        0337: set_actor 2@ visibility 0
        0489: set_actor 2@ muted 0
        0568: set_actor 2@ targetable 0
        0619: enable_actor 2@ collision_detection 0
        if and
        84C8:   not actor $PLAYER_ACTOR driving_flying_vehicle
        89AE:   not actor $PLAYER_ACTOR driving_train
        847A:   not actor $PLAYER_ACTOR driving_bike
        84A7:   not actor $PLAYER_ACTOR driving_boat
        then
        0697: set_car 1@ remove_componentB 4 visible_effect_flag 0
        end

        //hiding head
        0A8C: write_memory 0x0049EB23 size 4 value 0x0002D6E9 virtual_protect 1
        0A8C: write_memory 0x0049EB27 size 1 value 0x00 virtual_protect 1
        0A8C: write_memory 0x0049EB28 size 2 value 0x9090 virtual_protect 1
        0A96: 23@ = actor $PLAYER_ACTOR struct
        23@ += 0x46D
        0A8C: write_memory 23@ size 1 value 0xA1 virtual_protect 1  //0xA0 on foot
        23@ -= 0x46D
        23@ += 0x754
        0A8C: write_memory 23@ size 1 value 0x02 virtual_protect 1
        //end

        067E: put_camera_on_actor $PLAYER_ACTOR with_offset 3@ 4@ 5@ point_to_actor 2@ 13@ mode 2
        0464: put_actor 2@ into_turret_on_car 1@ at_car_offset 10@ 11@ 12@ position 0 shooting_angle_limit 0 with_weapon 0
        0@ = 1
end
return



:off
0@ = 0
3@ = 0.0//75
4@ = -0.222
5@ = 0.666
10@ = 0.0
11@ = 200.0
12@ = 0.75
13@ = 0.0
14@ = 0
02EB: restore_camera_with_jumpcut
1@ = -1
if
   8118:   not actor 2@ dead
then
009B: destroy_actor 2@
end
2@ = -1
//restore head
        0A8C: write_memory 0x0049EB23 size 4 value 0x2CB805EB virtual_protect 1
        0A8C: write_memory 0x0049EB27 size 1 value 0xF0 virtual_protect 1
        0A8C: write_memory 0x0049EB28 size 2 value 0x00B6 virtual_protect 1
        0A96: 23@ = actor $PLAYER_ACTOR struct
        23@ += 0x46D
        if
        00DF:   actor $PLAYER_ACTOR driving
        then
        0A8C: write_memory 23@ size 1 value 0x21 virtual_protect 0  //0x21 on vehicle
        else
        0A8C: write_memory 23@ size 1 value 0x20 virtual_protect 0  //0x21 on vehicle
        end
        23@ -= 0x46D
        23@ += 0x754
        0A8C: write_memory 23@ size 1 value 0xFF virtual_protect 0
//end
return


:CutsceneCheck
if
    06B9:   cutscene_data_loaded
then
    if
        82E9:   not cutscene_reached_end
    then
        IS_IN_CUTSCENE = TRUE
    end
else
    IS_IN_CUTSCENE = FALSE
end
return

:WideScreenCheck
0A8D: WIDESCREEN_STATUS = read_memory 0xB6F065 size 4 virtual_protect 0
if
    WIDESCREEN_STATUS == 1
then
    IS_IN_WIDESCREEN = TRUE
else
    IS_IN_WIDESCREEN = FALSE
end
return