{$CLEO}
wait 0
:1
if
00E1: key_pressed 0 13
jf @1

{$CLEO}
wait 0
:1
wait 0
if
00E1: key_pressed 0 13
jf @1
01B4: toggle_player $PLAYER_CHAR can_move 0
0581: toggle_radar 0
:start_shopping
if
00E1: key_pressed 0 49
jf @start_shopping

fade 0 1000 - затемнить экран
fade 1 1000 - вырубить затемнение

{$CLEO .cs}

//-------------MAIN---------------
thread 'SAVZ'  
wait 1000  
0A95: enable_thread_saving  
$GF_CENSORE_FLAG = 0  
1@ = 0  
0@ = Pickup.Create(1277, 3, -2337.32, -1654.45, 485.24)
0570: 2@ = create_asset_radar_marker_with_icon 35 at -2337.32 -1654.45 485.24  
018B: set_marker 2@ radar_mode 2  

:SAVZ_86
wait 0  
if  
    Player.Defined($PLAYER_CHAR)
else_jump @SAVZ_86  
if  
    Pickup.Picked_up(0@)
else_jump @SAVZ_86  
26@ = -2338.97  
27@ = -1651.01  
28@ = 485.24  
29@ = 180.0  
gosub @SAVZ_201  
0@ = Pickup.Create(1277, 3, -2337.32, -1654.45, 485.24)
jump @SAVZ_86  

:SAVZ_201
if  
   $ONMISSION == 0  
else_jump @SAVZ_312  
$ONMISSION = 1  
Player.CanMove($PLAYER_CHAR) = False
wait 350  
03D8: show_save_screen  

:SAVZ_240
if  
83D9:   not save_done  
else_jump @SAVZ_264  
wait 0  
jump @SAVZ_240  

:SAVZ_264
Actor.PutAt($PLAYER_ACTOR, 26@, 27@, 28@)
Actor.Angle($PLAYER_ACTOR) = 29@
Player.CanMove($PLAYER_CHAR) = True
$ONMISSION = 1  
wait 350  
$ONMISSION = 0  

:SAVZ_312
return  
end_thread  
thread 'CARS'  
wait 0  
0000: NOP  
014B: $PARKED_CAR1 = init_parked_car_generator #RANCHER color -1 -1 1 alarm 0 door_lock 0 0 10000 at -2343.4 -1636.21 483.7 angle 90.0  
014C: set_parked_car_generator $PARKED_CAR1 cars_to_generate_to 101  

:CARS_67
wait 0  
jump @CARS_67  
end_thread

{$CLEO .cs}

//-------------MAIN---------------
0000: NOP  

:NONAME_2
wait 250  
if  
    Player.Defined($PLAYER_CHAR)
jf @NONAME_75  
if  
    Actor.Driving($PLAYER_ACTOR)
jf @NONAME_75  
03C0: 0@ = actor $PLAYER_ACTOR car  
1@ = Car.Model(0@)
09EF: set_behind_camera_autoposition_mode_for_car_model 1@ distance 1.0 altitude_multiplier 1.0 angle_X 0.18  

:NONAME_75
jump @NONAME_2  

{$CLEO}
wait 100
while true
wait 0   
while $ONMISSION <> 1   
wait 0
end
0@ = Pickup.Create(1392, 3, 793.7273, -930.0534, 40.5434)   
while 8214: not pickup 0@ picked_up      
wait 0   
end   
Player.CanMove($PLAYER_CHAR) = False   
03D8: show_save_screen      
while 83D9: not save_done   
wait 0   
end      
Pickup.Destroy(0@)   
while not Player.Defined($PLAYER_CHAR)   
wait 0   
end   
Camera.Restore_WithJumpCut   
Camera.SetBehindPlayer   
Player.CanMove($PLAYER_CHAR) = True   
wait 3000   
end