RCmaster_1.1.7

------------------------------------------------------------
-- Name: RCMaster
-- version: 1.1.7
-- Author: Dustin Rosebery
-- Description: Program that provides touchscreen turtle
--        operation including movement, inventory,
--        placing, and mining.
-- setup: 4x4 advanced monitors with an advanced computer
--      on the bottom of the monitors with a wireless
--      modem on the right side. Also requires an
--      advanced turtle with RCreceive installed
--      and a wireless modem on the left side.
------------------------------------------------------------

m = peripheral.wrap("top")
modem = peripheral.wrap("right")
m.clear()
buttons = {}
currentSlot = 1
currentOutput = "temp"

--------------------------------------------------
-- button creation
--------------------------------------------------

-- Directional button background color
dirColor = colors.red
-- Inventory button background color
invBackgroundColor = colors.white
-- Inventory button text color
invTextColor = colors.black
---------------------------------
--Directional buttons
---------------------------------

-- fbut (forward)
fxMin = 23
fxSize = 7
fxMax = fxMin + fxSize - 1

fyMin = 6
fySize = 4
fyMax = fyMin + fySize - 1

fbut = window.create(m,fxMin,fyMin,fxSize,fySize)
fbut.setBackgroundColor(dirColor)
fbut.restoreCursor()
fbut.redraw()
fbut.setCursorPos(1,1)
fbut.write("       ")
fbut.setCursorPos(1,2)
fbut.write("forward")
fbut.setCursorPos(1,3)
fbut.write("       ")

-- bbut (backwards)
bxMin = 23
bxSize = 7
bxMax = bxMin + bxSize - 1

byMin = 12
bySize = 3
byMax = byMin + bySize - 1

bbut = window.create(m,bxMin,byMin,bxSize,bySize)
bbut.setBackgroundColor(dirColor)
bbut.redraw()
bbut.restoreCursor()
bbut.setCursorPos(1,1)
bbut.write("       ")
bbut.setCursorPos(1,2)
bbut.write(" back  ")
bbut.setCursorPos(1,3)
bbut.write("       ")
bbut.redraw()

-- lbut (left)
lxMin = 19
lxSize = 7
lxMax = lxMin + lxSize - 1

lyMin = 9
lySize = 3
lyMax = lyMin + lySize - 1

lbut = window.create(m,lxMin,lyMin,lxSize,lySize)
lbut.setBackgroundColor(dirColor)
lbut.redraw()
lbut.setCursorPos(1,1)
lbut.write("       ")
lbut.setCursorPos(1,2)
lbut.write(" left  ")
lbut.setCursorPos(1, 3)
lbut.write("       ")

-- rbut (right)
rxMin = 27
rxSize = 7
rxMax = rxMin + rxSize - 1

ryMin = 9
rySize = 3
ryMax = ryMin + rySize - 1

rbut = window.create(m,rxMin,ryMin,rxSize,rySize)
rbut.setBackgroundColor(dirColor)
rbut.redraw()
rbut.setCursorPos(1,1)
rbut.write("       ")
rbut.setCursorPos(1,2)
rbut.write(" right ")
rbut.setCursorPos(1,3)
rbut.write("       ")

-- ubut (up)
uxMin = 36
uxSize = 2
uxMax = uxMin + uxSize - 1

uyMin = 7
uySize = 3
uyMax = uyMin + uySize - 1

ubut = window.create(m,uxMin,uyMin,uxSize,uySize)
ubut.setBackgroundColor(dirColor)
ubut.restoreCursor()
for i = 1, uySize do
  ubut.setCursorPos(1,i)
  ubut.write("  ")
end
m.setCursorPos(36,6)
m.write("up")

-- dbut (down)
dxMin = 36
dxSize = 2
dxMax = dxMin + dxSize - 1

dyMin = 11
dySize = 3
dyMax = dyMin + dySize - 1

dbut = window.create(m,dxMin,dyMin,dxSize,dySize)
dbut.setBackgroundColor(dirColor)
dbut.restoreCursor()
for i = 1, dySize do
  dbut.setCursorPos(1,i)
  dbut.write("  ")
