Scene beweging lampen aan

Hieronder heb ik een simpele scene voor de beweging melder. Als er beweging word gedetecteerd gaat er een lamp branden. Verander nummer 466 in het ID van uw eigen beweging melder en 178 in het ID van uw lamp. Let er wel op dat de ID van de lamp en de beweging melder 2x voor komt in de scene. Ook kunt u nummer 466 veranderen in het ID van een deur contact, dan werkt deze scene als er een deur open gaat. Als er geen beweging word gedetecteerd dan gaat de lamp naar 60 seconden weer uit, deze tijd kunt u ook veranderen door de waarde 60 de tijd in seconden te veranderen in de waarde die gewenst is. 

--[[ 
%% properties
466 value
178 value
%% globals
--]]
 --------------- Voorkom starten 2de scene --------------------
if (fibaro:countScenes()>1) then fibaro:abort()
fibaro:debug("2de scene word gestopt")
end
------- Hieronder ID van de beweging melder, lamp en de tijd ----------
local motion = 466 -- ID van de beweging melder
local switch = 178 -- ID van de lamp
local starttimer = 60 -- Tijd in seconden
local timer = (starttimer) -- timer
 
------------- Hieronder niets veranderen ------------------
 function debug(color, message)
    fibaro:debug(string.format('<%s style="color:%s;">%s</%s>', "span", color, message, "span"))
end
 
---------- Zet lampen aan of uit---------------------------
if (tonumber(fibaro:getValue(motion, "value")) > 0 ) 
  and (tonumber(fibaro:getValue(switch, "value")) < 1) then -- Movement?
    fibaro:call(switch, "turnOn")
   debug("green", "Lampen aan")
end
 ----------------- loop ------------------------------------
repeat
        timer=timer-1
        fibaro:sleep(1000)
 ------------ bij beweging reset timer----------------------
       if (tonumber(fibaro:getValue(motion, "value"))) > 0 then
            timer=starttimer
            debug("grey", "Er is beweging. Timer reset")
       end
 
-- Lampen uit bij handmatig gebruik schakelaar ------------
        if (tonumber(fibaro:getValue(switch, "value"))) < 1 then
             debug("red", "Schakelaar handmatig gebruikt - Light off")
             timer=0
        end
until (timer<1)
 
------------------ zet lampen uit -------------------------
fibaro:call(switch, "turnOff")
debug("red", "Lampen uit")