policeWeapons_sa_cleo

{$CLEO}
0000:

REPEAT
    wait 250
UNTIL 0256:   player $PLAYER_CHAR defined

CONST
    radius = 750.0
    wammo = 9999
    CopNitestick = 0x03 //  WEAPON_NIGHTSTICK
    Weapon_MotorbikeCop = 0x22      //  WEAPON_PISTOL
    Weapon_LosSantosCop = 0x22      //  WEAPON_PISTOL
    Weapon_SanFierroCop = 0x22      //  WEAPON_PISTOL
    Weapon_LasVenturasCop = 0x22    //  WEAPON_PISTOL
    Weapon_CountrySheriff = 0x22    //  WEAPON_PISTOL

    Weapon_SWAT = 0x1C  //  WEAPON_MICRO_UZI
    Weapon_FBI = 0x1D   //  WEAPON_MP5
    Weapon_Army = 0x1F  //  WEAPON_M4
END

WHILE TRUE
    wait 0
    00A0: store_actor $PLAYER_ACTOR position_to 0@ 1@ 2@
    IF 0AE1: 3@ = random_actor_near_point 0@ 1@ 2@ in_radius radius find_next 0 pass_deads 1
    THEN
        REPEAT
            089F: get_actor 3@ pedtype_to 4@
            IF 4@ == 6  //  PED_TYPE_COP
            THEN
                0470: 4@ = actor 3@ current_weapon
                IF 02F2:   actor 3@ model == #LAPDM1
                THEN
                    IF 4@ <> Weapon_MotorbikeCop
                    THEN
                        4@ = Weapon_MotorbikeCop
                        0781: get_weapon_with_ID Weapon_MotorbikeCop model_to 5@
                        gosub @Giveweapon
                    END
                ELSE
                    IF 02F2:   actor 3@ model == #LAPD1
                    THEN
                        IF 4@ <> Weapon_LosSantosCop
                        THEN
                            4@ = Weapon_LosSantosCop
                            0781: get_weapon_with_ID Weapon_LosSantosCop model_to 5@
                            gosub @Giveweapon
                        END
                    ELSE
                        IF 02F2:   actor 3@ model == #SFPD1
                        THEN
                            IF 4@ <> Weapon_SanFierroCop
                            THEN
                                4@ = Weapon_SanFierroCop
                                0781: get_weapon_with_ID Weapon_SanFierroCop model_to 5@
                                gosub @Giveweapon
                            END
                        ELSE
                            IF 02F2:   actor 3@ model == #LVPD1
                            THEN
                                IF 4@ <> Weapon_LasVenturasCop
                                THEN
                                    4@ = Weapon_LasVenturasCop
                                    0781: get_weapon_with_ID Weapon_LasVenturasCop model_to 5@
                                    gosub @Giveweapon
                                END
                            ELSE
                                IF 02F2:   actor 3@ model == #CSHER
                                THEN
                                    IF 4@ <> Weapon_CountrySheriff
                                    THEN
                                        4@ = Weapon_CountrySheriff
                                        0781: get_weapon_with_ID Weapon_CountrySheriff model_to 5@
                                        gosub @Giveweapon
                                    END
                                ELSE
                                    IF 02F2:   actor 3@ model == #SWAT
                                    THEN
                                        IF 4@ <> Weapon_SWAT
                                        THEN
                                            4@ = Weapon_SWAT
                                            0781: get_weapon_with_ID Weapon_SWAT model_to 5@
                                            gosub @Giveweapon
                                        END
                                    ELSE
                                        IF 02F2:   actor 3@ model == #FBI
                                        THEN
                                            IF 4@ <> Weapon_FBI
                                            THEN
                                                4@ = Weapon_FBI
                                                0781: get_weapon_with_ID Weapon_FBI model_to 5@
                                                gosub @Giveweapon
                                            END
                                        ELSE
                                            IF 02F2:   actor 3@ model == #ARMY
                                            THEN
                                                IF 4@ <> Weapon_Army
                                                THEN
                                                    4@ = Weapon_Army
                                                    0781: get_weapon_with_ID Weapon_Army model_to 5@
                                                    gosub @Giveweapon
                                                END
                                            END
                                        END
                                    END
                                END
                            END
                        END
                    END
                END
            END
        UNTIL 8AE1:   NOT   3@ = random_actor_near_point 0@ 1@ 2@ in_radius radius find_next 1 pass_deads 1
    END
END

:Giveweapon
IF 0248:   model 5@ available
THEN
    0470: 6@ = actor 3@ current_weapon
    0555: remove_weapon 6@ from_actor 3@
    01B2: give_actor 3@ weapon 4@ ammo wammo
    01B9: set_actor 3@ armed_weapon_to 4@
    0249: release_model 5@
ELSE
    0247: load_model 5@
    038B: load_requested_models
END
return