client.lua

-- Modified Client for Mote - The Turtle Remote
-- 2015 Austin Paxton
-- with credit to
-- Client for Mote - The Turtle Remote
-- http://hbar.kapsi.fi/ccserver/mote/
-- 2014 Matti Vapa

-- Feel free to modify and redistribute
-- this program. Attribution is appreciated,
-- but not required

if not http then
  print("HTTP required!")
  return
end

print("Checking fuel...")
if turtle.getFuelLevel() == 0 then
  print("Refuel me!")
  return
end
print("Ok!")

-- Query this address for commands.
url = "http://hbar.kapsi.fi/ccserver/mote/get/"

-- Helper functions for some more complicated commands
function redFront()
  redstone.setOutput('front',true)
  sleep(1)
  redstone.setOutput('front', false)
end

function redBack()
  redstone.setOutput('back',true)
  sleep(1)
  redstone.setOutput('back', false)
end

function redLeft()
  redstone.setOutput('left',true)
  sleep(1)
  redstone.setOutput('left', false)
end

function redRight()
  redstone.setOutput('right',true)
  sleep(1)
  redstone.setOutput('right', false)
end

function redUp()
  redstone.setOutput('top',true)
  sleep(1)
  redstone.setOutput('top', false)
end

function redDown()
  redstone.setOutput('bottom',true)
  sleep(1)
  redstone.setOutput('bottom', false)
end

-- Map the commands returned by the server to functions.
-- These are all of the commands available at the time of
-- writing. If you want more functions, you could use
-- for example "menu" to change between sets of functions.
-- Also note that this works with computers too, so you
-- could use this to control your base doors and machines
-- or anything. The session stays live as long as there
-- was at least one command or query during the last hour
-- (might change if there's need for it).
cmds = {}
cmds.forward = turtle.forward
cmds.back = turtle.back
cmds.left = turtle.turnLeft
cmds.right = turtle.turnRight
cmds.up = turtle.up
cmds.down = turtle.down
cmds.dig = turtle.dig
cmds.digUp = turtle.digUp
cmds.digDown = turtle.digDown
cmds.place = turtle.place
cmds.placeUp = turtle.placeUp
cmds.placeDown = turtle.placeDown
cmds.rs = redFront
cmds.rsBack = redBack
cmds.rsUp = redUp
cmds.rsDown = redDown
cmds.rsLeft = redLeft
cmds.rsRight = redRight
cmds.suck = turtle.suck
cmds.drop = turtle.drop

sID = {...}
if #sID < 1 then
  print("Usage: mote <session ID>")
  print("Parameter session ID is the random numbers and letters")
  print("following /mote/ in the controller URL.")
  return false
end
sID = sID[1]
-- We need to send this data to get the commands from server.
data = "sessionId="..sID

print("Listening for commands...")

-- Initialize the command value
cmd = "null"

-- We use this function to asynchronously wait for the command from the server.
-- The server will keep the connection open until there is a command to
-- send or it has been open for 60 seconds.

function waitForCmd()
  -- http.request will raise an "http_success" or "http_failure"
  -- event after completion. We'll wait for that and act accordingly.
  http.request(url,data)
  e, u, r = os.pullEvent()
  while e ~= "http_success" and e ~= "http_failure" do
    e, u, r = os.pullEvent()
  end
  if e == "http_failure" then
    error("Could not connect to server.")
  elseif r.getResponseCode() ~= 200 then
    print("Something went wrong!")
    print("Server response code: "..tostring(r.getResponseCode()))
    print("Reason: "..r.readAll())
    error("Bad request. Check your session ID.")
  else
    cmd = r.readAll()
  end
end

-- Main loop. If we receive a proper command, we simultaneously execute it
-- and request the next one. This way the program is more responsive compared
-- to continuously polling the server.
while true do
  if cmds[cmd] then
    parallel.waitForAll(cmds[cmd],waitForCmd)
  else
    waitForCmd()
  end
end