s = peripheral.wrap("right")
signal = "left"
whitelist = {}
state = false

function list()
  if fs.exists("whitelist") == false then
	shell.run("edit whitelist")
	else
	print("whitelist allready exist!")
  end
end

function getList()
  local datafile = fs.open("whitelist", "r")
	for line in datafile.readLine() do
	  table.insert(whitelist, line)
	end
  datafile.close()
  print(whitelist[1])
end

function Authorised()
  for k, playerName in ipairs(s.getPlayers()) do
	for p, o in ipairs(playerName) do
	  for _, name in ipairs(whitelist) do
		if playerName:lower() == name:lower() then
		  state = true
		end
	   end
	end
  end

  state = false
end

function sig()
  if state then
	rs.setOutput(side, state)
  else
	rs.setOutput(side, state)
  end
end

list()
getList()

while true do
  sig()
  sleep(1)
end

Dragon53535, on 23 August 2016 - 02:25 PM, said:

if(colors.test(rs.getBundledOutput("right"),colors.green)) then
--#If the input from the right has the color green on.
end

col = {
[1] = 0,	 -- Inactive
[2] = 1,	 -- White
[3] = 2,	 -- Orange
[4] = 4,	 -- Magenta
[5] = 8,	 -- Light Blue
[6] = 16,	-- Yellow
[7] = 32,	-- Lime
[8] = 64,	-- Pink
[9] = 128,   -- Gray
[10] = 256,   -- Light Gray
[11] = 512,   -- Cyan
[12] = 1024,  -- Purple
[13] = 2048,  -- Blue
[14] = 4096,  -- Brown
[15] = 8192,  -- Green
[16] = 16384, -- Red
[17] = 32768, -- Black
}
on = {}
function getOn()
  for i = 1,#col do
	if rs.getBundledOutput("right") == col[i] then
	  table.insert(on, col[i])
	end
  end
end

getOn()
for i = 1,#on do
print(on[i])
end
input = read()
if input then  
   if input == "white" then
	 if not on == col[1] then
   for i = 1,#on do
			rs.setbundledOutput("right", col[2]+on[i])
	  end
	 else
		 rs.setBundledOutput("right", col[2])
  end
	end
	
	if input == "green" then
   if not on == col[1] then
   for i = 1,#on do
			rs.setbundledOutput("right", col[2]+on[i])
	  end
  else
		 rs.setBundledOutput("right", col[15])  
  end  
end
	
	if input == "red" then
	 if not on == col[1] then
   for i = 1,#on do
		  rs.setbundledOutput("right", col[2]+on[i])
	 end
  else
   rs.setBundledOutput("right", col[16])
  end
end
end

tank = {peripheral.find("rcsteeltankvalvetile")}
tankInfo = tank[1].getTankInfo()
tankInfoTwo = tank[2].getTankInfo()
tankInfoThree = tank[3].getTankInfo()
tankInfoFour = tank[4].getTankInfo()
tankInfoFive = tank[5].getTankInfo()
tankInfoSix = tank[6].getTankInfo()
monOne = peripheral.wrap("back")
monTwo = peripheral.wrap("monitor_276")
local function nLineOne()
  lineOne = lineOne+1
  monOne.setCursorPos(1,lineOne)
end
local function nLineTwo()
  lineTwo = lineTwo+1
  monTwo.setCursorPos(1,lineTwo)
end
-- tank one
while true do
monOne.clear()
monOne.setCursorPos(1,1)
monTwo.clear()
monTwo.setCursorPos(1,1)
lineOne = 1
lineTwo = 1
for _,a in pairs(tankInfo) do
  for o,c in pairs(a.contents) do
	monOne.write(o..": ".. c)
	nLineOne()
  end
end
nLineOne()
-- tank two
for _,b in pairs(tankInfoTwo) do
  for o,c in pairs(b.contents) do
	monOne.write(o..": ".. c)
	nLineOne()
  end
end
nLineOne()
--tank three
for _,d in pairs(tankInfoThree) do
  for o,c in pairs(d.contents) do
	monOne.write(o..": "..c)
	nLineOne()
  end
end
--tank four

for _,e in pairs(tankInfoFour) do
  for o,c in pairs(e.contents) do
	monTwo.write(o..": "..c)
	nLineTwo()
  end
end
nLineTwo()
for _,f in pairs(tankInfoFive) do
  for o,c in pairs(f.contents) do
	monTwo.write(o..": ".. c)
	nLineTwo()
  end
end
nLineTwo()
--tank Six
for _,g in pairs(tankInfoSix) do
  for o,c in pairs(g.contents) do
  monTwo.write(o..": ".. c)
  nLineTwo()
  end
end
sleep(.5)
end