rs control

m = peripheral.wrap("right")

function wipeScreen()
 m.clear()
 m.setTextScale(1.75)
end

function konec()
sleep(3)
wipeScreen()
end

local function usp1()
   m.clear()
   m.setCursorPos(1, 1)
   m.write("VAROVANI! Nedostatek energie!")
   sleep(1)
   m.setCursorPos(1, 2)
   m.write("Zapinam usporny rezim!")
   sleep(1)
   rs.setBundledOutput("bottom",colors.combine(rs.getBundledOutput("bottom"),colors.green))
   m.setCursorPos(1, 3)
   m.write("Usporny rezim zapnut")
   m.setCursorPos(1, 4)
   m.write("Hledam novy zdroj energie")
   m.setBackgroundColor( colors.orange )
   sleep(3)
   m.clear()
   m.setCursorPos(1, 1)
   solar()
end
function solar()
 if rs.testBundledInput("back", colors.orange) then
   m.write("Kontrola solaru... prsi")
   m.setCursorPos(1, 2)
   sleep(1)
   m.write("Hledam dalsi zdroje")
   sleep(2)
   vet()
   elseif rs.testBundledInput("back", colors.pink) then
   m.write("Kontrola solaru... OK")
   m.setCursorPos(1, 2)
   sleep(1)
   m.write("Hledam dalsi zdroje")
   sleep(2)
   vet()
   else
   m.write("Kontrola solaru... Noc")
   m.setCursorPos(1, 2)
   sleep(1)
   m.write("Hledam dalsi zdroje")
   sleep(2)
   vet()
 end
end
function vet()
  m.setCursorPos(1, 3)
  if rs.testBundledInput("back", colors.yellow) then
  m.write("vetrna OK")
  rs.setBundledOutput("bottom",colors.combine(rs.getBundledOutput("back"),colors.yellow))
  rs.setBundledOutput("bottom",colors.subtract(rs.getBundledOutput("bottom"),colors.black))
  sleep(2)
  uz1()
  else
  m.setCursorPos(1, 3)
  m.write("vetrna Offline! zapinam..")
  rs.setBundledOutput("back",colors.subtract(rs.getBundledOutput("back"),colors.green))
  sleep(2)
   if rs.testBundledInput("back", colors.yellow) then
   m.setCursorPos(1, 4)
   m.write("vetrna uspesne zapnuta")
   rs.setBundledOutput("bottom",colors.subtract(rs.getBundledOutput("bottom"),colors.black))
   rs.setBundledOutput("bottom",colors.combine(rs.getBundledOutput("back"),colors.yellow))
   sleep(2)
   uz1()
   else
   m.setCursorPos(1, 4)
   m.write("chyba vetrne elektrarny! vypinam..")
   rs.setBundledOutput("bottom",colors.combine(rs.getBundledOutput("bottom"),colors.black))
   rs.setBundledOutput("back",colors.combine(rs.getBundledOutput("back"),colors.green))
   sleep(1)
   m.setCursorPos(1, 5)
   m.write("hledam dalsi zdroje")
   sleep(2)
   radio()
   end
  end
end

function radio()
  if rs.testBundledInput("back", colors.blue) then
  m.setCursorPos(1, 6)
  m.write("radioisotope OK")
  rs.setBundledOutput("bottom",colors.combine(rs.getBundledOutput("bottom"),colors.blue))
  sleep(2)
  uz2()
  else
  m.setCursorPos(1, 6)
  m.write("radioisotope Offline zapinam..")
  rs.setBundledOutput("back",colors.subtract(rs.getBundledOutput("back"),colors.purple))
  sleep(2)
   if rs.testBundledInput("back", colors.blue) then
   m.setCursorPos(1, 7)
   m.write("RI generator uspesne zapnut")
   rs.setBundledOutput("bottom",colors.combine(rs.getBundledOutput("bottom"),colors.blue))
   m.setCursorPos(1, 8)
   m.write("hledam dalsi zdroje")
   else
   m.setCursorPos(1, 7)
   m.write("chyba RI generatoru! vypinam..")
   rs.setBundledOutput("back",colors.combine(rs.getBundledOutput("back"),colors.purple))
   sleep(2)
   m.setCursorPos(1, 8)
   m.write("hledam dalsi zdroje")
   sleep(2)
   jad()
   end
  end
end


function jad()
  m.clear()
  m.setCursorPos(1, 1)
  if rs.testBundledInput("back", colors.white) then
  m.write("reactor OK")
  rs.setBundledOutput("bottom",colors.combine(rs.getBundledOutput("back"),colors.white))
  sleep(2)
  else
  m.setCursorPos(1, 1)
  m.write("reactor Offline zapinam..")
  rs.setBundledOutput("back",colors.subtract(rs.getBundledOutput("back"),colors.cyan))
  sleep(1)
  rs.setBundledOutput("back",colors.combine(rs.getBundledOutput("back"),colors.red))
  sleep(2)
   if rs.testBundledInput("back", colors.white) then
   m.setCursorPos(1, 2)
   m.write("reactor uspesne zapnut")
   rs.setBundledOutput("bottom",colors.combine(rs.getBundledOutput("back"),colors.white))
   else
   m.setCursorPos(1, 2)
   m.write("chyba reactoru! vypinam..")
   rs.setBundledOutput("back",colors.combine(rs.getBundledOutput("back"),colors.cyan))
   rs.setBundledOutput("back",colors.subtract(rs.getBundledOutput("back"),colors.red))
   sleep(2)
   end
  end
