{$CLEO}
wait 0
while true
      wait 0
      if and
          player.Defined($player_char)
          $ONMISSION == 0
      then
          actor.StorePos($PLAYER_ACTOR 2@ 3@ 4@)
          if
              0AE1: 5@ = random_actor_near_point 2@ 3@ 4@ in_radius 50.0 find_next 0 pass_deads 1 //IF and SET
          then
              repeat
                  080E: get_actor 5@ ped_event_to 6@   
                  if and
                      6@ == 13                    // актёр просто идёт,как прохожий
                      803B: not 5@ == $PLAYER_ACTOR // (int)
                      02F2:   actor 5@ model == #BMYPOL1    
                  then
                      0850: AS_actor 5@ follow_actor $PLAYER_ACTOR
                  end
              until 8AE1: not 5@ = random_actor_near_point 2@ 3@ 4@ in_radius 50.0 find_next 1 pass_deads 1 //IF and SET
          end
      end
end