end
m.setCursorPos(35,14)
m.write("down")

----------------------------
--Action Buttons
----------------------------

-- place
pxMin = 21
pxSize = 5
pxMax = pxMin + pxSize - 1

pyMin = 2
pySize = 1
pyMax = pyMin + pySize - 1

pbut = window.create(m,pxMin,pyMin,pxSize,pySize)
pbut.setBackgroundColor(dirColor)
pbut.write("place")

-- dig
digxMin = pxMax + 2
digxSize = 5
digxMax = digxMin + digxSize - 1

digyMin = 2
digySize = 1
digyMax = digyMin + digySize - 1

digbut = window.create(m,digxMin,digyMin,digxSize,digySize)
digbut.setBackgroundColor(dirColor)
digbut.write(" dig ")


----------------------------
--Inventory Buttons
----------------------------

invButtons = {}

ixMin = 1         -- x_min
ixSize = 17         -- x_width
ixMax = ixMin + ixSize - 1  -- x_max
iySize = 1          -- y_height

-- sets initial inventory button parameters and inserts into global list
function initInventoryButton(button)
  button.setBackgroundColor(invBackgroundColor)
  button.restoreCursor()
  button.setTextColor(invTextColor)
  button.setCursorPos(1,1)
  for i = 1, ixSize do
    button.write(" ")
  end
  table.insert(invButtons, button)
end

-- invLabel
invLabelyMin = 1
invLabel = window.create(m,ixMin,invLabelyMin,ixSize,iySize)
invLabel.setTextColor(colors.white)
invLabel.restoreCursor()
invLabel.write("Inventory:")

-- i1
i1yMin = 2
i1 = window.create(m,ixMin,i1yMin,ixSize,iySize)
initInventoryButton(i1)
-- i2
i2yMin = 3
i2 = window.create(m,ixMin,i2yMin,ixSize,iySize)
initInventoryButton(i2)
-- i3
i3yMin = 4
i3 = window.create(m,ixMin,i3yMin,ixSize,iySize)
initInventoryButton(i3)
-- i4
i4yMin = 5
i4 = window.create(m,ixMin,i4yMin,ixSize,iySize)
initInventoryButton(i4)
-- i5
i5yMin = 6
i5 = window.create(m,ixMin,i5yMin,ixSize,iySize)
initInventoryButton(i5)
-- i6
i6yMin = 7
i6 = window.create(m,ixMin,i6yMin,ixSize,iySize)
initInventoryButton(i6)
-- i7
i7yMin = 8
i7 = window.create(m,ixMin,i7yMin,ixSize,iySize)
initInventoryButton(i7)
-- i8
i8yMin = 9
i8 = window.create(m,ixMin,i8yMin,ixSize,iySize)
initInventoryButton(i8)
-- i9
i9yMin = 10
i9 = window.create(m,ixMin,i9yMin,ixSize,iySize)
initInventoryButton(i9)
-- i10
i10yMin = 11
i10 = window.create(m,ixMin,i10yMin,ixSize,iySize)
initInventoryButton(i10)
-- i11
i11yMin = 12
i11 = window.create(m,ixMin,i11yMin,ixSize,iySize)
initInventoryButton(i11)
-- i12
i12yMin = 13
i12 = window.create(m,ixMin,i12yMin,ixSize,iySize)
initInventoryButton(i12)
-- i13
i13yMin = 14
i13 = window.create(m,ixMin,i13yMin,ixSize,iySize)
initInventoryButton(i13)
-- i14
i14yMin = 15
i14 = window.create(m,ixMin,i14yMin,ixSize,iySize)
initInventoryButton(i14)
-- i15
i15yMin = 16
i15 = window.create(m,ixMin,i15yMin,ixSize,iySize)
initInventoryButton(i15)
-- i16
i16yMin = 17
i16 = window.create(m,ixMin,i16yMin,ixSize,iySize)
initInventoryButton(i16)
-- reset
iryMin = 19
iReset = window.create(m,ixMin,iryMin,ixSize,iySize)
iReset.setBackgroundColor(colors.red)
iReset.setTextColor(colors.white)
iReset.restoreCursor()
iReset.write("update")


