function PCO takes integer id returns string
  local string s
  set s = GetPlayerName(Player(id))
  if id==0 then
    set s = "|cFFFF0000" + s + "|r"
  endif
  if id==1 then
    set s = "|cFF0000FF" + s + "|r"
  endif
  if id==2 then
    set s = "|cFF57ffd9" + s + "|r"
  endif
  if id==3 then
    set s = "|cFF812DAD" + s + "|r"
  endif
  if id==4 then
    set s = "|cFFfff833" + s + "|r"
  endif
  return s
endfunction

function NIMB takes integer o returns nothing
  local integer i = 0
  local string pn
  loop
    exitwhen i==o
    if GetPlayerSlotState(Player(i)) == PLAYER_SLOT_STATE_PLAYING then
      set pn = PCO(i)
      call MultiboardSetItemValueBJ(udg_MyMB, 1, i+1, pn)
    endif
    set i = i + 1
  endloop
endfunction

function NIMB takes nothing returns nothing  // takes integer o
  local integer i = 0
  local integer n = 0  // starting number of row
  local multiboarditem mbi = null
  loop
    exitwhen i == 5  // exitwhen i==o
    if GetPlayerSlotState(Player(i)) == PLAYER_SLOT_STATE_PLAYING then
      // call MultiboardSetItemValueBJ(udg_MyMB, 1, n, PCO(i))
      set mbi = MultiboardGetItem(udg_MyMB, n, 0)
      call MultiboardSetItemValue(mbi, PCO(i))
      call MultiboardReleaseItem(mbi)
      set n = n + 1
    endif
    set i = i + 1
  endloop
  set mbi = null
endfunction