summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJeija <norrepli@gmail.com>2012-08-13 12:05:37 +0200
committerJeija <norrepli@gmail.com>2012-08-13 12:05:37 +0200
commitcf6106ce43cfd6c96d3eda4b7cb82bbc4c4d608a (patch)
treee332a62a26cc4fbb743c377eae1d86686b0d9511
parent955b8254dd0732cd051776146d31a86ecc9d92d8 (diff)
downloadmesecons-cf6106ce43cfd6c96d3eda4b7cb82bbc4c4d608a.tar
mesecons-cf6106ce43cfd6c96d3eda4b7cb82bbc4c4d608a.tar.gz
mesecons-cf6106ce43cfd6c96d3eda4b7cb82bbc4c4d608a.tar.bz2
mesecons-cf6106ce43cfd6c96d3eda4b7cb82bbc4c4d608a.tar.xz
mesecons-cf6106ce43cfd6c96d3eda4b7cb82bbc4c4d608a.zip
Code cleanup - remove internal_api.lua (now internal.lua)
-rw-r--r--mesecons/internal_api.lua418
1 files changed, 0 insertions, 418 deletions
diff --git a/mesecons/internal_api.lua b/mesecons/internal_api.lua
deleted file mode 100644
index 7570091..0000000
--- a/mesecons/internal_api.lua
+++ /dev/null
@@ -1,418 +0,0 @@
--- INTERNAL API
-
-function mesecon:is_receptor_node(nodename, pos, ownpos) --ownpos must be position of the effector/mesecon NOT of the receptor node; pos is the receptor position
- local i=1
- local j=1
- repeat
- if mesecon.pwr_srcs[i].name==nodename then
- if pos==nil and ownpos==nil then --old usage still possible
- return true
- end
- local rules = mesecon.pwr_srcs[i].rules
- local get_rules = mesecon.pwr_srcs[i].get_rules
- local node = minetest.env:get_node(pos)
-
- if get_rules~=nil then --get_rules preferred
- rules = get_rules(node.param2)
- end
-
- j=1
- while rules[j]~=nil do --Check if dest. position is specified in the receptor's rules
- if pos.x+rules[j].x==ownpos.x
- and pos.y+rules[j].y==ownpos.y
- and pos.z+rules[j].z==ownpos.z then
- return true
- end
- j=j+1
- end
- end
- i=i+1
- until mesecon.pwr_srcs[i]==nil
- return false
-end
-
-function mesecon:is_receptor_node_off(nodename, pos, ownpos) --ownpos must be position of the effector/mesecon NOT of the receptor node; pos is the receptor position
- local i=1
- local j=1
- repeat
- if mesecon.pwr_srcs_off[i].name==nodename then
- if pos==nil and ownpos==nil then --old usage still possible
- return true
- end
- local rules = mesecon.pwr_srcs_off[i].rules
- local rules = mesecon.pwr_srcs_off[i].get_rules
- local node = minetest.env:get_node(pos)
-
- if get_rules ~= nil then
- rules = get_rules(node.param2)
- end
-
- j=1
- while rules[j]~=nil do
- if pos.x+rules[j].x==ownpos.x
- and pos.y+rules[j].y==ownpos.y
- and pos.z+rules[j].z==ownpos.z then
- return true
- end
- j=j+1
- end
- end
- i=i+1
- until mesecon.pwr_srcs_off[i]==nil
- return false
-end
-
---Signals
-
-function mesecon:activate(pos)
- local node = minetest.env:get_node(pos)
- local i = 1
- repeat
- i=i+1
- if mesecon.actions_on[i]~=nil then mesecon.actions_on[i](pos, node)
- else break
- end
- until false
-end
-
-function mesecon:deactivate(pos)
- local node = minetest.env:get_node(pos)
- local i = 1
- repeat
- i=i+1
- if mesecon.actions_off[i]~=nil then mesecon.actions_off[i](pos, node)
- else break
- end
- until false
-end
-
-function mesecon:changesignal(pos)
- local node = minetest.env:get_node(pos)
- local i = 1
- repeat
- i=i+1
- if mesecon.actions_change[i]~=nil then mesecon.actions_change[i](pos, node)
- else break
- end
- until false
-end
-
---Rules
-
-function mesecon:add_rules(name, rules)
- local i=0
- while mesecon.rules[i]~=nil do
- i=i+1
- end
- mesecon.rules[i]={}
- mesecon.rules[i].name=name
- mesecon.rules[i].rules=rules
-end
-
-function mesecon:get_rules(name)
- local i=0
- while mesecon.rules[i]~=nil do
- if mesecon.rules[i].name==name then
- return mesecon.rules[i].rules
- end
- i=i+1
- end
-end
-
---Conductor system stuff
-
-function mesecon:get_conductor_on(offstate)
- local i=0
- while mesecon.conductors[i]~=nil do
- if mesecon.conductors[i].off==offstate then
- return mesecon.conductors[i].on
- end
- i=i+1
- end
- return false
-end
-
-function mesecon:get_conductor_off(onstate)
- local i=0
- while mesecon.conductors[i]~=nil do
- if mesecon.conductors[i].on==onstate then
- return mesecon.conductors[i].off
- end
- i=i+1
- end
- return false
-end
-
-function mesecon:is_conductor_on(name)
- local i=0
- while mesecon.conductors[i]~=nil do
- if mesecon.conductors[i].on==name then
- return true
- end
- i=i+1
- end
- return false
-end
-
-function mesecon:is_conductor_off(name)
- local i=0
- while mesecon.conductors[i]~=nil do
- if mesecon.conductors[i].off==name then
- return true
- end
- i=i+1
- end
- return false
-end
-
---Rules rotation Functions:
-function mesecon:rotate_rules_right(rules)
- local i=1
- local nr={};
- while rules[i]~=nil do
- nr[i]={}
- nr[i].z=rules[i].x
- nr[i].x=-rules[i].z
- nr[i].y=rules[i].y
- i=i+1
- end
- return nr
-end
-
-function mesecon:rotate_rules_left(rules)
- local i=1
- local nr={};
- while rules[i]~=nil do
- nr[i]={}
- nr[i].z=-rules[i].x
- nr[i].x=rules[i].z
- nr[i].y=rules[i].y
- i=i+1
- end
- return nr
-end
-
-function mesecon:rotate_rules_down(rules)
- local i=1
- local nr={};
- while rules[i]~=nil do
- nr[i]={}
- nr[i].y=rules[i].x
- nr[i].x=-rules[i].y
- nr[i].z=rules[i].z
- i=i+1
- end
- return nr
-end
-
-function mesecon:rotate_rules_up(rules)
- local i=1
- local nr={};
- while rules[i]~=nil do
- nr[i]={}
- nr[i].y=-rules[i].x
- nr[i].x=rules[i].y
- nr[i].z=rules[i].z
- i=i+1
- end
- return nr
-end
-
-function mesecon:is_power_on(pos)
- local node = minetest.env:get_node(pos)
- if mesecon:is_conductor_on(node.name) or mesecon:is_receptor_node(node.name) then
- return true
- end
- return false
-end
-
-function mesecon:is_power_off(pos)
- local node = minetest.env:get_node(pos)
- if mesecon:is_conductor_off(node.name) or mesecon:is_receptor_node_off(node.name) then
- return 1
- end
- return 0
-end
-
-function mesecon:turnon(pos)
- local node = minetest.env:get_node(pos)
-
- if mesecon:is_conductor_off(node.name) then
- minetest.env:add_node(pos, {name=mesecon:get_conductor_on(node.name)})
- nodeupdate(pos)
-
- rules = mesecon:get_rules("default") --TODO: Use rules of conductor
- local i=1
- while rules[i]~=nil do
- local np = {}
- np.x = pos.x + rules[i].x
- np.y = pos.y + rules[i].y
- np.z = pos.z + rules[i].z
- mesecon:turnon(np)
- i=i+1
- end
- end
-
- mesecon:changesignal(pos)
- if minetest.get_item_group(node.name, "mesecon_effector_off") == 1 then
- mesecon:activate(pos)
- end
-end
-
-function mesecon:turnoff(pos)
- local node = minetest.env:get_node(pos)
-
- if mesecon:is_conductor_on(node.name) then
- minetest.env:add_node(pos, {name=mesecon:get_conductor_off(node.name)})
- nodeupdate(pos)
-
- rules = mesecon:get_rules("default") --TODO: Use ruels of conductor
- local i = 1
- while rules[i]~=nil do
- local np = {}
- np.x = pos.x + rules[i].x
- np.y = pos.y + rules[i].y
- np.z = pos.z + rules[i].z
- mesecon:turnoff(np)
- i=i+1
- end
- end
-
- mesecon:changesignal(pos) --Changesignal is always thrown because nodes can be both receptors and effectors
- if minetest.get_item_group(node.name, "mesecon_effector_on") == 1 and
- not mesecon:is_powered(pos) then --Check if the signal comes from another source
- --Send Signals to effectors:
- mesecon:deactivate(pos)
- end
-end
-
-
-function mesecon:connected_to_pw_src(pos, checked)
- if checked == nil then
- checked = {}
- end
- local connected
- local i = 1
-
- while checked[i] ~= nil do --find out if node has already been checked
- if checked[i].x == pos.x and checked[i].y == pos.y and checked[i].z == pos.z then
- return false, checked
- end
- i = i + 1
- end
-
- checked[i] = {x=pos.x, y=pos.y, z=pos.z} --add current node to checked
-
- local node = minetest.env:get_node_or_nil(pos)
- if node == nil then return false, checked end
-
- if mesecon:is_conductor_on(node.name) or mesecon:is_conductor_off(node.name) then
- if mesecon:is_powered_by_receptor(pos) then --return if conductor is powered
- return true, checked
- end
-
- local rules = mesecon:get_rules("default") --TODO: Use conductor specific rules
- local i = 1
- while rules[i] ~= nil do
- local np = {}
- np.x = pos.x + rules[i].x
- np.y = pos.y + rules[i].y
- np.z = pos.z + rules[i].z
- connected, checked = mesecon:connected_to_pw_src(np, checked)
- if connected then
- return true
- end
- i=i+1
- end
- end
- return false, checked
-end
-
-function mesecon:is_powered_by_receptor(pos)
- local rcpt
- local rcpt_pos = {}
- local rcpt_checked = {} --using a checked array speeds this up
- local i = 1
- local j = 1
- local k = 1
- local pos_checked = false
-
- while mesecon.rules[i]~=nil do
- j=1
- while mesecon.rules[i].rules[j]~=nil do
- rcpt_pos = {
- x = pos.x-mesecon.rules[i].rules[j].x,
- y = pos.y-mesecon.rules[i].rules[j].y,
- z = pos.z-mesecon.rules[i].rules[j].z}
-
- k = 1
- pos_checked = false
- while rcpt_checked[k] ~= nil do
- if compare_pos(rcpt_checked[k], rcpt_pos) then
- pos_checked = true
- end
- k = k + 1
- end
-
- if not pos_checked then
- table.insert(rcpt_checked, rcpt_pos)
- rcpt = minetest.env:get_node(rcpt_pos)
- if mesecon:is_receptor_node(rcpt.name, rcpt_pos, pos) then
- return true
- end
- end
- j=j+1
- end
- i=i+1
- end
- return false
-end
-
-function mesecon:is_powered_by_conductor(pos)
- local k=1
-
- rules=mesecon:get_rules("default") --TODO: use conductor specific rules
- while rules[k]~=nil do
- if mesecon:is_conductor_on(minetest.env:get_node({x=pos.x+rules[k].x, y=pos.y+rules[k].y, z=pos.z+rules[k].z}).name) then
- return true
- end
- k=k+1
- end
- return false
-end
-
-function mesecon:is_powered(pos)
- return mesecon:is_powered_by_conductor(pos) or mesecon:is_powered_by_receptor(pos)
-end
-
-function mesecon:updatenode(pos)
- if mesecon:connected_to_pw_src(pos) then
- mesecon:turnon(pos)
- else
- mesecon:turnoff(pos)
- end
-end
-
-minetest.register_on_placenode(function(pos, newnode, placer)
- if mesecon:is_powered(pos) then
- if mesecon:is_conductor_off(newnode.name) then
- mesecon:turnon(pos)
- else
- mesecon:changesignal(pos)
- mesecon:activate(pos)
- end
- end
-end)
-
-minetest.register_on_dignode(
- function(pos, oldnode, digger)
- if mesecon:is_conductor_on(oldnode.name) then
- local i = 1
- mesecon:receptor_off(pos)
- end
- end
-)
-
-function compare_pos(pos1, pos2)
- return pos1.x == pos2.x and pos1.y == pos2.y and pos1.z == pos2.z
-end