#########################################################
function fs_Initialize takes nothing returns nothing
   local integer i = 0
   local integer p = 0
   local integer j
   local trigger t
   local timer tm
   local real x
   local real y

   // ############### set up workspace ##############
   call setcfg("base_x", R2S(GetRectMinX(bj_mapInitialPlayableArea) + 100.00))
   call setcfg("base_y", R2S(GetRectMinY(bj_mapInitialPlayableArea) + 100.00))

   set bj_mapInitialPlayableArea = Rect(cfgr("base_x") + 2300, GetRectMinY(bj_mapInitialPlayableArea), GetRectMaxX(bj_mapInitialPlayableArea), GetRectMaxY(bj_mapInitialPlayableArea))


   // ############### set up path blocker line ##############
   set x = cfgr("base_x") + 2200
   set y = GetRectMinY(GetWorldBounds())

   loop
      exitwhen y > GetRectMaxY(GetWorldBounds())
      call CreateDestructable('BX00', x, y, 0, 1.28, 0)
      set y = y + 128
   endloop

   // ############### auto detect max players if necessary ##############
   if cfgi("max_players") <= 0 then
      loop
         exitwhen i >= 12
         if GetPlayerSlotState(Player(i)) == PLAYER_SLOT_STATE_PLAYING then
            call setcfg("max_players", I2S(i + 1))
         endif
         set i = i + 1
      endloop
   endif

   set tm = CreateTimer()
   call TimerStart(tm, 0.00, true, function fs_InitPlayer)
endfunction

function inv100_PutItemToCompatSlot takes unit u, item it returns integer
    local integer i = 0
    local integer compat = 0
    local integer bestcompat = 'zzzz' //any constant value that must be greater than "maxclasses"
    local integer bestslot = 0
    local integer slots = get_object_iparam(u, "inv100_rows") * get_object_iparam(u, "inv100_cols")
    local integer breakcycle = 0
    call set_session_iparam("skip",1)
    if GetItemTypeId(it) == 0 or IsItemPowerup(it) then
        return
    endif