Test1

local mon = peripheral.wrap("back")
function clear()
        term.clear()
        term.setCursorPos(1,1)
end
print( "Copyright by TheBommel" )
write( "Es wird nach Updates gesucht... " )
local response = http.get("http://pastebin.com/raw.php?i=sUzFGNLu")
if response then
   print("Update-suche erfolgreich!")
   local sSource = response.readAll()
   response.close()
   local file = fs.open( "startup", "r" )
   local sTarget = ""
   if file then
          sTarget = file.readAll()
          file.close()
   end
   if sSource ~= sTarget then
          term.write("Updates gefunden!")
          file = fs.open( "startup", "w" )
          file.write( sSource )
          file.close()
          print( "Wurde herruntergeladen als - startup - -Datei")
          print("Programm wird Neugestartet!")
          shell.run("startup")
          return
   else
          print("Es sind keine Updates vorhanden!")
          print("Programm wird gestartet!")
          sleep(3)
          clear()
   end
else
   clear()
   print("ERROR! Informiere bitte TheBommel!!")
   clear()
end
-----------------------------------------------------------------------------------------------------------------
rednet.open("top")
local mon = peripheral.wrap("back")
-- Farbdecodierer
function decode(int)
        if int == 1 then
                return 1
        elseif int == 2 then
                return 2
        elseif int == 3 then
                return 4
        elseif int == 4 then
                return 8
        elseif int == 5 then
                return 16
        elseif int == 6 then
                return 32
        elseif int == 7 then
                return 64
        elseif int == 8 then
                return 128
        elseif int == 9 then
                return 256
        elseif int == 10 then
                return 512
        elseif int == 11 then
                return 1024
        elseif int == 12 then
                return 2048
        elseif int == 13 then
                return 4096
        elseif int == 14 then
                return 8192
        elseif int == 15 then
                return 16384
        elseif int == 16 then
                return 32768
        end
end
-----------------------------------------------------------------------------------------------------------------
while true do
 mon.setBackgroundColor(decode(16))
 mon.setCursorPos(14, 1)
 mon.write("Quarry-Control")

-- Gruener Quarry
 mon.setBackgroundColor(decode(16))
 mon.setCursorPos(10, 5)
 mon.write("Quarry Gruen")
 mon.setCursorPos(30, 5)
 mon.setBackgroundColor(decode(14))
 mon.write("ON")
 mon.setCursorPos(35, 5)
 mon.setBackgroundColor(decode(15))
 mon.write("OFF")
 mon.setBackgroundColor(decode(16))

-- Roter Quarry

 mon.setBackgroundColor(decode(16))
 mon.setCursorPos(10, 7)
 mon.write("Quarry Rot")
 mon.setCursorPos(30,7)
 mon.setBackgroundColor(decode(14))
 mon.write("ON")
 mon.setCursorPos(35, 7)
 mon.setBackgroundColor(decode(15))
 mon.write("OFF")
 mon.setBackgroundColor(decode(16))

-- Cyan Quarry

 mon.setBackgroundColor(decode(16))
 mon.setCursorPos(10, 9)
 mon.write("Quarry Cyan")
 mon.setCursorPos(30, 9)
 mon.setBackgroundColor(decode(14))
 mon.write("ON")
 mon.setCursorPos(35, 9)
 mon.setBackgroundColor(decode(15))
 mon.write("OFF")
 mon.setBackgroundColor(decode(16))

-- Brauner Quarry

 mon.setBackgroundColor(decode(16))
 mon.setCursorPos(10, 11)
 mon.write("Quarry Braun")
 mon.setCursorPos(30, 11)
 mon.setBackgroundColor(decode(14))
 mon.write("ON")
 mon.setCursorPos(35, 11)
 mon.setBackgroundColor(decode(15))
 mon.write("OFF")
 mon.setBackgroundColor(decode(16))

-- Lime Quarry

 mon.setBackgroundColor(decode(16))
 mon.setCursorPos(10, 13)
 mon.write("Quarry Lime")
 mon.setCursorPos(30,13)
 mon.setBackgroundColor(decode(14))
 mon.write("ON")
 mon.setCursorPos(35, 13)
 mon.setBackgroundColor(decode(15))
 mon.write("OFF")
 mon.setBackgroundColor(decode(16))

-- Oranger Quarry

 mon.setBackgroundColor(decode(16))
 mon.setCursorPos(10, 15)
 mon.write("Quarry Orange")
 mon.setCursorPos(30, 15)
 mon.setBackgroundColor(decode(14))
 mon.write("ON")
 mon.setCursorPos(35, 15)
 mon.setBackgroundColor(decode(15))
 mon.write("OFF")
 mon.setBackgroundColor(decode(16))
-----------------------------------------------------------------------------------------------------------------
-- ON/OFF Schaltung
-- Gruen ON
    e,d,x,y = os.pullEvent()
        if event == "monitor_touch" then
        if x == 30 and y == 5 then
                rednet.send(277, "on")
    elseif x == 31 and y == 5 then
                rednet.send(277, "on")

-- Gruen OFF
        elseif x == 35 and y == 5 then
                rednet.send(277, off)
    elseif x == 36 and y == 5 then
                rednet.send(277, off)
    elseif x == 37 and y == 5 then
                rednet.send(277, off)

-- Rot ON
        elseif y == 30 and x == 7 then
                rednet.send(284, on)
    elseif y == 31 and x == 5 then
                rednet.send(284, on)

-- Rot OFF
        elseif y == 35 and x == 7 then
                rednet.send(284, off)
    elseif y == 36 and x == 5 then
                rednet.send(284, off)
    elseif y == 37 and x == 5 then
                rednet.send(284, off)

-- Cyan ON
        elseif y == 30 and x == 9 then
                rednet.send(285, on)
    elseif y == 31 and x == 9 then
                rednet.send(285, on)

-- Cyan OFF
        elseif y == 35 and x == 9 then
                rednet.send(285, off)
    elseif y == 36 and x == 5 then
                rednet.send(285, off)
    elseif y == 37 and x == 9 then
                rednet.send(285, off)

-- Braun ON
        elseif y == 30 and x == 11 then
                rednet.send(286, on)
    elseif y == 31 and x == 11 then
                rednet.send(286, on)

-- Braun OFF
        elseif y == 35 and x == 11 then
                rednet.send(286, off)
    elseif y == 36 and x == 11 then
                rednet.send(286, off)
    elseif y == 37 and x == 11 then
                rednet.send(286, off)

-- Lime ON
        elseif y == 30 and x == 13 then
                rednet.send(287, on)
    elseif y == 31 and x == 13 then
                rednet.send(287, on)

-- Lime OFF
        elseif y == 35 and x == 13 then
                rednet.send(287, off)
    elseif y == 36 and x == 13 then
                rednet.send(287, off)
    elseif y == 37 and x == 13 then
                rednet.send(287, off)

-- Orange ON
        elseif y == 30 and x == 15 then
                rednet.send(288, on)
    elseif y == 31 and x == 15 then
                rednet.send(288, on)

-- Orange OFF
        elseif y == 35 and x == 15 then
                rednet.send(288, off)
    elseif y == 36 and x == 15 then
                rednet.send(288, off)
    elseif y == 37 and x == 15 then
                rednet.send(288, off)
    end
end
end