change nether pearl and portal.lua

This commit is contained in:
HybridDog 2016-01-01 12:39:21 +01:00
parent 6245b9e4e1
commit 524312a8d3
3 changed files with 507 additions and 422 deletions

View File

@ -19,3 +19,4 @@ If you got ideas or found bugs, please tell them to me.
TODO:
— find a way to get the perlin noise inside [-1; 1] or use another noise
— add something containing items to that buildings

View File

@ -7,36 +7,60 @@ local function table_contains(t, v)
return false
end
local teleportball_player
local creative = minetest.setting_getbool("creative_mode")
local function throw_pearl(item, player)
local playerpos = player:getpos()
local obj = minetest.add_entity({x=playerpos.x,y=playerpos.y+1.625,z=playerpos.z}, "nether:pearl_entity")
playerpos.y = playerpos.y+1.625
local obj = minetest.add_entity(playerpos, "nether:pearl_entity")
local dir = player:get_look_dir()
obj:setvelocity({x=dir.x*30, y=dir.y*30, z=dir.z*30})
obj:setvelocity(vector.multiply(dir, 30))
obj:setacceleration({x=dir.x*-3, y=-dir.y^8*80-10, z=dir.z*-3})
if not minetest.setting_getbool("creative_mode") then
obj:get_luaentity().player = player:get_player_name()
if not creative then
item:take_item()
end
teleportball_player = player
return item
end
end
local ENTITY = {
timer=0,
collisionbox = {0,0,0,0,0,0}, --not pointable
physical = false, -- Collides with things
textures = {"nether_pearl.png"},
lastpos={},
player = "",
}
local function get_node(pos)
local name = minetest.get_node(pos).name
if name == "ignore" then
minetest.get_voxel_manip():read_from_map(pos, pos)
name = minetest.get_node_or_nil(pos)
if not name then
return
end
name = name.name
end
return name
end
local allowed_nodes = {"air", "default:water_source"}
local softs = {}
local function is_soft(pos)
local name = get_node(pos)
if not name then
return false
end
local is_soft = softs[name]
if is_soft ~= nil then
return is_soft
end
if not minetest.registered_nodes[name] then
softs[name] = false
return false
end
is_soft = minetest.registered_nodes[name].walkable == false
softs[name] = is_soft
return is_soft
end
-- teleports the player there if there's free space
local function teleport_player(pos, player)
local nd2 = minetest.get_node(pos).name
local nd2 = is_soft(pos)
pos.y = pos.y+1
local nd3 = minetest.get_node(pos).name
if table_contains(allowed_nodes, nd2)
and table_contains(allowed_nodes, nd3) then
local nd3 = is_soft(pos)
if nd2
and nd3 then
pos.y = pos.y-1.4
player:moveto(pos)
pos.y = pos.y-0.6
@ -45,39 +69,108 @@ local function teleport_player(pos, player)
return false
end
ENTITY.on_step = function(self, dtime)
self.timer=self.timer+dtime
--[[
local dg_ps = {}
local function forceload(pos)
dg_ps[#dg_ps+1] = pos
minetest.forceload_block(pos)
minetest.after(5, function(pos)
minetest.forceload_free_block(pos)
for i,p in pairs(dg_ps) do
if vector.equals(p, pos) then
dg_ps[i] = nil
return
end
end
end, pos)
end
minetest.register_on_shutdown(function()
for _,p in pairs(dg_ps) do
minetest.forceload_free_block(p)
end
end)--]]
--[[ local delay = self.delay
minetest.register_entity("nether:pearl_entity", {
timer = 0,
collisionbox = {0,0,0,0,0,0}, --not pointable
physical = false, -- Collides with things
textures = {"nether_pearl.png"},
on_activate = function(self, staticdata)
if not staticdata
or staticdata == "" then
return
end
local tmp = minetest.deserialize(staticdata)
if not tmp then
minetest.log("error", "[nether] pearl: invalid staticdata ")
return
end
self.player = tmp.player
end,
get_staticdata = function(self)
--forceload(vector.round(self.object:getpos()))
return minetest.serialize({
player = self.player,
})
end,
on_step = function(self, dtime)
self.timer = self.timer+dtime
--[[
local delay = self.delay
if delay < 0.1 then
self.delay = delay+dtime
return
end
self.delay = 0]]
self.delay = 0--]]
if self.timer > 20 then
self.object:remove()
return
end
local pos = self.object:getpos()
local rpos = vector.round(pos)
local lastpos = self.lastpos
if not lastpos then
self.lastpos = vector.new(rpos)
return
end
if lastpos.x
and vector.equals(vector.round(lastpos), vector.round(pos)) then
and vector.equals(vector.round(lastpos), rpos) then
return
end
local player = self.player
if not player
or player == "" then
self.player = teleportball_player
player = teleportball_player
end
if not player then
minetest.log("error", "[nether] pearl: missing playername")
self.object:remove()
return
end
if lastpos.x then --If there is no lastpos for some reason.
local free, p = minetest.line_of_sight(lastpos, pos)
if not free then
local nd1 = minetest.get_node(p).name
if not table_contains(allowed_nodes, nd1)
and nd1 ~= "ignore" then
player = minetest.get_player_by_name(player)
if not player then
minetest.log("error", "[nether] pearl: missing player")
self.object:remove()
minetest.after(0, function(p) --minetest.after us used that the sound is played after the teleportation
return
end
if not get_node(rpos) then
minetest.log("error", "[nether] pearl: missing node")
self.object:remove()
return
end
self.lastpos = vector.new(pos)
local free, p = minetest.line_of_sight(lastpos, pos)
if free then
return
end
if is_soft(p) then
return
end
self.object:remove()
minetest.after(0, function(p) --minetest.after is used that the sound is played after the teleportation
minetest.sound_play("nether_pearl", {pos=p, max_hear_distance=10})
end, p)
p.y = p.y+1
@ -100,15 +193,6 @@ ENTITY.on_step = function(self, dtime)
end
end
end
end
end
if self.timer > 20 then
self.object:remove()
return
end
self.lastpos = vector.new(pos)
end
minetest.register_entity("nether:pearl_entity", ENTITY)
})
minetest.override_item("nether:pearl", {on_use = throw_pearl})

View File

@ -3,7 +3,7 @@
-- kills the player if he uses PilzAdam portal
local obsidian_portal_kills = true
local portal_target = nether.buildings+1
local damage_enabled = minetest.setting_getbool("enable_damage")
local nether_prisons = minetest.setting_getbool("enable_damage")
local abm_allowed
minetest.after(5, function()
@ -40,7 +40,7 @@ local function save_nether_players()
end
local update_background
if damage_enabled then
if nether_prisons then
function update_background(player, down)
if down then
player:set_sky({r=15, g=0, b=0}, "plain")
@ -84,18 +84,18 @@ local function player_from_nether(player)
end
if damage_enabled then
local function player_exists(name)
if nether_prisons then
local function player_exists(name)
for _,player in pairs(minetest.get_connected_players()) do
if player:get_player_name() == name then
return true
end
end
return false
end
end
-- Chatcommands (edited) written by sss
minetest.register_chatcommand("to_hell", {
-- Chatcommands (edited) written by sss
minetest.register_chatcommand("to_hell", {
params = "[<player_name>]",
description = "Send someone to hell",
func = function(name, pname)
@ -113,9 +113,9 @@ minetest.register_chatcommand("to_hell", {
player_to_nether(player)
return true, pname.." is now in the nether."
end
})
})
minetest.register_chatcommand("from_hell", {
minetest.register_chatcommand("from_hell", {
params = "[<player_name>]",
description = "Extract from hell",
func = function(name, pname)
@ -135,9 +135,9 @@ minetest.register_chatcommand("from_hell", {
player:moveto({x=pos.x, y=100, z=pos.z})
return true, pname.." is now out of the nether."
end
})
})
minetest.register_on_respawnplayer(function(player)
minetest.register_on_respawnplayer(function(player)
local pname = player:get_player_name()
if not table.icontains(players_in_nether, pname) then
return
@ -152,9 +152,9 @@ minetest.register_on_respawnplayer(function(player)
end
end, pname, target)
return true
end)
end)
local function update_players()
local function update_players()
for _,player in ipairs(minetest.get_connected_players()) do
local pname = player:get_player_name()
local ppos = player:getpos()
@ -174,27 +174,27 @@ local function update_players()
"\n3. please rejoin")]]
end
end
end
end
local timer = 0 --doesn't work if the server lags
minetest.register_globalstep(function(dtime)
local timer = 0 --doesn't work if the server lags
minetest.register_globalstep(function(dtime)
timer = timer + dtime;
if timer >= 2 then
--minetest.after(1, update_players)
update_players()
timer = 0
end
end)
end)
minetest.register_on_joinplayer(function(player)
minetest.register_on_joinplayer(function(player)
minetest.after(0, function(player)
if player:getpos().y < nether.start then
update_background(player, true)
end
end, player)
end)
end)
local function remove_portal_essence(pos)
local function remove_portal_essence(pos)
for z = -1,1 do
for y = -2,2 do
for x = -1,1 do
@ -205,9 +205,9 @@ local function remove_portal_essence(pos)
end
end
end
end
end
minetest.register_abm({
minetest.register_abm({
nodenames = {"nether:portal"},
interval = 1,
chance = 2,
@ -259,9 +259,9 @@ minetest.register_abm({
end
end
end,
})
})
local function move_check(p1, max, dir)
local function move_check(p1, max, dir)
local p = {x=p1.x, y=p1.y, z=p1.z}
local d = math.abs(max-p1[dir]) / (max-p1[dir])
while p[dir] ~= max do
@ -271,9 +271,9 @@ local function move_check(p1, max, dir)
end
end
return true
end
end
local function check_portal(p1, p2)
local function check_portal(p1, p2)
if p1.x ~= p2.x then
if not move_check(p1, p2.x, "x") then
return false
@ -300,9 +300,9 @@ local function check_portal(p1, p2)
end
return true
end
end
local function is_portal(pos)
local function is_portal(pos)
for d=-3,3 do
for y=-4,4 do
local px = {x=pos.x+d, y=pos.y+y, z=pos.z}
@ -315,9 +315,9 @@ local function is_portal(pos)
end
end
end
end
end
local function make_portal(pos)
local function make_portal(pos)
local p1, p2 = is_portal(pos)
if not p1
or not p2 then
@ -374,9 +374,9 @@ local function make_portal(pos)
end
print("[nether] construction accepted.")
return true
end
end
minetest.override_item("default:obsidian", {
minetest.override_item("default:obsidian", {
on_destruct = function(pos)
local meta = minetest.get_meta(pos)
local p1 = minetest.string_to_pos(meta:get_string("p1"))
@ -427,9 +427,9 @@ minetest.override_item("default:obsidian", {
end
end
end
})
})
minetest.after(0.1, function()
minetest.after(0.1, function()
minetest.override_item("default:mese_crystal_fragment", {
on_place = function(stack, player, pt)
if pt.under
@ -449,7 +449,7 @@ minetest.after(0.1, function()
return stack
end
})
end)
end)
end