-- Player Indices

hashes = {}  -- Keeps track of players who have joined this round

function GetRequiredVersion()

	return 10058
end

function OnScriptLoad(process)


end

function OnScriptUnload()

	table.save(players, "players.data")
	table.save(indices, "indices.data")
end

function OnNewGame(map)


end

function OnGameEnd(mode)


end

function OnServerChat(player, chattype, message)

	return 1
end

function OnServerCommand(admin, command)

	local cmd, args = cmdsplit(command)
	
	-- Players Commands --
	
	if cmd == "sv_players" then
	-- Modified version of sv_players which prints players' indices as well as their IDs and names
	
		hprintf("ID   Index   Name")
		for i = 0,15 do
			local hash = gethash(i)
			if hash then
				hprintf(resolveplayer(i) .. "    " .. players[hash].index .. "     " .. getname(i))
			end
		end
		
		return 0
	
	elseif cmd == "sv_players_recent" then
	-- Prints indices and names of all players who have joined the server during this game (minus those who are still currently in it)
		
		hprintf("Index   Name")
		for k,v in pairs(hashes) do
			local found
			for i = 0,15 do
				if gethash(i) == k then
					found = true
					break
				end
			end
			
			if not found then
				hprintf(players[k].index .. "     " .. v)
			end
		end
		
		return 0
	
	elseif cmd == "sv_players_search" then
	-- Prints a list of players' indices and names matching the name search specified
	
		local search = args[1]
		local matches = {}
		-- Loop through players table
		for k,v in pairs(players) do
			-- Find matches and organize by priority; more common aliases have higher priority
			for name,v in pairs(v.alias) do
				local val = string.find(string.lower(name), string.lower(search))
				if val then
					table.insert(matches, {["priority"] = val + v, ["hash"] = k})
				end
			end
		end
		
		-- Sort matches table by priority value
		table.sort(matches, function(a,b) return matches[a].priority > matches[b].priority end)
		
		if #matches > 0 then
			hprintf("Players matching \"" .. search .. "\":")
			hprintf("Index   Name")
			-- Print up to 20 results
			local len = math.min(#matches, 20)
			for i = 1,len do
				hprintf(players[matches[i].hash].index .. "     " .. players[matches[i].hash].name)
			end
		end
		
		return 0
	
	-- Ban Commands

	elseif cmd == "sv_ban" then
	-- Modified version of sv_ban allowing for Ban on Sight (banning a player via their Index while they aren't in the server puts them on the BOS list).  Also added a "name" parameter for those players who should be banned on sight who haven't yet joined the server with this script running (this parameter will be ignored in any other case).
	
		local id = args[1]
		local duration = args[2] or "-1"
		local name = args[3]
		
		if not id then
			hprintf("Syntax: sv_ban <Player ID, Hash or Index> <opt: Duration> <opt: BOS Name (for players yet to join server)>")
			return 0
		end
		
		for i = 0,15 do
			if getname(i) == id then
				return 1
			end
		end
		
		if string.len(id) < 3 then
			return 1
		end
		
		if indices[string.upper(id)] then
			local hash = indices[string.upper(id)]
			local player = hashtoplayer(hash)
			if player then
				if duration == "-1" then
					svcmd("sv_ban " .. resolveplayer(player))
				else
					svcmd("sv_ban " .. resolveplayer(player) .. " " .. duration)
				end
			else
				players[hash].bos = duration
				hprintf((hashes[hash] or players[hash].name) .. " will be banned on sight.")
			end
			
			return 0
		end
		
		if players[id] then
			players[id].bos = duration
			hprintf((hashes[id] or players[id].name) .. " will be banned on sight.")
		else
			name = name or "???"
			players[id] = {}
			players[id].bos = duration
			players[id].name = name
		end
		
	elseif cmd == "sv_unban" then
	-- Modified version of sv_unban which allows the ability to unban from a player's Ban ID, Hash, or Index and takes the player off of the Ban on Sight list (even if they haven't been banned yet).
		
		local id = args[1]
		
		if not id then
			hprintf("Syntax: sv_unban <Ban ID, Hash or Index>")
			return 0
		end
		
		local hash
		
		local dir = getprofilepath()
		local banned = io.string(dir .. "\\banned.txt")
		local lines = string.split(banned, "\n")
		
		for k,v in ipairs(lines) do
			local split = string.split(v, ",")
			local ban_id = split[1]
			local ban_hash = split[3]
			if tonumber(id) == tonumber(ban_id) then
				players[ban_hash].bos = nil
				return 1
			end
		end
		
		if indices[string.upper(id)] then
			hash = indices[string.upper(id)]
		elseif players[id] then
			hash = id
		end
		
		if hash then
			players[hash].bos = nil
			hprintf((hashes[id] or players[hash].name) .. " has been taken off of the Ban on Sight list.")
			
			for k,v in ipairs(lines) do
				local split = string.split(v, ",")
				local ban_id = split[1]
				local ban_hash = split[3]
				if hash == ban_hash then
					svcmd("sv_unban " .. ban_id)
					return 0
				end
			end
		else
			hprintf("Invalid Player.")
		end
		
	elseif cmd == "sv_bos_list" then
	-- Lists all players on the Ban on Sight list
		
		hprintf("Players to be banned on sight (-1 duration specifies an indefinite ban):")
		
		for k,v in pairs(players) do
			if players[k].bos then
				hprintf(players[k].index .. "  " .. (hashes[k] or players[k].name) .. "  " .. players[k].bos)
			end
		end
		
		return 0
		
	-- Alias
	
	elseif cmd == "sv_alias" then
	-- Modified version of sv_alias which allows the ability to view a player's aliases by their Player ID, Hash or Index.  This does not include aliases previously saved by Phasor; the new version of Phasor will hopefully have a way to access the alias database via scripts.  Once that happens, I'll be able to add the aliases Phasor has stored into this command as well.
		
		local id = args[1]
		
		if not id then
			hprintf("Syntax: sv_alias <Player ID, Hash or Index>")
			return 0
		end
		
		local hash
		
		if string.len(id) < 3 then
			local player = rresolveplayer(tonumber(id))
			hash = gethash(player)
		elseif indices[string.upper(id)] then
			hash = indices[string.upper(id)]
		elseif players[id] then
			hash = id
		end
		
		if hash then
			local aliases = {}
			for k,v in pairs(players[hash].alias) do
				table.insert(aliases, k)
			end
			
			table.sort(aliases, function(a,b) return players[hash].alias[a] > players[hash].alias[b] end)
			
			for k,v in ipairs(aliases) do
				aliases[k] = "[" .. players[hash].alias[v] .. "]: " .. aliases[k]
			end
			
			local str = formatlist(aliases, "   ", 4)
			
			hprintf("Aliases for player " .. players[hash].index .. " sorted by most common alias:")
			hprintf(str)
			return 0
		else
			hprintf("Invalid Player.")
			return 0
		end

	-- Admin Commands
	
	elseif cmd == "sv_admin_add" then
	-- Modified version of sv_admin_add which allows the ability to add admins with their Player ID, Hash or Index.  sv_admin_del does not need Index support because you can pull up the list of admins with sv_admin_list.
		
		local id = args[1]
		local name = args[2]
		local level = args[3]
		
		if not id then
			hprintf("Syntax: sv_admin_add <Player ID, Hash or Index> <Authentication Name> <Level>")
			return 0
		end
		
		local hash
		
		if string.len(id) < 3 then
			local player = rresolveplayer(tonumber(id))
			hash = gethash(player)
		elseif indices[string.upper(id)] then
			hash = indices[string.upper(id)]
		elseif players[id] then
			return 1
		else
			players[id] = {}
			players[id].name = name or "???"
			hash = id
		end
		
		if hash then
			if name and level then
				svcmd("sv_admin_add " .. hash .. " " .. name .. " " .. level)
			elseif name and not level then
				svcmd("sv_admin_add " .. hash .. " " .. name)
			elseif not name and not level then
				svcmd("sv_admin_add " .. hash)
			end
		end
		
		return 0
		
	elseif cmd == "sv_commands" then
		
		registertimer(1, "DelayPrint")
	end
	
	return 1
end

function DelayPrint(id, count)

	hprintf("sv_players_recent       sv_players_search       sv_bos_list")
	return 0
end

function OnTeamDecision(team)

	return team
end

function OnPlayerJoin(player, team)

	local hash = gethash(player)
	updatePlayer(hash)
	hashes[hash] = getname(player)
end

function OnPlayerLeave(player, team)


end

function OnPlayerKill(killer, victim, mode)


end

function OnKillMultiplier(player, multiplier)


end

function OnPlayerSpawn(player, m_objId)


end

function OnPlayerSpawnEnd(player, m_objId)

	
end

function OnTeamChange(relevant, player, cur_team, dest_team)

	return 1
end

function OnObjectCreation(m_objId, player, tagName)


end

function OnObjectInteraction(player, m_objId, tagType, tagName)
	
	return 1
end

function OnWeaponAssignment(player, m_objId, slot, tagName)
	
	return 0
end

function OnWeaponReload(player, m_weapId)

	return 1
end

function OnDamageLookup(receiver, causer, tagData, tagName)


end

function OnVehicleEntry(relevant, player, m_vehicleId, tagName, seat)

	return 1
end

function OnVehicleEject(player, forced)

	return 1
end

function OnClientUpdate(player, m_objId)


end

math.inf = 1 / 0

function table.save(t, filename)

	local dir = getprofilepath()
	local file = io.open(dir .. "\\data\\" .. filename, "w")
	local spaces = 0

	local function tab()

		local str = ""
		for i = 1,spaces do
			str = str .. " "
		end

		return str
	end

	local function format(t)

		spaces = spaces + 4
		local str = "{ "

		for k,v in pairs(t) do
			-- Key datatypes
			if type(k) == "string" then
				k = string.format("%q", k)
			end

			-- Value datatypes
			if type(v) == "string" then
				v = string.format("%q", v)
			elseif v == math.inf then
				v = "1 / 0"
			end

			if type(v) == "table" then
				if table.len(v) > 0 then
					str = str .. "\n" .. tab() .. "[" .. k .. "] = " .. format(v) .. ","
				else
					str = str .. "\n" .. tab() .. "[" .. k .. "] = {},"
				end
			else
				str = str .. "\n" .. tab() .. "[" .. k .. "] = " .. tostring(v) .. ","
			end
		end

		spaces = spaces - 4

		return string.sub(str, 1, string.len(str) - 1) .. "\n" .. tab() .. "}"
	end

	file:write("return " .. format(t))
	file:close()
end

function table.load(filename)

	local dir = getprofilepath()
	local file = loadfile(dir .. "\\data\\" .. filename)
	if file then
		return file()
	end
	
	return {}
end

function table.len(t)

	local count = 0
	for k,v in pairs(t) do
		count = count + 1
	end
	
	return count
end

function table.max(t)

	local key
	local max = -math.inf
	for k,v in pairs(t) do
		v = tonumber(v)
		if v then
			if v > max then
				key = k
				max = v
			end
		end
	end
	
	return key, max
end

players = table.load("players.data")
indices = table.load("indices.data")

function hashtoplayer(hash)

	for i = 0,15 do
		if gethash(i) then return i end
	end
end

function updatePlayer(hash, name)

	local player = hashtoplayer(hash)
	local name = name or getname(player)
	
	players[hash] = players[hash] or {}
	-- Name
	players[hash].alias = players[hash].alias or {}
	players[hash].alias[name] = (players[hash].alias[name] or 0) + 1
	players[hash].name = players[hash].name or table.max(players[hash].alias)
	-- Index
	players[hash].index = players[hash].index or newIndex(hash)
	
	-- Check if the player should be banned on sight
	if players[hash].bos then
		if players[hash].bos == "-1" then
			svcmd("sv_ban " .. resolveplayer(player))
		else
			svcmd("sv_ban " .. resolveplayer(player) .. " " .. players[hash].bos)
		end
		
		players[hash].bos = nil
	end
end

function newIndex(hash)

	indices.unique = (indices.unique or 0) + 1
	local index
	repeat
		index = convertbase((indices.next or 0), 36)
		while string.len(index) < 3 do
			index = "0" .. index
		end
		indices.next = (indices.next or 0) + 1
	until validIndex(index)
	
	indices[index] = hash
	return index
end

function validIndex(entry)

	local invalid = {"red", "blue", "all", "me"}
	for _,v in ipairs(invalid) do
		if string.lower(entry) == v then
			return false
		end
	end
	
	return true
end

function convertbase(input, base)

	if not base or base == 10 then return tostring(input) end

	local digits = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
	local answer = {}

	repeat
		local digit = (input % base) + 1
		input = math.floor(input / base)
		table.insert(answer, 1, string.sub(digits, digit, digit))
	until input == 0

	return table.concat(answer, "")
end

function string.split(str, ...)

	for k,v in ipairs(arg) do
		if v == "" then
			local subs = {}
			for i = 1,string.len(str) do
				table.insert(subs, string.sub(str, i, i))
			end

			return subs
		end
	end

	local subs = {}
	local sub = ""
	for i = 1,string.len(str) do
		local bool
		local char = string.sub(str, i, i)
		for k,v in ipairs(arg) do
			local delim = string.sub(str, i - (string.len(v) - 1), i)
			if v == delim then
				bool = true
				sub = string.sub(sub, 1, string.len(sub) - (string.len(v) - 1))
				if sub ~= "" then
					table.insert(subs, sub)
				end
				sub = ""
				break
			end
		end

		if not bool then
			sub = sub .. char
		end
		
		if i == string.len(str) then
			table.insert(subs, sub)
		end
	end

	return subs
end

function cmdsplit(str)

	local subs = {}
	local sub = ""
	local ignore_quote, inquote, endquote
	for i = 1,string.len(str) do
		local bool
		local char = string.sub(str, i, i)
		if char == " " then
			if (inquote and endquote) or (not inquote and not endquote) then
				bool = true
			end
		elseif char == "\\" then
			ignore_quote = true
		elseif char == "\"" then
			if not ignore_quote then
				if not inquote then
					inquote = true
				else
					endquote = true
				end
			end
		end
		
		if char ~= "\\" then
			ignore_quote = false
		end
		
		if bool then
			if inquote and endquote then
				sub = string.sub(sub, 2, string.len(sub) - 1)
			end
			
			if sub ~= "" then
				table.insert(subs, sub)
			end
			sub = ""
			inquote = false
			endquote = false
		else
			sub = sub .. char
		end
		
		if i == string.len(str) then
			if string.sub(sub, 1, 1) == "\"" and string.sub(sub, string.len(sub), string.len(sub)) == "\"" then
				sub = string.sub(sub, 2, string.len(sub) - 1)
			end
			table.insert(subs, sub)
		end
	end
	
	local cmd = subs[1]
	local args = subs
	table.remove(args, 1)
	
	return cmd, args
end

function formatlist(t, delim, length)

	local str = ""
	for k,v in ipairs(t) do
		if k % length == 0 then
			str = str .. v .. "\n"
		else
			str = str .. v .. delim
		end
	end
	
	return str
end

function io.string(filename)

	local str
	local file = io.open(filename, "a+")
	if file then
		str = file:read("*all")
	end
	
	file:close()
	return str
end