mirror of
https://github.com/joe7575/techpack.git
synced 2024-11-29 18:43:53 +01:00
123 lines
2.2 KiB
Lua
123 lines
2.2 KiB
Lua
|
--[[
|
||
|
|
|
||
|
|
sl_robot
|
||
|
|
========
|
||
|
|
|
||
|
|
Copyright (C) 2018 Joachim Stolberg
|
||
|
|
|
||
|
|
LGPLv2.1+
|
||
|
|
See LICENSE.txt for more information
|
||
|
|
|
||
|
|
run_cmnd.lua:
|
||
|
|
|
||
|
|
Register the run command
|
||
|
|
|
||
|
|
]]--
|
||
|
|
|
||
|
|
local function Reverse(arr)
|
||
|
|
local i, j = 1, #arr
|
||
|
|
|
||
|
|
while i < j do
|
||
|
|
arr[i], arr[j] = arr[j], arr[i]
|
||
|
|
|
||
|
|
i = i + 1
|
||
|
|
j = j - 1
|
||
|
|
end
|
||
|
|
end
|
||
|
|
|
||
|
|
local switch = {
|
||
|
|
f = function(cmnd)
|
||
|
|
local num = (cmnd:byte(2) or 0x31) - 0x30
|
||
|
|
print("forward("..num..")")
|
||
|
|
end,
|
||
|
|
b = function(cmnd)
|
||
|
|
local num = (cmnd:byte(2) or 0x31) - 0x30
|
||
|
|
print("backward("..num..")")
|
||
|
|
end,
|
||
|
|
l = function(cmnd, reverse)
|
||
|
|
if reverse then
|
||
|
|
print("right()")
|
||
|
|
else
|
||
|
|
print("left()")
|
||
|
|
end
|
||
|
|
end,
|
||
|
|
r = function(cmnd, reverse)
|
||
|
|
if reverse then
|
||
|
|
print("left()")
|
||
|
|
else
|
||
|
|
print("right()")
|
||
|
|
end
|
||
|
|
end,
|
||
|
|
u = function(cmnd)
|
||
|
|
print("up()")
|
||
|
|
end,
|
||
|
|
d = function(cmnd)
|
||
|
|
print("down()")
|
||
|
|
end,
|
||
|
|
t = function(cmnd)
|
||
|
|
local num, slot
|
||
|
|
if cmnd:sub(2,2) == "s" then
|
||
|
|
num = 99
|
||
|
|
slot = (cmnd:byte(3) or 0x31) - 0x30
|
||
|
|
else
|
||
|
|
num = 1
|
||
|
|
slot = (cmnd:byte(2) or 0x31) - 0x30
|
||
|
|
end
|
||
|
|
print("take("..num..","..slot..")")
|
||
|
|
end,
|
||
|
|
a = function(cmnd)
|
||
|
|
local num, slot
|
||
|
|
if cmnd:sub(2,2) == "s" then
|
||
|
|
num = 99
|
||
|
|
slot = (cmnd:byte(3) or 0x31) - 0x30
|
||
|
|
else
|
||
|
|
num = 1
|
||
|
|
slot = (cmnd:byte(2) or 0x31) - 0x30
|
||
|
|
end
|
||
|
|
print("add("..num..","..slot..")")
|
||
|
|
end,
|
||
|
|
p = function(cmnd)
|
||
|
|
local num, slot
|
||
|
|
if cmnd:sub(2,2) == "u" then
|
||
|
|
slot = (cmnd:byte(3) or 0x31) - 0x30
|
||
|
|
print("place("..slot..",U)")
|
||
|
|
elseif cmnd:sub(2,2) == "d" then
|
||
|
|
slot = (cmnd:byte(3) or 0x31) - 0x30
|
||
|
|
print("place("..slot..",D)")
|
||
|
|
else
|
||
|
|
slot = (cmnd:byte(2) or 0x31) - 0x30
|
||
|
|
print("place("..slot..")")
|
||
|
|
end
|
||
|
|
end,
|
||
|
|
e = function(cmnd)
|
||
|
|
print(cmnd.." is a invalid command")
|
||
|
|
end,
|
||
|
|
}
|
||
|
|
|
||
|
|
local function run(task, reverse)
|
||
|
|
task = task:gsub("\n", " ")
|
||
|
|
task = task:gsub("\t", " ")
|
||
|
|
local cmnds = task:split(" ")
|
||
|
|
if reverse then
|
||
|
|
Reverse(cmnds)
|
||
|
|
end
|
||
|
|
for i,cmnd in ipairs(cmnds) do
|
||
|
|
(switch[cmnd:sub(1,1)] or switch["e"])(cmnd, reverse)
|
||
|
|
end
|
||
|
|
end
|
||
|
|
|
||
|
|
sl_robot.register_action("run", {
|
||
|
|
cmnd = function(self, sCmndList, reverse)
|
||
|
|
sCmndList = sCmndList:gsub("\n", " ")
|
||
|
|
sCmndList = sCmndList:gsub("\t", " ")
|
||
|
|
local cmnds = sCmndList:split(" ")
|
||
|
|
if reverse then
|
||
|
|
Reverse(cmnds)
|
||
|
|
end
|
||
|
|
for i,cmnd in ipairs(cmnds) do
|
||
|
|
(switch[cmnd:sub(1,1)] or switch["e"])(cmnd, reverse)
|
||
|
|
end
|
||
|
|
end,
|
||
|
|
help = " "
|
||
|
|
})
|