initial commit

depends.txt

@@ -0,0 +1,3 @@
+default
+playeranim?
+playertag?

init.lua

@@ -0,0 +1,234 @@
+-- How long in seconds until a battle ends (times since last hit)
+local battletimeout = 15
+local armor_installed = minetest.get_modpath("3d_armor")
+-- Fight start message
+local FightMessage = "You entered a Fight!"
+
+-- Fight end message
+local EndFightMessage = "The Fight is Over!"
+
+local playerinpvp = {}
+
+minetest.register_privilege("combatlog", {
+	description = "Used to kill a combat logger when he joins.",
+	give_to_singleplayer= false,
+})
+
+local incombat_hud = {}
+
+local function setplayerpvp(playername)
+	if not playerinpvp[playername] then
+		playerinpvp[playername] = 0
+		local player = minetest.get_player_by_name(playername)
+		incombat_hud[playername] = player:hud_add({
+			hud_elem_type = "image",
+			position  = {x = 1, y = .75},
+			offset    = {x = -220, y = 0},
+			text      = "incombat.png",
+			scale     = { x = 10, y = 10},
+			alignment = { x = 1, y = 0 },
+		})
+		--minetest.chat_send_player(playername, FightMessage)
+	end
+end
+
+local function resettime(playername)
+	if playerinpvp[playername] ~= nil then
+		playerinpvp[playername] = 0
+	end
+end
+
+local function endtimer(playername)
+	if playerinpvp[playername] ~= nil then
+		local player = minetest.get_player_by_name(playername)
+		if player then
+			player:hud_remove(incombat_hud[playername])
+		end
+		--minetest.chat_send_player(playername, EndFightMessage)
+		playerinpvp[playername] = nil
+	end
+end
+local drop = function(pos, itemstack)
+	local obj = minetest.add_item(pos, itemstack:take_item(itemstack:get_count()))
+	if obj then
+		obj:setvelocity({
+			x = math.random(-10, 10) / 9,
+			y = 5,
+			z = math.random(-10, 10) / 9,
+		})
+	end
+end
+local function dropinventory(invref, pos)
+	for i = 1, invref:get_size("main") do
+		drop(pos, invref:get_stack("main", i))
+	end
+end
+
+local function killcombatlogger(player)
+	local player_inv = player:get_inventory()
+	local armor_inv = minetest.get_inventory({type="detached", name=player:get_player_name().."_armor"})
+	player_inv:set_list("main", {})
+	player_inv:set_list("craft", {})
+	if armor_installed then
+		player_inv:set_list("armor", {})
+		armor_inv:set_list("armor", {})
+		armor:save_armor_inventory(player)
+	end
+	player:set_hp(0)
+	local privs = minetest.get_player_privs(player:get_player_name())
+	privs.combatlog = nil
+	privs.interact = true
+	minetest.set_player_privs(player:get_player_name(), privs)
+	minetest.chat_send_player(player:get_player_name(), "You died after combat logging.")
+	
+end
+local ghost_player = {}
+local function on_combatlog(player, playername)
+	--minetest.chat_send_all("*** "..tostring(playername).." Combat Logged!")
+	local skin = "character.png"
+	local armortex = ""
+	if armor_installed then
+		skin = armor.textures[playername].skin or "character.png"
+		armortex = armor.textures[playername].armor
+	end
+	local pos = player:getpos()
+	pos.y = pos.y + 1
+	local obj = minetest.add_entity(pos, "anticombatlog:ghost")
+	ghost_player[playername] = obj
+	if obj then
+		obj:set_armor_groups(player:get_armor_groups())
+		obj:set_properties({nametag = playername})
+		obj:set_hp(player:get_hp())
+		obj:set_wielded_item(player:get_wielded_item())
+		obj:setyaw(player:get_look_horizontal())
+		if armor_installed then
+			obj:set_properties({textures = {skin.."^"..armortex}})
+		else
+			obj:set_properties({textures = {skin}})
+		end
+	end
+	local ghost_inv = minetest.create_detached_inventory(playername.."_ghost", {})
+	local player_inv = player:get_inventory()
+	local armor_inv = minetest.get_inventory({type="detached", name=playername.."_armor"})
+	for i = 1, player_inv:get_size("main") do
+		ghost_inv:set_size("main", (ghost_inv:get_size("main")+1))
+		ghost_inv:add_item("main", player_inv:get_stack("main", i))
+	end
+	for i = 1, player_inv:get_size("craft") do
+		ghost_inv:set_size("main", (ghost_inv:get_size("main")+1))
+		ghost_inv:add_item("main", player_inv:get_stack("craft", i))
+	end
+	if armor_installed and armor_inv then
+		for i = 1, armor_inv:get_size("armor") do
+			ghost_inv:set_size("main", (ghost_inv:get_size("main")+1))
+			ghost_inv:add_item("main", armor_inv:get_stack("armor", i))
+		end
+	end
+	minetest.after((battletimeout - playerinpvp[playername]) or battletimeout, function(obj) 
+    obj:remove()
+	end, obj)
+
+end
+
+minetest.register_on_punchplayer(function(player, hitter)
+	if not (player:is_player() and hitter:is_player() ) then
+		return
+	end
+	
+	local hittername = hitter:get_player_name()
+	local victimname = player:get_player_name()
+
+	setplayerpvp(hittername)
+	setplayerpvp(victimname) -- moved OPCE check
+
+	resettime(hittername)
+	resettime(victimname) -- won't affect non-registered victims
+end)
+
+minetest.register_globalstep(function(dtime)
+	for fighter,oldtime in pairs(playerinpvp) do
+		if playerinpvp[fighter] then
+			local newtime = oldtime + dtime
+			playerinpvp[fighter] = newtime
+			if newtime >= battletimeout then
+				endtimer(fighter)
+			end
+		end
+	end
+end)
+minetest.register_on_leaveplayer(function(player)
+	local name = player:get_player_name()
+	if playerinpvp[name] and playerinpvp[name] > 0 then
+		on_combatlog(player, name)
+		--endtimer(name)
+	end
+end)
+minetest.register_on_dieplayer(function(player)
+	local name = player:get_player_name()
+	endtimer(name)
+end)
+minetest.register_on_joinplayer(function(player)
+	local playername = player:get_player_name()
+	if ghost_player[playername] and ghost_player[playername]:get_luaentity() then
+		player:set_hp(ghost_player[playername]:get_hp())
+		ghost_player[playername]:remove()
+		incombat_hud[playername] = player:hud_add({
+			hud_elem_type = "image",
+			position  = {x = 1, y = .75},
+			offset    = {x = -220, y = 0},
+			text      = "incombat.png",
+			scale     = { x = 10, y = 10},
+			alignment = { x = 1, y = 0 },
+		})
+	end
+	local privs = minetest.get_player_privs(playername)
+	if privs.combatlog and not privs.ban then
+		minetest.after(.1, killcombatlogger, player)
+	end
+end)
+
+minetest.register_entity("anticombatlog:ghost",
+{
+    hp_max = 20,
+    physical = false,
+    collisionbox = {-0.35,-1.0,-0.35, 0.35,0.8,0.35},
+    visual = "mesh",
+    visual_size = {x=1, y=1},
+    mesh = "character.b3d",
+    textures = {"character.png"}, -- number of required textures depends on visual
+    is_visible = true,
+	on_punch = function(self, puncher, time_from_last_punch, tool_capabilities, dir)
+		if tool_capabilities then
+			-- Get tool-based damage
+			local current_damage = tool_capabilities.damage_groups.fleshy
+			-- Check if player is punching before full punch interval
+			if time_from_last_punch < tool_capabilities.full_punch_interval then
+				-- Calculate damage for current tool based on the time from last punch
+				current_damage = 
+					math.floor( 
+						(time_from_last_punch / tool_capabilities.full_punch_interval) * current_damage 
+					)
+			end
+			-- Remove guard if killed
+			if self.object:get_hp() - current_damage <= 0 then
+				local playername = self.object:get_properties().nametag
+				local invref = minetest.get_inventory({type="detached", name=playername.."_ghost"})
+				local pos = self.object:get_pos()
+				dropinventory(invref, pos)
+				local privs = minetest.get_player_privs(playername)
+				privs.combatlog = true
+				privs.interact = nil
+				minetest.set_player_privs(playername, privs)
+				self.object:remove()
+			end
+		end
+	end,
+	on_activate = function(self, staticdata, dtime_s)
+		if staticdata == "expired" then
+			self.object:remove()
+		end
+	end,
+	get_staticdata = function(self)
+		return "expired"
+	end,
+})