-- Begin modifications
function Msg_OnCommand(player, command, payload, recipient, msg_type)
	local cmd = string.lower(command)
	if(cmd == "?coord" or cmd == "?coords" ) then
		local pos = player:coords()
		player:message("Your coordinates are x= " .. pos.x .. ", y= " .. pos.y .. ", z= " .. pos.z .. ", rotation= " ..pos.rotation)
	elseif (cmd == "?teamcreate") then 
        PlayerTeamCreate(player, command, payload, recipient, msg_type)
    elseif (cmd == "?invite") then
        PlayerInvite(player, command, payload, recipient, msg_type)
    elseif (cmd == "?accept") then 
        PlayerAccept(player, command, payload, recipient, msg_type)
    elseif (cmd == "?reject") then
        PlayerReject(player, command, payload, recipient, msg_type)
	elseif (cmd == "?list") then
		PlayerList(player, command, payload, recipient, msg_type)
	elseif (cmd == "?veh") then
		player:message("" .. player:getVehicle():vehicletypeid())
	elseif (cmd == "?unspec") then
		PlayerUnspec(player, command, payload, recipient, msg_type)
	else
		survey(player, command, payload, recipient, msg_type)
		LcStuff(player, command, payload, recipient, msg_type)
		ModStuff(player, command, payload, recipient, msg_type)
	end
	
	if isonmodlist(player.m_name) then
		if(cmd == "?hello") then
			logcmd(g_arena.m_name, player, command, payload, recipient, msg_type)
			g_arena:message("Hello world")
		end
	end
end

-- end modifications

-- Begin modifications

-- end modifications

