technic/flashlight.lua

167 lines
5.4 KiB
Lua
Raw Normal View History

2012-10-14 23:36:34 +02:00
-- original code comes from walkin_light mod by Echo http://minetest.net/forum/viewtopic.php?id=2621
2012-10-11 17:57:21 +02:00
flashlight_max_charge=30000
2012-10-11 17:49:45 +02:00
2012-10-11 17:57:21 +02:00
minetest.register_tool("technic:flashlight", {
description = "Flashlight",
inventory_image = "technic_flashlight.png",
2012-10-14 23:36:34 +02:00
stack_max = 1,
2012-10-11 17:49:45 +02:00
on_use = function(itemstack, user, pointed_thing)
end,
})
minetest.register_craft({
2012-10-11 17:57:21 +02:00
output = "technic:flashlight",
2012-10-11 17:49:45 +02:00
recipe = {
{"glass","glass","glass"},
{"technic:stainless_steel_ingot","technic:battery","technic:stainless_steel_ingot"},
{"","technic:battery",""}
}
})
2012-10-14 23:36:34 +02:00
local players = {}
local player_positions = {}
local last_wielded = {}
function round(num)
return math.floor(num + 0.5)
end
minetest.register_on_joinplayer(function(player)
local player_name = player:get_player_name()
table.insert(players, player_name)
local pos = player:getpos()
local rounded_pos = {x=round(pos.x),y=round(pos.y)+1,z=round(pos.z)}
player_positions[player_name] = {}
player_positions[player_name]["x"] = rounded_pos.x;
player_positions[player_name]["y"] = rounded_pos.y;
player_positions[player_name]["z"] = rounded_pos.z;
end)
minetest.register_on_leaveplayer(function(player)
local player_name = player:get_player_name()
for i,v in ipairs(players) do
if v == player_name then
table.remove(players, i)
last_wielded[player_name] = nil
-- Neuberechnung des Lichts erzwingen
local pos = player:getpos()
local rounded_pos = {x=round(pos.x),y=round(pos.y)+1,z=round(pos.z)}
minetest.env:add_node(rounded_pos,{type="node",name="technic:light_off"})
minetest.env:add_node(rounded_pos,{type="node",name="air"})
player_positions[player_name]["x"] = nil
player_positions[player_name]["y"] = nil
player_positions[player_name]["z"] = nil
player_positions[player_name]["m"] = nil
player_positions[player_name] = nil
end
end
end)
minetest.register_globalstep(function(dtime)
for i,player_name in ipairs(players) do
local player = minetest.env:get_player_by_name(player_name)
2012-10-28 20:03:36 +01:00
flashlight_weared=check_for_flashlight(player)
local pos = player:getpos()
local rounded_pos = {x=round(pos.x),y=round(pos.y)+1,z=round(pos.z)}
local old_pos = {x=player_positions[player_name]["x"], y=player_positions[player_name]["y"], z=player_positions[player_name]["z"]}
if last_wielded[player_name] and not flashlight_weared then --remove light, flashlight weared out or was removed from hotbar
local node=minetest.env:get_node_or_nil(old_pos)
if node then
if node.name=="technic:light" then
minetest.env:add_node(old_pos,{type="node",name="technic:light_off"})
minetest.env:add_node(old_pos,{type="node",name="air"})
last_wielded[player_name]=false
end
end
2012-10-14 23:36:34 +02:00
end
2012-10-28 20:03:36 +01:00
player_moved=not(old_pos.x==rounded_pos.x and old_pos.y==rounded_pos.y and old_pos.z==rounded_pos.z)
if player_moved and last_wielded[player_name] and flashlight_weared then
local node=minetest.env:get_node_or_nil(rounded_pos)
if node then
if node.name=="air" then
minetest.env:add_node(rounded_pos,{type="node",name="technic:light"})
end
end
local node=minetest.env:get_node_or_nil(old_pos)
if node then
if node.name=="technic:light" then
minetest.env:add_node(old_pos,{type="node",name="technic:light_off"})
minetest.env:add_node(old_pos,{type="node",name="air"})
end
end
player_positions[player_name]["x"] = rounded_pos.x
player_positions[player_name]["y"] = rounded_pos.y
player_positions[player_name]["z"] = rounded_pos.z
else if not last_wielded[player_name] and flashlight_weared then
local node=minetest.env:get_node_or_nil(rounded_pos)
if node then
if node.name=="air" then
minetest.env:add_node(rounded_pos,{type="node",name="technic:light"})
end
end
player_positions[player_name]["x"] = rounded_pos.x
player_positions[player_name]["y"] = rounded_pos.y
player_positions[player_name]["z"] = rounded_pos.z
last_wielded[player_name]=true
end
end
2012-10-14 23:36:34 +02:00
end
end)
minetest.register_node("technic:light", {
drawtype = "glasslike",
tile_images = {"technic_light.png"},
paramtype = "light",
walkable = false,
2012-10-28 20:03:36 +01:00
buildable_to = true,
2012-10-14 23:36:34 +02:00
is_ground_content = true,
light_propagates = true,
sunlight_propagates = true,
light_source = 15,
selection_box = {
type = "fixed",
fixed = {0, 0, 0, 0, 0, 0},
},
})
minetest.register_node("technic:light_off", {
drawtype = "glasslike",
tile_images = {"technic_light.png"},
paramtype = "light",
walkable = false,
2012-10-28 20:03:36 +01:00
buildable_to = true,
2012-10-14 23:36:34 +02:00
is_ground_content = true,
light_propagates = true,
sunlight_propagates = true,
selection_box = {
type = "fixed",
fixed = {0, 0, 0, 0, 0, 0},
},
})
2012-10-28 20:03:36 +01:00
function check_for_flashlight (player)
2012-10-30 01:05:52 +01:00
if player==nil then return false end
2012-10-14 23:36:34 +02:00
local inv = player:get_inventory()
local hotbar=inv:get_list("main")
for i=1,8,1 do
if hotbar[i]:get_name() == "technic:flashlight" then
item=hotbar[i]:to_table()
2012-10-28 20:03:36 +01:00
if item["metadata"]=="" or item["metadata"]=="0" then return false end --flashlight not charghed
charge=tonumber(item["metadata"])
2012-10-14 23:36:34 +02:00
if charge-2>0 then
charge =charge-2;
2012-10-28 20:03:36 +01:00
set_RE_wear(item,charge,flashlight_max_charge)
item["metadata"]=tostring(charge)
2012-10-14 23:36:34 +02:00
hotbar[i]:replace(item)
inv:set_stack("main",i,hotbar[i])
2012-10-28 20:03:36 +01:00
return true
2012-10-14 23:36:34 +02:00
end
end
end
2012-10-28 20:03:36 +01:00
return false
2012-10-14 23:36:34 +02:00
end