Framemotor

-- Local Variables
local cFloor = 1
-- Rednet Info
rednet.open("top")
repeat
    local event,p1,p2 = os.pullEvent()
    if event == "rednet_message" and p1 == 1 then
        sFloor = tonumber(p2) -- Converts the rednet message into a number
        if cFloor<sFloor then -- Finds out whether the elevator needs to move up or down
            mElev = sFloor - cFloor -- Finds how many floors the elevator needs to move
            for i=1,mElev do
                for i=1,4 do -- The elevator needs 4 redstone pulses to move 1 floor
                    rs.setBundledOutput("back", colours.red)
                    sleep(0.4)
                    rs.setBundledOutput("back", 0)
                    sleep(0.4)
                end
            end
            cFloor = sFloor -- Rewrites the current floor variable for later use
        else
            mElev = cFloor - sFloor
            for i=1,mElev do
                for i=1,4 do
                    rs.setBundledOutput("back", colours.white)
                    sleep(0.4)
                    rs.setBundledOutput("back", 0)
                    sleep(0.4)
                end
            end
            cFloor = sFloor
        end
    end
until event == "key" and p1 == keys.enter -- Exits the loop effectively ending the program