Siren_Server_1.16_BitNet_Tower

local statelist = {
  ["top"] = rs.getInput("top"),
  ["front"] = rs.getInput("front"),
  ["left"] = rs.getInput("left"),
  ["right"] = rs.getInput("right"),
  ["back"] = rs.getInput("back"),
  ["bottom"] = rs.getInput("bottom"),
}

local SirenAreaCode

local SirenCodeTable = {"175", "217", "218", "219", "220"}

local function SirensACode(tTable, tText)
        local resault = "(Not found!)"
        for i=1, #tTable do
                if tText == tTable[i] then
                        resault = tTable[i]
                end
        end
        return resault
end


local modem = {peripheral.find("modem")}
for i = 1, #modem do modem[i].open(rednet.CHANNEL_REPEAT) end

local tower = {peripheral.find("bitnet_tower", function(name, object) return object.isTowerComplete() end)}

if #modem == 0 and #tower == 0 then error("No modems/towers found.")
else
    print("Welcome To The Siren Server!!!!!\nThis Program programmed By Yossi Yuval\nFor I.D.F!\nThis system is still in Beta!\nThis will be tested by I.D.F\n\n\n\n")
local SirenAreaFile2 = fs.open("SCode", "r")
SirenAreaCode2 = SirenAreaFile2.readAll()
SirenAreaFile2.close()
print("| Siren Area Code: ".SirenAreaCode2 ." |")
end

local repeated, msgID, timerID, myEvent = 0, {}, {}

print(#modem.." modem"..(#modem==1 and "" or "s").." found.")
print(#tower.." tower"..(#tower==1 and "" or "s").." found.")
print("0 messages repeated.")

while #tower do -- Start an endless loop
    local SirenAreaFile = fs.open("SCode", "r")
    SirenAreaCode = SirenAreaFile.readAll()
    SirenAreaFile.close()
    os.pullEvent("redstone") -- Yield the computer until some redstone changes
    -- We don't care what the event returns, since the first variable will be "redstone" and the rest will be nil.

    if SirensACode(SirenCodeTable, SirenAreaCode) ~= "(Not found!)" then
  -- Now we check each side to see if it's changed.
        if rs.getInput("left") or rs.getInput("right") or rs.getInput("top") or rs.getInput("bottom") or rs.getInput("front") or rs.getInput("back") then
            for i = 1, #tower do
                tower[i].transmit("on | "..SirenAreaCode)
            end
            print("[Siren Server] Status: ON | SirenAreaCode: "..SirenAreaCode)
        --else
        --  for i = 1, #tower do
        --      tower[i].transmit("off | "..SirenAreaCode)
        --  end
        --  print("[Siren Server] Status: OFF | SirenAreaCode: "..SirenAreaCode)
        end
    end
end