Added Forcefield generator by ShadowNinja

diff --git a/technic/forcefield.lua b/technic/forcefield.lua
new file mode 100644 (file)
index 0000000..ebefc52
--- /dev/null
+++ b/technic/forcefield.lua
@@ -0,0 +1,213 @@
+--Forcefield mod by ShadowNinja
+
+local forcefield_emitter_buffer_size = 10000
+local forcefield_emitter_power_consumption = 1
+local forcefield_update_interval = 1
+
+minetest.register_craft({
+       output = 'technic:forcefield_emitter_off',
+       recipe = {
+                       {'default:mese',         'technic:deployer_off', 'default:mese'        },
+                       {'technic:deployer_off', 'technic:motor',        'technic:deployer_off'},
+                       {'default:mese',         'technic:deployer_off', 'default:mese'        },
+       }
+})
+
+local function get_forcefield_count(range)
+       local count = 0
+       for x=-range,range do
+       for y=0,range do
+       for z=-range,range do
+               if ((x*x+y*y+z*z) <= (range * range + range)) then
+                       if (y == 0) or ((range-1) * (range-1) + (range-1) <= x*x+y*y+z*z) then
+                               count = count + 1
+                       end
+               end
+       end
+       end
+       end
+       return count
+end
+
+local function add_forcefield(pos, range)
+       for x=-range,range do
+       for y=-range,range do
+       for z=-range,range do
+               if ((x*x+y*y+z*z) <= (range * range + range)) then
+                       if ((range-1) * (range-1) + (range-1) <= x*x+y*y+z*z) then
+                               local np={x=pos.x+x,y=pos.y+y,z=pos.z+z}
+                               local n = minetest.env:get_node(np).name
+                               if (n == "air") then
+                                       minetest.env:add_node(np, {name = "technic:forcefield"})
+                               end
+                       end
+               end
+       end
+       end
+       end
+       return true
+end
+
+local function remove_forcefield(p, range)
+       for x=-range,range do
+       for y=-range,range do
+       for z=-range,range do
+               if ((x*x+y*y+z*z) <= (range * range + range)) then
+                       if ((range-1) * (range-1) + (range-1) <= x*x+y*y+z*z) then
+                               local np={x=p.x+x,y=p.y+y,z=p.z+z}
+                               local n = minetest.env:get_node(np).name
+                               if (n == "technic:forcefield") then
+                                       minetest.env:remove_node(np)
+                               end
+                       end
+               end
+       end
+       end
+       end
+end
+
+forcefield_receive_fields = function(pos, formname, fields, sender)
+       local meta = minetest.env:get_meta(pos)
+       local range = meta:get_int("range")
+       if fields.add then range = range + 1 end
+       if fields.subtract then range = range - 1 end
+       if range <= 20 and range >= 0 and meta:get_int("range") ~= range then
+               remove_forcefield(pos, meta:get_int("range"))
+               meta:set_int("range", range)
+               local buffer = meta:get_float("internal_EU_buffer")
+               local buffer_size = meta:get_float("internal_EU_buffer_size")
+               local load = math.floor(buffer / buffer_size * 100)
+               meta:set_string("formspec", get_forcefield_formspec(range, 0))
+       end
+end
+
+function get_forcefield_formspec(range, load)
+       if not load then load = 0 end
+       return "invsize[8,9;]"..
+       "label[0,0;Forcefield emitter]"..
+       "label[1,3;Power level]"..
+       "image[1,1;1,2;technic_power_meter_bg.png^[lowpart:"..
+       load..":technic_power_meter_fg.png]"..
+       "label[4,1;Range]"..
+       "label[4,2;"..range.."]"..
+       "button[3,2;1,1;add;+]"..
+       "button[5,2;1,1;subtract;-]"..
+       "list[current_player;main;0,5;8,4;]"
+end
+
+local function forcefield_check(pos)
+       local meta = minetest.env:get_meta(pos)
+       local node = minetest.env:get_node(pos)
+       local internal_EU_buffer=meta:get_float("internal_EU_buffer")
+       local internal_EU_buffer_size=meta:get_float("internal_EU_buffer_size")
+
+       local load = math.floor(internal_EU_buffer/internal_EU_buffer_size * 100)
+       meta:set_string("formspec", get_forcefield_formspec(meta:get_int("range"), load))
+
+       local power_requirement = get_forcefield_count(meta:get_int("range")) * forcefield_emitter_power_consumption
+       if meta:get_int("mesecons_powered") == 0 and internal_EU_buffer >= power_requirement then
+               if node.name == "technic:forcefield_emitter_off" then
+                       hacky_swap_node(pos, "technic:forcefield_emitter_on")
+                       minetest.env:get_node_timer(pos):start(forcefield_update_interval)
+               end
+               internal_EU_buffer=internal_EU_buffer-power_requirement;
+               meta:set_float("internal_EU_buffer", internal_EU_buffer)
+               add_forcefield(pos, meta:get_int("range"))
+       else
+               remove_forcefield(pos, meta:get_int("range"))
+               if node.name == "technic:forcefield_emitter_on" then
+                       hacky_swap_node(pos, "technic:forcefield_emitter_off")
+                       minetest.env:get_node_timer(pos):start(forcefield_update_interval)
+               end
+       end
+       return true
+
+end
+
+minetest.register_node("technic:forcefield_emitter_off", {
+       description = "Forcefield emitter",
+       inventory_image = minetest.inventorycube("technic_forcefield_emitter_off.png"),
+       tiles = {"technic_forcefield_emitter_off.png"},
+       is_ground_content = true,
+       groups = {cracky = 1},
+       technic_power_machine=1,
+       on_timer = forcefield_check,
+       on_receive_fields = forcefield_receive_fields,
+       on_construct = function(pos)
+               minetest.env:get_node_timer(pos):start(forcefield_update_interval)
+               local meta = minetest.env:get_meta(pos)
+               meta:set_float("technic_power_machine", 1)
+               meta:set_float("internal_EU_buffer", 0)
+               meta:set_float("internal_EU_buffer_size", forcefield_emitter_buffer_size)
+               meta:set_int("range", 10)
+               meta:set_int("mesecons_powered", 0)
+               meta:set_string("formspec", get_forcefield_formspec(meta:get_int("range", 0)))
+               meta:set_string("infotext", "Forcefield emitter");
+       end,
+       mesecons = {effector = {
+               action_on = function (pos, node)
+                       minetest.env:get_meta(pos):set_int("mesecons_powered", 1)
+               end,
+               action_off = function(pos, node)
+                       minetest.env:get_meta(pos):set_int("mesecons_powered", 0)
+               end
+       }}
+})
+
+minetest.register_node("technic:forcefield_emitter_on", {
+       description = "Forcefield emitter on (you hacker you)",
+       tiles = {"technic_forcefield_emitter_on.png"},
+       is_ground_content = true,
+       groups = {cracky = 1, not_in_creative_inventory=1},
+       drop='"technic:forcefield_emitter_off" 1',
+       on_timer = forcefield_check,
+       on_receive_fields = forcefield_receive_fields,
+       on_construct = function(pos) 
+               minetest.env:get_node_timer(pos):start(forcefield_update_interval)
+               local meta = minetest.env:get_meta(pos)
+               meta:set_float("technic_power_machine", 1)
+               meta:set_float("internal_EU_buffer", 0)
+               meta:set_float("internal_EU_buffer_size", forcefield_emitter_buffer_size)
+               meta:set_int("range", 10)
+               meta:set_int("mesecons_powered", 0)
+               meta:set_string("formspec", get_forcefield_formspec(meta:get_int("range"), 0))
+               meta:set_string("infotext", "Forcefield emitter");
+       end,
+       on_dig = function(pos, node, digger)    
+               remove_forcefield(pos, minetest.env:get_meta(pos):get_int("range"))
+               return minetest.node_dig(pos, node, digger)
+       end,
+       technic_power_machine=1,
+       mesecons = {effector = {
+               action_on = function(pos, node)
+                       minetest.env:get_meta(pos):set_int("mesecons_powered", 1)
+               end,
+               action_off = function(pos, node)
+                       minetest.env:get_meta(pos):set_int("mesecons_powered", 0)
+               end
+       }}
+})
+
+minetest.register_node("technic:forcefield", {
+       description = "Forcefield (you hacker you)",
+       sunlight_propagates = true,
+       drop = '',
+       tiles = {{name="technic_forcefield_animated.png", animation={type="vertical_frames", aspect_w=16, aspect_h=16, length=2.0}}},
+       is_ground_content = true,
+       groups = {not_in_creative_inventory=1, unbreakable=1},
+       paramtype = "light",
+       drawtype = "nodebox",
+       node_box = {  --hacky way to get the field blue and not see through the ground
+               type = "fixed",
+               fixed={
+                       {-.5,-.5,-.5,.5,.5,.5},
+               },
+       },
+})
+
+register_MV_machine ("technic:forcefield_emitter_on","RE")
+register_MV_machine ("technic:forcefield_emitter_off","RE")
+
+
+
+

