etage = nil             --- Etage actuel de l'ascenseur. Chaque étage a 15 unités de différences symbolisant le nombre de blocs de différence entre chaque étage
pulse = nil             --- Nombre de pulse à envoyer dans le moteur
etageRequest = nil      --- Étage demandé par l'utilisateur
motor = nil             --- Si true, moteur de montée, si false, moteur de descente

--- Fonctions ---

function detectEtage()
    id, etage, dist = rednet.receive()
end

function etageRequest()
    id, etageRequest, dist = rednet.receive()
end

function CalcPulse()
    pulse = etage - etageRequest
    if pulse<0 then
        motor = true
        pulse = math.abs(pulse)
    else
        motor = false
    end
end

--- Programme ---

while(true) do

    detectEtage()
    etageRequest()
    CalcPulse()

    if motor == true then
        repeat
            redstone.setBundledOutput("back", colors.white)
            pulse = pulse - 1
            sleep(1)
        until pulse == 0
    else
        repeat
            redstone.setBundledOutput("back", colors.black)
            pulse = pulse - 1
            sleep(1)
        until pulse == 0 do
    end
    end
end