death_messages/init.lua

--[[
death_messages - A Minetest mod which sends a chat message when a player dies.
Copyright (C) 2016  EvergreenTree

This program is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation, either version 3 of the License, or
(at your option) any later version.

This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU General Public License for more details.

You should have received a copy of the GNU General Public License
along with this program.  If not, see <http://www.gnu.org/licenses/>.
--]]
--Carbone death coords
--License of media (textures and sounds) From carbone subgame
--------------------------------------
--mods/default/sounds/player_death.ogg: from OpenArena – GNU GPL v2.
-----------------------------------------------------------------------------------------------
local title = "Death Messages"
local version = "0.1.5"
local mname = "death_messages"
-----------------------------------------------------------------------------------------------
dofile(minetest.get_modpath("death_messages").."/settings.txt")
-----------------------------------------------------------------------------------------------
local LANG = minetest.settings:get("language")
if not (LANG and (LANG ~= "")) then LANG = "en" end
-- check if stamina and/or hbhunger is used and death may occured by exhausting
local mstamina = minetest.get_modpath("stamina")
local mhbhunger = minetest.get_modpath("hbhunger")
local lstamina = 100
-- check if thirsty is used and death may occured by exhausting
local mthirsty = minetest.get_modpath("thirsty")
local lthirsty = 100
local msunburn = minetest.get_modpath("sunburn")
local lsunburn = 0

-- A table of quips for death messages.  The first item in each sub table is the
-- default message used when RANDOM_MESSAGES is disabled.
local messages = {}
local swas = { en = " was ", de = " war " }
local sby = { en = " by ", de = " von " }
local swith = {en = " with ", de = " mit " }

-- Default messages
-- Read messages per language file
for _,lan in ipairs({"en","de"}) do
--	local lan=tlan:gsub(".txt",""):gsub("./","")
	local infile=minetest.get_modpath("death_messages").."/"..lan..".txt"
	local file = io.open(infile, "r")
	for line in file:lines() do
		if line:sub(1,1) ~= "#" then -- lines starting with # are handled as comment
			local attribs = line:gsub("\r",""):split(",",true)
			if #attribs>1 then
				if messages[attribs[1]]==nil then
					messages[attribs[1]]={}
				end
				if messages[attribs[1]][lan] == nil then
					messages[attribs[1]][lan] = {}
				end
				table.insert(messages[attribs[1]][lan],attribs[2])
			end
		end
	end
end

