--[[Dodgeball/League administration script]]--

-- Player stat settings
-- 0 - Kills
-- 1 - Deaths
-- 2 - items picked up
-- 3 - current consecutive kills
-- 4 - vehicles destroyed
-- 5 - 
-- 6 - 
-- 7 -
-- 8 - 
-- 9 -- highest consecutive kills
--- [[ Global Variables ]] ----------
 
g_arena = nil      -- The global arena class, to avoid having to pass it around functions
g_bGameRunning = false  -- Is the game running?
g_statsEvent = 0 -- holds the event for displaying stats when the game ends
g_gameTime = nil -- holds the game time
g_referee = { }
table.insert(g_referee, "HellSpawn")


--- [[ Functions ]] -------

-- when the arena is created, it runs this
function Arena_OnCreate(arena)        
    g_arena = arena        
    math.randomseed(os.time())
end

-- when someones kill someone else, it displays this message to the victim
function Player_OnDeath(killer, victim)
	local pos = victim:coords()
	local ballNum = victim:inventory_find("Ball")
	if (victim:inventory_find("Catcher") == 1) then
	local pos = victim:coords()
	victim:resurrectWarp(pos.x, pos.y, 1)
	victim:setCrown(true, 5000)
	killer:warp(1044, 1003, 1)
	killer:setCrown(false, 0)
	killer:message("You are out! " .. victim.m_name .. " caught your ball!")
	end
	victim:message("You got out by " .. killer.m_name .. " Now you must wait until the next game begins!")
	IncreaseKill(killer)
	IncreaseDeath(victim)
	victim:inventory_modify("Ball", -ballNum)
	g_arena:item_create("Ball", ballNum, pos.x, pos.y)
end

-- when a player enters the zone, it gives them this message
function Player_OnJoin(player)
    player:message("&Welcome to Dodgeball " .. player.m_name .. "!")
	player:inventory_modify("Ball", -2)
end

function Arena_OnGameEnd()
	local blah = 0
	g_statsEvent = event_create(DisplayStats, 1000, g_arena)
	event_flush(g_arena)
end

function Arena_OnGameStart()
	g_bGameRunning = true
	g_gameTime = os.time()
	event_create(InitSpawn, 10000, g_arena)
	for x = 1, g_arena:num() do
		local player = g_arena:get(x)
		WipePlayerStats(player)
		player:inventory_modify("Ball", -2)
	end
end
function WipePlayerStats(player)
	player:setStat(0,0)
	player:setStat(1,0)
	player:setStat(2,0) 
	player:setStat(3,0)
	player:setStat(4,0)
	player:setStat(5,0)
	player:setStat(6,0)
	player:setStat(7,0)
	player:setStat(8,0)
	player:setStat(9,0)
end

function DisplayStats(ev)
	--g_bGameRunning = false
	
	local bestKiller = ""
	local bestVictim = ""
	local bestItem = ""
	local bestCon = ""
	local mostKills = 0
	local mostDeaths = 0
	local mostItems = 0
	local mostCon = 0
	
	for x = 1, g_arena:num() do   --This gets the person with most kills
		local player = g_arena:get(x)
		if (player:getStat(0) > mostKills) then
			mostKills = player:getStat(0)
			bestKiller = player.m_name
		elseif (player:getStat(0) == mostKills) then
			bestKiller = ("" .. bestKiller .. ", " .. player.m_name .. "")
		end	
	end
	
	-------------------------------------------------------------------------
	g_arena:message("&Endgame Breakdown")
	-- GAME TIME STATISTICS --
	if (g_gameTime ~= nil) then
		local diff = (os.time() - g_gameTime)
		local minutes = math.floor(diff / 60)
		if (minutes == 1) then
			local seconds = (diff-60*math.floor(diff/60))
			g_arena:message("Total Game Time: " .. minutes .. " minute, " .. seconds .. " seconds")
		elseif (minutes > 1) then
			local seconds = (diff-60*math.floor(diff/60))
			g_arena:message("Total Game Time: " .. minutes .. " minutes, " .. seconds .. " seconds")
		else
			g_arena:message("Total Game Time: " .. diff .. " seconds")
		end
	else
		g_arena:message("The Game is not running!")
	end
	------------------------------------------------------------------------
	
	
	------------------------------------------------------------------------
	-- PLAYER STATISTICS --
	if (mostKills == 0) then
		g_arena:message("!_    No one got any kills!")
	else
		g_arena:message("!_    Most Kills: " .. bestKiller .. "(" .. mostKills .. ")")
	end
	------------------------------------------------------------------------
	for x = 1, g_arena:num() do   --This gets the person with most kills
	local player = g_arena:get(x)
	local playerKills = 0
	playerKills = player:getStat(0)
	player:message("Personal Stats")
	if (mostKills == 0) then
		player:message("!_    You got zero kills!")
	else
		player:message("!_    Kills:(" .. playerKills .. ")")
			end
		end
	end	

function IncreaseKill(killer)
	killer:setStat(0,(killer:getStat(0) + 1)) -- increase kills
end

function IncreaseDeath(victim)
	victim:setStat(1,(victim:getStat(1) + 1)) -- increase deaths
end


function Msg_OnCommand(player, command, payload, recipient, msg_type)
	if (command == "*setteam") then
		local target = g_arena:getPlayer(recipient)
		local found = false
		for x = 1, table.getn(g_referee) do
			if (g_referee[x] == player.m_name) then -- FOUND HIM!
				found = true
			end
		end
		
		if (found == true) then
			if (target:exists() == true) then
				target:team_change("" .. payload .. "","")
			else
				player:message("Error: You did not correctly specify a player to team change")
			end
		else
			player:message("Error: You're not in the referee table!")	
		end
		
	
	elseif (command == "*referee") then
		local target = g_arena:getPlayer(payload)
		-- local target = g_arena:getPlayer(recipient) -- You don't mean this?
		if (target:exists() == true) then
			if (player == "HellSpawn") then
			table.insert(g_referee, target.m_name)
			else
			end
			player:message("You're not the league admin!")
		else
			player:message("Error: That player does not exist!")
		end
	end
end