Военные атакуют нападающих

{$CLEO}

thread "ARMY_DOCKS"

5@ = 0 // find_next
while true
    wait 0
    if
        Player.Defined($PLAYER_ACTOR)
    then
        Actor.StorePos($PLAYER_ACTOR, 10@, 11@, 12@)
        if
            0AE1: 1@ = random_actor_near_point 10@ 11@ 12@ in_radius 50.0 find_next 5@ pass_deads 1
        then
            if and
                Actor.Model(1@) == 300
                031D: actor 1@ hit_by_weapon 57
            then
                0A96: 2@ = actor 1@ struct
                2@ += 0x764
                0A8D: 3@ = read_memory 2@ size 4 virtual_protect 0
                if
                  3@ > 0
                then
                    0A8C: write_memory 2@ size 4 value 0 virtual_protect 0
                    0AEA: 4@ = actor_struct 3@ handle
                    01B2: give_actor 1@ weapon 22 ammo 99999
                    05E2: AS_actor 1@ kill 4@
                end
            end

            5@ = 1
        else
            5@ = 0
        end
    end
end