--[[ ###    Death-Kill Messages V4    ###]]--
--[[ ###   by H® Shaft, AelitePrime   ###]]-- 
--[[ ###        for Phasor v2         ###]]--

-- Updated better code. Added additional string generators for melee kills.

last_damage = {}
team_change = {}	
	
function GetRequiredVersion()
	return 200
end

function OnScriptLoad(process, game, persistent)
	for i=0,15 do
		if getplayer(i) then
			team_change[i] = false
		end	
	end
	last_damage = {}
	team_change = {}	
end

function OnNewGame(map)
	for i=0,15 do
		if getplayer(i) then
			team_change[i] = false
		end	
	end
	last_damage = {}
	team_change = {}
end	

function OnGameEnd(stage)
	if stage == 1 then
		if announce then 
			removetimer(announce)
			announce = nil
		end
	end
end	

function OnPlayerJoin(player)
	if getplayer(player) then
		team_change[player] = false
	end	
end

function OnDamageApplication(receiving, causing, tagid, hit, backtap)
	if receiving then
		local r_object = getobject(receiving)
		if r_object then
			local receiver = objectaddrtoplayer(r_object)
			if receiver then
				local r_hash = gethash(receiver)
				local tagname,tagtype = gettaginfo(tagid)
				last_damage[r_hash] = tagname
			end
		end
	end
end

function OnPlayerSpawnEnd(player, m_objectId)
	if getplayer(player) then
		local hash = gethash(player)
		last_damage[hash] = nil
		team_change[player] = false
	end	
end

function OnPlayerKill(killer, victim, mode)
	local response = false

	if mode == 0 then -- player was killed by the server
		response = false
		
		local killedmsg = generatekilltype(killslang)
		if getplayer(victim) then
			say(getname(victim) .. " was killed by the server script or an admin. ")
		end	
		
	elseif mode == 1 then -- player was killed by falling or team-change
		response = false
		
		if getplayer(victim) then
			local vhash = gethash(victim)
			if not team_change[victim] then
				response = false
				if last_damage[vhash] == "globals\\distance" or last_damage[vhash] == "globals\\falling" then 
					say(getname(victim) .. " fell and died. ")
				end	
			else
				response = false
				say(getname(victim) .. " changed teams.")
				team_change[victim] = false		
			end	
		end	
		
	elseif mode == 2 then -- player was killed by the guardians
		response = false
		
		if getplayer(victim) then
			say(getname(victim) .. " was killed by the guardians. ")
		end	
		
	elseif mode == 3 then -- player was killed by vehicle
		response = false
		
		if getplayer(victim) then
			local vhash = gethash(victim)
			say(getname(victim) .. " was killed by a vehicle. ")
		end	
		
	elseif mode == 4 then -- player was killed by another player, killer is not always valid, victim is always valid
		response = false
		
		local killedmsg = generatekilltype(killslang)
		if getplayer(victim) then
			local vhash = gethash(victim)
			if last_damage[vhash] then
				if getplayer(killer) ~= nil then
					if string.find(last_damage[vhash], "melee") then			
						say(getname(killer) .. " " .. generatehitslang(hit) .. " " .. getname(victim) .. " upside the " .. generateheadslang(head) .. "!")					
					elseif last_damage[vhash] == "globals\\distance" or last_damage[vhash] == "globals\\falling" then
						say(getname(victim) .. " fell and died. ")
					elseif last_damage[vhash] == "globals\\vehicle_collision" then
						say(getname(killer) .. " ran over " .. getname(victim)) 					
					elseif string.find(last_damage[vhash], "banshee") then
						say(getname(killer) .. " " .. killedmsg .. " " .. getname(victim) .. " with a banshee. ")
					elseif last_damage[vhash] == "vehicles\\c gun turret\\mp bolt" then
						say(getname(killer) .. " " .. killedmsg .. " " .. getname(victim) .. " with the covenant turret. ")
					elseif last_damage[vhash] == "vehicles\\ghost\\ghost bolt" then
						say(getname(killer) .. " " .. killedmsg .. " " .. getname(victim) .. " with the ghost plasma guns. ")
					elseif last_damage[vhash] == "vehicles\\scorpion\\bullet" then
						say(getname(killer) .. " " .. killedmsg .. " " .. getname(victim) .. " with the scorpion guns. ")
					elseif last_damage[vhash] == "vehicles\\scorpion\\shell explosion" then
						say(getname(killer) .. " " .. killedmsg .. " " .. getname(victim) .. " with the scorpion cannon. ")
					elseif last_damage[vhash] == "vehicles\\warthog\\bullet" then
						say(getname(killer) .. " " .. killedmsg .. " " .. getname(victim) .. " with a warthog chain-gun. ")
					elseif last_damage[vhash] == "weapons\\assault rifle\\bullet" then
						say(getname(killer) .. " " .. killedmsg .. " " .. getname(victim) .. " with an assault rifle. ")			
					elseif last_damage[vhash] == "weapons\\flamethrower\\burning" or last_damage[vhash] == "weapons\\flamethrower\\explosion" or last_damage[vhash] == "weapons\\flamethrower\\impact damage" then
						say(getname(killer) .. " " .. killedmsg .. " " .. getname(victim) .. " with a flame-thrower. ")
					elseif last_damage[vhash] == "weapons\\frag grenade\\explosion" then
						say(getname(killer) .. " " .. killedmsg .. " " .. getname(victim) .. " with a frag grenade. ")					
					elseif last_damage[vhash] == "weapons\\needler\\detonation damage" or last_damage[vhash] == "weapons\\needler\\explosion" or last_damage[vhash] == "weapons\\needler\\impact damage" then
						say(getname(killer) .. " " .. killedmsg .. " " .. getname(victim) .. " with a needler. ")					
					elseif last_damage[vhash] == "weapons\\pistol\\bullet" then
						say(getname(killer) .. " " .. killedmsg .. " " .. getname(victim) .. " with a pistol. ")	
					elseif last_damage[vhash] == "weapons\\plasma grenade\\attached" or last_damage[vhash] == "weapons\\plasma grenade\\explosion" then
						say(getname(killer) .. " " .. killedmsg .. " " .. getname(victim) .. " with a plasma grenade. ")
					elseif last_damage[vhash] == "weapons\\plasma pistol\\bolt" or last_damage[vhash] == "weapons\\plasma rifle\\charged bolt" then
						say(getname(killer) .. " " .. killedmsg .. " " .. getname(victim) .. " with a plasma pistol. ")
					elseif last_damage[vhash] == "weapons\\plasma rifle\\bolt" then
						say(getname(killer) .. " " .. killedmsg .. " " .. getname(victim) .. " with a plasma rifle. ")	
					elseif last_damage[vhash] == "weapons\\plasma_cannon\\effects\\plasma_cannon_explosion" or last_damage[vhash] == "weapons\\plasma_cannon\\impact damage" then
						say(getname(killer) .. " " .. killedmsg .. " " .. getname(victim) .. " with a fuel-rod gun. ")	
					elseif last_damage[vhash] == "weapons\\rocket launcher\\explosion" then
						if isinvehicle(killer) then
							say(getname(killer) .. " " .. killedmsg .. " " .. getname(victim) .. " with a warthog rocket. ")
						else
							say(getname(killer) .. " " .. killedmsg .. " " .. getname(victim) .. " with a rocket launcher. ")
						end
					elseif last_damage[vhash] == "weapons\\shotgun\\pellet" then
						say(getname(killer) .. " " .. killedmsg .. " " .. getname(victim) .. " with a shotgun. ")	
					elseif last_damage[vhash] == "weapons\\sniper rifle\\sniper bullet" then
						say(getname(killer) .. " " .. killedmsg .. " " .. getname(victim) .. " with a sniper rifle. ")
					end
				end	
			end
		end	
		
	elseif mode == 5 then -- player was killed by teammate
		response = true
		
		if getplayer(killer) then
			privatesay(killer, " -- DON'T BETRAY! --")
		end
		
	elseif mode == 6 then --suicides
		response = false
		
		if getplayer(victim) then
			local vhash = gethash(victim)
			if last_damage[vhash] then	
				if last_damage[vhash] == "weapons\\frag grenade\\explosion"  or last_damage[vhash] == "weapons\\plasma grenade\\attached" or last_damage[vhash] == "weapons\\plasma grenade\\explosion" then
					say(getname(victim) .. " desperately attempted to replace the grenade pin. ")	
				end
			end
			say(getname(victim) .. " committed suicide.")
		end
		
	end
	
	return response
end	

function OnTeamChange(player, old_team, new_team, relevant)
	if getplayer(player) then
		team_change[player] = true
	end	
	return nil
end

function generatekilltype(killslang)
	local killcount = #killtype
	local rand_type = getrandomnumber(1, killcount+1)
	local kill_type = string.format("%s",  killtype[rand_type])
	if kill_type then
		return kill_type
	else
		return "killed"
	end
end	

function generateheadslang(head)
	local headcount = #headslang
	local rand_type = getrandomnumber(1, headcount+1)
	local head_type = string.format("%s",  headslang[rand_type])
	if head_type then
		return head_type
	else
		return "head"
	end
end	

function generatehitslang(hit)
	local hitcount = #hitslang
	local rand_type = getrandomnumber(1, hitcount+1)
	local hit_type = string.format("%s",  hitslang[rand_type])
	if hit_type then
		return hit_type
	else
		return "hit"
	end
end

killtype = {"destroyed", "fubarred", "disemboweled", "violated", "eviscerated", "assassinated", "slaughtered", "exterminated", "murdered", "mutilated", 
"eradicated", "executed", "snuffed", "eliminated", "liquidated", "dominated", "castrated", "dirt-napped", "ghosted", "hosed", "smeared", "flatlined", "vaporized", "de-boned"}
headslang = {"noggin", "melon", "head", "dome", "noodle", "brain-pan", "cranium", "skull", "bean"}
hitslang = {"smacked", "punched", "whacked", "clocked", "thumped", "slugged", "cuffed", "walloped", "throttled", "pimp-slapped", "hammered", "bopped", "beat", "slapped"}

-- Created by H® Shaft thank you to Oxide, AelitePrime, Nugget & Wizard. 
-- Visit http://halorace.org/forum/index.php?topic=514.0 or
-- Visit http://pastebin.com/u/HR_Shaft for more phasor scripts