{$CLEO}
0000:
while true
     wait 0
     if
         player.Defined($player_char)
     then
         0AB5: store_actor $PLAYER_ACTOR closest_vehicle_to 0@ closest_ped_to 1@
         if
             056E: 0@
         then
             car.DoorStatus(0@ 0)
         end
     end
end

{$CLEO}
0000:
while true //1
wait 0
      if //2
      player.Defined(0)
      then
          if and //3
          not actor.Dead($PLAYER_ACTOR)
          not actor.Driving($PLAYER_ACTOR)
          0ADC: test_cheat "BUTSH"
          then
          018C: play_sound 1052 at 0.0 0.0 0.0   
              wait 750
              repeat //4
              wait 0
                  for 1@ = 0 to 19 //5
                      if //6
                      00E1:   player 0 pressed_key 1@
                      then
                      01E5: show_text_1number_highpriority GXT 'BUTN' number 1@ time 1250 flag 1
                      end //6
                  end //5
              until 0ADC: test_cheat "TEST" //4
          018C: play_sound 1052 at 0.0 0.0 0.0
          end //3
      end //2
wait 750
end //1

var
$ACT : Array 5 of Integer
$MARK : Array 5 of Integer
end
     for 1@ = 0 to 4
     wait 0
     0208: $XE = random_float -1500.0 1500.0  
     0208: $YE = random_float -1500.0 1500.0    
     02C0: set $XE $YE $ZE to_ped_path_coords_closest_to $XE $YE 0.0
     actor.Create($ACT[1@],Special,#MALE01,$XE,$YE,$ZE)
     marker.CreateAboveActor($MARK[1@],$ACT[1@])
     end