function ArenaPlayers takes nothing returns nothing
local integer i = 0
local integer players
call BJDebugMsg("action")
loop 
exitwhen i == 5
if GetPlayerSlotState(Player(i)) == PLAYER_SLOT_STATE_PLAYING then
set i = i + 1
set players = players + 1
call BJDebugMsg(I2S(players))
endif
endloop
call ArenaAction1(players)
endfunction

function ArenaPlayers takes nothing returns nothing
local integer i
local integer players
loop 
call BJDebugMsg("loop")
set i = i + 1
call BJDebugMsg(I2S(i))
if GetPlayerSlotState(Player(i)) == PLAYER_SLOT_STATE_PLAYING then
set players = players + 1
call BJDebugMsg(I2S(players))
else
call BJDebugMsg("error")
endif
exitwhen i == 5
endloop
call ArenaAction1(players)
endfunction