New Program: Redstone Remote

diff --git a/rsr/rsr-client.lua b/rsr/rsr-client.lua
new file mode 100644 (file)
index 0000000..2c25ce6
--- /dev/null
+++ b/rsr/rsr-client.lua
@@ -0,0 +1,11 @@
+local modem = peripheral.find("modem")
+
+if not modem then
+  print("No modem connected")
+  exit()
+else if not modem.isWireless() then
+  print ("Modem not wireless")
+  exit()
+end
+
+print("Wireless modem available")

diff --git a/rsr/setup.lua b/rsr/setup.lua
new file mode 100644 (file)
index 0000000..6be8f55
--- /dev/null
+++ b/rsr/setup.lua
@@ -0,0 +1,52 @@
+-- setup.lua
+
+
+
+local options =
+  { { desc = "install client"
+    , action = function () os.shell("dl cc rsr/rsr-client.lua:/bin/rsr-client.lua:o") end
+    }
+  , { desc = "install server"
+    , action = function () print("no!") end
+    }
+  }
+
+
+print("Dowload and install Redstone Remote") 
+
+-- print options
+do
+  print("options:")
+  for i,opt in ipairs(options) do
+  print("  " .. tostring(i) .. " " .. opt.desc)
+  end
+end
+
+-- select option
+local selected = nil
+do 
+  local _, k = os.pullEvent("key")
+  local option = options[tonumber(k)]
+  if option == nil then
+    print("No such option, exiting...")
+    exit()
+  else 
+    selected = option
+  end
+end
+
+selected.action()
+
+
+
+
+-- do
+--   local i = 1
+--   for _,t ipairs(options) do option = i do
+--     t.option = i
+--     i = i + 1
+--   end
+
+-- local client = { from = rsr/client.lua 
+-- dl cc rsr/client.lua:/bin/rsr/client.lua
+