local function get_message(mtype)
	if mtype==nil then mtype="default" end
	if RANDOM_MESSAGES then
		local lmessages=messages[mtype][LANG]
		return lmessages[math.random(1, #lmessages)]
	else
		return messages[1] -- 1 is the index for the non-random message
	end
end

local function get_int_attribute(player, key)
	local level = player:get_attribute(key)
	if level then
		return tonumber(level)
	else
		return nil
	end
end


local function guess_reason(player)
	local node = minetest.registered_nodes[minetest.get_node(player:getpos()).name]
	local pos = player:getpos()
	local reas_meas="default"
	local lstamina = 10
	local lthirsty = 10
	local lsunburn = 0
	local lhunger = 0
	pos.x = math.floor(pos.x + 0.5)
	pos.y = math.floor(pos.y + 0.5)
	pos.z = math.floor(pos.z + 0.5)
	local param2 = minetest.dir_to_facedir(player:get_look_dir())
	if mstamina ~= nil then
		lstamina = get_int_attribute(player, "stamina:level")
	end
	if mhbhunger ~= nil then
		lhunger = tonumber(hbhunger.hunger[player_name])
	end
	if mthirsty ~= nil then
		lthirsty = thirsty.get_thirst_factor(player)
	end
	if msunburn ~= nil then
		lsunburn = sunburn.get_sunburn(player)
	end
	
	-- Death by lava
	if node.name == "default:lava_source" then
		reas_meas="lava"
	elseif node.name == "default:lava_flowing"  then
		reas_meas="lava"
	-- Death by drowning
	elseif player:get_breath() == 0 then
		reas_meas="drown"
	-- Death by fire
	elseif node.name == "fire:basic_flame" then
		reas_meas="fire"
	-- Death by Toxic water
	elseif node.name == "es:toxic_water_source" then
		reas_meas="toxic"
	elseif node.name == "es:toxic_water_flowing" then
		reas_meas="toxic"
	elseif node.name == "groups:radioactive" then
		reas_meas="toxic"
	elseif lthirsty <= 1 then
		reas_meas="thirst"
	elseif lhunger <= 1 then
		reas_meas="hunger"
	elseif lstamina <= 1 then
		reas_meas="exhausted"
	elseif lsunburn >= 19 then
		reas_meas="sunburn"
	-- Death by something else
	else
		reas_meas="default"
	end
end

minetest.register_on_dieplayer(function(player,reason)
	local reas_meas="default"
	local player_name = player:get_player_name()
	if minetest.is_singleplayer() then
		player_name = "You"
	end
	local node = minetest.registered_nodes[minetest.get_node(player:getpos()).name]
	local pos = player:getpos()
	minetest.sound_play("player_death", {pos = pos, gain = 1})
	if reason == nil then
		reas_meas=guess_reason(player)
	else
		print(dump2(reason))
		if reason.type ~= nil then
			if (reason.type == "fall") or (reason.type == "punch") or (reason.type == "drawn") then
				reas_mean = reason.type
			else
				reas_mean=guess_reason(player)
			end
		else
			if (#reason > 1) then
				reas_meas="default"
			else
				reas_meas="default"
			end
		end
	end
	minetest.chat_send_all(string.char(0x1b).."(c@#00CED1)"..player_name..string.char(0x1b).."(c@#ff0000)"..get_message(reas_meas))
end)

--bigfoot code
-- bigfoot547's death messages
-- hacked by maikerumine

-- get tool/item when  hitting   get_name()  returns item name (e.g. "default:stone")
minetest.register_on_punchplayer(function(player, hitter)
	local pos = player:getpos()
	local death = {x=0, y=23, z=-1.5}
   if not (player or hitter) then
      return false
   end
   if not hitter:get_player_name() == "" then
      return false
   end
   minetest.after(0, function(holding)
      if player:get_hp() == 0 and hitter:get_player_name() ~= "" and holding == hitter:get_wielded_item() ~= "" then
	  
			local holding = hitter:get_wielded_item() 
				if holding:to_string() ~= "" then  
				local weap = holding:get_name(holding:get_name())
					if holding then  
					minetest.chat_send_all(
					string.char(0x1b).."(c@#00CED1)"..player:get_player_name()..
					string.char(0x1b).."(c@#ff0000)"..swas[LANG]..
					string.char(0x1b).."(c@#ff0000)"..get_message("pvp")..
					string.char(0x1b).."(c@#ff0000)"..sby[LANG]..
					string.char(0x1b).."(c@#00CED1)"..hitter:get_player_name()..
					string.char(0x1b).."(c@#ffffff)"..swith[LANG]..
					string.char(0x1b).."(c@#FF8C00)"..weap..
					string.char(0x1b).."(c@#00bbff)"..get_message("player"))  --TODO: make custom mob death messages
					
					end 	
				end

		if player=="" or hitter=="" then return end -- no killers/victims
        return true
	

		elseif hitter:get_player_name() == "" and player:get_hp() == 0 then
					minetest.chat_send_all(
					string.char(0x1b).."(c@#00CED1)"..player:get_player_name()..
					string.char(0x1b).."(c@#ff0000)"..swas[LANG]..
					string.char(0x1b).."(c@#ff0000)"..get_message("pvp")..
					string.char(0x1b).."(c@#ff0000)"..sby[LANG]..
					string.char(0x1b).."(c@#FF8C00)"..hitter:get_luaentity().name..  --too many mobs add to crash
					string.char(0x1b).."(c@#00bbff)"..get_message("mobs"))  --TODO: make custom mob death messages
					
		if player=="" or hitter=="" or hitter=="*"  then return end -- no mob killers/victims
		else
		
        return false
      end
	   
   end)
   
end)

-----------------------------------------------------------------------------------------------
print("[Mod] "..title.." ["..version.."] ["..mname.."] ["..LANG.."] Loaded...")
-----------------------------------------------------------------------------------------------