{$CLEO .cs}

script_name 'kvr'
save_this_custom_script 
0006: 0@ = 0

0247: load_model #WMOPREA
0247: load_model #SHOTGSPA
0247: load_model #COLT45
0247: load_model 8154

:MODEL
0001: wait 0 
if and
0248: model #WMOPREA available 
0248: model #SHOTGSPA available
0248: model #COLT45 available
0248: model 8154 available
004D: jump_if_false @MODEL

//---------------------------------------------

:START
0001: wait 0 
00D6: if
Actor.DrivingVehicleType($PLAYER_ACTOR, #CABBIE)
else_jump @START

0001: wait 0 ms
00A0: store_actor $PLAYER_ACTOR position_to 1@ 2@ $TEMPVAR_FLOAT_3

0001: wait 0 ms
if and
0019:   1@ > 1198
0019:   2@ > 813
else_jump @OUTSIDE

//---------------------------------------------

Player.CanMove($PLAYER_CHAR) = False
048F: actor $PLAYER_ACTOR remove_weapons
03C0: 3@ = actor $PLAYER_ACTOR car
00BA: show_text_styled GXT 'KVR003' time 5000 style 7

0001: wait 3000 ms
00A7: car 3@ drive_to 2032.50 2116.00 10.7
00AD: set_car 3@ max_speed_to 20.0
00AE: unknown_set_car 3@ to_ignore_traffic_lights  2
0001: wait 1000 ms
03E5: show_text_box 'KVR004'
0001: wait 3000 ms

:voyager
0001: wait 0 ms
if
01AF:   car 3@  0 ()near_point 2032.50 2116.00 10.7 radius 1.0 1.0 1.0
004D: jump_if_false @voyager

015F: set_camera_position 2024.5 2123.0 17.0 rotation 0.0 0.0 0.0 
0160: set_camera_point_at 2043.0 2098.5 16.0 mode 2
0001: wait 3000 ms

015A: restore_camera
0633: AS_actor $PLAYER_ACTOR exit_car
0001: wait 2500 ms
0187: 4@ = create_marker_above_actor $PLAYER_ACTOR
0165: set_marker 4@ color_to 6

// 00A6: destroy_car 3@
05D3: AS_actor $PLAYER_ACTOR goto_point 2022.00 2151.00 11.13 mode 4 -2 ms

:voyager2
0001: wait 10 ms
if
00FE:   actor $PLAYER_ACTOR sphere 0 in_sphere 2022.00 2151.00 11.13 radius 1.0 1.0 1.0
004D: jump_if_false @voyager2
015A: restore_camera

fade 0 1000 
0169: set_fade_color_RGB 0 210 105
wait 1000

0107: 11@ = create_object 8154 at 2020.30 2164.50 00.00
wait 100
0107: 12@ = create_object 8154 at 2020.00 2160.00 00.00
wait 100
0177: set_object 12@ Z_angle_to 180.0
wait 100
01BC: put_object 11@ at 2020.30 2164.50 12.86
01BC: put_object 12@ at 2020.00 2160.00 12.86

032B: 13@ = create_weapon_pickup #COLT45 group 3 ammo 64 at 1999.2 2179.7 10.85
0213: $healt = create_pickup 1240 type 3 at 2001.2 2179.7 10.85
0213: $armor = create_pickup 1242 type 3 at 2000.2 2179.7 10.85

009A: 21@ = create_actor_pedtype 6 model #WMOPREA at 2032.8 2160.5 13.65
0173: set_actor 21@ Z_angle_to -180.0
01B2: give_actor 21@ weapon 27 ammo 999
02E2: set_actor 21@ weapon_accuracy_to 5
0223: set_actor 21@ health_to 350

009A: 22@ = create_actor_pedtype 6 model #WMOPREA at 2004.6 2167.9 13.85
0173: set_actor 22@ Z_angle_to -135.0
01B2: give_actor 22@ weapon 27 ammo 999
02E2: set_actor 22@ weapon_accuracy_to 5
0223: set_actor 22@ health_to 350

009A: 23@ = create_actor_pedtype 6 model #WMOPREA at 2004.6 2134.0 13.85
0173: set_actor 23@ Z_angle_to -45.0
01B2: give_actor 23@ weapon 27 ammo 999
02E2: set_actor 23@ weapon_accuracy_to 5
0223: set_actor 23@ health_to 350

009A: 24@ = create_actor_pedtype 6 model #WMOPREA at 2039.6 2136.7 19.60
0173: set_actor 24@ Z_angle_to 45.0
01B2: give_actor 24@ weapon 27 ammo 999
02E2: set_actor 24@ weapon_accuracy_to 5
0223: set_actor 24@ health_to 350

0164: disable_marker 4@
fade 1 1000
0169: set_fade_color_RGB 0 210 105
wait 1000

Player.CanMove($PLAYER_CHAR) = True

//---------------------------------------------

05E2: AS_actor 21@ kill_actor $PLAYER_ACTOR
05E2: AS_actor 22@ kill_actor $PLAYER_ACTOR
05E2: AS_actor 23@ kill_actor $PLAYER_ACTOR
05E2: AS_actor 24@ kill_actor $PLAYER_ACTOR

:action
wait 0
if
0118:   actor $PLAYER_ACTOR dead
jf @action2
jump @END

:action2
wait 0
if and
0118:   actor 21@ dead
0118:   actor 22@ dead
0118:   actor 23@ dead
0118:   actor 24@ dead
jf @action
jump @END2

//---------------------------------------------

:OUTSIDE
0001: wait 0 
00D6: if
0039:   0@ == 0
else_jump @START

0006: 0@ = 1
00BA: show_text_styled GXT 'KVR001' time 5000 style 7
jump @START

//---------------------------------------------

:END
Wait 10000
00BA: show_text_styled GXT 'KVR002' time 5000 style 7
jump @END3

:END2
010D: set_player $PLAYER_CHAR wanted_level_to 0
Wait 1000
00BA: show_text_styled GXT 'KVR002' time 5000 style 7
jump @END3

:END3
0215: destroy_pickup $healt[0]
0215: destroy_pickup $armor[0]
0215: destroy_pickup 13@[0]
034F: destroy_actor_with_fade 21@
034F: destroy_actor_with_fade 22@
034F: destroy_actor_with_fade 23@
034F: destroy_actor_with_fade 24@
0108: destroy_object 11@
0108: destroy_object 12@

0A93: end_custom_thread