-- cleans item names by removing modID:
function split(name)
  start, stop = string.find( name, ":" )
  result = string.sub( name, start+1, -1 )
  return result
end


-- initial inventory button display
function initInventory()
  for i = 1, 16 do
    rednet.broadcast(i)
    senderID, message, protocol = rednet.receive()
    if message == "empty" then
      invButtons[i].restoreCursor()
      invButtons[i].setCursorPos(1,1)
      invButtons[i].clear()
      invButtons[i].write("--")
    else
      name = split(message)
      sID, amount, proto = rednet.receive()
      output = amount .. " " .. name
      invButtons[i].restoreCursor()
      invButtons[i].setCursorPos(1,1)
      invButtons[i].clear()
      invButtons[i].write(output)
    end
  end
  rednet.broadcast(currentSlot)
  updateInventory(currentSlot)
  touchEvent()
end


-- updates inventory on inventory button click
function updateInventory(index)
  senderID, message, protocol = rednet.receive()
  invButtons[index].clear()
  invButtons[index].redraw()
  invButtons[index].restoreCursor()
  invButtons[index].setCursorPos(1,1)
  if( index == currentSlot ) then
    write("same slot")
  else
    invButtons[currentSlot].setBackgroundColor(invBackgroundColor)
    invButtons[currentSlot].restoreCursor()
    invButtons[currentSlot].clear()
    invButtons[currentSlot].setCursorPos(1,1)
    invButtons[currentSlot].write(currentOutput)
    invButtons[currentSlot].redraw()
    currentSlot = index
  end
   invButtons[index].setBackgroundColor(colors.lightGray)
  if message == "empty" then
    output = ("--")
  else
    name = split(message)
    sID, amount, proto = rednet.receive()
    output = amount .. " " .. name
  end
  invButtons[index].write(output)
  currentOutput = output
  touchEvent()
end


----------------------------------------------------------------------
-- Input listener
----------------------------------------------------------------------

function touchEvent()

  event, side, xpos, ypos = os.pullEvent("monitor_touch")
  write(xpos .. ", " .. ypos.."\n") -- show touch location

-- directional control
  if (     xpos >= fxMin and xpos <= fxMax and
           ypos >= fyMin and ypos <= fyMax )then
    rednet.broadcast("forward")

  elseif ( xpos >= bxMin and xpos <= bxMax and
           ypos >= byMin and ypos <= byMax )then
    rednet.broadcast("back")

  elseif ( xpos >= lxMin and xpos <= lxMax and
           ypos >= lyMin and ypos <= lyMax )then
    rednet.broadcast("left")

  elseif ( xpos >= rxMin and xpos <= rxMax and
           ypos >= ryMin and ypos <= ryMax )then
    rednet.broadcast("right")

  elseif ( xpos >= uxMin and xpos <= uxMax and
           ypos >= uyMin and ypos <= uyMax )then
    rednet.broadcast("up")

  elseif ( xpos >= dxMin and xpos <= dxMax and
           ypos >= dyMin and ypos <= dyMax )then
    rednet.broadcast("down")
-- action control
  elseif( xpos >= pxMin and xpos <= pxMax and
           ypos >= pyMin and ypos <= pyMax )then
    rednet.broadcast("place")
    os.sleep(1)
    rednet.broadcast(currentSlot)
    updateInventory(currentSlot)

  elseif( xpos >= digxMin and xpos <= digxMax and
          ypos >= digyMin and ypos <= digyMax )then
    rednet.broadcast("dig")


-- inventory control
  elseif ( xpos >= ixMin and xpos <= ixMax )then

    if( ypos >= i1yMin and ypos <= i16yMin + iySize )then

      ypos = ypos - 1 -- accounts for offset
      rednet.broadcast(ypos)
      updateInventory(ypos)

    elseif( ypos == iryMin ) then

      initInventory()
    end
  end
end

rednet.open("right")
initInventory()
while true do
 touchEvent()
end