end

function uz1()
 if rs.testBundledInput("back", colors.yellow) and rs.testBundledInput("back", colors.pink) then
 m.setCursorPos(1, 5)
 m.write("ukoncuji usporny rezim")
 sleep(2)
 rs.setBundledOutput("bottom",colors.subtract(rs.getBundledOutput("bottom"),colors.green))
 m.setCursorPos(1, 6)
 m.write("usporny rezim ukoncen!")
 m.setBackgroundColor( colors.black )
 sleep(2)
 moc1()
 else
 m.setCursorPos(1, 4)
 m.write("hledam dalsi zdroj")
 sleep(1)
 radio()
 end
end

function moc1()
 if rs.testBundledInput("back", colors.blue) or rs.testBundledInput("back", colors.white) then
 m.clear()
 m.setCursorPos(1, 1)
 m.write("Byl detekovat nadbytek energie")
 sleep(1)
 m.setCursorPos(1, 2)
 m.write("Rozpoznavam..")
 sleep(2)
 pozn()
 end
end

function pozn()
 if rs.testBundledInput("back", colors.blue) then
 m.setCursorPos(1, 3)
 m.write("RI generator bezi! vypinam..")
 sleep(2)
 rs.setBundledOutput("back",colors.combine(rs.getBundledOutput("back"),colors.purple))
 m.setCursorPos(1, 4)
 m.write("RI generator vypnut")
 sleep(2)
 else
 rs.testBundledInput("back", colors.white)
 m.setCursorPos(1, 3)
 m.write("Reactor je zapnut! vypinam..")
 rs.setBundledOutput("back",colors.combine(rs.getBundledOutput("back"),colors.cyan))
 rs.setBundledOutput("back",colors.subtract(rs.getBundledOutput("back"),colors.red))
 sleep(2)
 m.setCursorPos(1, 4)
 m.write("Reactor vypnut")
 sleep(2)
 konec()
 end
end

function uz2()
 if rs.testBundledInput("back", colors.yellow) or rs.testBundledInput("back", colors.pink) then
 m.setCursorPos(1, 7)
 m.write("ukoncuji usporny rezim")
 sleep(2)
 rs.setBundledOutput("bottom",colors.subtract(rs.getBundledOutput("bottom"),colors.green))
 m.setCursorPos(1, 8)
 m.write("usporny rezim ukoncen")
 m.setBackgroundColor( colors.black )
 sleep(2)
 konec()
 else
 jad()
 end
end


function konec()
 m.clear()
end

function getKey(prompt)
  local key = ""
  print(prompt)
  _, key = os.pullEvent("char")
end

wipeScreen()
print("Uranium Technologies")
write("Pro vstup zadej heslo: ")
password = read("*")

if password ~= "Dark" then
   print("Neopravneny pristup!")
   redstone.setBundledOutput("back",colors.black)
   sleep(3)
   redstone.setBundledOutput("back", 0)
   return
else
   print("Vitejte!")
end

while true do

m.setBackgroundColor( colors.black )
m.clear()
if rs.testBundledInput("back", colours.orange) then
wipeScreen()
m.setCursorPos(1, 1)
m.write("solarni panely Chyba")
elseif rs.testBundledInput("back", colors.pink) then
m.setCursorPos(1, 1)
m.write("solarni panely OK")
else
m.setCursorPos(1, 1)
m.write("solarni panely Offline")
end
 if rs.testBundledInput("back", colours.yellow) then
 m.setCursorPos(1, 3)
 m.write("vetrna OK")
 else
 m.setCursorPos(1, 3)
 m.write("vetrna Offline")
 end
  if rs.testBundledInput("back", colours.blue) then
  m.setCursorPos(1, 2)
  m.write("radioisotope OK")
  else
  m.setCursorPos(1, 2)
  m.write("radioisotope Offline")
  end
   if rs.testBundledInput("back", colours.white) then
   m.setCursorPos(1, 4)
   m.write("jaderna OK")
   else
   m.setCursorPos(1, 4)
   m.write("jaderna Offline")
   end

if rs.testBundledInput("back", colours.pink) then
 rs.setBundledOutput("bottom",colors.combine(rs.getBundledOutput("bottom"),colors.pink))
else
 rs.setBundledOutput("bottom",colors.subtract(rs.getBundledOutput("bottom"),colors.pink))
end
if rs.testBundledInput("back", colours.blue) then
 rs.setBundledOutput("bottom",colors.combine(rs.getBundledOutput("bottom"),colors.blue))
else
 rs.setBundledOutput("bottom",colors.subtract(rs.getBundledOutput("bottom"),colors.blue))
end
if rs.testBundledInput("back", colours.yellow) then
 rs.setBundledOutput("bottom",colors.combine(rs.getBundledOutput("bottom"),colors.yellow))
else
 rs.setBundledOutput("bottom",colors.subtract(rs.getBundledOutput("bottom"),colors.yellow))
end
if rs.testBundledInput("back", colours.white) then
   rs.setBundledOutput("bottom",colors.combine(rs.getBundledOutput("bottom"),colors.white))
else
 rs.setBundledOutput("bottom",colors.subtract(rs.getBundledOutput("bottom"),colors.white))
end


sleep(10)

local function vyr1()
return rs.testBundledInput("bottom", colors.lime)
end

if vyr1() == true then
   usp1()
end
end