Advertisement
Guest User

startup

a guest
Nov 25th, 2014
141
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lua 1.68 KB | None | 0 0
  1. function Color ()
  2.   button.e.color("a","text", colors.lime, colors.red)
  3.   button.e.color("a","back", colors.lime, colors.red)
  4.   button.e.color("b","text", colors.lime, colors.red)
  5.   button.e.color("b","back", colors.lime, colors.red)
  6.   button.e.color("c","text", colors.lime, colors.red)
  7.   button.e.color("c","back", colors.lime, colors.red)
  8.   button.e.color("d","text", colors.lime, colors.red)
  9.   button.e.color("d","back", colors.lime, colors.red)
  10.   button.e.color("e","text", colors.lime, colors.red)
  11.   button.e.color("e","back", colors.lime, colors.red)
  12.   button.e.color("f","text", colors.lime, colors.red)
  13.   button.e.color("f","back", colors.lime, colors.red)
  14. end
  15.  
  16. function TurbinePower(state)
  17.     rednet.send(controller,tostring(state),"tMonPower")
  18. end
  19.  
  20. function TurbineEng(state)
  21.     rednet.send(controller,tostring(state),"tMonInduct")
  22. end
  23.  
  24. function networkLoop()
  25.     while true do
  26.         local senderId, message, protocol = rednet.receive("turbine")
  27.         if senderId == controller then
  28.             local turbinetable = textutils.unserialize(message)
  29.             button.e.text("a",tostring(turbinetable[2]))
  30.             button.e.text("b",tostring(turbinetable[3]))
  31.             button.e.status("e",turbinetable[1])
  32.             button.e.status("f",turbinetable[4])
  33.         end
  34.     end
  35. end
  36.  
  37. rednet.open("top")
  38. rednet.host("tMon",os.getComputerLabel())
  39. controller = rednet.lookup("turbine","turbinethreecontroller")
  40.  
  41. os.loadAPI("button")
  42.  
  43. button.wrap("back")
  44. button.e.s.scale(1)
  45.  
  46. button.new.b("a","Button 1",2,12,2,4,nil,nil)
  47. button.new.b("b","Button 2",2,12,6,8,nil,nil)
  48.  
  49. button.new.b("e","Turbine",26,36,2,4,TurbinePower,false)
  50. button.new.b("f","Inductor",26,36,6,8,TurbineEng,false)
  51.  
  52. parallel.waitForAll(button.cycle,networkLoop)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement