From 2d68498dc10bc74a35a5cc0ff4e81b6640807511 Mon Sep 17 00:00:00 2001
From: kpoppel <poulsen.kim@gmail.com>
Date: Wed, 08 May 2013 01:42:22 +0200
Subject: [PATCH] Massive change to the way CNC programs are registered. Now the API is open for adding new nodes and inhibiting some nodes for some materials. No more recipes outside of the CNC machine.
---
technic/battery_box_mv.lua | 355 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
1 files changed, 355 insertions(+), 0 deletions(-)
diff --git a/technic/battery_box_mv.lua b/technic/battery_box_mv.lua
new file mode 100644
index 0000000..8fc6dc7
--- /dev/null
+++ b/technic/battery_box_mv.lua
@@ -0,0 +1,355 @@
+MV_machines = {}
+
+registered_MV_machines_count=0
+
+function register_MV_machine (string1,string2)
+registered_MV_machines_count=registered_MV_machines_count+1
+MV_machines[registered_MV_machines_count]={}
+MV_machines[registered_MV_machines_count].machine_name=string1
+MV_machines[registered_MV_machines_count].machine_type=string2
+end
+
+minetest.register_craft({
+ output = 'technic:mv_battery_box 1',
+ recipe = {
+ {'technic:battery_box', 'technic:battery_box', 'technic:battery_box'},
+ {'technic:battery_box', 'technic:mv_transformer', 'technic:battery_box'},
+ {'', 'technic:mv_cable', ''},
+ }
+})
+
+mv_battery_box_formspec =
+ "invsize[8,9;]"..
+ "image[1,1;1,2;technic_power_meter_bg.png]"..
+ "list[current_name;src;3,1;1,1;]"..
+ "image[4,1;1,1;technic_battery_reload.png]"..
+ "list[current_name;dst;5,1;1,1;]"..
+ "label[0,0;MV_Battery box]"..
+ "label[3,0;Charge]"..
+ "label[5,0;Discharge]"..
+ "label[1,3;Power level]"..
+ "list[current_player;main;0,5;8,4;]"
+
+minetest.register_node("technic:mv_battery_box", {
+ description = "MV Battery Box",
+ tiles = {"technic_mv_battery_box_top.png", "technic_mv_battery_box_bottom.png", "technic_mv_battery_box_side0.png",
+ "technic_mv_battery_box_side0.png", "technic_mv_battery_box_side0.png", "technic_mv_battery_box_side0.png"},
+ groups = {snappy=2,choppy=2,oddly_breakable_by_hand=2},
+ sounds = default.node_sound_wood_defaults(),
+ technic_mv_power_machine=1,
+ last_side_shown=0,
+ drop="technic:mv_battery_box",
+ on_construct = function(pos)
+ local meta = minetest.env:get_meta(pos)
+ meta:set_string("infotext", "MV Battery box")
+ meta:set_float("technic_mv_power_machine", 1)
+ meta:set_string("formspec", battery_box_formspec)
+ local inv = meta:get_inventory()
+ inv:set_size("src", 1)
+ inv:set_size("dst", 1)
+ battery_charge = 0
+ max_charge = 300000
+ last_side_shown=0
+ end,
+ can_dig = function(pos,player)
+ local meta = minetest.env:get_meta(pos);
+ local inv = meta:get_inventory()
+ if not inv:is_empty("dst") then
+ return false
+ elseif not inv:is_empty("src") then
+ return false
+ end
+ return true
+ end,
+})
+
+
+for i=1,8,1 do
+minetest.register_node("technic:mv_battery_box"..i, {
+ description = "MV Battery Box",
+ tiles = {"technic_mv_battery_box_top.png", "technic_mv_battery_box_bottom.png", "technic_mv_battery_box_side0.png^technic_power_meter"..i..".png",
+ "technic_mv_battery_box_side0.png^technic_power_meter"..i..".png", "technic_mv_battery_box_side0.png^technic_power_meter"..i..".png", "technic_mv_battery_box_side0.png^technic_power_meter"..i..".png"},
+ groups = {snappy=2,choppy=2,oddly_breakable_by_hand=2,not_in_creative_inventory=1},
+ sounds = default.node_sound_wood_defaults(),
+ technic_power_machine=1,
+ last_side_shown=0,
+ drop="technic:mv_battery_box",
+ on_construct = function(pos)
+ local meta = minetest.env:get_meta(pos)
+ meta:set_string("infotext", "MV Battery box")
+ meta:set_float("technic_mv_power_machine", 1)
+ meta:set_string("formspec", battery_box_formspec)
+ local inv = meta:get_inventory()
+ inv:set_size("src", 1)
+ inv:set_size("dst", 1)
+ battery_charge = 0
+ max_charge = 300000
+ last_side_shown=0
+ end,
+ can_dig = function(pos,player)
+ local meta = minetest.env:get_meta(pos);
+ local inv = meta:get_inventory()
+ if not inv:is_empty("dst") then
+ return false
+ elseif not inv:is_empty("src") then
+ return false
+ end
+ return true
+ end,
+})
+end
+
+
+MV_nodes_visited = {}
+
+
+minetest.register_abm({
+ nodenames = {"technic:mv_battery_box","technic:mv_battery_box1","technic:mv_battery_box2","technic:mv_battery_box3","technic:mv_battery_box4",
+ "technic:mv_battery_box5","technic:mv_battery_box6","technic:mv_battery_box7","technic:mv_battery_box8"
+ },
+ interval = 1,
+ chance = 1,
+ action = function(pos, node, active_object_count, active_object_count_wider)
+ local meta = minetest.env:get_meta(pos)
+ charge= meta:get_int("battery_charge")
+ max_charge= 300000
+ local i=math.ceil((charge/max_charge)*8)
+ if i>8 then i=8 end
+ j=meta:get_float("last_side_shown")
+ if i~=j then
+ if i>0 then hacky_swap_node(pos,"technic:mv_battery_box"..i)
+ elseif i==0 then hacky_swap_node(pos,"technic:mv_battery_box") end
+ meta:set_float("last_side_shown",i)
+ end
+
+--loading registered power tools
+ local inv = meta:get_inventory()
+ if inv:is_empty("src")==false then
+ local srcstack = inv:get_stack("src", 1)
+ local src_item=srcstack:to_table()
+ local src_meta=get_item_meta(src_item["metadata"])
+
+ local item_max_charge=nil
+ for i=1,registered_power_tools_count,1 do
+ if power_tools[i].tool_name==src_item["name"] then
+ src_meta=get_item_meta(src_item["metadata"])
+ if src_meta==nil then
+ src_meta={}
+ src_meta["technic_power_tool"]=true
+ src_meta["charge"]=0
+ else
+ if src_meta["technic_power_tool"]==nil then
+ src_meta["technic_power_tool"]=true
+ src_meta["charge"]=0
+ end
+ end
+ item_max_charge=power_tools[i].max_charge
+ end
+ end
+
+ if item_max_charge then
+ load1=src_meta["charge"]
+ load_step=4000
+ if load1<item_max_charge and charge>0 then
+ if charge-load_step<0 then load_step=charge end
+ if load1+load_step>item_max_charge then load_step=item_max_charge-load1 end
+ load1=load1+load_step
+ charge=charge-load_step
+ set_RE_wear(src_item,load1,item_max_charge)
+ src_meta["charge"]=load1
+ src_item["metadata"]=set_item_meta(src_meta)
+ inv:set_stack("src", 1, src_item)
+ end
+ meta:set_int("battery_charge",charge)
+ end
+ end
+
+-- dischargin registered power tools
+ if inv:is_empty("dst") == false then
+ srcstack = inv:get_stack("dst", 1)
+ src_item=srcstack:to_table()
+ local src_meta=get_item_meta(src_item["metadata"])
+ local item_max_charge=nil
+ for i=1,registered_power_tools_count,1 do
+ if power_tools[i].tool_name==src_item["name"] then
+ src_meta=get_item_meta(src_item["metadata"])
+ if src_meta==nil then
+ src_meta={}
+ src_meta["technic_power_tool"]=true
+ src_meta["charge"]=0
+ else
+ if src_meta["technic_power_tool"]==nil then
+ src_meta["technic_power_tool"]=true
+ src_meta["charge"]=0
+ end
+ end
+ item_max_charge=power_tools[i].max_charge
+ end
+ end
+
+ if item_max_charge then
+ local load1=src_meta["charge"]
+ load_step=4000
+ if load1>0 and charge<max_charge then
+ if charge+load_step>max_charge then load_step=max_charge-charge end
+ if load1-load_step<0 then load_step=load1 end
+ load1=load1-load_step
+ charge=charge+load_step
+ set_RE_wear(src_item,load1,item_max_charge)
+ src_meta["charge"]=load1
+ src_item["metadata"]=set_item_meta(src_meta)
+ inv:set_stack("dst", 1, src_item)
+ end
+ end
+ end
+
+ meta:set_int("battery_charge",charge)
+
+ local load = math.floor((charge/300000) * 100)
+ meta:set_string("formspec",
+ mv_battery_box_formspec..
+ "image[1,1;1,2;technic_power_meter_bg.png^[lowpart:"..
+ (load)..":technic_power_meter_fg.png]"
+ )
+
+ local pos1={}
+
+ pos1.y=pos.y-1
+ pos1.x=pos.x
+ pos1.z=pos.z
+
+
+ meta1 = minetest.env:get_meta(pos1)
+ if meta1:get_float("mv_cablelike")~=1 then return end
+
+ local MV_nodes = {}
+ local PR_nodes = {}
+ local RE_nodes = {}
+
+ MV_nodes[1]={}
+ MV_nodes[1].x=pos1.x
+ MV_nodes[1].y=pos1.y
+ MV_nodes[1].z=pos1.z
+ MV_nodes[1].visited=false
+
+table_index=1
+ repeat
+ check_MV_node (PR_nodes,RE_nodes,MV_nodes,table_index)
+ table_index=table_index+1
+ if MV_nodes[table_index]==nil then break end
+ until false
+
+
+local pos1={}
+i=1
+ repeat
+ if PR_nodes[i]==nil then break end -- gettin power from all connected producers
+ pos1.x=PR_nodes[i].x
+ pos1.y=PR_nodes[i].y
+ pos1.z=PR_nodes[i].z
+ local meta1 = minetest.env:get_meta(pos1)
+ local internal_EU_buffer=meta1:get_float("internal_EU_buffer")
+ if charge<max_charge then
+ charge_to_take=1000
+ if internal_EU_buffer-charge_to_take<=0 then
+ charge_to_take=internal_EU_buffer
+ end
+ if charge_to_take>0 then
+ charge=charge+charge_to_take
+ internal_EU_buffer=internal_EU_buffer-charge_to_take
+ meta1:set_float("internal_EU_buffer",internal_EU_buffer)
+ end
+ end
+ i=i+1
+ until false
+
+if charge>max_charge then charge=max_charge end
+
+i=1
+ repeat
+ if RE_nodes[i]==nil then break end
+ pos1.x=RE_nodes[i].x -- loading all conected machines buffers
+ pos1.y=RE_nodes[i].y
+ pos1.z=RE_nodes[i].z
+ local meta1 = minetest.env:get_meta(pos1)
+ local internal_EU_buffer=meta1:get_float("internal_EU_buffer")
+ local internal_EU_buffer_size=meta1:get_float("internal_EU_buffer_size")
+
+ local charge_to_give=1000
+ if internal_EU_buffer+charge_to_give>internal_EU_buffer_size then
+ charge_to_give=internal_EU_buffer_size-internal_EU_buffer
+ end
+ if charge-charge_to_give<0 then charge_to_give=charge end
+
+ internal_EU_buffer=internal_EU_buffer+charge_to_give
+ meta1:set_float("internal_EU_buffer",internal_EU_buffer)
+ charge=charge-charge_to_give;
+
+ i=i+1
+ until false
+ charge=math.floor(charge)
+ charge_string=tostring(charge)
+ meta:set_string("infotext", "Battery box: "..charge_string.."/"..max_charge);
+ meta:set_int("battery_charge",charge)
+
+end
+})
+
+function add_new_MVcable_node (MV_nodes,pos1)
+local i=1
+ repeat
+ if MV_nodes[i]==nil then break end
+ if pos1.x==MV_nodes[i].x and pos1.y==MV_nodes[i].y and pos1.z==MV_nodes[i].z then return false end
+ i=i+1
+ until false
+MV_nodes[i]={}
+MV_nodes[i].x=pos1.x
+MV_nodes[i].y=pos1.y
+MV_nodes[i].z=pos1.z
+MV_nodes[i].visited=false
+return true
+end
+
+function check_MV_node (PR_nodes,RE_nodes,MV_nodes,i)
+ local pos1={}
+ pos1.x=MV_nodes[i].x
+ pos1.y=MV_nodes[i].y
+ pos1.z=MV_nodes[i].z
+ MV_nodes[i].visited=true
+ new_node_added=false
+
+ pos1.x=pos1.x+1
+ check_MV_node_subp (PR_nodes,RE_nodes,MV_nodes,pos1)
+ pos1.x=pos1.x-2
+ check_MV_node_subp (PR_nodes,RE_nodes,MV_nodes,pos1)
+ pos1.x=pos1.x+1
+
+ pos1.y=pos1.y+1
+ check_MV_node_subp (PR_nodes,RE_nodes,MV_nodes,pos1)
+ pos1.y=pos1.y-2
+ check_MV_node_subp (PR_nodes,RE_nodes,MV_nodes,pos1)
+ pos1.y=pos1.y+1
+
+ pos1.z=pos1.z+1
+ check_MV_node_subp (PR_nodes,RE_nodes,MV_nodes,pos1)
+ pos1.z=pos1.z-2
+ check_MV_node_subp (PR_nodes,RE_nodes,MV_nodes,pos1)
+ pos1.z=pos1.z+1
+return new_node_added
+end
+
+function check_MV_node_subp (PR_nodes,RE_nodes,MV_nodes,pos1)
+meta = minetest.env:get_meta(pos1)
+if meta:get_float("mv_cablelike")==1 then new_node_added=add_new_MVcable_node(MV_nodes,pos1) end
+for i in ipairs(MV_machines) do
+ if minetest.env:get_node(pos1).name == MV_machines[i].machine_name then
+ if MV_machines[i].machine_type == "PR" then
+ new_node_added=add_new_MVcable_node(PR_nodes,pos1)
+ end
+ if MV_machines[i].machine_type == "RE" then
+ new_node_added=add_new_MVcable_node(RE_nodes,pos1)
+ end
+ end
+end
+end
+
--
Gitblit v1.8.0