aboutsummaryrefslogtreecommitdiff
path: root/advtrains/advtrains_luaautomation/active_common.lua
diff options
context:
space:
mode:
authorrubenwardy <rubenwardy@gmail.com>2017-09-20 17:05:04 +0100
committerorwell96 <mono96.mml@gmail.com>2017-09-20 18:05:04 +0200
commitd65c4916ceaeed6eec5fe3f344d4e71b3c96a80b (patch)
treeae2a4a1ca5bdbcb0a2a867287d4556f92478405a /advtrains/advtrains_luaautomation/active_common.lua
parentb75c83ea43bb9f6e3bee2b4db955e2a9e7be885e (diff)
downloadadvtrains-d65c4916ceaeed6eec5fe3f344d4e71b3c96a80b.tar.gz
advtrains-d65c4916ceaeed6eec5fe3f344d4e71b3c96a80b.tar.bz2
advtrains-d65c4916ceaeed6eec5fe3f344d4e71b3c96a80b.zip
Remove zip release files, move mod to root, exclude assets from Makefile (#92)
Diffstat (limited to 'advtrains/advtrains_luaautomation/active_common.lua')
-rw-r--r--advtrains/advtrains_luaautomation/active_common.lua134
1 files changed, 0 insertions, 134 deletions
diff --git a/advtrains/advtrains_luaautomation/active_common.lua b/advtrains/advtrains_luaautomation/active_common.lua
deleted file mode 100644
index 8c910c6..0000000
--- a/advtrains/advtrains_luaautomation/active_common.lua
+++ /dev/null
@@ -1,134 +0,0 @@
-
-
-local ac = {nodes={}}
-
-function ac.load(data)
- if data then
- ac.nodes=data.nodes
- end
-end
-function ac.save()
- return {nodes = ac.nodes}
-end
-
-function ac.after_place_node(pos, player)
- advtrains.ndb.update(pos)
- local meta=minetest.get_meta(pos)
- meta:set_string("formspec", ac.getform(pos, meta))
- meta:set_string("infotext", "LuaAutomation component, unconfigured.")
- local ph=minetest.pos_to_string(pos)
- --just get first available key!
- for en,_ in pairs(atlatc.envs) do
- ac.nodes[ph]={env=en}
- return
- end
-end
-function ac.getform(pos, meta_p)
- local meta = meta_p or minetest.get_meta(pos)
- local envs_asvalues={}
-
- local ph=minetest.pos_to_string(pos)
- local nodetbl = ac.nodes[ph]
- local env, code, err = nil, "", ""
- if nodetbl then
- code=nodetbl.code or ""
- err=nodetbl.err or ""
- env=nodetbl.env or ""
- end
- local sel = 1
- for n,_ in pairs(atlatc.envs) do
- envs_asvalues[#envs_asvalues+1]=n
- if n==env then
- sel=#envs_asvalues
- end
- end
- local form = "size[10,10]dropdown[0,0;3;env;"..table.concat(envs_asvalues, ",")..";"..sel.."]"
- .."button[4,0;2,1;save;Save]button[7,0;2,1;cle;Clear local env] textarea[0.2,1;10,10;code;Code;"..minetest.formspec_escape(code).."]"
- .."label[0,9.8;"..err.."]"
- return form
-end
-
-function ac.after_dig_node(pos, node, player)
- advtrains.invalidate_all_paths(pos)
- advtrains.ndb.clear(pos)
- local ph=minetest.pos_to_string(pos)
- ac.nodes[ph]=nil
-end
-
-function ac.on_receive_fields(pos, formname, fields, player)
- if not minetest.check_player_privs(player:get_player_name(), {atlatc=true}) then
- minetest.chat_send_player(player:get_player_name(), "Missing privilege: atlatc - Operation cancelled!")
- return
- end
-
- local meta=minetest.get_meta(pos)
- local ph=minetest.pos_to_string(pos)
- local nodetbl = ac.nodes[ph] or {}
- --if fields.quit then return end
- if fields.env then
- nodetbl.env=fields.env
- end
- if fields.code then
- nodetbl.code=fields.code
- end
- if fields.save then
- nodetbl.err=nil
- end
- if fields.cle then
- nodetbl.data={}
- end
-
- ac.nodes[ph]=nodetbl
-
- meta:set_string("formspec", ac.getform(pos, meta))
- if nodetbl.env then
- meta:set_string("infotext", "LuaAutomation component, assigned to environment '"..nodetbl.env.."'")
- else
- meta:set_string("infotext", "LuaAutomation component, invalid enviroment set!")
- end
-end
-
-function ac.run_in_env(pos, evtdata, customfct_p)
- local ph=minetest.pos_to_string(pos)
- local nodetbl = ac.nodes[ph]
- if not nodetbl then
- atwarn("LuaAutomation component at",ph,": Data not in memory! Please visit component and click 'Save'!")
- return
- end
-
- local meta
- if minetest.get_node_or_nil(pos) then
- meta=minetest.get_meta(pos)
- end
-
- if not nodetbl.env or not atlatc.envs[nodetbl.env] then
- atwarn("LuaAutomation component at",ph,": Not an existing environment: "..(nodetbl.env or "<nil>"))
- return false
- end
- if not nodetbl.code or nodetbl.code=="" then
- atwarn("LuaAutomation component at",ph,": No code to run! (insert -- to suppress warning)")
- return false
- end
-
- local customfct=customfct_p or {}
- customfct.interrupt=function(t, imesg)
- atlatc.interrupt.add(t, pos, {type="int", int=true, message=imesg})
- end
-
- local datain=nodetbl.data or {}
- local succ, dataout = atlatc.envs[nodetbl.env]:execute_code(datain, nodetbl.code, evtdata, customfct)
- if succ then
- atlatc.active.nodes[ph].data=atlatc.remove_invalid_data(dataout)
- else
- atlatc.active.nodes[ph].err=dataout
- atwarn("LuaAutomation ATC interface rail at",ph,": LUA Error:",dataout)
- if meta then
- meta:set_string("infotext", "LuaAutomation ATC interface rail, ERROR:"..dataout)
- end
- end
- if meta then
- meta:set_string("formspec", ac.getform(pos, meta))
- end
-end
-
-atlatc.active=ac