diff --git a/technic/init.lua b/technic/init.lua
index 8ffa9c710c4b015e974f3a8a0985cbbdbf4676e7..9b25ccfc89c8ece218976fafeedbb4f0e8884eed 100644 (file)
--- a/technic/init.lua
+++ b/technic/init.lua
@@ -43,6 +43,7 @@ dofile(modpath.."/battery_box_mv.lua")
 dofile(modpath.."/solar_panel_mv.lua")
 dofile(modpath.."/electric_furnace_mv.lua")
 dofile(modpath.."/alloy_furnace_mv.lua")
+dofile(modpath.."/forcefield.lua")
 
 --Tools
 if enable_mining_drill==true then dofile(modpath.."/mining_drill.lua") end

diff --git a/technic/textures/technic_forcefield_animated.png b/technic/textures/technic_forcefield_animated.png
new file mode 100644 (file)
index 0000000..7763840
Binary files /dev/null and b/technic/textures/technic_forcefield_animated.png differ

diff --git a/technic/textures/technic_forcefield_emitter_off.png b/technic/textures/technic_forcefield_emitter_off.png
new file mode 100644 (file)
index 0000000..4c4582f
Binary files /dev/null and b/technic/textures/technic_forcefield_emitter_off.png differ

diff --git a/technic/textures/technic_forcefield_emitter_on.png b/technic/textures/technic_forcefield_emitter_on.png
new file mode 100644 (file)
index 0000000..1f32af6
Binary files /dev/null and b/technic/textures/technic_forcefield_emitter_on.png differ