Frame Elevator

--pastebin get 32mBeCwc
--orange is up, magenta is down

local drive = peripheral.wrap("left")
local ismovepossible

function checkmotion(direction)
    ismovepossible=drive.move(direction, true, false)
end

function move(direction)
    checkmotion(direction)
    if ismovepossible==true then
        drive.move(direction, false, false)
    else
        os.sleep(1)
    end
end


os.sleep(1)

while true do
    if rs.testBundledInput("right",colours.orange) == true then
        move(1)
    elseif rs.testBundledInput("right",colours.magenta) == true then
        move(0)
    end
    os.sleep(0.1)
end