mobctrl3

--DonEnzo 10/07/2014
--Panneau de controle de la ferme a mob v.3

mon = peripheral.wrap("back")
mon.setTextColor(colors.white)
mon.setBackgroundColor(colors.black)
mon.clear()
rs.setBundledOutput("right",64)
sleep(1)
rs.setBundledOutput("right",0)

while true do
mon.setBackgroundColor(colors.blue)
mon.setCursorPos(18,1)
mon.write("Mobatorture 3000")
mon.setBackgroundColor(colors.cyan)
mon.setCursorPos(3,4)
mon.write("Mob:    Slime    Hostile    Passif    Hostile ")
mon.setCursorPos(3,5)
mon.write("               (Overworld)            (Nether)")
mon.setCursorPos(3,7)
mon.write("Etat:")
mon.setCursorPos(3,11)
mon.write("RF Power:")
mon.setCursorPos(41,11)
mon.write("Conso.:")

os.pullEvent("redstone")
    i=0
    j=" RF/t"
    mob1 = rs.testBundledInput("bottom",1) --slime
    mob2 = rs.testBundledInput("bottom",2) --hostile
    mob3 = rs.testBundledInput("bottom",4) --passif
    mob4 = rs.testBundledInput("bottom",8) --blaze/ghast
    rfp1 = rs.testBundledInput("bottom",16)
    stop1 = rs.testBundledInput("bottom",32)
    mon.setBackgroundColor(colors.black)
    mon.clear()

      if mob1==true or stop1==true then
      mon.setBackgroundColor(colors.red)
      mon.setCursorPos(12,7)
      mon.write("OFF")
      else
      i=i+10200
      mon.setBackgroundColor(colors.green)
      mon.setCursorPos(12,7)
      mon.write("ON")
      end
      if mob2==true or stop1==true then
      mon.setBackgroundColor(colors.red)
      mon.setCursorPos(22,7)
      mon.write("OFF")
      else
      i=i+8800
      mon.setBackgroundColor(colors.green)
      mon.setCursorPos(22,7)
      mon.write("ON")
      end
      if mob3==true or stop1==true then
      mon.setBackgroundColor(colors.red)
      mon.setCursorPos(32,7)
      mon.write("OFF")
      else
      i=i+12600
      mon.setBackgroundColor(colors.green)
      mon.setCursorPos(32,7)
      mon.write("ON")
      end
      if mob4==true or stop1==true then
      mon.setBackgroundColor(colors.red)
      mon.setCursorPos(42,7)
      mon.write("OFF")
      else
      i=i+1200
      mon.setBackgroundColor(colors.green)
      mon.setCursorPos(42,7)
      mon.write("ON")
      end
      if stop1==true then
      i=0
      mon.setBackgroundColor(colors.gray)
      mon.setCursorPos(19,12)
      mon.write("ARRET D'URGENCE")
      else
      mon.setBackgroundColor(colors.red)
      mon.setCursorPos(19,12)
      mon.write("ARRET D'URGENCE")
      end
      mon.setBackgroundColor(colors.blue)
      mon.setCursorPos(41,12)
      mon.write(i..j)
      if rfp1==true then
      mon.setCursorPos(6,12)
      mon.setBackgroundColor(colors.green)
      mon.write("ON")
      else
      mon.setCursorPos(6,12)
      mon.setBackgroundColor(colors.red)
      mon.write("OFF")
      end
end