Added lazerstrike

mods/lazerstrike/depends.txt

@@ -0,0 +1 @@
+tnt

mods/lazerstrike/init.lua

@@ -0,0 +1,154 @@
+local i = {}
+
+local miniboom = function(pos)
+    bPos = {x = pos.x + math.random(-9, 9), y = pos.y + math.random(-3, -1), z = pos.z + math.random(-9, 9)}
+    tnt.boom(bPos, {radius = 4, explode_center = true})
+end
+
+local strike_pos = function(pos, radius, kill_players)
+    tnt.boom(pos, {radius = radius, explode_center = true})
+    -- Add "mini-booms" as the laser strikes for effect + more devistation
+    minetest.after(0.1, miniboom, pos)
+    minetest.after(0.25, miniboom, pos)
+    minetest.after(0.2, miniboom, pos)
+    minetest.after(0.3, miniboom, pos)
+    minetest.after(0.1, miniboom, pos)
+    -- Add strike visual via particles
+    minetest.add_particlespawner({
+        amount = 400,
+        time = 0.01,
+        minpos = pos,
+        maxpos = {x = pos.x, y = pos.y + 125, z = pos.z},
+        minvel = {x = 0, y = -100, z = 0},
+        maxvel = {x = 0, y = -100, z = 0},
+        minacc = {x=0, y=0, z=0},
+        maxacc = {x=0, y=0, z=0},
+        maxsize = 20,
+        minsize = 15,
+        minexptime = 0.3,
+        maxexptime = 0.3,
+        collisiondetection = false,
+        vertical = true,
+        glow = 14,
+        texture = "lazer_particle.png",
+    })
+    -- Play strike sound
+    minetest.sound_play("lazerstrike_strike", {pos = pos,
+    gain = 30,
+    max_hear_distance = 128})
+    -- lethal core range: outright kills entities.
+    -- players are zapped by setting their HP to zero in minetest.after.
+    local objects = minetest.get_objects_inside_radius(pos, radius/2)
+    local players = {}
+    for _, ent in ipairs(objects) do
+        if ent:is_player() then
+            players[ent] = true
+        else
+            ent:remove()
+        end
+    end
+    -- uses minetest.after, because :set_hp() can only be called in globalstep...
+    if kill_players then
+        minetest.after(0, function()
+            for player, _ in pairs(players) do
+                player:set_hp(0)
+            end
+        end)
+    end
+end
+
+-- vaporises a player and empties their inventory.
+-- does this by forcing them to run /clearinv.
+-- returns true if the player existed, false if not.
+local strike_player = function(name, radius, kill_players)
+    local ref = minetest.get_player_by_name(name)
+    if not ref then return false end
+    local restore_slot = ref:get_attribute("restore_slot")
+    local inv = ref:get_inventory()
+    if not restore_slot or restore_slot == "" then
+        local lists = inv:get_lists()
+        for _, list in pairs(lists) do
+            local newlist = {}
+            for __, item in pairs(list) do
+                table.insert(newlist, __, item:to_string())
+            end
+            lists[_] = newlist
+            print(_, "serialized")
+        end
+        ref:set_attribute("restore_slot", minetest.serialize(lists))
+    end
+    minetest.registered_chatcommands["clearinv"].func(name)
+    strike_pos(ref:get_pos(), radius, kill_players)
+    -- Kill the target because they just got hit by a massive laser for crying out loud
+    if not kill_players then
+        minetest.after(0, function() ref:set_hp(0) end)
+    end
+end
+
+minetest.register_privilege("vaporize", "Allows use of the /vaporzie command")
+
+minetest.register_chatcommand("vaporize_restore", {
+    params = "<player>",
+    description = "Restores the <player>'s items from the first vaporize that wasn't restored",
+    privs = {vaporize = true},
+    func = function(name, param)
+        local p = minetest.get_player_by_name(param)
+        if p then
+            local restore_slot = p:get_attribute("restore_slot")
+            if restore_slot and restore_slot ~= "" then
+                local inv = p:get_inventory()
+                local lists = minetest.deserialize(restore_slot)
+                for _, list in pairs(lists) do
+                    print(_)
+                    local newlist = {}
+                    for __, item in pairs(list) do
+                        print(__)
+                        table.insert(newlist, __, ItemStack(item))
+                    end
+                    lists[_] = newlist
+                end
+                inv:set_lists(lists)
+                p:set_attribute("restore_slot", "")
+                return true, param .. " was restored."
+            else
+                return false, "This player's restore slot is empty"
+            end
+        else
+            return false, "No such player is online"
+        end
+    end
+})
+
+minetest.register_chatcommand("vaporize_tame", {
+    params = "<victim>",
+    description = "Eliminates <victim> but does not hurt any other players",
+    privs = {vaporize = true},
+    func = function(name, param)
+        p = minetest.get_player_by_name(param)
+        if p then
+            pInts = {}
+            for i,n in pairs(p:getpos()) do pInts[i] = math.floor(n) end
+            minetest.chat_send_all("[WARNING] Incoming Lazer Satellite Strike at " .. minetest.pos_to_string(pInts) .. " (lock: " .. param .. ")")
+            strike_player(param, 7)
+        else
+            return false, "No such player is online"
+        end
+    end
+})
+
+minetest.register_chatcommand("vaporize", {
+    params = "<victim>",
+    description = "Eliminates <victim> with a laser of immense power (May destroy surrounding area, use with caution)",
+    privs = {vaporize = true},
+    func = function(name, param)
+        p = minetest.get_player_by_name(param)
+        if p then
+            pInts = {}
+            for i,n in pairs(p:getpos()) do pInts[i] = math.floor(n) end
+            minetest.chat_send_all("[WARNING] Incoming Lazer Satellite Strike at " .. minetest.pos_to_string(pInts) .. " (lock: " .. param .. ")")
+            strike_player(param, 7, true)
+        else
+            return false, "No such player is online"
+        end
+    end
+})