Advertisement
Guest User

t

a guest
Jan 31st, 2015
175
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lua 1.84 KB | None | 0 0
  1. rednet.open("top")
  2. mon = peripheral.wrap("left")
  3. mon.clear()
  4. os.sleep(2)
  5. knappNummer = 1
  6. knapper= {}
  7. print(os.getComputerID())
  8. fre = false
  9.  
  10. function knapp(navn, func, status, xmin, xmax, ymin, ymax)
  11.   knapper[knappNummer]={}
  12.   if status == "true" then
  13.     knapper[knappNummer]["status"] = true
  14.   else
  15.     knapper[knappNummer]["status"] = false
  16.   end
  17.   knapper[knappNummer]["navn"] = navn
  18.   knapper[knappNummer]["func"] = func
  19.   knapper[knappNummer]["xmin"] = xmin
  20.   knapper[knappNummer]["xmax"] = xmax
  21.   knapper[knappNummer]["ymin"] = ymin
  22.   knapper[knappNummer]["ymax"] = ymax
  23.  
  24.   knappNummer=knappNummer+1
  25. end
  26.  
  27. function ventPaEvent()
  28.   event, param1, param2, param3 = os.pullEvent()
  29.   if event == "monitor_touch" then
  30.     checkxy(param2, param3)
  31.     print("nice")
  32.   elseif event == "rednet_message" then
  33.    
  34.   else
  35.     print("feil event")
  36.   end
  37. end
  38.  
  39. function checkxy(x, y)
  40.   for z=1, #knapper do
  41.     if x>=knapper[z]["xmax"] and x<=knapper[z]["xmin"] then
  42.       if y>=knapper[z]["ymax"] and y<=knapper[z]["ymin"] then
  43.         knapper[z]["func"]()
  44.         fre = not fre
  45.         tegn(fre)
  46.         print("bra")
  47.       end
  48.     end
  49.   end
  50. end
  51. function tegn(d)
  52.   mon.setBackgroundColor(colours.black)
  53.   mon.clear()
  54.   if d then mon.setBackgroundColor(colors.lime)
  55.   else mon.setBackgroundColor(colors.red) end
  56.   for zz=1, #knapper do
  57.     zy=knapper[zz]["ymin"]
  58.     for zx=knapper[zz]["xmin"], knapper[zz]["xmax"] do
  59.       mon.setCursorPos(zx, zy)
  60.       mon.write(" ")
  61.       for zy=zy, knapper[zz]["ymax"] do
  62.         mon.setCursorPos(zx, zy)
  63.         mon.write(" ")
  64.       end
  65.      
  66.     end
  67.     mon.setCursorPos(knapper[zz]["xmin"]+1, knapper[zz]["ymax"]-1)
  68.     mon.write(knapper[zz]["navn"])
  69.   end
  70. end
  71. function en() print("bra funksjon") end
  72. knapp("en", en, false, 1, 10, 1, 10)
  73.  
  74. tegn()
  75. while true do ventPaEvent() end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement