-- Server messages and CTF OnPlayerScore function --

scores = {}
welcome_message_table = {}
persistant_message_table = {}
welcome_message_table[1] = "WELCOME.. DID YOU KNOW GAMESPY IS CLOSING ON MAY 31?"
welcome_message_table[2] = "BUT DON'T WORRY.. HALO ISN'T FINISHING"
welcome_message_table[3] = "YOU CAN STILL USE DIRECT IP TO JOIN OUR SERVERS"
welcome_message_table[4] = "NOTE DOWN THIS IP: 185.16.85.100:2301"
welcome_message_table[5] = "TYPE ip IN CHAT TO DISPLAY THE SERVER ADRESS AGAIN"
welcome_message_table[8] = "FOR MORE INFO VISIT: WWW.LTD2CLAN.NET"
welcome_message_table[9] = "ENTER YOUR TEXT HERE"
persistant_message_table[1] = "GAMESPY IS CLOSING DOWN ON MAY 31"
persistant_message_table[2] = "BUT DON'T WORRY.. HALO ISN'T FINISHING"
persistant_message_table[3] = "YOU CAN STILL USE DIRECT IP TO JOIN OUR SERVERS"
persistant_message_table[4] = "NOTE DOWN THIS IP: 185.16.85.100:2301"
persistant_message_table[5] = "TYPE ip IN CHAT TO DISPLAY THE SERVER ADRESS AGAIN"
persistant_message_table[8] = "FOR MORE INFO VISIT: WWW.LTD2CLAN.NET"
persistant_message_table[9] = "ENTER YOUR TEXT HERE"

function GetRequiredVersion() return 200 end

function OnScriptLoad(processId, game, persistent)
	gametype_game = readbyte(0x671340 + 0x30)
	team_play = readbyte(0x671340 + 0x34)
	messageTimer = registertimer(3*60000, "AutoMessage")
end

function OnGameEnd(stage)
	removetimer(messageTimer)
end

function AutoMessage(id, count)
	for i = 1, #persistant_message_table do
		if persistant_message_table[i] ~= "ENTER YOUR TEXT HERE" and persistant_message_table[i] ~= "" and persistant_message_table[i] ~= nil then
			say(persistant_message_table[i])
		end
	end
	return true
end

function OnPlayerJoin(player)
	scores[gethash(player)] = 0
	for i = 1, #welcome_message_table do
		if welcome_message_table[i] ~= "ENTER YOUR TEXT HERE" and welcome_message_table[i] ~= "" and welcome_message_table[i] ~= nil then
			privatesay(player, welcome_message_table[i])
		end
	end
end

function OnServerChat(player, type, message)
	local response = nil
	if player then
		if string.lower(message) == "ip" then
			local response = false
			privatesay(player, "185.16.85.100:2301")
			return response
		end
	end
	return response
end

function OnTeamChange(player, old_team, new_team, relevant)
	scores[gethash(player)] = 0
end

function OnPlayerScore(player, score, gametype)
	local name = getname(player)
	local team = getteam(player)
	privatesay(player, "Welldone !")
	if team == 1 then
		say(name .. " just scored, good job blue team")
	else
		say(name .. " just scored, good job red team")
	end
end


function OnClientUpdate(player)
	if gethash(player) then
		local score = getscore(player)
		if score > scores[gethash(player)] then
			OnPlayerScore(player, score, gametype_game)
			scores[gethash(player)] = score
		end
	end
end

function getscore(player)
	local score = 0
	local timed = false
	if gametype_game == 1 then
		score = readword(getplayer(player) + 0xC8)
	end
	if timed == true then
		score = math.floor(score / 30)
	end
	return score
end