-- when a player tries to unspec. return boolean
function PlayerUnspec(player, command, payload, recipient, msg_type)
	local titanTeams = {{"Titan Alpha", 0}, {"Titan Bravo", 0}, {"Titan Charlie", 0},
		{"Titan Delta", 0}, {"Titan Echo", 0}, {"Titan Foxtrot", 0}, {"Titan Gamma", 0},
		{"Titan Hostel", 0}, {"Titan Kapa", 0}, {"Titan Lamba", 0}, {"Titan Mu", 0},
		{"Titan Omicron", 0}, {"Titan Sigma", 0}, {"Titan Theta"}, {"Titan Rogue 1", 0},
		{"Titan Rogue 2", 0}, {"Titan Rogue 3", 0}, {"Titan Rogue 4", 0}, {"Titan Rogue 5", 0},
		{"Titan Rogue 6", 0}, {"Titan Rogue 7", 0}, {"Titan Rogue 8", 0}, {"Titan Rogue 9", 0},
		{"Titan Rogue 10", 0}, {"Titan Rogue 11", 0}, {"Titan Rogue 12", 0}, {"Titan Rogue 13", 0},
		{"Titan Rogue 14", 0}, {"Titan Rogue 15", 0}}
	local europaTeams = {{"Europa Alpha", 0}, {"Europa Bravo", 0}, {"Europa Charlie", 0},
		{"Europa Delta", 0}, {"Europa Echo", 0}, {"Europa Foxtrot", 0}, {"Europa Gamma", 0},
		{"Europa Hostel", 0}, {"Europa Kapa", 0}, {"Europa Lamba", 0}, {"Europa Mu", 0},
		{"Europa Omicron", 0}, {"Europa Sigma", 0}, {"Europa Theta"}, {"Europa Rogue 1", 0},
		{"Europa Rogue 2", 0}, {"Europa Rogue 3", 0}, {"Europa Rogue 4", 0}, {"Europa Rogue 5", 0},
		{"Europa Rogue 6", 0}, {"Europa Rogue 7", 0}, {"Europa Rogue 8", 0}, {"Europa Rogue 9", 0},
		{"Europa Rogue 10", 0}, {"Europa Rogue 11", 0}, {"Europa Rogue 12", 0}, {"Europa Rogue 13", 0},
		{"Europa Rogue 14", 0}, {"Europa Rogue 15", 0}}
	local titanCount, europaCount = 0, 0
	
	--Titan teams
	if team_fromname(g_arena, "Titan Alpha"):exists() then
		titanTeams[1][2] = team_fromname(g_arena, "Titan Alpha"):num()
	end
	if team_fromname(g_arena, "Titan Bravo"):exists() then
		titanTeams[2][2] = team_fromname(g_arena, "Titan Bravo"):num()
	end
	if team_fromname(g_arena, "Titan Charlie"):exists() then
		titanTeams[3][2] = team_fromname(g_arena, "Titan Charlie"):num()
	end
	if team_fromname(g_arena, "Titan Delta"):exists() then
		titanTeams[4][2] = team_fromname(g_arena, "Titan Delta"):num()
	end
	if team_fromname(g_arena, "Titan Echo"):exists() then
		titanTeams[5][2] = team_fromname(g_arena, "Titan Echo"):num()
	end
	if team_fromname(g_arena, "Titan Foxtrot"):exists() then
		titanTeams[6][2] = team_fromname(g_arena, "Titan Foxtrot"):num()
	end
	if team_fromname(g_arena, "Titan Gamma"):exists() then
		titanTeams[7][2] = team_fromname(g_arena, "Titan Gamma"):num()
	end
	if team_fromname(g_arena, "Titan Hostel"):exists() then
		titanTeams[8][2] = team_fromname(g_arena, "Titan Hostel"):num()
	end
	if team_fromname(g_arena, "Titan Kapa"):exists() then
		titanTeams[9][2] = team_fromname(g_arena, "Titan Kapa"):num()
	end
	if team_fromname(g_arena, "Titan Lamba"):exists() then
		titanTeams[10][2] = team_fromname(g_arena, "Titan Lamba"):num()
	end
	if team_fromname(g_arena, "Titan Mu"):exists() then
		titanTeams[11][2] = team_fromname(g_arena, "Titan Mu"):num()
	end
	if team_fromname(g_arena, "Titan Nu"):exists() then
		titanTeams[12][2] = team_fromname(g_arena, "Titan Nu"):num()
	end
	if team_fromname(g_arena, "Titan Omicron"):exists() then
		titanTeams[13][2] = team_fromname(g_arena, "Titan Omicron"):num()
	end
	if team_fromname(g_arena, "Titan Sigma"):exists() then
		titanTeams[14][2] = team_fromname(g_arena, "Titan Sigma"):num()
	end
	if team_fromname(g_arena, "Titan Theta"):exists() then
		titanTeams[15][2] = team_fromname(g_arena, "Titan Theta"):num()
	end
	-- Titan Private teams
	if team_fromname(g_arena, "Titan Rogue 1"):exists() then
		titanTeams[16][2] = team_fromname(g_arena, "Titan Rogue 1"):num()
	end
	if team_fromname(g_arena, "Titan Rogue 2"):exists() then
		titanTeams[17][2] = team_fromname(g_arena, "Titan Rogue 2"):num()
	end
	if team_fromname(g_arena, "Titan Rogue 3"):exists() then
		titanTeams[18][2] = team_fromname(g_arena, "Titan Rogue 3"):num()
	end
	if team_fromname(g_arena, "Titan Rogue 4"):exists() then
		titanTeams[19][2] = team_fromname(g_arena, "Titan Rogue 4"):num()
	end
	if team_fromname(g_arena, "Titan Rogue 5"):exists() then
		titanTeams[20][2] = team_fromname(g_arena, "Titan Rogue 5"):num()
	end
	if team_fromname(g_arena, "Titan Rogue 6"):exists() then
		titanTeams[21][2] = team_fromname(g_arena, "Titan Rogue 6"):num()
	end
	if team_fromname(g_arena, "Titan Rogue 7"):exists() then
		titanTeams[22][2] = team_fromname(g_arena, "Titan Rogue 7"):num()
	end
	if team_fromname(g_arena, "Titan Rogue 8"):exists() then
		titanTeams[23][2] = team_fromname(g_arena, "Titan Rogue 8"):num()
	end
	if team_fromname(g_arena, "Titan Rogue 9"):exists() then
		titanTeams[24][2] = team_fromname(g_arena, "Titan Rogue 9"):num()
	end
	if team_fromname(g_arena, "Titan Rogue 10"):exists() then
		titanTeams[25][2] = team_fromname(g_arena, "Titan Rogue 10"):num()
	end
	if team_fromname(g_arena, "Titan Rogue 11"):exists() then
		titanTeams[26][2] = team_fromname(g_arena, "Titan Rogue 11"):num()
	end
	if team_fromname(g_arena, "Titan Rogue 12"):exists() then
		titanTeams[27][2] = team_fromname(g_arena, "Titan Rogue 12"):num()
	end
	if team_fromname(g_arena, "Titan Rogue 13"):exists() then
		titanTeams[28][2] = team_fromname(g_arena, "Titan Rogue 13"):num()
	end
	if team_fromname(g_arena, "Titan Rogue 14"):exists() then
		titanTeams[29][2] = team_fromname(g_arena, "Titan Rogue 14"):num()
	end
	if team_fromname(g_arena, "Titan Rogue 15"):exists() then
		titanTeams[30][2] = team_fromname(g_arena, "Titan Rogue 15"):num()
	end
	
	--Europa teams
	if team_fromname(g_arena, "Europa Alpha"):exists() then
		europaTeams[1][2] = team_fromname(g_arena, "Europa Alpha"):num()
	end
	if team_fromname(g_arena, "Europa Bravo"):exists() then
		europaTeams[2][2] = team_fromname(g_arena, "Europa Bravo"):num()
	end
	if team_fromname(g_arena, "Europa Charlie"):exists() then
		europaTeams[3][2] = team_fromname(g_arena, "Europa Charlie"):num()
	end
	if team_fromname(g_arena, "Europa Delta"):exists() then
		europaTeams[4][2] = team_fromname(g_arena, "Europa Delta"):num()
	end
	if team_fromname(g_arena, "Europa Echo"):exists() then
		europaTeams[5][2] = team_fromname(g_arena, "Europa Echo"):num()
	end
	if team_fromname(g_arena, "Europa Foxtrot"):exists() then
		europaTeams[6][2] = team_fromname(g_arena, "Europa Foxtrot"):num()
	end
	if team_fromname(g_arena, "Europa Gamma"):exists() then
		europaTeams[7][2] = team_fromname(g_arena, "Europa Gamma"):num()
	end
	if team_fromname(g_arena, "Europa Hostel"):exists() then
		europaTeams[8][2] = team_fromname(g_arena, "Europa Hostel"):num()
	end
	if team_fromname(g_arena, "Europa Kapa"):exists() then
		europaTeams[9][2] = team_fromname(g_arena, "Europa Kapa"):num()
	end
	if team_fromname(g_arena, "Europa Lamba"):exists() then
		europaTeams[10][2] = team_fromname(g_arena, "Europa Lamba"):num()
	end
	if team_fromname(g_arena, "Europa Mu"):exists() then
		europaTeams[11][2] = team_fromname(g_arena, "Europa Mu"):num()
	end
	if team_fromname(g_arena, "Europa Nu"):exists() then
		europaTeams[12][2] = team_fromname(g_arena, "Europa Nu"):num()
	end
	if team_fromname(g_arena, "Europa Omicron"):exists() then
		europaTeams[13][2] = team_fromname(g_arena, "Europa Omicron"):num()
	end
	if team_fromname(g_arena, "Europa Sigma"):exists() then
		europaTeams[14][2] = team_fromname(g_arena, "Europa Sigma"):num()
	end
	if team_fromname(g_arena, "Europa Theta"):exists() then
		europaTeams[15][2] = team_fromname(g_arena, "Europa Theta"):num()
	end
	-- Europa Private teams
	if team_fromname(g_arena, "Europa Rogue 1"):exists() then
		europaTeams[16][2] = team_fromname(g_arena, "Europa Rogue 1"):num()
	end
	if team_fromname(g_arena, "Europa Rogue 2"):exists() then
		europaTeams[17][2] = team_fromname(g_arena, "Europa Rogue 2"):num()
	end
	if team_fromname(g_arena, "Europa Rogue 3"):exists() then
		europaTeams[18][2] = team_fromname(g_arena, "Europa Rogue 3"):num()
	end
	if team_fromname(g_arena, "Europa Rogue 4"):exists() then
		europaTeams[19][2] = team_fromname(g_arena, "Europa Rogue 4"):num()
	end
	if team_fromname(g_arena, "Europa Rogue 5"):exists() then
		europaTeams[20][2] = team_fromname(g_arena, "Europa Rogue 5"):num()
	end
	if team_fromname(g_arena, "Europa Rogue 6"):exists() then
		europaTeams[21][2] = team_fromname(g_arena, "Europa Rogue 6"):num()
	end
	if team_fromname(g_arena, "Europa Rogue 7"):exists() then
		europaTeams[22][2] = team_fromname(g_arena, "Europa Rogue 7"):num()
	end
	if team_fromname(g_arena, "Europa Rogue 8"):exists() then
		europaTeams[23][2] = team_fromname(g_arena, "Europa Rogue 8"):num()
	end
	if team_fromname(g_arena, "Europa Rogue 9"):exists() then
		europaTeams[24][2] = team_fromname(g_arena, "Europa Rogue 9"):num()
	end
	if team_fromname(g_arena, "Europa Rogue 10"):exists() then
		europaTeams[25][2] = team_fromname(g_arena, "Europa Rogue 10"):num()
	end
	if team_fromname(g_arena, "Europa Rogue 11"):exists() then
		europaTeams[26][2] = team_fromname(g_arena, "Europa Rogue 11"):num()
	end
	if team_fromname(g_arena, "Europa Rogue 12"):exists() then
		europaTeams[27][2] = team_fromname(g_arena, "Europa Rogue 12"):num()
	end
	if team_fromname(g_arena, "Europa Rogue 13"):exists() then
		europaTeams[28][2] = team_fromname(g_arena, "Europa Rogue 13"):num()
	end
	if team_fromname(g_arena, "Europa Rogue 14"):exists() then
		europaTeams[29][2] = team_fromname(g_arena, "Europa Rogue 14"):num()
	end
	if team_fromname(g_arena, "Europa Rogue 15"):exists() then
		europaTeams[30][2] = team_fromname(g_arena, "Europa Rogue 15"):num()
	end
	
	
	for i, v in ipairs(titanTeams) do
		titanCount = titanCount + titanTeams[i][2]
	end
	
	for i, v in ipairs(europaTeams) do
		europaCount = europaCount + europaTeams[i][2]
	end
	
	if titanCount >= europaCount then 
		for i, v in ipairs(titanTeams) do
			if titanTeams[i][2] < 6 then
				player:unspec(titanTeams[i][1], "")
				break
			end
		end
	else
		for i, v in ipairs(europaTeams) do
			if europaTeams[i][2] < 6 then
				player:unspec(europaTeams[i][1], "")
				break
			end
		end
	end
end