techpack/sl_controller/commands.lua
2018-06-24 15:01:33 +02:00

144 lines
3.9 KiB
Lua

--[[
sl_controller
=============
Copyright (C) 2018 Joachim Stolberg
LGPLv2.1+
See LICENSE.txt for more information
commands.lua:
Register all basic controller commands
]]--
sl_controller.register_function("get_input", {
cmnd = function(self, num)
_G = self._G
return sl_controller.get_input(self.meta.number, num)
end,
help = " $get_input(num) --> 'on', 'off', or nil\n"..
" Read local input value from device with number 'num'.\n"..
' example: inp = $get_input("1234")\n'..
" The device has to be connected with the controller."
})
sl_controller.register_function("get_status", {
cmnd = function(self, num)
_G = self._G
return tubelib.send_request(num, "state", nil)
end,
help = " $get_status(num) --> 'stopped', 'running',\n"..
" 'standby', 'blocked' or 'fault'\n"..
" Read status from a remote device.\n"..
' example: sts = $get_status("1234")'
})
sl_controller.register_function("time_as_str", {
cmnd = function(self)
_G = self._G
local t = minetest.get_timeofday()
local h = math.floor(t*24) % 24
local m = math.floor(t*1440) % 60
return string.format("%02d:%02d", h, m)
end,
help = " $time_as_str() --> e.g. '18:45'\n"..
" Read time of day as string (24h).\n"..
' example: time = $time_as_str()'
})
sl_controller.register_function("time_as_num", {
cmnd = function(self, num)
_G = self._G
local t = minetest.get_timeofday()
local h = math.floor(t*24) % 24
local m = math.floor(t*1440) % 60
return h * 100 + m
end,
help = " $time_as_num() --> e.g.: 1845\n"..
" Read time of day as number (24h).\n"..
' example: time = $time_as_num()'
})
sl_controller.register_function("playerdetector", {
cmnd = function(self, num)
_G = self._G
return tubelib.send_request(num, "name", nil)
end,
help = " $playerdetector(num) --> e.g. 'Joe'\n"..
" '' is returned if no layer is nearby.\n"..
' example: name = $playerdetector("1234")'
})
sl_controller.register_action("send_cmnd", {
cmnd = function(self, num, text)
_G = self._G
tubelib.send_message(num, self.meta.owner, nil, text, nil)
end,
help = " $send_cmnd(num, text)\n"..
" Send a command to the device with number 'num'.\n"..
" For most devices: 'on', 'off'\n"..
" Signal Tower: 'green', 'amber', 'red'\n"..
' example: $send_cmnd("1234", "on")'
})
sl_controller.register_action("display", {
cmnd = function(self, num, row, text1, text2, text3)
_G = self._G
local text = (text1 or "") .. (text2 or "") .. (text3 or "")
tubelib.send_message(num, self.meta.owner, nil, "row", {row = row, str = text})
end,
help = " $display(num, row, text,...)\n"..
" Send a text line to the display with number 'num'.\n"..
" 'row' is a value from 1..9\n"..
" The function accepts up to 3 text parameters\n"..
' example: $display("0123", 1, "Hello ", name, " !")'
})
sl_controller.register_action("clear_screen", {
cmnd = function(self, num)
_G = self._G
tubelib.send_message(num, self.meta.owner, nil, "clear", nil)
end,
help = " $clear_screen(num)\n"..
" Clear the screen of the display\n"..
" with number 'num'.\n"..
' example: $clear_screen("1234")'
})
sl_controller.register_action("chat", {
cmnd = function(self, text)
_G = self._G
minetest.chat_send_player(self.meta.owner, "[SmartLine Controller] "..text)
end,
help = " $chat(text)\n"..
" Send yourself a chat message.\n"..
' example: $chat("Hello")'
})
sl_controller.register_action("door", {
cmnd = function(self, pos, text)
_G = self._G
pos = minetest.string_to_pos("("..pos..")")
if pos then
local door = doors.get(pos)
if door then
local player = {
get_player_name = function() return self.meta.owner end,
}
if state == "open" then
door:open(player)
elseif state == "close" then
door:close(player)
end
end
end
end,
help = " %door(pos, text)\n"..
" Open/Close a door at position 'pos'\n"..
' example: door("123,7,-1200", "close")\n'..
" Hint: Use the Tubelib Programmer to\ndetermine the door position."
})