forked from MTSR/techage_modpack
111 lines
2.8 KiB
Lua
111 lines
2.8 KiB
Lua
--[[
|
|
|
|
TechAge
|
|
=======
|
|
|
|
Copyright (C) 2019 Joachim Stolberg
|
|
|
|
AGPL v3
|
|
See LICENSE.txt for more information
|
|
|
|
Logic library
|
|
|
|
]]--
|
|
|
|
-- for lazy programmers
|
|
local M = minetest.get_meta
|
|
local S = techage.S
|
|
|
|
techage.logic = {}
|
|
|
|
local Face2Dir = {[0]=
|
|
{x=0, y=0, z=1},
|
|
{x=1, y=0, z=0},
|
|
{x=0, y=0, z=-1},
|
|
{x=-1, y=0, z=0},
|
|
{x=0, y=-1, z=0},
|
|
{x=0, y=1, z=0}
|
|
}
|
|
|
|
-- Determine the destination position based on the position,
|
|
-- the node param2, and a route table like : {0,0,3}
|
|
-- 0 = forward, 1 = right, 2 = backward, 3 = left
|
|
function techage.logic.dest_pos(pos, param2, route)
|
|
local p2 = param2
|
|
for _,dir in ipairs(route) do
|
|
p2 = (param2 + dir) % 4
|
|
pos = vector.add(pos, Face2Dir[p2])
|
|
end
|
|
return pos, p2
|
|
end
|
|
|
|
function techage.logic.swap_node(pos, name)
|
|
local node = techage.get_node_lvm(pos)
|
|
if node.name == name then
|
|
return false
|
|
end
|
|
node.name = name
|
|
minetest.swap_node(pos, node)
|
|
return true
|
|
end
|
|
|
|
function techage.logic.after_place_node(pos, placer, name, descr)
|
|
local meta = M(pos)
|
|
local own_num = techage.add_node(pos, name)
|
|
meta:set_string("node_number", own_num)
|
|
meta:set_string("owner", placer:get_player_name())
|
|
meta:set_string("infotext", descr.." -")
|
|
end
|
|
|
|
function techage.logic.send_on(pos, meta, time)
|
|
local own_num = meta:get_string("node_number") or ""
|
|
local numbers = meta:get_string("numbers") or ""
|
|
if time and time > 0 then
|
|
minetest.get_node_timer(pos):start(time)
|
|
end
|
|
techage.send_multi(own_num, numbers, "on")
|
|
return own_num == numbers
|
|
end
|
|
|
|
function techage.logic.send_cmnd(pos, ident, default, time)
|
|
local meta = M(pos)
|
|
local s = meta:contains(ident) and meta:get_string(ident) or default
|
|
local command, payload = unpack(string.split(s, " ", false, 1))
|
|
local own_num = meta:get_string("node_number") or ""
|
|
local numbers = meta:get_string("numbers") or ""
|
|
if time and time > 0 then
|
|
minetest.get_node_timer(pos):start(time)
|
|
end
|
|
if command and command ~= "" then
|
|
techage.send_multi(own_num, numbers, command, payload)
|
|
end
|
|
end
|
|
|
|
function techage.logic.send_off(pos, meta)
|
|
local own_num = meta:get_string("node_number") or ""
|
|
local numbers = meta:get_string("numbers") or ""
|
|
techage.send_multi(own_num, numbers, "off")
|
|
end
|
|
|
|
function techage.logic.infotext(meta, descr, text)
|
|
local own_num = meta:get_string("node_number") or ""
|
|
local numbers = meta:get_string("numbers") or ""
|
|
if numbers ~= "" then
|
|
meta:set_string("infotext", descr.." "..own_num..": "..S("connected with").." "..numbers)
|
|
elseif text then
|
|
meta:set_string("infotext", descr.." "..own_num..": "..text)
|
|
else
|
|
meta:set_string("infotext", descr.." "..own_num)
|
|
end
|
|
end
|
|
|
|
function techage.logic.set_numbers(pos, numbers, player_name, descr)
|
|
if techage.check_numbers(numbers, player_name) then
|
|
local meta = M(pos)
|
|
meta:set_string("numbers", numbers)
|
|
techage.logic.infotext(meta, descr)
|
|
return true
|
|
end
|
|
return false
|
|
end
|