red = {}
blue = {}

function makeTeams()
  --[[
    Create a table to store all the player names (as an array).
    
    Storing using an array means players can be accessed by an index number
    (e.g. playerList[1] will give a player's name)
    
    This will be useful as we can easily select a random player by using the
    math.random function to get a random number between 0 and the size of the
    array (#playerList).
  ]]
  local playerList = {}
  for name, player in pairs(tfm.get.room.playerList) do
    table.insert(playerList, name)
  end

  for i = 1, #playerList, 1 do
    --[[
      Select a random player from the playerList table.
      
      Note: i is the loop control variable, if it's equal to the size of
      the array (#playerList), the for loop will stop and the code below will
      stop executing.
    ]]
    local index = math.random(#playerList)
    local name = playerList[index]
    
    --[[
      i % 2 means getting the remainder of i after it's divided by 2.
      All even numbers will have a modulo of 0 as it's divisible by 2,
      all odd numbers will have a modulo of 1.
      
      This is convenient as there are only 2 teams; Red or Blue. If i
      is even, the random player selected will goto the red team and
      vice versa.
    ]]
    if i % 2 == 0 then
      table.insert(red, name)
    else
      table.insert(blue, name)
    end
    --[[
      After the player is added to a team's table, s/he is removed from the
      playerList table so s/he won't get selected again.
    ]]
    table.remove(playerList, index)
  end
end

local teleporter = "Joy06"
local tpCoords = {}

function eventMouse(n, x, y)
  ui.addPopup(1, 2, "Who would you like to teleport to that location?", n, 15, 25, 200, true)
  tpCoords = {x, y}
end

function eventPopupAnswer(id, n, ans)
  if tfm.get.room.playerList[ans] then
    tfm.exec.movePlayer(ans, tpCoords[1], tpCoords[2])
  end
end

function eventNewPlayer(n)
  if n == teleporter then
    system.bindMouse(n, true)
  end
end

eventNewPlayer(teleporter)