Elevator Server 1.0

function findCurrentFloor ()
    local whichFloor = 0
    while redstone.testBundledInput("back",colors.green) == false and whichFloor < 30 do
        whichFloor = whichFloor + 1
        redstone.setBundledOutput("back",whichFloor)
        sleep(0.1)
    end
    redstone.setBundledOutput("back",0)
    if whichFloor >= 30 then
        return 0
    else
        return whichFloor
    end
end

function findAvailableFloors ()
    local whichFloor = 0
    local validFloors = {}
    while whichFloor < 30 do
        whichFloor = whichFloor + 1
        redstone.setBundledOutput("back",whichFloor)
        sleep(0.2)
        if redstone.testBundledInput("back",colors.blue) then
            validFloors[whichFloor] = true
            print("Found Floor: "..whichFloor)
        else
            validFloors[whichFloor] = false
            print("Invalid Floor: "..whichFloor)
        end
        sleep(0.05)
        redstone.setBundledOutput("back",0)
    end
    print("Done finding floors")
    return validFloors
end

function moveToFloor(destinationFloor)
    redstone.setBundledOutput("back",destinationFloor + 32)
    sleep(0.2)
    while redstone.testBundledInput("back", colors.green) == false do
        os.pullEvent("redstone")
    end
end

redstone.setBundledOutput("back",colors.brown)
sleep(0.05)
redstone.setBundledOutput("back",0)

local floors = findAvailableFloors()
local currentFloor = findCurrentFloor()
local peripheralList = peripheral.getNames()
local useModem = false
local floorChoice = 0
local mainframeId
local modemSide
local modemPeripheral
local computerInfo = {}
local file
local hostAiId

if fs.exists("computerInfo") then
    file = fs.open ("computerInfo", "r")
    computerInfo = textutils.unserialize(file.readAll())
    file.close()
end

if fs.exists("aiInfo") then
    file = fs.open ("aiInfo", "r")
    hostAiId = tonumber(file.readLine())
    file.close()
end

if not computerInfo["computerType"] then
    computerInfo["computerType"] = "ELEVATOR"
    print("Please enter an alias for this computer: ")
    computerInfo["computerAlias"] = read()
    file = fs.open("computerInfo","w")
    file.write(textutils.serialize(computerInfo))
    file.close()
end


for i = 1, #peripheralList do
    if peripheral.getType(peripheralList[i]) == "modem" and peripheral.call(peripheralList[i], "isWireless") then
        useModem = true
        modemSide = peripheralList[i]
        modemPeripheral = peripheral.wrap(peripheralList[i])
    end
end

if currentFloor == 0 then
    for i = 1, #floors do
        if floors[i] == true then
            currentFloor = i
            moveToFloor(i)
            break
        end
    end
end

if useModem == true then
    rednet.open(modemSide)
    print("Modem found, switching to modem control")
    local tempAiId
    while not hostAiId do
        local senderId, message, distance = rednet.receive()
        if message == "AIREQNEWSERVER" then
            print("AI sent request. Sending info")
            tempAiId = senderId
            rednet.send(tempAiId,textutils.serialize(computerInfo))
        elseif message == "ACK" and senderId == tempAiId then
            hostAiId = tempAiId
            print("AI ID found")
            file = fs.open("aiInfo","w")
            file.write(hostAiId)
            file.close()
        end
    end
    while true do
        local senderId, message, distance = rednet.receive()
        if senderId == hostAiId and not message == "AIREQNEWSERVER" then
            local orders = textutils.unserialize(message)
            local command = orders["command"]
            local arguments = orders["arguments"]
            if rs.testBundledInput("back",colors.green) then
                if command == "GOTOFLOOR" then
                    if floors[tonumber(arguments[1])] then
                        rednet.send(hostAiId,"DONE")
                        moveToFloor(tonumber(arguments[1]))
                        currentFloor = arguments[1]
                    else
                        rednet.send(hostAiId,"NOTAFLOOR")
                    end
                elseif command == "FINDFLOORS" then
                    rednet.send(hostAiId,"DONE")
                    findAvailableFloors()
                elseif command == "CURRENTFLOOR" then
                    rednet.send(hostAiId,currentFloor)
                elseif command == "REALIAS" then
                    computerInfo["computerAlias"] = arguments[1]
                    file = fs.open("computerInfo","w")
                    file.write(textutils.serialize(computerInfo))
                    file.close()
                    rednet.send(hostAiId,"DONE")
                else
                    rednet.send(hostAiId,"ERR")
                end
            else
                rednet.send(hostAiId,"BUSY")
            end
        end
    end
else
    print("No modem found. Manual floor choice initiated\n\n")
    while true do
        print("Select a floor: ")
        floorChoice = tonumber(read())
        print("\n")
        if floorChoice and floorChoice > 0 and floorChoice < 31 and (not (floorChoice == currentFloor)) and floors[floorChoice] then
            moveToFloor(floorChoice)
            currentFloor = floorChoice
        elseif floorChoice and floorChoice == -1 then
            floors = findAvailableFloors()
        end
        floorChoice = 0
    end
end