function PingMinimapForForceEx takes force whichForce, real x, real y, real duration, integer style, real red, real green, real blue returns nothing   
        local real r
        local real r2 = 1
        local force bI   
        local integer red255   = PercentTo255(0)   
        local integer green255 = PercentTo255(0)   
        local integer blue255  = PercentTo255(0)   

        if (IsPlayerInForce(GetLocalPlayer(), bI)) then   
            // Use only local code (no net traffic) within this block to avoid desyncs.   

            // Prevent 100% red simple and flashy pings, as they become "attack" pings.   
            if (red255 == 255) and (green255 == 0) and (blue255 == 0) then   
                set red255 = 254   
            endif   

            if (style == bj_MINIMAPPINGSTYLE_SIMPLE) then   
                call PingMinimapEx(r, r2, 128, red255, green255, blue255, false)   
            elseif (style == bj_MINIMAPPINGSTYLE_FLASHY) then   
                call PingMinimapEx(r, r2, 128, red255, green255, blue255, true)   
            elseif (style == bj_MINIMAPPINGSTYLE_ATTACK) then   
                call PingMinimapEx(r, r2, 128, 255, 0, 0, false)   
            else   
                // Unrecognized ping style - ignore the request.   
            endif   
                
            //call StartSound(bj_pingMinimapSound)   
        endif   
endfunction

local real r   
local real r2 = 1   
loop   
      exitwhen r==256    
      call PingMinimapForForceEx(bj_FORCE_PLAYER[1], r, r2, 1, 5, 255, 255, 255)      
      set r = r + 1      
      if r==256*r2 then
          set r2 = r2 + 1   
      endif
endloop