$ Include example - catch Peds/Cars

{
example_catch_peds with $include command by DK22Pac

read more:
http://gtaforums.com/topic/503390-useful-using-of-include
}


{$CLEO}
0000:

{$I inloop}
if
  Player.Defined(0)
then
    if and
    0AB0:  key_pressed 20  // caps lock
    0AB0:  key_pressed 32 // spacebar
    then
        0ACA: show_text_box "fun time"
        32@ = 0  // set timer = 0 seconds

        while 7000 > 32@  /// while 7 seconds are still not passed.
            /// FOR PEDS
            {$I forallpeds}
            if and
            056D:   actor ped defined
            803C:   not  $PLAYER_ACTOR == ped // (int)                  /// found an actor!
            then
                00A0: store_actor $PLAYER_ACTOR position_to 0@ 1@ 2@
                00A0: store_actor ped position_to 3@ 4@ 5@
                050A: 6@ = distance_between_XYZ 0@ 1@ 2@ and_XYZ 3@ 4@ 5@
                if
                5.0 > 6@                                           /// if distance between $player & the found_actor is less than 5.0
                then
                    0326: 20@ = create_actor ped fire              /// yeea! burn! lol   // do something with found_actor
                    break
                end
            end
            {$I for_end}

            /// FOR CARS
            {$I forallcars}
            if
            056E:   car veh defined                                     /// found a car!
            then
                00A0: store_actor $PLAYER_ACTOR position_to 0@ 1@ 2@
                00AA: store_car veh position_to 3@ 4@ 5@
                050A: 6@ = distance_between_XYZ 0@ 1@ 2@ and_XYZ 3@ 4@ 5@
                if
                7.0 > 6@                                            /// if distance between $player & the found_car is less than 7.0
                then
                    070C: explode_car veh // versionB               /// yeea! burn! lol   /// do something with found_car
                    break
                end
            end
            {$I for_end}
         wait 0
        end

        0ACA: show_text_box "fun over"
    end
end
{$I end}