Create motion.lua

motion.lua

@@ -0,0 +1,226 @@
+--[[ 
+%% autostart 
+%% properties 
+27 value 
+%% globals 
+Time_of_Day 
+AnnaHome
+MagnusHome
+--]] 
+-- 10, 12	
+if fibaro:countScenes()>1 then --this is always good to add to avoid the scene spawning multiple times. 
+  fibaro:abort() 
+end 
+
+LTable = {10,12}
+
+local function turnOn(device)
+  local isOn = fibaro:getValue(device, "on")
+  fibaro:debug("Light was " ..isOn)
+  if (isOn == '0') then
+    fibaro:call(device,"turnOn")
+  end
+end
+
+local function turnOffFibaro(device)
+  fibaro:call(device,"setColor", "0", "0", "0", "0")
+end
+
+local function updateDevice(successCallback, errorCallback, device, parameter, value)
+
+  local http = net.HTTPClient()
+
+  http:request('http://127.0.0.1:11111/api/plugins/callUIEvent?deviceID='..device ..'&elementName='..parameter ..'&eventType=onChanged&value=' ..value ..'',
+	  {
+      options = {
+        method = 'GET'
+      },
+      success = successCallback,
+      error = errorCallback
+  })
+end
+
+local function setHueBrightness(device, brightness)
+ 	updateDevice(function(resp)
+    fibaro:debug("Status: " .. resp.status)
+    end,
+    function(err)
+    fibaro:debug('error' .. err)
+    end,
+    device,
+    'brightness',
+    brightness)
+end
+
+local function setHueColor(device, color)
+ 	updateDevice(function(resp)
+    fibaro:debug("Status: " .. resp.status)
+    end,
+    function(err)
+    fibaro:debug('error' .. err)
+    end,
+    device,
+    'hue',
+    color)
+end
+
+local function setHueSaturation(device, saturation)
+ 	updateDevice(function(resp)
+    fibaro:debug("Status: " .. resp.status)
+    end,
+    function(err)
+    fibaro:debug('error' .. err)
+    end,
+    device,
+    'saturation',
+    saturation)
+end
+
+local function setDayMode(device)
+  	turnOn(device)
+    turnOnTable()
+ 	setHueColor(device, 12750)
+  	setHueSaturation(device, 80)
+  	setHueBrightness(device, 254)
+end
+
+local function setFlowerMode(device)
+  	turnOn(device)
+    turnOnTable()
+ 	setHueColor(device, 53330)
+  	setHueSaturation(device, 100)
+  	setHueBrightness(device, 254)
+end
+
+local function setEveningMode(device)
+  	turnOn(device)
+    turnOnTable()
+ 	setHueColor(device, 9000)
+  	setHueSaturation(device, 130)
+  	setHueBrightness(device, 150)
+end
+
+local function setNightMode(device)
+  	turnOn(device)
+    turnOnTable()
+ 	setHueColor(device, 6000)
+  	setHueSaturation(device, 254)
+  	setHueBrightness(device, 50)
+end
+
+local function turnOnTable()
+	for i, device in ipairs(LTable) do  
+    	turnOn(device)
+    	fibaro:sleep(500)
+    end
+end
+
+local function turnOffTable()
+	for i, device in ipairs(LTable) do  
+    	turnOn(device)
+    	fibaro:sleep(500)
+    end
+end
+
+local function setTableHomeDayMode()
+  	for i, device in ipairs(LTable) do  
+    	setDayMode(device)
+    	fibaro:sleep(500)
+  	end
+end  
+
+local function setTableAwayMode()
+  	for i, device in ipairs(LTable) do  
+    	setFlowerMode(device)
+    	fibaro:sleep(500)
+  	end  
+end
+
+local function setTableEveningMode()
+  	for i, device in ipairs(LTable) do  
+    	setDayMode(device)
+    	fibaro:sleep(500)
+  	end
+end  
+
+local function setTableNightMode()
+  	for i, device in ipairs(LTable) do  
+    	setFlowerMode(device)
+    	fibaro:sleep(500)
+  	end  
+end
+
+local function setNightModeFibaro(device)
+  	fibaro:call(device, "setColor", "255", "5", "0", "0")
+end
+
+local function setDayModeFibaro(device)
+  	fibaro:call(device, "setColor", "255", "255", "255", "0")
+end
+
+------------------------------------------ Kjokken on 
+local startSource = fibaro:getSourceTrigger(); 
+
+fibaro:debug("Script started because of: " .. startSource["type"]) 
+
+Time_of_Day = fibaro:getGlobalValue("Time_of_Day") 
+LAnnaHome = tonumber(fibaro:getGlobalValue("AnnaHome"))
+LMagnusHome = tonumber(fibaro:getGlobalValue("MagnusHome"))
+
+fibaro:debug("Time_of_Day: " .. Time_of_Day) 
+fibaro:debug("Motion value: " ..(fibaro:getValue(27, "value")))
+
+local tempDeviceState0, deviceLastModification0 = fibaro:get(27, "value");
+fibaro:debug("Time since activity: " ..(os.time() - deviceLastModification0))
+
+if (tonumber(fibaro:getValue(27, "value")) > 0 and LMagnusHome > 0) then 
+  if Time_of_Day == "Morning" or Time_of_Day == "Afternoon" then 
+    fibaro:debug("Setting scenario number 1") 
+     setDayMode(17) 
+     setDayModeFibaro(32)
+	 setTableHomeDayMode()
+  elseif  Time_of_Day == "Evening"  then 
+    fibaro:debug("Setting scenario number 3") 
+      setEveningMode(17)
+      setDayModeFibaro(32)
+  	  setTableHomeDayMode()
+  elseif Time_of_Day == "Night" or Time_of_Day == "Sleeping" then 
+    fibaro:debug("Setting scenario number 4") 
+    setNightMode(17)
+    setNightModeFibaro(32)
+    --setTableNightMode()
+    setTableHomeDayMode()
+  end 
+elseif (LMagnusHome == 0) then
+    setTableAwayMode()
+end    
+
+--------------------------------- Turning off
+
+fibaro:sleep(5000); -- Time delay before turn off 
+local delayedCheck0 = false; 
+local tempDeviceState0, deviceLastModification0 = fibaro:get(27, "value"); 
+
+if (( tonumber(fibaro:getValue(27, "value")) == 0 ) and (os.time() - deviceLastModification0) >= 600) then 
+  	fibaro:debug("tonumber: " .. tonumber(fibaro:getValue(27, "value")))
+	fibaro:debug("timecheck: " .. (os.time() - deviceLastModification0))  
+  	delayedCheck0 = true; 
+end 
+if (LMagnusHome == 0) then
+ 	fibaro:call(17, "turnOff")
+  	turnOffFibaro(32)
+  	fibaro:debug("Turning off due to empty home")
+elseif delayedCheck0 == true then 
+  if Time_of_Day == "Morning" then 
+    fibaro:debug("Setting scenario number 1") 
+    fibaro:call(17, "turnOff")
+    turnOffFibaro(32)
+    --fibaro:call(24, "setValue", "50"); --  
+
+  elseif (Time_of_Day == "Afternoon" or Time_of_Day == "Evening" or Time_of_Day == "Night" ) then 
+    fibaro:debug("Setting scenario number 2") 
+    fibaro:call(17, "turnOff")
+    turnOffFibaro(32)
+    --fibaro:call(24, "setValue", "3"); --   
+  end 
+end