camera far distance

/*
^camera
by J16D
*/

{$CLEO}
const
    dummy_OBJ = 5@
    dummy_CAR = 6@
end
0000:
while true
if 0ADC:   test_cheat "camera"
then
    Model.Load(1582)
    #DINGHY.Load()
    038B: load_requested_models
    wait 500
    gosub @SetCamera

    repeat
     wait 0
    until 0ADC:   test_cheat "camera"

    02EB: restore_camera_with_jumpcut
    00A6: destroy_car dummy_CAR
    0108: destroy_object dummy_OBJ
    0249: release_model 1582
    0249: release_model #DINGHY
    wait 500
end
 wait 0
end

:SetCamera
04C4: store_coords_to 0@ 1@ 2@ from_actor $PLAYER_ACTOR with_offset 0.0 0.0 -50.0
0107: dummy_OBJ = create_object 1582 at 0@ 1@ 2@
0382: set_object dummy_OBJ collision_detection 0
0750: set_object dummy_OBJ visibility 0
09CA: set_object dummy_OBJ immunities BP 1 FP 1 EP 1 CP 1 MP 1
069B: attach_object dummy_OBJ to_actor $PLAYER_ACTOR with_offset 0.0 0.4 0.0 rotation 0.0 0.0 0.0
04C4: store_coords_to 0@ 1@ 2@ from_actor $PLAYER_ACTOR with_offset 0.0 0.0 -50.0
00A5: dummy_CAR = create_car #DINGHY at 0@ 1@ 2@
0939: attach_car dummy_CAR to_object dummy_OBJ with_offset 0.0 0.0 0.0 rotation 0.0 0.0 0.0
02AC: set_car dummy_CAR immunities BP 1 FP 1 EP 1 CP 1 MP 1
0338: set_car dummy_CAR visibility 0
081D: set_car dummy_CAR engine_operation 0
099A: set_car dummy_CAR collision_detection 0
0158: camera_on_car dummy_CAR mode 18 switchstyle 1
09AD: set_vehicle_camera_mode 3
return