--[[
%% autostart
%% properties
%% weather
Temperature
Humidity 
Wind   
WeatherCondition
--]]
--========================== USER CONFIGURABLE PARAMETERS 
--==== GPS mobile to name 
gpsDevice={["999"]="UserName",["9999"]="skip"} 
--=== jSon Parameters to number
jP2n={minHum=20,maxHum="?`minHum`+60?"}
--=== jSon String to name
jS2n={motionSensor=230, switchLight=600}
--=== jSon Main actions table 
jM={ 
{0, "$RAM",{state=">85",lineState="if{$isFalse=0}",trueAct={{"RAM>85%","sendNote","Warning. \nSystem memory is $RAM% ",true},{"|$lineId|","setStateValue","80"}},falseAct={{"|$lineId|","setStateValue","85"},{"RAM<80%","sendNote","System memory is $RAM%"}}}},
{0, "$HC2onLine",{state="true",trueAct={"","tts","$dayTime, Home center is on line","{$24clock:value=?$sunriseHour+7200?~?$sunsetHour+3600?}{$24clock:value=?$sunsetHour+3600?~?$sunriseHour+7200?}"},falseAct={"","tts","$dayTime, Home center is off line"}}}, 
{0, "$internet",{state="online",trigAct={"","tts","$dayTime, Internet is $internet"}}}, 
}    
--=========================== GLOBAL PARAMETERS
eMail       = {true,"2"}    -- if true, scene's alerts will emailed to user IDs list. To include more users use: eMail={true,"2,5,20"}
popupNote   = false -- if true, scene's alert popup notification will send to all users 
pushNote    = {false,""}  -- if true, scene's alerts interactive push notification will send
sms         = {false,"123456"} -- if true,scene's alerts SMS will send. Before use, update sendSms() function with your setup.
deadNote    = true  -- if true, send auto-alert notification on dead Z-wave traffic occurrences.
autoRestart = true -- in case the scene is failed, send notification and restart the scene automatically.
wakeUpRate  = 10 --(minutes) wakeUp dead devices time rate. 0-disable
timeDrift   = 0  --(seconds) system's time drift.   
rstDeadRpt  = 24 --(hours) reset RPT and Dead data. 0-disable     
alertRate   = 90 --(minutes) alert report repeat time rate. 0-disable    
tblRefresh  = 300 --(seconds) table view refresh rate. 0-disable  
cnnLine     = 25 -- number of last commands in order of execution to display at bottum of the table. (0-60)
dataRecord  = {values=10,commands=6} --number of last values and commands to display (1-20)
global4local= {false,gVarName="",varArray={onState="init:0",myVar="isOff"}}    
global4rmd  = {false,gVarName="jRmd"} 
topActive   = 15 -- number (0-30) of top active slave devices to display at dropdown menu. 0-disable. Default 10 
topZwave    = 15 -- number (0-30) of top active master devices in table view. 0-disable. Default 10
dbgInfo     = true -- display line and action states condition according to dbgTrueState/dbgFalseState
dbgTrueState= true -- display line and action states when condition is true
dbgFalseState=true -- display line and action states when condition is false
dbgCmdFalse = true -- display command's condition when false and not executed
userName	  = "" -- user name as defined in Access Control panel
passwd	  = "" -- user password as defined in Access Control panel
--========================== USER DEFINED FUNCTIONS ===============================
---------------------------- TTS function -------------------------------------------------------------------------------
function homeTts(text2speech,userParam)   
  -- fibaro:startScene('ttsSceneID',{text2speech,"<IP address of android device:8080>"})
end -- function =======================================================================
----------------------------------SMS function (User defined)-------------------------------------------------------------------------------
function sendSms(phone,subject,body) 
  --fibaro:startScene(sceneID,{phone,smsMessage})
end
--================= ADVANCED USER PARAMETERS (see Advanced User’s Guide)===============================
userKeyWord={{"$dayTime"},{
 function() return  os.date("*t",os_time()).hour<6 and "Good night," or os.date("*t",os_time()).hour<12 and "Good morning," or os.date("*t",os_time()).hour<18 and "Good afternoon," or os.date("*t",os_time()).hour<=23 and "Good evening," end }}
jCmd={["turnOff"]="value=0|+|#|call|~|",["turnOn"]="value=1|+|#|call|~|",["setValue"]="value=x|+|#|call,|~|",["setColor"]="color=x,x,x,x|+|#|call,|~|",["setArmed"]="armed=x|+|#|call,|~|",["forceArm"]="n/a|+|#|call|~|",["pressButton"]="n/a=x|+|#|call,|~|",
 --==================== PLEASE DO NOT CHANGE CODE BELOW ===============================================
   --======================Copy form here for updates=============================================================================
  ["poll"]="n/a|+|#|call|~|",["setSlider"]="n/a=x,x|+|#|call,|~|",["setProperty"]="n/a=x,x|+|#|call,|~|",["addRmd"]="n/a=x|-|>|rmd|$|",["logRmd"]="n/a=x|-|>|rmd|$|",["setRmd"]="n/a=x|-|>|rmd|$|",["delRmd"]="n/a|-|&|rmd|$|",["delLogRmd"]="n/a|-|&|rmd|$|",["delAllRmd"]="n/a|-|&|rmd|$|",["startScene"]="n/a=x|+|#|scene,,,|~|",["enableScene"]="n/a|+|#|scene|~|",["disableScene"]="n/a|+|#|scene|~|",["killScene"]="n/a|+|#|scene|~|",
  ["setGlobal"]="n/a|+|$|global|$|",["reboot"]="n/a|-|&|sys|~|",["shutdown"]="n/a|-|&|sys|~|",["setTimeSpan"]="n/a|+|<|time|$|",["setTimeSlot"]="n/a|+|<|time|$|",["setTimeDrift"]="n/a|+|!|drift|$|",["tts"]="n/a|-|&|tts|$|",["setStateValue"]="n/a|+|<|int|$|",["setStateFormula"]="n/a|+|<|int|$|",["setStateDelay"]="n/a|+|<|int|$|",["setState"]="n/a|+|<|int|$|",["powerOutage"]="n/a|+|!|int|?:true:false:|",["setIcon"]="n/a=x|+|#|misc,|~|",
  ["sendEmail"]="n/a=x|-|$|notify,,,|$|",["sendPush"]="n/a=x|-|$|notify,,,|$|",["sendiPush"]="n/a=x|-|$|notify,,,|$|",["sendPopup"]="n/a=x|-|$|notify,,,|$|",["sendSms"]="n/a=x|-|$|notify,,,|$|",["sendNote"]="n/a|-|$|notify|$|",
  ["vacOn"]="n/a|+|!|vac|~|",["vacOff"]="n/a|+|!|vac|~|",["runAction"]="n/a=x|+|<|int,,,|?:trueAct:falseAct:trigAct:timeoutAct:timeLoopAct:initAct|",["rptAction"]="n/a=x|+|<|int,,,|?:trueAct:falseAct:trigAct:timeoutAct:timeLoopAct:initAct|",
  ["debug"]="n/a|+|&|prt|$|",["trace"]="n/a|+|&|prt|$|",["error"]="n/a|+|&|prt|$|",["warning"]="n/a|+|&|prt|$|"}
 function os_time(cTime) if cTime then return cTime+tonumber(timeDrift) else return os.time()+tonumber(timeDrift) end end
 notProperty=" firmwareUpdate mainLoop visible wakeUpTime pollingTimeSec icon currentIcon rows pushNotificationID pushNotificationType emailNotificationID emailNotificationType smsNotificationID smsNotificationType updateVersion saveLogs deadReason deviceIcon logTemp log configured manufacturer zwaveInfo zwaveVersion parametersTemplate remoteGatewayId zwaveCompany productInfo model nodeId serialNumber endPointId deviceControlType categories batteryLowNotification "
 notZwave=" lastWorkingRouteResponseTimestamp useTemplate sunsetHour sunriseHour neighborListResponseTimestamp lastBreached icon currentIcon "
 fc="<font color=";sbF=fc.."sandybrown>";lpF=fc.."lightpink>";lgF=fc.."#8ab92d>";dkF=fc.."darkgrey>";gF=fc.."Chartreuse>";yF=fc.."yellow>";ygF=fc.."yellowgreen>";cF=fc.."cadetblue>";mF=fc.."magenta>";dbF=fc.."darkblue>";bF=fc.."blue>";wF=fc.."wheat>";whF=fc.."white>";rF=fc.."indianred>";irF=fc.."indianred>";grF=fc.."grey>";lbF=fc.."lightblue>";lsbF=fc.."LightSkyBlue>";orF=fc.."OrangeRed>";eF="</font>";eFb=eF.."<br>";spanStr="<span style=text-align:center>"
 gData={idList=bF.." jM hash table inventory </font><br>",logAct={},logActNum=10,transfer="nack",zTotal=0,prvAlerts=0,lAlert=os_time(),tKeyWord="system status",tableTime=(tblRefresh<120 and 120 or tblRefresh),tableTimeStamp=os_time(),startTime=os_time(),totalDeads=0,numDeads=0,deadLog=8,rstDeadRpt=os_time(),numAlerts=0,alertId={}}
 f1frmt={["#"]="\"|<i>devID</i>|\"<br>e.g. \"|823|999|\"",[">"]="\"|<i>devID</i> > <i>jM_line</i>|\"<br>e.g. \"|823>3|999>16|\"",["<"]="\"|<i>devID</i> > <i>jM_line</i>|\"<br>e.g. \"|823>3|999>16|\"",["$"]="action's valid data."};tmpStr="";tmpNum=0;internet="online";refreshTime=os.time();sunUse="";errCnt=0;gpsStatus=false;jMeSum=0
 jD={}jLog={}jErr={}jF={}jT={}jI={}jSP={}jMe={}jGps={}jAct={}jTop={}jTabAct={}jEvent={}jBack={}jMem={}jVar={}jGvar={}jN2s={}jBuf={}jDid={}jM2n={}jDlist={numDev=0,phDev=0,batDev=0,vDev=0,vdId="",plugIn=0,pinId="",scenes=0};dataCol={};dColor={};cnnLine=math.min(60,cnnLine);dly="#";initMode=true;trueFalseColor={[true]=ygF,[false]=lpF,["true"]=ygF,["false"]=lpF,["fail"]=rF,["normal"]=ygF,["stop"]=lpF,["1"]=ygF,["2"]=ygF,["0"]=lpF,}
 powerOutage=false;atHome=true;vacMode={[false]="Vacation",[true]="Home"};b2n={[true]=1,[false]=0,[0]=false,[1]=true};noteList={sendPush={},sendEmail={}};xTime={min=100,avg=0,max=0};top={active=math.min((topActive or 15),30),zwave=math.min((topZwave or 15),30)};dispGuide=os.time();zmStr="No activity";logStatus=""
 runErrBuf={};log_trueFalse=false;isAct={sendPush=true,sendNote=b2n[math.max(b2n[eMail[1]],b2n[popupNote],b2n[pushNote[1]],b2n[sms[1]])]};eCmd={dev=0};eCmdType={["rmd"]="reminder",["call"]="device control",["notify"]="notification",["tts"]="text-to-speech",["drift"]="time drift",["int"]="parameters setup"}
 sColor={rF,ygF,lpF,yF,dkF,lbF};zw={min=-1,lNum=0,max=100,rate=200,lTime=os.time()};dataRecord.values=math.min(dataRecord.values,20);dataRecord.commands=math.min(dataRecord.commands,20);aosAct=irF.."<uT>AOS Supported Actions</uT>:</font><br>- ";sysStatus="";indent="";time2disp=300;intValue={};keyinId=""
 tblVal="centralSceneSupport"
 dbgInfo=(dbgInfo==nil and false or dbgInfo)
 if not dbgInfo then dbgTrueState,dbgFalseState,dbgCmdFalse=false,false,false  end 
 logLineStatus=false;logActState=false;tableview=(tableView==nil and true or tableView)
 prtFunc={["debug"]=ygF,["trace"]=yF,["error"]=rF,["warning"]=mF}
 tableOrder={{"Z.Device","Plugin","V.Device", "Variable", "Keyword","luaScene","blockScene","magicScene",   "Auto-luaScene","Auto-blockScene","Auto-magicScene"},
             {  "wheat","#eaba61", "orange",   "Chocolate", "coral",   "lightblue","cadetblue", "DarkTurquoise", "DarkCyan",   "CornflowerBlue",   "DodgerBlue"},
             {"Z.Dev",  "Plugin",  "V.Dev",    "S.Var",    "K.Word",   "Lua",      "Block",     "Magic",       "A.Lua",       "A.Block",           "A.Magic"},{} }
 task={all={"trueAct","falseAct","initAct","timeoutAct","timeLoopAct","trigAct","errAct","okAct","timeSlot","vacation","initOnStartup","property","state","onClock","timeSpanOn","lineState","trigAll","trueActState","falseActState","initActState","trigActState","timeoutActState","timeLoopActState"},
       act={"falseAct","trueAct","timeoutAct","timeLoopAct","initAct","trigAct","timeEndAct","errAct","okAct",},--"lineState"},
  sceneAuto={"property","state","initOnStartup","trigAct","timeLoopAct","trueAct","falseAct","errAct","okAct","lineState"},sceneAutoAct={"timeSlot","vacation","timeoutAct","initAct"},
     scene={"property","state","initOnStartup","trueAct","falseAct","lineState"},
  sceneAct={"timeSlot","vacation","trigAct","timeoutAct","timeLoopAct","initAct","errAct","okAct",},
      prop={"state","initOnStartup","trueAct","falseAct","initAct","errAct","okAct",},
      rule={"property","state","timeSlot","initOnStartup","vacation","onClock","timeSpanOn","trigAll","lineState"},
  ruleType={ "string" ,"string","string" ,   "boolean"   , "string" ,"boolean",  "boolean" ,"boolean", "table"},
     state={"lineState","trueActState","falseActState","initActState","trigActState","timeoutActState","timeLoopActState"}}
 sysKeyWord={["$HC2onLine"]=function() return intValue.hc2online end,["$blank"]="blank",
     ["$lineStatus"]=function() return (jD[keyinId] and jD[keyinId].status or "") end,
     ["$lineState"]=function() return (jD[keyinId] and jD[keyinId].state or "") end,
     ["$timeLoop"]="inLoop",["$internet"]=function() return intValue.internet end,
     ["$RAM"]=function() return intValue.ram end,["$id"]=function() return realId(keyinId) end,
     ["$lineId"]= function() if keyinId:sub(1,1)=="$" then return "$##"..keyinId:sub(2) end return keyinId end,
     ["$room"]=function() if keyinId:find("&") then return "Global Variable" end return addSign(jDid[tableId(keyinId)].room) end,
     ["$name"]=function() if keyinId:find("&") then return realId(keyinId) end return addSign(jDid[tableId(keyinId)].name) end,
     ["$isFalse"]=0,["isTrue"]=1,
     ["$12clock"]=function() return os.date("%I:%M %p",os_time()) end,
     ["$24clock"]= function() return os.date("%H:%M",os_time()) end,
     ["$month"]=function() return os.date("*t").month end,["$mName"]=function() return os.date("%B") end,
     ["$day"]=function() return os.date("*t").day end,["$wday"]=function() return os.date("*t").wday end,
     ["$wName"]=function() return os.date("%A") end,["$hour"]=function() return os.date("*t",os_time()).hour end,
     ["$min"]=function() return os.date("*t",os_time()).min end,
     ["$osTimeDrift"]=function() return os_time() end,
     ["$osDateDrift"]=function() return os.date("%c",os_time()) end,
     ["$osTime"]=function() return os.time() end,
     ["$osDate"]=function() return os.date("%c") end,
     ["$actDate"]=function() return os.date("%a %b %d %H:%M %Y",os_time()) end,
     ["$timeSpan"]=function() if jD[keyinId].tstRate then return jD[keyinId].tstRate end end,
     ["$value"]=function() if jD[keyinId][jD[keyinId].property].value then return jD[keyinId][jD[keyinId].property].value end sceneAbort("(70) Keyword "..wF.."$value"..eF.." not valid for "..findNameRoom(keyinId,2),{"$value"},jD[keyinId].lineNum) return "error" end,
     ["$param"]=function() if jD[keyinId].property then return jD[keyinId].property end sceneAbort("(69) Keyword "..wF.."$param"..eF.." not found for "..findNameRoom(keyinId,2),{"$param"},jD[keyinId].lineNum) return rF.."error"..eF  end,
     ["$stateValue"]=function() if jD[keyinId].stateValue then return doTheMath(jD[keyinId].stateValue,keyinId) end sceneAbort("(71) Keyword "..wF.."$stateValue"..eF.." not valid for "..findNameRoom(keyinId,2),{"$stateValue"},jD[keyinId].lineNum) return "error" end,
     ["$timeDrift"]=function() return timeDrift end,
     ["$sunsetHour"]=function() return intValue.sunsetHour end,
     ["$sunriseHour"]=function() return intValue.sunriseHour end,
     ["$timezoneOffset"]=function() return intValue.timezoneOffset end,
     ["$homeMode"]=function() return vacMode[atHome] end,
     ["$powerOutage"]=function() return tostring(powerOutage) end,
     ["$geoAction"]=function() return jGps.data.geofenceAction end, 
     ["$geoUser"]=function() return (gpsDevice[tostring(jGps.data.deviceId)] and gpsDevice[tostring(jGps.data.deviceId)] or jGps.user[tostring(jGps.data.userId)]) end,
     ["$geoUserId"]=function() return jGps.data.userId end,
     ["$geoLocationId"]=function() return jGps.data.locationId end,
     ["$geoLocation"]=function() return jGps[tostring(jGps.data.locationId)].name end,
     ["$geoDeviceId"]=function() return jGps.data.deviceId end,
     ["$geoDeviceName"]=function() return jGps.ios[tostring(jGps.data.deviceId)] end,
     ["$geoRadius"]=function() return jGps[tostring(jGps.data.locationId)].radius end}
 lastRefresh=tonumber(api.get("/refreshStates")["last"])
 sceneName=api.get("/scenes/" .. __fibaroSceneId)["name"];errMsg=""
 htmlStr="<style> .blink {animation: blinker 1s linear infinite;animation-direction: reverse;} @keyframes blinker {50% {opacity:0.5;}} body {background-color:black;color:white;} tip-font {font-size:8px;} mark {color:white; background-color:teal; font-size:10px;} markPink {background-color:#661b00;font-weight:bold;} .txtLeft {text-align:left;} mark6 {color:#f0ce8e; background-color:#404040; font-size:10px;} fs105 {font-size:10.5px;} fs4 {font-size:4px;} fs11 {font-size:11px;} fs115 {font-size:11.5px;} uT {border-bottom: 1px dashed;}"..
   " mark1 {color:white; background-color:dimgrey; font-size:10px;} mark2 {color:darkgreen; font-size:10px;} mark3 {color:black; background-color:white; font-size:10px;} mark4 {color:black; background-color:darkKhaki; font-size:10px;} mark5 {background-color:black; font-size:11px;} markRed {color:white; background-color:red; font-size:10px;}"..
   ".droptxt {position:relative; display:table-cell;text-align:center;} gBg {background-color:#004000;border:1px solid grey;} greyBg {background-color:#404040;} rBg {background-color:#640202;}  bBg {background-color:#244864;border:1px solid grey;} pBg {background-color:#3e1263;} gBd {border:1px solid grey;}"..
   ".dropdown {position:relative; display:table-cell;text-align:center;}.dropdown-content {display:none; position:absolute;padding:5px 5px; border:outset AntiqueWhite; top:20px; right:10px; background-color:gold; font-weight:700; line-height:1.2; font-size:10px; text-align:left; color:black; z-index:1;}"..
   ".drop-value {display:none; position:absolute;padding:4px 4px; border:outset AntiqueWhite; top:20px; right:10px; background-color:black; font-weight:normal; line-height:1.4; font-size:10.4px; text-align:left; color:darkgrey; z-index:1;}"..
   ".drop-menu {display:block; position:fixed;padding:5px 5px; bottom:5px; left:50px;white-space:pre-wrap;border:outset AntiqueWhite; background-color:#380000; line-height:1.4; font-size:10.5px; text-align:left; color:white; z-index:20;}"..
   ".dropdown:hover .dropdown-content {display:block; width:500px; white-space:pre-wrap;} .dropdown:hover .drop-value {display:block; width:300px; text-align:left; white-space:pre-wrap;background-color:black;}"..
   " td {padding:3px;border:1px solid dimgray;font-size:11px;} th,td {text-align:center;white-space:nowrap;} tr:nth-child(even) {background-color:#161616;} tr:hover {background-color:#001a33;} td:hover {background-color:#554D06;} th {padding:2px;border:1px solid dimgray;font-size:12px;font-weight:normal;background-color:DarkSlateGrey;}"..
    "table {table-layout:fixed; border-collapse:separate;border:none;border-spacing:0px;} ledFmt {border:1px solid #262626;word-spacing:10px;} </style>"
 aosVer="8";--supVer="<font color=grey><sup><sup>"..aosVer.."</sup></sup></font>";
 function urlEncode(url,deep)
    if url == nil then return end
    for i=1,(deep or 2) do 
      url = url:gsub("([^%w])", function(c) return string.format("%%%02X", string.byte(c)) end)
    end return url
   end--==================================== urlEncode 
 function prtLine(msg)
   print(msg.."<span style=text-align:center;font-family: monospace;>")
  end
 function getLastState(last)
   net.HTTPClient({timeout=600}):request("http://127.0.0.1:11111/api/refreshStates?last="..last, 
      {success = function(response) k=json.decode(response.data);lastNext = k.last 
          lastState(k);getLastState(lastNext) end,
      error = function(error) onTime();runAction(); getLastState(lastNext) end, 
      option = {method = "GET"}  })
  end
 function table_concat(t,s,f,d) local i,j,k=0,0,"";s=(s or "");d=(d or f and ":" or "")
   for i,j in pairs(t) do k=k..(f and i or "")..d..j..s end return k end
  --==================================== getDevAct   
 function getIntValue()
  intValue.sunsetHour=api.get("/settings/info")["sunsetHour"]
  intValue.sunriseHour=api.get("/settings/info")["sunriseHour"]
  intValue.ram=100-tonumber(api.get("/diagnostics")["memory"]["free"])
  intValue.hc2online=tostring(api.get("/settings/info")["online"])
  intValue.timezoneOffset=tonumber(api.get("/settings/location")["timezoneOffset"])
  intValue.internet="online"
  end --================================== getIntValue  
 function getDevAct(act1,cmd,inId,forceAdd) 
  local cnt,fStatus,mStr=0,true,nil;tmpNum="";inGid=inId
  if jCmd[cmd] and not jCmd[cmd].f2:match("call") then return true end
  if #act1<1 then 
     if jCmd[cmd] then sceneAbort("(68) No devices specified for '"..wF..cmd..eF.."' action.<br>e.g. {"..ygF.."\"<i>"..wF.."item-ID"..eF.."</i>\",\""..cmd.."\",\"\""..eF.."}",{cmd},jD[inId].lineNum)
     else sceneAbort("(84) Action "..wF..cmd..eF.." not supported.<br>"..aosAct,{cmd},jD[inId].lineNum) end
  end 
  -- for dId in act1:gmatch("%d+") do cnt=cnt+1
   for dId in act1:gsub("|"," "):gmatch("%S+") do cnt=cnt+1 
    if dId:sub(1,1)=="&" then sceneAbort("(90) Action "..wF..cmd..eF.." not available for global "..wF..dId..eF.." Supported action:<br>setGlobal",{cmd,dId},jD[inId].lineNum) end
    if ("$lineId $id"):find(dId) then mStr=dId;dId=tableId(inId) end
    if dId:sub(1,1)=="$" then sceneAbort("(91) Action "..wF..cmd..eF.." not available for keyword "..wF..dId..(mStr and " in "..mStr or "")..eF.."<br>Supported action:</font><br>setStateValue<br>setState<br>setStateFormula<br>setStateDelay<br>setTimeSpan<br>setTimeSlot",{cmd,(mStr or dId)},jD[inId].lineNum) end
       if not jDlist[dId] then
       sceneAbort("(92) Item ID "..wF..dId..eF.." not found in the system.",{dId},jD[inId].lineNum) end
    if not jDlist[dId] and not jCmd[cmd] then sceneAbort("(85) Action "..wF..cmd..eF.." not supported.<br>"..aosAct,{cmd},jD[inId].lineNum) end 
    if cmd=="poll" then 
     if jDlist["pId"..jDlist[dId]] then jDlist["cmd"..dId][#jDlist["cmd"..dId]]="poll"
     else sceneAbort("(86) Master device for "..wF..findNameRoom(dId,2)..eF.." not found. "..wF.."poll"..eF.." action couldn't be executed.",{"poll"},jD[inId].lineNum) end end
    if json.encode(jDlist["cmd"..dId]):find("\""..cmd.."\"") or forceAdd then 
       if not json.encode(jDlist["cmd"..dId]):find("\""..cmd.."\"") then jDlist["cmd"..dId][#jDlist["cmd"..dId]+1]=cmd end
       if not jCmd[cmd] then jCmd[cmd]={resp="n/a=x",init="+",f1="#",f2="call,,,",f3="~"} userAct=(userAct and userAct or irF.."<uT>User Defined Actions</uT>:</font><br>- ")..ygF.." "..cmd..eF end
    else fStatus=false;tmpStr="";tmpNum=(cnt==1 and dId or tmpNum.."|"..dId);tmpStr=tmpStr.."<br>"..wF.."`"..(jN2s[dId] or "").."` "..findNameRoom(dId,2)..eF..irF.." Device's actions are:</font><br>- "..table.concat(jDlist["cmd"..dId]," ").."<br>" end
  end 
  if not jCmd[cmd] or not fStatus then sceneAbort("(8) Action '"..wF..cmd..eF.."' not found for ID("..wF..tmpNum..eF..") Supported actions:<br>"..tmpStr..(userAct and userAct.."<br>" or "")..aosAct,{cmd,tmpNum},jD[inId].lineNum) end
  end --================================== getDevAct  
 function tableSortByKey(t,desc,member) local temp={} 
   for key,_ in pairs(t) do table.insert(temp,key) end
   if desc=="primeSort" then table.sort(temp); return temp end
   if desc then table.sort(temp,function(a,b) return (member and t[a][member] or t[a])<(member and t[b][member] or t[b]) end) else  table.sort(temp,function(a,b) return (member and t[a][member] or t[a])>(member and t[b][member] or t[b]) end) end
   return temp end --================= tableSortByKey 
 function getLedStatus() 
   sysStatus="<br>"
   if api.get("/settings/info")["updateStableAvailable"] then 
    sysStatus=orF.."SW Update Available: "..eF..lsbF.."<span class='blink'>"..api.get("/settings/info")["newestStableVersion"]..eF.."</span><br>"
   elseif api.get("/settings/info")["updateBetaAvailable"] then sysStatus=orF.."Beta SW Update Available: "..eF..lsbF.."<span class='blink'>"..api.get("/settings/info")["newestBetaVersion"]..eF.."</span><br>" end
   local l,ledStr,ledTxt,onOff="","","",{["on"]="&#127760 ",["off"]="O ",["blink"]="<span class='blink'>&#127760 </span>"}
   l=api.get("/proxy?url=http://"..urlEncode((userName or ""))..":".. urlEncode((passwd or "")).."@127.0.0.1/services/system/ledStatus.php")
   if l==nil then return "&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp" end
   ledStr=onOff[l.service]..onOff[l.update]..onOff[l.recovery]..onOff[l.learn]..onOff[l.zwave]..onOff[l.internet]..onOff[l.ethernet]..onOff[l.power]
   intValue.internet=l.internet.."line"
   if l.zwave~="off" then sysStatus=sysStatus..rF.."Warning! Z-Wave overload, system freeze expected.<br>"..eF end 
  return "&nbsp&nbsp&nbsp<ledFmt>&nbsp<sup><fs4>"..ledStr.."</sup></fs4></ledFmt>&nbsp" 
  end --=============================== getLedStatus 
 function logJmLine(lStr) local i 
  for i=1,#task.all do lStr=lStr:gsub("\""..task.all[i].."\"=","<br>"..wF..task.all[i].."</font> = ") end
  for i,_ in pairs(jCmd) do lStr=lStr:gsub(i,ygF..i..eF) end return lStr:sub(2,-2)
  end --================================ logJmLine 
 function setActTop() local tab,i,rStr=tableSortByKey(jTop,false),0,{} 
   for i=1,math.min(top.active,#tab) do 
      rStr[#rStr+1]=string.format("%5d : %-9s",jTop[tab[i]],math.floor(jTop[tab[i]]/gData.zTotal*1000)/10 .."%")..findNameRoom(tab[i]:match("%w+"),2).." <br>"
   end return (top.active >0 and bF.."  Top "..math.min(top.active,#tab).." most active slave devices:<br><br>"..eF..json.encode(rStr):gsub("[\"\\%[%],]","") or "Top active menu disabled")
  end --================================ setActTop 
 function start_scene(sId,sParam) local sArg,bPath={},"%b{}"
   if not sParam:match("%b{}") then sParam=","..sParam:gsub(",",",,")..",";bPath="%b,," end
   for i in sParam:gmatch(bPath) do sArg[#sArg+1]=i:sub(2,-2) end 
   fibaro:startScene(realId(sId),sArg)
  end --================================ start_scene  
 function setIcon(inId,iconId) 
   local pData,iType,path={},inId:sub(1,1)=="_" and "scene" or "device",""
   path=(iType=="scene" and "/scenes/" or "/devices/")..realId(inId)
   if not json.encode(jIcons):find(iconId) then 
      iMsg="<font color=red>icon not found. Action aborted"..eF return false end
   if not tonumber(iconId) then iMsg="<font color=red>icon not a number. Action aborted"..eF return false end
   icondId=tonumber(iconId)
   pData=api.get(path)
   if iType=="scene" then api.put(path,{iconID=iconId})
   else pData={properties={deviceIcon=iconId}}; api.put(path,pData) end
   return true
   end --================================ setIcon 
 function setInitAct(orgAct,inId,actName)
   local act2set=json.decode(json.encode(orgAct)) 
   if type(act2set[1])=="table" then 
     for i=#act2set,1,-1 do 
       if (jCmd[act2set[i][2]:match("%w+")].init=="-" and act2set[i][5]==nil) or act2set[i][5]==false then table.remove(act2set,i) end end
     if not act2set[1] then act2set=nil end
   else if (jCmd[act2set[2]:match("%w+")].init=="-" and act2set[5]==nil) or act2set[5]==false then act2set=nil end end
   jD[inId].initAct=act2set end --============= setInitAct 
 function ctlChar(msg,remove) if remove then return tostring(msg):gsub("[\n\t]"," ") else return tostring(msg):gsub("[\n\t]",function(a) return (a:match("[\n]") and "\\n " or "\\t ") end) end end
 function parseCmd()  
   local i,j,f,k,jRef,fields=0,0,0,0,{},{{"resp","init","f1","f2","f3"},{"[/=x]","+-","[!#><$&]","call call, scene scene,,, global drift tts notify,,, int,,, rmd, prt vac sys time int misc,","[~$&?!]"}};tmpTab={}
   for i,j in pairs(jCmd) do k=0;jRef[i]={};tmpTab[#tmpTab+1]=i
     for f in string.gmatch(j:gsub("|"," "),("%S+")) do k=k+1;jRef[i][fields[1][k]]=f
       if not f:find(fields[2][k]) and not fields[2][k]:find(f) then sceneAbort("(56) Syntax error in "..i.." at '"..j:gsub(f,wF..f..eF).."'. <br>Please refer to Advanced user Guide: Action format section",{i,f},{".jCmd hash table:",json.encode(jCmd):gsub("[\"\\]","")}) end end
   end jCmd=jRef;jRef={};table.sort(tmpTab);j=0
   for i=1,#tmpTab do j=(json.encode(jM):find(tmpTab[i]) and j+1 or j); aosAct=aosAct..(json.encode(jM):find(tmpTab[i]) and ygF..tmpTab[i]..eF or tmpTab[i])..(i%6==0 and "<br>- " or " ") end 
   aosAct=aosAct:gsub(":",": ("..math.floor(j/#tmpTab*100).."%% in use)")
  end --==================================== parseCmd 
 function updateTimeDrift(drift) local i=0
  gData.lAlert=gData.lAlert+drift;gData.tableTimeStamp=gData.tableTimeStamp+drift;gData.startTime=gData.startTime+drift;gData.rstDeadRpt=gData.rstDeadRpt+drift
  for i=1,#jMem do jMem[i].lTime=jMem[i].lTime+drift end
  for i,_ in pairs(jVar) do if jVar[i.."lTime"] then jVar[i.."lTime"]=jVar[i.."lTime"]+drift end end 
  for i,_ in pairs(jD) do jD[i].lTime=jD[i].lTime+drift;jD[i].maxTimeStamp=jD[i].maxTimeStamp+drift;jD[i].lagTime=jD[i].lagTime+drift; 
    if jD[i][jD[i].property] then jD[i][jD[i].property].lTime=jD[i][jD[i].property].lTime+drift end end
  end --=================================== cutStr 
 function cutStr(str2cut,cutLen,lChar) str2cut=tostring(str2cut) return (str2cut:len()<=cutLen and str2cut or str2cut==" " and "" or str2cut:sub(1,cutLen).."<span style='font-size:7px'>...</span>"..(lChar and str2cut:sub(-1,-1) or "") ) end
 function menuLen(iMsg,rule,inMsg,shadow) --======== menuLen 
   local menuMax,brNum,mNum,mLen,mStr,shadowClr=550,0,(iMsg:find("<mark5>") and 5.9 or 5.3),0,"",{"127,255,0","255,0,0","0,0,255","0,0,0","255,215,0","218,165,32","30,144,255","130,144,255","30,144,180","230,144,255","30,144,255"}
   if not rule then rule="right" end
   iMsg:gsub(".-<br>",function (a) mLen=math.max(mLen,a:gsub("[\t]","        "):gsub("%b<>",""):len()) end)
   iMsg:gsub(".+<br>(.+)",function (a) mLen=math.max(mLen,a:gsub("[\t]","        "):gsub("%b<>",""):len()) end)
   if mLen==0 then mLen=iMsg:gsub("%b<>",""):len() end
   if iMsg:find("fixedMenu") then brNum=tonumber(iMsg:match("fixedMenu(%d+)")) or 30; mNum=6;iMsg=iMsg:gsub(iMsg:match("fixedMenu(%d+)") and "fixedMenu"..brNum or "fixedMenu","") else _,brNum=iMsg:gsub("<br>"," ") end; 
    mStr=" style='width:"..math.min(math.ceil(mLen*mNum)+mLen,(brNum>50 and brNum or brNum>18 and 730 or menuMax)).."px;"..(rule:match("%d") and rule or rule..math.min(100,math.floor(mLen*2)).."px;")
   if brNum>18 then mStr=mStr.."position:fixed;top:auto;left:0px;right:0px;bottom:10px;margin: 0px 0px 0px 200px;" end  
   mStr=(shadow and mStr.."box-shadow: 5px 8px 8px 5px rgba("..shadowClr[shadow]..",0.3);'>" or mStr.."'>")
   if inMsg then mStr=mStr..(iMsg:sub(1,4):find("<br>") and iMsg:sub(5) or iMsg) end return mStr
  end --==================================== menuLen 
 function getGlobalVal(cmd,inId,txt)
     if not cmd:match("[%$@&]") then return cmd end
     if cmd:find("$") then cmd=cmd:gsub("$[%w_]+", function(a) if txt then return "<mark4> "..setKeyword(a,inId).." </mark4><mark3><sup> $:"..a:match("%w+").." </mark3></sup>" else return setKeyword(a,inId) end end) end
     if cmd:find("&") then cmd=cmd:gsub("&([%w_']+)", function(a) if txt then return "<mark4> "..fibaro_getGlobalValue(a).." </mark4><mark3><sup> &:"..a.." </mark3></sup>" else return fibaro_getGlobalValue(a:match("[%w_']+")) end end) end 
     if cmd:find("@") then cmd=cmd:gsub("[@][%w_']+[>]?[%w_]+", function(a) if txt then return "<mark4> "..extractValue(a).." </mark4><mark3><sup> "..jDid[tableId(a)].name..":"..realId(a)..(a:match(">%w+") or "notFound").." </mark3></sup>" else return extractValue(a):gsub("true","1"):gsub("false","0") end end) end
  return cmd
   end --==================================== getGlobalVal
 function mathTipText(cmd,inId, inFunc)  
     if not cmd:match("[%$@&]") and not cmd:match("%b??") then return cmd end 
     if cmd:match("[%$@&]") and not cmd:match("%b??")then cmd=getGlobalVal(cmd,inId,"text") end
     if cmd:match("%b??") then cmd=cmd:gsub("%b??",function(a) return math2text(a:sub(2,-2),inId,"parse") end) end
     return cmd
   end --==================================== mathTipText
 function math2text(cmd,inId, inFunc)  
   if not cmd:match("[%(%+%-%*/%$@&]") then return cmd end
   if (inFunc and not inFunc:find("varOnly")) or (not inFunc and cmd:match("[%(%+%-%*/]") and tonumber(doTheMath(cmd,inId))) then cmd=(tonumber(cmd) and cmd or "<mark1> "..doTheMath("?"..cmd.."?",inId).." </mark1><mark3><small> "..cmd.." </mark3></small>") end cmd=getGlobalVal(cmd,inId,"text")  
   if inFunc then return cmd else return math2text(cmd,inId,"varOnly") end
   end --================================== math2text 
 function extractValue(cmd,prop)
    local val2get,id,index="value",cmd:match("(%w+)[>]([%w%.]+)") 
    id=tonumber(id)
    if jD[id] and jD[id].idType=="V.Device" then return jD[id].log.value end 
    if tonumber(index) then if not prop then return jD[cmd:match("@(%d+>%d+)")][jD[cmd:match("@(%d+>%d+)")].property].value else return jD[cmd:match("@(%d+>%d+)")].property end end
    if tblVal:find(index) then return jDlist[index..id] end 
    if index:find("Modified") then val2get="modified"; index=index:gsub("Modified","") end
    if initMode then confirmProperty(index,id) end  
    --if not api.get("/devices/"..id.."/properties/"..index) then sceneAbort("(52) In device ID "..wF..id..eF..", property '<font color=wheat>"..index.."</font>' not found.<br>To retrieve last modification time, add '"..wF.."Modified"..eF.." at end of property name (case sensitive)<br> Available properties:"..wF..getIdData(id,"properties")..eF,{index}) end
    if val2get=="modified" or index=="lastBreached" then return getModificationTime(cmd) else return jDlist[index..id] and jDlist[index..id] or tostring(api.get("/devices/"..id.."/properties/"..index)[val2get]) end
  end --================================ calculate 
 function calculate(cmd,v)  
  local v=v or 0;cmd=tostring(cmd);local count,i,l,o,r,j,s,subCmd=0,0,0,0,0,0,0,{}
  local function helper(o,v,r)-- a local helper function to speed things up and keep the code smaller
     if type(v)=="string" and v:find("%D") and to_number(math[v]) then  v=to_number(math[v]) end --then
     if type(r)=="string" and r:find("%D") and to_number(math[r]) then  r=to_number(math[r]) end -- A mirror from above but this affects the other side of the equation
     r=to_number(r); return o=="+" and r+v or o=="-" and r-v or o=="/" and r/v or o=="*" and  r*v or o=="^" and r^v end -- local function helper(o,v,r)
   for i,v in pairs(math) do cmd=cmd:gsub(i.."(%b())", function(a) a=a:sub(2,-2)
      if a:sub(1,1)=="-" then a="0"..a end
      if a:match("%b()") then a=a:gsub("%w+%b()",calculate(a:match("%w+%b()"))) end
      _,j=a:gsub(","," ")
      if j==1 then l,o=a:match("(.*),(.*)") return v(calculate(l),calculate(o)) 
      elseif j>1 then 
         for j in string.gmatch(a:gsub(","," "),("%S+")) do s=s+1
           if s==1 then subCmd[s]=j else subCmd[1]=v(calculate(subCmd[1]),calculate(j)) end
         end return subCmd[1]
      else return v(calculate(a)) end end)
   end
   cmd=cmd:gsub("%b()",function(a) return calculate(a:sub(2,-2)) end)
   for l,o,r in cmd:gmatch("(.*)([%+%^%-%*/-])(.*)") do count=count+1
   if l:find("[%+%^%-%*/]") then
    if l:sub(-1,-1):match("[%+%^%-%*/]") then r=o..r;o=l:sub(-1,-1);l=l:sub(1,-2) end v=helper(o,r,calculate(l,v)) 
    elseif count==1 then v=helper(o,r,l) end end
   if count==0 then return (to_number(cmd) or to_number(math[cmd])) or cmd end 
   return v
  end --======================================= doTheMath 
 function doTheMath(cmd,inId,fType) 
   if not cmd:match("[%$@&]") and not cmd:match("%b??") then return cmd end 
   if fType then return mathTipText(cmd,inId) end
   cmd=getGlobalVal(cmd,inId)
   cmd=cmd:gsub("%b??",function(a) orgCmd=cmd:sub(2,-2) return runFormula(a:sub(2,-2),inId) end)
  return cmd
  end --======================================= doTheMath 
 function runFormula(cmd,inId,fType)              
   if not cmd:match("[%(%+%-%*/]") then return cmd end 
   if cmd:match("%d+:%d+") and cmd:match("[%(%+%-%*/]") then return os.date("!%H:%M", to_number(runFormula(cmd:gsub("(%d+):(%d+)", function (a,b) return (a*60+b)*60 end),inId))) end
   local st,res= pcall(calculate,cmd)
   if not st then if not jErr[inId] then jErr[inId]=true 
     sceneAbort("(51) Formula syntax error in '"..wF..orgCmd..eF.."' -> '"..wF..cmd..eF.."'<br>"..res:gsub("lua:","lua;"),{orgCmd},jD[inId].lineNum) end
     res= rF.."calcERROR"..eF end  
   return tostring(res)
   end --================================= runFormula 
 function logReminder(remTrg,remAct,remStr,inId) local i,j,remIn=0,0,false
   if json.encode(jMem):find(remStr) then remIn=true end
   if remAct:find(",") then remAct,tmpNum=remAct:match("(.*),(.*)") else tmpNum=900 end
   if (("logRmd addRmd setRmd"):find(remAct) and remIn) or (remAct:find("del") and not remIn) then return false end 
   if ("delRmd delLogRmd"):find(remAct) then for i=#jMem,1,-1 do 
        if jMem[i].remMsg:find(remStr) then tmpStr=jMem[i].remMsg;table.remove(jMem,i) 
          if #remTrg>5 then homeTts(doTheMath(remTrg,inId),"");lastAct(trueFalseColor[true].."<font color=cadetblue>"..inId.."</font><sup>ttsRmd{'"..cutStr(doTheMath(remTrg,inId),25).."'}</sup></font>",inId) --reson to delete message
            if remAct=="delLogRmd" then sendNote(sceneName.." (Delete Reminder)",doTheMath(remTrg,inId).."\nDeleted reminder:\n"..tmpStr) end;remTrg="" end
   end end
   elseif remAct=="delAllRmd" then jMem={} if #remTrg>5 then homeTts(doTheMath(remTrg,inId),"");lastAct(trueFalseColor[true].."<font color=cadetblue>"..inId.."</font><sup>ttsRmd{'"..cutStr(doTheMath(remTrg,inId),25).."'}</sup></font>",inId) end
   else
     if not tmpNum then tmpNum=900 else if to_number(tmpNum)<60 then tmpNum=60 end end --1 min. default
     jMem[#jMem+1]={note=false,devId=inId,remMsg=remStr,srcTrg=remTrg,remRate=to_number(tmpNum),lTime=os_time()}
     if remAct:find("log") then jMem[#jMem].note=true end
     if ("logRmd addRmd"):find(remAct) then execReminder(#jMem) end
   end
   if global4rmd[1] then fibaro:setGlobal(global4rmd.gVarName,json.encode(jMem)) end
  return true end --======================== checkReminder 
 function checkReminder()
   for m=1,#jMem do if os_time()-jMem[m].lTime > jMem[m].remRate then  
     if logTrueFalse(jMem[m].srcTrg,jMem[m].devId,"status") then execReminder(m) return end
  end end end -- function =================== execReminder 
 function execReminder(remNum)
   jMem[remNum].lTime=os_time(); homeTts(doTheMath(jMem[remNum].remMsg,jMem[remNum].devId),20)
   if jMem[remNum].note then sendNote(sceneName.." (Reminder)",doTheMath(jMem[remNum].remMsg,jMem[remNum].devId)) end
  end --=================================== wdtReset 
 function wdtReset() if rstDeadRpt==0 then return end
   if os_time()-gData.rstDeadRpt>=rstDeadRpt*3600 then gData.numDeads=0;jF={};gData.rstDeadRpt=os_time() end 
  end --=================================== confirmProperty 
 function confirmProperty(pName,inId)
     if fibaro:get(tonumber(inId),pName) then return true 
     else sceneAbort("(52) In device ID "..wF..inId..eF..", property '<font color=wheat>"..pName.."</font>' not found.<br>To retrieve last modification time, add '"..wF.."Modified"..eF.." at end of property name (case sensitive)<br> Available properties:"..wF..getIdData(inId,"properties")..eF,{pName},jD[inGid].lineNum) return false end
   end --=================================== getModificationTime 
 function getModificationTime(inId)
   if inId:find("[$]") or inId:find("stateModified") then return os_time()-jD[inGid].lTime end
   if inId:find("&") then return fibaro_getGlobalValue(realId(inId),"?"):gsub(".+",function (a) if a=="Local" then return os_time()-jVar[realId(inId).."lTime"] else return os.time()-fibaro:getGlobalModificationTime(realId(inId)) end end) end
   if initMode then confirmProperty(inId:match(".*[>]([%w%.]+)"):gsub("Modified",""),realId(inId)) end
   return inId:match(".*[>]([%w%.]+)"):gsub("Modified",""):gsub(".+",function (a) return(a=="lastBreached" and os.time()-api.get("/devices/"..realId(inId))["properties"]["lastBreached"] or os.time()-api.get("/devices/"..realId(inId).."/properties/"..inId:match(".*[>]([%w%.]+)"):gsub("Modified",""))["modified"]) end)
  end --====================================== logTrueFalse   
 function logTrueFalse(cmd,dId,status) 
   local cnt,fStatus,logTxt=0,false,""
   if not cmd:find("{") then log_trueFalse=false; return (cmd:len()>2 and cmd..":" or "")  end
   logStatus=""
   if cmd=="{else}" then indent=indent:sub(1,-3) return bF.."<br>"..indent.."else</font><br>" end
   logTxt=bF..indent.."if</font> ";cmd=spKeyword(cmd,dId) --:gsub(" ","")
   if cmd:sub(1,1)=="=" then logTxt=bF..indent.."WHEN</font> "; cmd=cmd:sub(2) end
   local function getStatus(evalStr)
     local lgStatus,lStatus,lCnt,cVal,dState,fStatus,inId,stColor,o,val,rVal,ref,z,val1,timeVal={[false]=irF,[true]=lgF},false,0,0,"",0,"",{[false]="<font color=red>",[true]="<font color=darkgreen>"},"",""
     for z in evalStr:gmatch("(.-)[|]") do --print(evalStr,z);
       inId,ref,o,rVal=z:match("([$&]?[%w_]+)%s-[:]%s-([%w%.]+)%s-([=<>][<>=]?)%s-(.+)");lCnt=lCnt+1;inId=inId..">"..ref
        dState,logTxt=ref.." "..o.." "..doTheMath(rVal,dId,"parse"),logTxt..(lCnt>1 and bF..indent.." and "..eF or "")..findNameRoom(inId,2)
        val=doTheMath(rVal,dId);lStatus=false
        if inId:find("[&$]") and not ref:find("value") then sceneAbort("(17) Property error in '"..cmd:gsub(ref,wF..ref..eF).."'. Acceptable properties for global and keyword variables are: "..wF.."value   valueModified"..eF,{cmd},jD[dId].lineNum) end
        if ref:find("lastBreached") or ref:find("Modified") then cVal=getModificationTime(inId)
        elseif inId:find("&") then cVal=fibaro_getGlobalValue(inId:match("[&][%w_]+"))
        elseif inId:find("[$]") then cVal=setKeyword(inId:match("[$][%w_]+"),dId)
        else cVal=extractValue(inId) end; cVal=tostring(cVal);timeVal=val
        if val:find("~") then o="~";val,val1=val:match("(.*)~(.*)") end
        if tonumber(cVal) and tonumber(val) then cVal=to_number(cVal);val=to_number(val);val1=to_number(val1) end
        if type(cVal)~=type(val) then sceneAbort("(53) Attempt to compare "..type(cVal).." with "..type(val).." in ' "..wF..z..eF.." ' statement. ( "..wF.. tostring(cVal) ..o.. tostring(val)..eF.." )",{z},jD[dId].lineNum); cVal=tostring(cVal);val=tostring(val) end
        if (tostring(timeVal):match("(%d+:%d+~%d+:%d+)") and isOnTime(timeVal,dId) or o=="=" and cVal==val) or (o==">" and cVal>val) or (o=="<" and cVal<val) or (o=="<>" and cVal~=val) or (o=="~" and cVal>val and cVal<val1) or (o=="==" and cVal:find(val)) then fStatus=fStatus+1;lStatus=true end
        if lStatus then logStatus=logStatus..(lCnt==1 and "{" or cF.." and "..eF)..lgStatus[lStatus]..(jN2s[realId(inId)] or inId:find("[&$]") and tableId(inId) or "<sup>"..realId(inId).."</sup> "..findNameRoom(inId,6))..(o:find("=") and ":" or "<sup>("..cVal..")</sup>:")..dState:gsub(" ","")..eF
        else logStatus= logStatus..(lCnt==1 and "{" or cF.." and "..eF)..lgStatus[lStatus]..(jN2s[realId(inId)] or inId:find("[&$]") and tableId(inId) or "<sup>"..realId(inId).."</sup> "..findNameRoom(inId,6)).."<sup>("..cVal..")</sup>:"..dState:gsub(" ","")..eF end
       --logStatus=logStatus..(lCnt==1 and "{" or " and ")..lgStatus[lStatus]..(jN2s[realId(inId)] or inId:find("[&$]") and tableId(inId) or "<sup>"..realId(inId).."</sup>"..findNameRoom(inId,6))..(lStatus and ":" or "<sup>("..cVal..")</sup>:")..dState:gsub(" ","").."</font>" 
        logTxt=logTxt.."<sup>("..cVal..")</sup>    ["..stColor[lStatus]..dState.."</font>] <br>" end
     logStatus=logStatus.."}"
     return (fStatus==lCnt and true or false)
   end --local function getStatus(id,ref,o,val)
   for a in cmd:gmatch("%b{}") do a=(a:sub(2,-2).."|"):gsub("||","|");cnt=cnt+1;if cnt>1 then logTxt=logTxt..bF..indent.."or</font> ";logStatus=logStatus..cF.." or "..eF end 
      if getStatus((a:sub(1,1):gsub("|","")..a:sub(2)):gsub("(.-)|", function (s) a1=s:match(".-(:.+)") return s:gsub(",",a1.."|").."|" end)) and status then return true end end
   if status then return fStatus else log_trueFalse=true; return logTxt..bF..indent.."then</font><br>" end
  end --=================================== setVacation   
 function setVacation(cmd,inId) 
  local i,vMode=0,{["vacOn"]=true,["vacOff"]=false,[true]=true,[false]=false}
   if vMode[cmd]~=atHome then return end
   if vMode[cmd] and atHome then atHome=false end
   for i,_ in pairs(jD) do  
     if vMode[cmd] then 
       if ("Z.Device Plugin Variable Keyword"):find(jD[i].idType) then jD[i].tstRate=math.min(jD[i].tstRate,0)  
       elseif not jD[i].idType:find("Auto") then jD[i].tstRate=-1 end
       if jD[i].vacation=="normal" then jD[i].tstRate=jD[i].tstRateOrg elseif jD[i].vacation=="stop" then jD[i].tstRate=-1 end
       if jD[i].idType:find("luaScene") and not fibaro:isSceneEnabled(tonumber(realId(i))) then jD[i].tstRate=-10 end
     else jD[i].tstRate=jD[i].tstRateOrg end
   end if not vMode[cmd] then atHome=true end
  end --==================================== cmdActive 
 function cmdActive(cmd,sColor,mStr)
  return isAct[cmd]==false and fc..(sColor or "red")..">"..(mStr or cmd)..eF  or (mStr or cmd)
  end --==================================== setToolTipTxt 
 function setToolTipTxt(actData,inId,k) local dId
  if initMode then jTabAct[inId]=(jTabAct[inId] or {})
     if type(actData[1])=="string" then jTabAct[inId][k]=cmdActive(actData[2]:match("%w+[%?]?"))..(cmdActive(actData[2]:match(";else;%w+[%?]?")) and "<sup><small>"..cmdActive(actData[2]:match(";else;(%w+[%?]?)")).."</small></sup>" or "").." "
     else for _,dId in ipairs(actData) do jTabAct[inId][k]=(jTabAct[inId][k] or "")..cmdActive(dId[2]:match("%w+[%?]?"))..(cmdActive(dId[2]:match(";else;%w+[%?]?")) and "<sup>"..cmdActive(dId[2]:match(";else;(%w+[%?]?)")).."</sup>" or "").." " end end end
  return jTabAct[inId][k] 
  end --======================================== setTipTxt
 function getTipTxt(actData,inId,log_trueFalseCont) 
   local dId,tipTxt,inSlot=0,"","";inGid=inId;if not inElse then indent=(jD[inId].lineState and "  " or "") end
   local act3,cmd,_act3=subSign(doTheMath(actData[3],inId,"parse")),actData[2]:match("%w+"),nil
   if not actData[2]:find"setTimeSlot" then _act3=act3:match("~(.-)~");act3=act3:gsub("%b~~","") end
   if jCmd[cmd].f3=="~" then 
     if act3:find(":") and actData[4]~="{else}" and not act3:find("<mark") then inSlot=tostring(isOnTime(act3,inId));tipTxt=tipTxt..bF..indent.."if<sup>time</sup></font> ("..rF..act3:gsub(inSlot,"<font color=darkgreen>"..inSlot..eF)..eF..")"..bF.." then</font> <br>";indent=indent.."  " 
     elseif act3:len()>0 and actData[4]~="{else}" or _act3 then tipTxt=tipTxt..indent..bF.."delay </font><mark4> "..(_act3 and _act3 or act3).." sec. </mark4> <font color=blue>then</font><br>"; indent=indent.."  " end end
   if actData[4] then tipTxt=tipTxt..logTrueFalse(actData[4],inId); indent=indent.."  " end
   tipTxt=tipTxt..indent
   if cmd=="startScene" then tipTxt=tipTxt.."<mark> startScene </mark>{"..doTheMath(actData[2]:gsub("startScene,",""):gsub("startScene",""),inId,"parse").."} "
   elseif cmd=="setGlobal" then tipTxt=tipTxt.."<mark> "..actData[2].." </mark>(\""..actData[1]:gsub("&","").. "\", \""..act3.."\") "
   elseif ("time int,,, drift"):find(jCmd[cmd].f2) then
     if cmd=="rptAction" then tmpStr=rptAct(actData[2],act3,actData[1]:match("(%S+)[|]?"),inId,"logInfo") end
     if cmd=="runAction" then execAct(actData[2],act3,actData[1]:match("(%S+)[|]?"),inId,"logInfo") end
     tipTxt=tipTxt.."<mark> "..(cmd=="rptAction" and cmd..tmpStr or actData[2]).." </mark>("..act3..") "  elseif ("notify,,,"):find(jCmd[cmd].f2) then tipTxt=tipTxt..sendNote(subSign(doTheMath(actData[1],inId,"parse")),act3,doTheMath(actData[2],inId),"logInfo")
   elseif ("delRmd delAllRmd delLogRmd"):find(cmd) then tipTxt=tipTxt.."<mark> "..actData[2].." </mark> \""..act3.."\""..(#actData[1]>1 and "<br>"..indent..bF.." do </font><mark> tts </mark> \""..subSign(doTheMath(actData[1],inId,"parse")).."\"" or "")..(cmd=="delLogRmd" and bF.." and </font><mark> sendNote </mark> (reminder deleted)" or "")
    elseif ("rmd,,,"):find(jCmd[cmd].f2) then trueFalseOrg=log_trueFalse;tipTxt=tipTxt.."<mark> "..actData[2]:match("%w+").." (&#10227 "..(actData[2]:match(",(%d+)") and math.max(actData[2]:match(",(%d+)"),60) or "900").." sec.) </mark>"..(cmd=="logRmd" and bF.." and "..eF.."<mark> sendNote </mark> (reminder text)" or "") .."<br>"..logTrueFalse(actData[1],inId)..indent..bF..
     " do </font><mark> tts </mark> \""..act3.."\""..(log_trueFalse and "<br>"..bF..indent.."end<sup><small>if</small></sup></font>" or "");log_trueFalse=trueFalseOrg
   elseif ("tts,,,"):find(jCmd[cmd].f2) then tipTxt=tipTxt.."<mark> "..actData[2].." </mark> (\""..act3.."\" , {".. subSign(doTheMath(actData[1],inId,"parse")).."}) " 
   elseif ("prt"):find(jCmd[cmd].f2) then tipTxt=tipTxt.."<mark> f."..actData[2].." </mark>("..(actData[1]:len()>2 and "["..actData[1].."]," or "").."\""..act3.."\")" 
   else tipTxt=tipTxt.."<mark> "..cmd.." </mark>"..doTheMath(actData[2]:gsub(cmd,""),inId,"parse"):gsub("%?"," (and verify)") end
   if jCmd[cmd].f1:find("[#<>]") and not ("rmd,,,"):find(jCmd[actData[2]:match("%w+")].f2) then 
      for dId in string.gmatch(actData[1]:gsub("|"," "),"%S+") do dId=spKeyword(dId,inId);tipTxt=tipTxt.."<br> "..indent..findNameRoom(dId,2)..(cmd:find("press") and "<sup>btn "..getButtonName(dId,doTheMath(actData[2]:gsub(cmd,""))).."</sup>" or "" )..(dId:find(">") and "<sup> jM line "..dId:match(">(%d+)").."</sup>" or " ") end end
  -- if tipTxt:find(">delay") then indent=indent:sub(1,-3);tipTxt=tipTxt.."<br>"..bF..indent.."end<sup><small>delay</small></sup>"..eF end
   if log_trueFalse and not log_trueFalseCont then indent=indent:sub(1,-3);tipTxt=tipTxt.."<br>"..bF..indent.."end<sup><small>if</small></sup></font>";log_trueFalse=false end 
   if tipTxt:find(">delay") and not inElse then indent=indent:sub(1,-3);tipTxt=tipTxt.."<br>"..bF..indent.."end<sup><small>delay</small></sup>"..eF end
   if tipTxt:find("if<sup>time") and not inElse then indent=indent:sub(1,-3);tipTxt=tipTxt.."<br>"..indent..bF.."end<sup><small>time</small></sup></font>" end 
   return tipTxt 
  end --====================================== spKeyword 
 function setTipTxt(actData,inId,inAct) 
  local mStr,i,tipTxt,did,cmdData="",0,"",0,{{""},{""}}
  if os.time()-dispGuide>time2disp then return "" end
   inElse=false
  if type(actData[1])=="table" then for _,dId in pairs(actData) do tipTxt=tipTxt..setTipTxt(dId,inId,inAct).."<br>" end return tipTxt end 
  if not json.encode(actData):find(";else;") then return getTipTxt(actData,inId) end
  if not actData[4] and not jD[inId][inAct.."State"] then sceneAbort("(30) Missing conditional definition while <font color=#66a3ff>else</font> statement defined.<br>"..inAct.."={"..ygF.."\"".. table.concat(actData,"\",\""):gsub("else",wF.."else"..eF).."\"</font>} and "..inAct.."State={} not found<br<br>",actData,jD[inId].lineNum) end
  if actData[4] and actData[4]:sub(1,1)=="=" then sceneAbort("(79) Action's statement set to <font color=#66a3ff>WHEN</font> therefore <font color=wheat>else</font> condition is unavailble. <br>"..ygF.."\"".. table.concat(actData,"\",\""):gsub("={","<font color=#66a3ff>=</font>{"):gsub("else",wF.."else</font>").."\"</font><br><br>",actData,jD[inId].lineNum) end
  for i=1,#actData do cmdData[1][i]=(actData[i]:match("(.-);else;") or actData[i]);cmdData[2][i]=(actData[i]:match(";else;(.+)") or actData[i]) end
  cmdData[2][4]="{else}"; 
  inElse=true;mStr=getTipTxt(cmdData[1],inId,true)..getTipTxt(cmdData[2],inId)
  if mStr:find(">delay") then indent=indent:sub(1,-3);mStr=mStr.."<br>"..bF..indent.."end<sup><small>delay</small></sup>"..eF end
  if mStr:find("if<sup>time") then indent=indent:sub(1,-3);mStr=mStr.."<br>"..bF..indent.."end<sup><small>time</small></sup>"..eF end
  return mStr 
  end --====================================== spKeyword 
 function spKeyword(rxMsg,inId) if not rxMsg:find("%$") then return rxMsg end
  local i,spKey=0,{"$id","$lineId"};for i=1,#spKey do rxMsg=rxMsg:gsub(spKey[i],setKeyword(spKey[i],inId)) end
  return rxMsg end --=========================== setKeyword 
 function setKeyword(rxMsg,devId)  if not rxMsg:find("%$") then return rxMsg end
  if not devId then keyinId=9999 else keyinId=devId end 
  local i=0
  for i=1,#userKeyWord[1] do rxMsg=rxMsg:gsub(userKeyWord[1][i],userKeyWord[2][i]) end
  for i in string.gmatch(rxMsg,"$%w+") do rxMsg=rxMsg:gsub(i,sysKeyWord[i]) end
  rxMsg=rxMsg:gsub("##","")
  return rxMsg end --=========================== runAction 
 function runAction()  
   local i,k,cmd,cmdRef,inId,inRpt,cStatus,elseStatus=0,0,0,0,0,";",false,false
   if #jMem > 0 then checkReminder() end
   if json.encode(jAct):len()< 5 then jAct={} else 
   for i,_ in pairs(jAct) do inId=i:gsub("[:].+","")
     if i:find(":rpt") then inRpt=inRpt..inId..";" end
     logLineStatus=false
     mStr=grF.."jM{"..jD[inId].lineNum.."}</font> <font color=grey><small><sub>"..(jAct[i].type or "U").."</sub></small></font>"..dColor[jD[inId].idType]..findNameRoom(inId,5).."</font>["..sColor[jD[inId].status+1]..jD[inId][jD[inId].property].value.."</font>] => "
     if jD[inId].lineState and not jAct[i].lineState then  
        if not logTrueFalse(jD[inId].lineState[1],inId,"status") then
           if dbgFalseState then prtLine(mStr.."lineState"..logStatus.." -> no actions.") end
           if jD[inId].lineState[1]:sub(1,1)=="=" and not initMode then jAct[i].lTime=os_time() goto nextAct end
           if jD[inId].errAct then jAct[i]={act=json.decode(json.encode(jD[inId].errAct)),actState="errAct",lTime=os_time(),type="Se"}
           else jAct[i]=nil goto nextAct end
         else jAct[i].lineState=true
           if dbgTrueState then prtLine(mStr.."lineState"..logStatus)
           else logLineStatus=mStr.."lineState"..logStatus end
             if jD[inId].okAct then 
              jAct[inId..":ls"]={act=json.decode(json.encode(jD[inId].okAct)),actState="okAct",lTime=os_time(),type="So"} end end
      end -- if jD[inId].lineState and     
      if type(jAct[i].act[1])=="string" then jAct[i].act={jAct[i].act} end
      logActStatus=false;cStatus=true
      if jAct[i].actState and jD[inId][jAct[i].actState.."State"] and not jAct[i].cmdState then jAct[i].cmdState=true
         cStatus=logTrueFalse(jD[inId][jAct[i].actState.."State"][1],inId,"status")
         if not cStatus then 
           if not json.encode(jAct[i]):find(";else;") then 
             if dbgInfo and dbgFalseState then prtLine(mStr..jAct[i].actState.."State"..logStatus.." -> no actions.") end
             jAct[i]=nil; goto nextAct 
           else 
             if dbgFalseState then prtLine(mStr..jAct[i].actState.."State"..logStatus.." -> else actions.")
             else logActStatus=mStr..jAct[i].actState.."State"..logStatus.." -> else actions." end
           end
         else if dbgInfo and dbgTrueState then prtLine(mStr..jAct[i].actState.."State"..logStatus) else logActStatus=mStr..jAct[i].actState.."State"..logStatus end end
      end --if jAct[i].actState then
      for k,cmdRef in pairs(jAct[i].act) do logStatus="";cmd=json.decode(json.encode(cmdRef))
       if json.encode(cmd):find(";else;") then elseStatus=true else elseStatus=false end
       if not cStatus then if cmdRef[4] or not elseStatus then jAct[i].act[k][1]="done" end end
       if elseStatus and not cmd[4] then cmd[4]=jD[inId][jAct[i].actState.."State"][1] end
       if jAct[i].act[k][1]~="done" and getDelay(inId,cmd,jAct[i].lTime) and sendCmd(cmd,jAct[i].lTime,inId,jAct[i].type) then 
            jMe[inId]=(jMe[inId] and jMe[inId]+1 or 1);jMeSum=jMeSum+1;jAct[i].act[k] = "done" end end 
      for k=#jAct[i].act,1,-1 do if jAct[i].act[k]=="done" then table.remove(jAct[i].act,k) end end
      if #jAct[i].act==0 then jAct[i]=nil end
   ::nextAct:: end end
   if json.encode(jRpt):len()<15 then jRpt={} else
    for i=#jRpt,1,-1 do 
      if not inRpt:find(";"..jRpt[i].id..";") then
         jAct[jRpt[i].id..":rpt"]={act=json.decode(json.encode(jRpt[i].act)),lTime=os_time()+jRpt[i].dTime,type=jRpt[i].type}
         inRpt=inRpt..jRpt[i].id..";"; table.remove(jRpt,i) end
    end end
   if json.encode(jBack):len()< 5 then jBack={} return end
   for i,_ in pairs(jBack) do if os.time()-jBack[i].lTime>jBack[i].cnt*3 then
        if readBack(i,jBack[i]) then jBack[i]=nil else jBack[i].cnt=jBack[i].cnt+1 end end end
  end --=================================== readBack 
 function readBack(devId,rData)
  if rData.resp==fibaro:getValue(devId,rData.rCmd) then return true end
  if rData.cnt>4 then lastAct(trueFalseColor["fail"].."<font color=cadetblue>"..rData.inId.."</font><sup>"..rData.rCmd.."{"..devId..") readback failed}</sup></font>",rData.inId)
     sceneAbort("(75) Z-wave readback fail on "..wF..findNameRoom(devId,2)..eF.."<br>executed command: "..wF.."fibaro:call("..devId..","..rData.cmd..")"..eF.." readback command: "..wF.."fibaro:getValue("..devId..","..rData.rCmd..")"..eF,{rData.cmd.."?"},jD[rData.inId].lineNum) 
     homeTts(sceneName.." alert. Unable to "..rData.cmd:gsub("%?","").." "..findNameRoom(devId,1))
  return true else return false end
  end --=================================== fibaro_call 
 function fibaro_call(devId,param,inId)
  if powerOutage then return "fail" end
  if param=="poll" then devId=jDlist["pId"..jDlist[devId]] end
  local cNum,i,cVal,cmd,cRes,rCmd,res=0,0,{},param:match("%w+"),"","",""
  for i in string.gmatch(param:gsub(","," "),"%S+") do cVal[#cVal+1]=i  end
  if debugCall then print("fibaro:call(",devId,cmd,cVal[2],cVal[3],cVal[4],cVal[5],cVal[6],cVal[7],")") end
  if jCmd[cmd].resp:find("n/a") then fibaro:call(devId,cmd,cVal[2],cVal[3],cVal[4],cVal[5],cVal[6],cVal[7]) return true end 
  rCmd,res=jCmd[param:match("%w+")].resp:match("(.*)=(.*)")
  if rCmd then cRes=fibaro:getValue(devId,rCmd) end if cRes then cRes=cRes:gsub(" ","") end
  if res:find("x") then res=param:gsub(cmd..",",""):gsub(cmd.."%?,","") end
  eCmd.dev=eCmd.dev+1
  fibaro:call(devId,cmd,cVal[2],cVal[3],cVal[4],cVal[5],cVal[6],cVal[7]) 
  if not param:find(cmd.."%?") then return true end
  jBack[devId]={rCmd=rCmd,cmd=cmd,cnt=1,inId=inId,lTime=os.time(),resp=res}
   return true end --========================= add/subSign 
 function subSign(mStr) return tostring(mStr):gsub("[%(%+%-%*/@&%$]%%", function (a) return a:gsub("%%","") end) end
 function addSign(mStr) return tostring(mStr):gsub("[%(%+%-%*/@&%$]", function (a) return a.."%" end) end
 function execCmd(actData,actTime,devId,aType)  
  local cStatus,i,dId,sMode,cmdStr,devStr,dTime,dName=true,0,0,{["enableScene"]=true,["disableScene"]=false},actData[2]:match("[%w_]+"),"<font color=grey><small><sub>"..(aType or "U").."</sub></small></font><font color=cadetblue>"..devId:gsub("[%w_']+",function (a) return jN2s[a] or a end).."</font><sup>","",""
  if os_time()-actTime < 0 then return false end
  if actData[4] and not logTrueFalse(actData[4],devId,"status") then 
     if actData[4]:sub(1,1)=="=" and not initMode then return false 
     else 
         if dbgCmdFalse then 
             prtLine(grF.."jM{"..jD[devId].lineNum.."}</font> <font color=grey><small><sub>"..aType.."</sub></small></font>"..dColor[jD[devId].idType]..findNameRoom(devId,5).."</font>["..sColor[jD[devId].status+1]..jD[devId][jD[devId].property].value.."</font>] : "..rF..actData[2]..eF.." {"..ygF..(jN2s[actData[1]] or actData[1])..eF..") "..logStatus.." => "..rF.."no action"..eF..eF) end
   
      return true 
     end 
  end
  local cmdType,act1,act2,act3=jCmd[cmdStr].f2:match("%w+"),subSign(doTheMath(actData[1],devId)),doTheMath(actData[2],devId),subSign(doTheMath(actData[3],devId))
  if not actData[2]:find("setTimeSlot") and tonumber(act3:match("~(.-)~")) then dTime="<sup>"..yF.. math.floor(tonumber(act3:match("~(.-)~"))+.5).."s></sup>"..eF end
  act3=act3:gsub("%b~~","") 
  if jCmd[cmdStr].f3=="~" then 
     if act3:find(":") and not act3:find("<mark") then dTime="<sup>"..yF.."@"..isOnTime(act3,devId).."></sup>"..eF  
     elseif to_number(to_number(act3))>0 then dTime="<sup>"..yF..to_number(to_number(act3)).."s></sup>"..eF end end
  if initMode then dTime="" end;devStr=devStr..dTime
  if not jCmd[cmdStr].f1:find("[#<>]") then eCmd[cmdType]=(eCmd[cmdType] and eCmd[cmdType]+1 or 1) end
  if     cmdType=="global" then lastAct(trueFalseColor[fibaro_setGlobal(act1,act3,actData[1])]..devStr..act2.."("..ygF..actData[1]..eF..grF..", "..act3..eF..")</sup></font>",devId)
  elseif actData[2]=="shutdown" then HomeCenter.SystemService.shutdown()
  elseif actData[2]=="reboot" then HomeCenter.SystemService.reboot()
  elseif actData[2]=="powerOutage" then powerOutage=b2n[to_number(actData[3])];setVacation(powerOutage,devId);if not initMode then onTime();dispInfo() end
         lastAct(trueFalseColor[true]..devStr..act2.."{"..act3.."}</sup></font>",devId)  
  elseif cmdType=="notify" then sendNote(act1,act3,act2);lastAct(trueFalseColor[true]..devStr..cmdActive(act2)..cmdActive(act2:gsub("[.*]",act2:match("%w+")),"red","("..txtNote..") '"..cutStr(ctlChar(act1),15).."','"..cutStr(ctlChar(act3),25).."')").."</sup></font>",devId)
  elseif cmdType=="rmd" then lastAct(trueFalseColor[logReminder(actData[1],act2,actData[3]:gsub("%b~~",""),devId)]..devStr..act2.."{"..cutStr(act3,25).."}</sup></font>",devId)
  elseif cmdType=="tts" then homeTts(act3,act1);lastAct(trueFalseColor[true]..devStr.."tts{'"..grF..cutStr(act3,25)..eF.."'"..grF..cutStr(" "..act1,15)..eF.."}</sup></font>",devId)
  elseif cmdType=="prt" then act1=(act1:len()>2 and act1 or act2):upper();lastAct(trueFalseColor[true]..devStr..prtFunc[act2].."["..act1.."] "..act3.."</font></sup></font>",devId)
  elseif cmdType=="drift" then updateTimeDrift(to_number(act3)-timeDrift);timeDrift=to_number(act3);lastAct(trueFalseColor[true]..devStr..act2.."("..grF..timeDrift..eF..")</sup></font>",devId)
  elseif cmdType=="vac" then setVacation(act2,devId);lastAct(trueFalseColor[true]..devStr.."vac{"..grF..act2:gsub("vac","")..eF.."}</sup></font>",devId);if not initMode then onTime();dispInfo() end
  elseif jCmd[cmdStr].f1:find("[#<>]") then act1=spKeyword(actData[1],devId):gsub(" ","");cmdAct="";cmdId="" 
    cmdId=trueFalseColor[true]
    inCmd=act2:match("[%w_]+")
     for dId in act1:gsub("|"," "):gmatch("%S+") do iMsg=false
       dName=dId:gsub("[_&$]?[%w_']+", function (a) return jN2s[a] or a end)
       if eCmd[cmdType] then eCmd[cmdType]=eCmd[cmdType]+1 else eCmd[cmdType]=1 end
       --if actData[2]:find("startScene") then start_scene(realId(dId),act2:gsub("startScene,",""):gsub("startScene",""));;cmdId=cmdId..ygF..dName..eF..",,";cmdAct=trueFalseColor[true]..devStr.."startScenecmdId "..grF..(actData[2]:match("%b{}") and actData[2]:gsub("startScene,",""):gsub("startScene",""):gsub("}{","},{") or actData[2]:gsub("startScene,",""):gsub("startScene",""))..eF..")</sup>"..eF..eF
       if actData[2]:find("startScene") then --start_scene(realId(dId),act2:gsub("startScene,",""):gsub("startScene",""));;cmdId=cmdId..ygF..dName..eF..", "..grF..(actData[2]:match("%b{}") and actData[2]:gsub("startScene,",""):gsub("startScene",""):gsub("}{","},{") or actData[2]:gsub("startScene,",""):gsub("startScene",""))..eF..",";cmdAct=trueFalseColor[true]..devStr.."startScenecmdId</sup>"..eF..eF
            start_scene(realId(dId),act2:gsub("startScene,",""):gsub("startScene",""))
            cmdId=cmdId..dName..",";cmdAct=trueFalseColor[true]..devStr..actData[2]:gsub(inCmd..",",inCmd..grF..","):gsub("}{","},{")..eF.."cmdId</sup>"..eF..eF
       elseif actData[2]:find("setIcon") then cmdId=cmdId..trueFalseColor[setIcon(dId,act2:gsub("setIcon,",""))]..dName..eF..",";cmdAct=trueFalseColor[true]..devStr..actData[2].."cmdId</sup> "..(iMsg or "")..eF..eF
       elseif actData[2]=="setStateValue" then if jD[dId].stateValue~=act3 then jD[dId].stateValue=act3;cmdId=cmdId..ygF..dName..eF..grF..", "..act3..eF..",";cmdAct=trueFalseColor[true]..devStr..act2.."cmdId</sup>"..eF..eF end
       elseif actData[2]=="setStateFormula" then jD[dId].stateValue=actData[3];cmdId=cmdId..ygF..dName..eF..grF..", "..act3.." ["..cutStr(actData[3],25).."]"..eF..",";cmdAct=trueFalseColor[true]..devStr..act2.."cmdId</sup>"..eF..eF
       elseif actData[2]=="setStateDelay" then if jD[dId].lag~=act3 then
        jD[dId].lag=act3;jD[dId].lagStr="<sup>"..dly..jD[dId].lag.."</sup>";cmdId=cmdId..ygF..dName..eF..grF..", #"..act3..eF..",";
        cmdAct=trueFalseColor[true]..devStr..act2.."cmdId</sup>"..eF..eF end
       elseif actData[2]=="setState" then setNewState(act3,dId);cmdId=cmdId..ygF..dName..eF..grF..", "..act3..eF..",";cmdAct=trueFalseColor[true]..devStr..act2.."cmdId</sup>"..eF..eF
       elseif actData[2]:find("runAction") then cmdId=cmdId..trueFalseColor[execAct(act2,act3,dId,devId)]..dName..eF..",";cmdAct=trueFalseColor[true]..devStr.."runAction "..act3.."("..act2:gsub("runAction[,]?","")..")cmdId</sup>"..eF..eF
       elseif actData[2]:find("rptAction") then cmdId=cmdId..trueFalseColor[rptAct(act2,act3,dId,devId)]..dName..eF..",";cmdAct=trueFalseColor[true]..devStr.."repeat "..act3.."{} "..rptAct(act2,act3,dId,devId,"logInfo").."cmdId</sup>"..eF..eF
       elseif cmdType=="time" then cmdId=cmdId..ygF..dName..eF..grF..", "..setTimeSpec(cmdStr,act3,dId)..eF..",";cmdAct=trueFalseColor[true]..devStr..act2.."cmdId</sup>"..eF..eF
       elseif ("enableScene disableScene"):find(actData[2]) then cmdId=cmdId..trueFalseColor[sceneEnabled(dId,sMode[actData[2]])]..dName..eF..",";cmdAct=trueFalseColor[true]..devStr..actData[2].."(cmdId)</sup>"..eF..eF
       elseif ("killScene"):find(actData[2]) then fibaro:killScenes(tonumber(realId(dId)));cmdId=cmdId..ygF..dName..eF..",";cmdAct=trueFalseColor[true]..devStr..actData[2].."cmdId</sup>"..eF..eF     
       elseif cmdType=="call" then 
        cmdId=cmdId..trueFalseColor[fibaro_call(realId(dId),act2,devId)]..dName..act2:gsub(".+",function (a) if a:find("press") then return "<sub>"..getButtonName(dId,act2).."</sub>" else return "" end end)..eF..",";
        cmdAct=trueFalseColor[true]..devStr..act2:gsub(inCmd..",",inCmd..grF..",")..eF.."cmdId</sup>"..eF..eF
       else cmdAct=trueFalseColor["fail"]..devStr.."Unknown Command("..act1..",'"..act2.."', "..act3..")</sup></font>" end end -- for dId in string.gmatch(string.gsu
       lastAct(cmdAct:gsub("cmdId"," {"..cmdId:sub(1,-2)..eF..")"),devId)
  else lastAct(rF..devStr.."Unknown Command("..act1..",'"..act2.."', "..act3..")</sup></font>",devId) end
  return true
  end --=================================== execCmd 
 function sendCmd(actData,actTime,devId,aType) 
  local i,cmdData=0,{{""},{""}};inGid=devId;elseAct=""
  if not json.encode(actData):find(";else;") or not actData[4] then return execCmd(actData,actTime,devId,aType) end
  for i=1,#actData do cmdData[1][i]=(actData[i]:match("(.-);else;") or actData[i]);cmdData[2][i]=(actData[i]:match(";else;(.+)") or actData[i]) end
  cmdData[1][4]="";cmdData[2][4]="";
  if logTrueFalse(actData[4],devId,"status") then return execCmd(cmdData[1],actTime,devId,aType) 
  else elseAct="<font color=grey><sub>else</sub></font>" return execCmd(cmdData[2],actTime,devId,aType) end
  end --=================================== sendCmd 
 function getDelay(inId,actData,actTime)
   local cmdStr,act3=actData[2]:match("[%w_]+"),subSign(doTheMath(actData[3],inId))
   if not actData[2]:find("setTimeSlot") and tonumber(act3:match("~(.-)~")) and os_time()-actTime< tonumber(act3:match("~(.-)~")) then return false end
   act3=act3:gsub("%b~~","") 
   if jCmd[cmdStr].f3=="~" then 
      if act3:find(":") and not act3:find("<mark") then 
          if not isOnTime(act3,inId) then actData[1]="done" return false end 
      elseif os_time()-actTime < to_number(to_number(act3)) then return false end end
   return true
   end--=================================== getDelay 
 function execAct(cmd,act2exec,inId,devId,logInfo)          
  local i,aTable=0,{}
  if jD[inId][act2exec] then 
    for i in cmd:gmatch(",(%d+)") do 
       if tonumber(i)>#jD[inId][act2exec] or tonumber(i)<1 then sceneAbort("(81) "..wF..cmd.."</font> error! Array number "..irF..i.."</font> not found in "..wF..act2exec.."</font> on jM line "..jD[inId].lineNum..":<br>"..json.encode(jM[jD[inId].lineNum]):gsub(act2exec,irF..act2exec..eF),{inId,cmd},jD[devId].lineNum) return "fail" end
       aTable[#aTable+1]=jD[inId][act2exec][tonumber(i)] end
    if logInfo then return true end 
    if #aTable==0 then aTable=json.decode(json.encode(jD[inId][act2exec])) end
    jAct[inId..":run"]={act=aTable,actState=act2exec,lTime=os_time(),type="R"} return true 
  else sceneAbort("(80) Error in "..wF..cmd.."</font> array "..irF..act2exec.."</font> not found in jM line "..jD[inId].lineNum..":<br>"..json.encode(jM[jD[inId].lineNum]),{cmd,inId},jD[devId].lineNum) return "fail" end 
   end --=================================== execAct 
 function rptAct(cmd,act2exec,inId,devId,logInfo)          
  local i,rptParam,rAct,lAct=0,{},{},{}
  for i in cmd:gmatch(",(%d+)") do rptParam[#rptParam+1]=tonumber(i) end
  if not rptParam[2] then sceneAbort("(87) Error in "..wF..cmd.."</font> parameters. Missing "..wF..(rptParam[1] and "" or  "repetitions, ")..(rptParam[2] and "" or "delay")..eF.." parameter.<br>Format is:"..wF.."\"rptAction,[rptNum],[delay]\""..eF,{cmd},jD[devId].lineNum) return "fail" end 
  for i in act2exec:gmatch(",(%d+)") do rptParam[#rptParam+1]=tonumber(i) end
  act2exec=act2exec:match("%w+")
  if not jD[inId][act2exec] then sceneAbort("(88) Error in "..wF..cmd.."</font> array "..irF..act2exec.."</font> not found in jM line "..jD[inId].lineNum..":<br>"..json.encode(jM[jD[inId].lineNum]),{cmd,inId},jD[devId].lineNum) return "fail" end 
  if rptParam[3] and not jD[inId][act2exec][rptParam[3]] then sceneAbort("(89) "..wF..cmd.."</font> error! Array number "..irF..rptParam[3].."</font> not found in "..wF..act2exec.."</font> on jM line "..jD[inId].lineNum..":<br>"..wF..json.encode(jM[jD[inId].lineNum]):gsub(act2exec,irF..act2exec..eF)..eF,{inId,cmd,act2exec..","..rptParam[3]},jD[devId].lineNum) return "fail" end
  if logInfo then return " x"..rptParam[1].."<small> every </small>"..rptParam[2].."s " end
  for i in act2exec:gmatch(",(%d+)") do rptParam[#rptParam+1]=tonumber(i) end
  rAct=json.decode(json.encode(jD[inId][act2exec]))
  if rptParam[3] then rAct=json.decode(json.encode(jD[inId][act2exec][rptParam[3]])) 
     lAct=json.decode(json.encode(jD[inId][act2exec]));table.remove(lAct,rptParam[3])
     jRpt[1]={id=inId,act=json.decode(json.encode(lAct)),type="P-"..rptParam[3],dTime=rptParam[2]} 
  end
  for i=1,rptParam[1] do 
         jRpt[#jRpt+1]={id=inId,act=json.decode(json.encode(rAct)),type="P"..tonumber(rptParam[1])-i+1,dTime=(i==rptParam[1] and 0 or rptParam[2])} 
  end 
  return true 
  end --=================================== rptAct   
 function setNewState(nState,inId) local nProperty,nOper,nValue
   nOper=nState:match("[=<>!][>=]?"); if nOper then nProperty,nValue=nState:match("(.-)"..nOper.."(.*)") end 
   if nOper and nProperty and nValue then tmpNum=api.get("/devices/"..realId(inId))["properties"][nProperty]
      if tmpNum then jD[inId].stateOper,jD[inId].property,jD[inId].stateValue=nOper,nProperty,tostring(nValue);jD[inId][jD[inId].property]={value=tostring(tmpNum),lTime=os_time()} 
         jD[inId].userTerms=jD[inId].property..jD[inId].stateOper 
     else sceneAbort("(73) Attempt to index "..wF.."property"..eF.." field a nil value in setState command.",{nState},jD[inId].lineNum) end
   else sceneAbort("(72) Syntax error in setState:  '"..wF..nState..eF.."'. Acceptable format is:<br> [property] [operand] [value]<br>e.g."..wF.."value>30"..eF,{nState},jD[inId].lineNum) end
  end --=================================== setNewState 
 function setTimeSpec(cmd,tSpec,inId)
  if cmd:find("Span") then tmpNum=tonumber(tSpec)
    if tmpNum then jD[inId].tstRate=tmpNum;jD[inId].tstRateOrg=tmpNum return jD[inId].tstRate 
    else sceneAbort("(68) Set timeSpan error '"..wF..tSpec..eF.."'. No changes done on time span.",{cmd,tSpec},jD[inId].lineNum) return jD[inId].tstRate end
  elseif cmd:find("Slot") then tSpec=tSpec:gsub(" ","")
     tSpec=(tSpec:match("(.-)=") and jD[inId].timeSlot:gsub(tSpec:match("(.-)="),tSpec:match("=(.+)")) or tSpec) 
     jD[inId].timeSlot=(meanVsSlot(inId,tSpec) and tSpec or jD[inId].timeSlot);jD[inId].timeSlotOrg=jD[inId].timeSlot
    return jD[inId].timeSlot end
  end --================================== setTimeSpec 
 function sceneEnabled(inId,state) 
   local tSlot,fStatus={},fibaro:isSceneEnabled(tonumber(realId(inId)))
   if jD[inId] and atHome then tSlot={[true]=jD[inId].tstRateOrg,[false]=-10};jD[inId].tstRate=tSlot[fStatus]; if not fStatus then jD[inId].status=4 end end 
   if state==nil then return fStatus elseif state==fStatus then return false end
   fibaro:setSceneEnabled(tonumber(realId(inId)),state) return true
  end --=================================== sceneEnabled 
 function logVal(val,inId,vCol)
   if jD[inId].trigAll and jD[inId].trigOn then jD[inId].inVal=val 
   elseif jD[inId].inVal==val then return 
   else jD[inId].inVal=val end  
   if #jD[inId].lVal==dataRecord.values then table.remove(jD[inId].lVal,1) end
   jD[inId].lVal[#jD[inId].lVal]=jD[inId].lVal[#jD[inId].lVal].."<br>";jD[inId].lVal[#jD[inId].lVal+1]=vCol.. os.date("  %d %b %H:%M:%S",os_time()).."   "..val..(jD[inId].state==3 and "</font>  ("..vCol..jD[inId].property.."</font>)  " or "</font>  ")
   if initMode or jD[inId].tstRate<0 then return end
   if jD[inId].trigAct and jD[inId].tstRate>=0 then 
     if jD[inId].state==2 or jD[inId].status~=3 then 
        jAct[inId..":trig"]={act=json.decode(json.encode(jD[inId].trigAct)),actState="trigAct",lTime=os_time(),type="G"} end end
  end --=================================== logVal 
 function lastAct(actStr,inId) 
   if #actStr<5 then return end
   if #jD[inId].lAct==dataRecord.commands then table.remove(jD[inId].lAct,1) end 
   jD[inId].lAct[#jD[inId].lAct+1]=sColor[jD[inId].status+1].."<br> "..os.date(" %d %b %H:%M:%S",os_time()).."   "..jD[inId].inVal.."  </font>"..actStr:gsub(">.+<sup>",">"):gsub("<sup>",""):gsub("</sup>","").."  ";
   if #jD[inId].lAct==dataRecord.commands or #jD[inId].lAct==1 then jD[inId].lAct[1]="<br>"..jD[inId].lAct[1] end
   if dbgInfo then
     if logLineStatus then prtLine(logLineStatus); logLineStatus=false end 
     if logActStatus then prtLine(logActStatus); logActStatus=false end 
     prtLine(grF.."jM{"..jD[inId].lineNum.."}</font> <font color=grey><small>"..(actStr:match("<sub>%S+</sub>") or "<sub>U</sub>").."</small></font>"..dColor[jD[inId].idType]..findNameRoom(inId,5).."</font>["..sColor[jD[inId].status+1]..jD[inId][jD[inId].property].value.."</font>] => "..elseAct..actStr:gsub("^.-<sup>","")..(logStatus:len()>5 and "&nbsp&nbsp<sup>"..logStatus.."</sup>" or ""))
   end
   if gData.logAct[#gData.logAct]==actStr then return end
   if #gData.logAct==cnnLine then table.remove(gData.logAct,1) end;gData.logAct[#gData.logAct+1]=actStr 
  end --=============================== lastAct 
 function logEvent(inId) if not jDlist["pId"..jDlist[inId]] then return end --not Z-wave
  local pId=jDlist["pId"..jDlist[inId]]
  jTop[inId]=(jTop[inId] or 0)+1;gData.zTotal=gData.zTotal+1;
  jEvent[pId]=jEvent[pId] or {name=findNameRoom(pId,2),total=0,child={}};jEvent[pId].child[inId]=jEvent[pId].child[inId] or {} 
  jEvent[pId].child[inId][1]=(jEvent[pId].child[inId][1] or 0) +1 
  jEvent[pId].child[inId][2]=findNameRoom(inId,2).." ("..jEvent[pId].child[inId][1]..") <br>"
  jEvent[pId].total=jEvent[pId].total+1
  end --================================= logEvent 
 function logDead(inId,dReason)  
  local deadOnMsg,subject,pId="is dead ",sceneName.." Alert (Dead)",jDlist["pId"..jDlist[inId]] or "none"
  jF[inId]=jF[inId] or {total=0,reason={},nack=0,id=inId,dead="false"}
  if dReason=="" then dReason="wkUp";deadOnMsg="is wake up";subject=sceneName.." Report (wakeUp)" 
  elseif dReason==gData.transfer then jF[inId].nack=jF[inId].nack+1
  else jF[inId].total=jF[inId].total+1 end 
  if dReason~="wkUp" then gData.numDeads=gData.numDeads+1;gData.totalDeads=gData.totalDeads+1 end
  if not (json.encode(jF[inId].reason)):find(dReason.. os.date(" %d %b %H:%M",os_time())) then
    if #jF[inId].reason >= gData.deadLog then table.remove(jF[inId].reason,1) end
    jF[inId].reason[#jF[inId].reason+1]=dReason.. os.date(" %d %b %H:%M",os_time())
    if deadNote and dReason~=gData.transfer then 
     if not jLog[pId] or jLog[pId]~=deadOnMsg or pId=="none" or rptAllDead then jLog[pId]=deadOnMsg
      homeTts(subject:gsub("%b()","").."! "..findNameRoom(inId,1).. ". ".. deadOnMsg)
      if tostring(api.get("/devices/"..realId(inId))["properties"]["dead"]) ~=jF[inId].dead then 
       jF[inId].dead=tmpStr;sendNote(subject,"Device "..realId(inId)..": "..findNameRoom(inId,1).." "..deadOnMsg.."\nEvent history: "..json.encode(jF[inId].reason):gsub("\"","")) end end
     end 
  end --if not json.encode(jF[parentId])
  end --=============================== logDead 
 function wakeUpDead() local i=0;for i,_ in pairs(jF) do if api.get("/devices/"..i.."/properties/dead")["value"] then api.post("/devices/"..i.."/action/wakeUpDeadDevice") end end
  end --=====================realId tableId jDtableId jId================================================
 function realId(idx) return tostring(idx):match("^[_$&@]?([%w_]+)") end --=====================================
 function tableId(idx) return tostring(idx):match("[_$&]?[%w_]+") end --==============================
 function jDtableId(idx) return tostring(idx):match("[_$&]?[%w_]+>%w+") end --========================
 function jsId(idx) return realId(idx).."<sup>"..(jN2s[idx] or "").."</sup>" end --================
 function setTickTime(tblId,setMax) local refMax=jD[tblId].maxTime
   if jD[tblId].status<2 or jD[tblId].timeSpanOn then jD[tblId].maxTime=math.max(jD[tblId].maxTime,os_time()-jD[tblId].lTime) 
     if refMax~=jD[tblId].maxTime then jD[tblId].maxTimeStamp=os_time() end end
   if jD[tblId].lTime<0 or jD[tblId].tstRate==0 then jD[tblId].maxTime = 0 end
   if setMax then return jD[tblId].maxTime end 
  end --=================================== setTickTime 
 function setParams(iData,inId,reload) if not inId:match("%d+>%d+") then return end
   if reload then for l,_ in pairs(jD) do if inId:match("%d+>%d+") then setParams(api.get("/devices/"..realId(l)),l) end end return end
   if iData.properties.batteryLevel then jD[inId].pRef.batteryLevel=iData.properties.batteryLevel end
   if iData.properties.armed~=nil then jD[inId].pRef.armed=iData.properties.armed end --if to_number(iData.properties.armed)==1 then jD[inId].armed="&#128680" end end
   jD[inId].cfg=" by '"..(iData.isPlugin and "Plug-in: "..iData.type:gsub("com.fibaro.","") or iData.type=="virtual_device" and "Virtual Device IP:"..iData.properties.ip.." Port:"..iData.properties.port or #iData.properties.zwaveCompany>1 and iData.properties.zwaveCompany or "Unknown")..(iData.properties.zwaveVersion and "\" ( zVer="..iData.properties.zwaveVersion.." )" or "'")
  end --=================================== setParams 
 function checkType(dType,inId,apiData) 
   if dType=="device" then dType="Z.Device"
     if not apiData.type then sceneAbort("(34) ID "..wF..jsId(inId)..eF.." is not a \""..dType.."\" type.",{inId},jD[inId].lineNum) end
     if apiData.properties then setParams(apiData,inId) end
     if apiData.isPlugin then dType="Plugin" end
     if apiData.type=="virtual_device" then dType="V.Device"
     elseif not apiData.type:find("com.fibaro") then sceneAbort("(35) Device "..wF..findNameRoom(inId,2)..eF.." is "..rF..apiData.type..eF.." type and not supported.<br>Supported devices:"..wF.." Zwave, Plugin, Virtual"..eF,{inId},jD[inId].lineNum) end
   elseif dType=="scene" then dType=string.gsub(api.get("/scenes/"..realId(inId))["type"],"com.fibaro.","")
        if api.get("/scenes/"..realId(inId))["autostart"]==true  and api.get("/scenes/"..realId(inId))["runConfig"]=="TRIGGER_AND_MANUAL" then dType="Auto-"..dType end
   end jD[inId].idType=dType;tableOrder[4][dType]=tableOrder[4][dType]+1;
  end --================================== checkType 
 function checkAndOr(sLine,inId,sErr,acTbl)
    local k=0
   for k in sLine:gmatch("%b{}") do
        if k:find(" or ") then 
         sceneAbort("(98) Format syntax error in "..wF..k:gsub(" or ",rF.." or "..eF)..eF.." statement.<br>The "..wF.."or"..eF.." function is strictly prohibited inside brackets {}. Only "..wF.."and"..eF.." function could be used. <br>Syntax is "..sErr,{k},jD[inId].lineNum) end
    end
    for k in sLine:gmatch("%b}{") do
        if k:find(" and ") then 
         sceneAbort("(99) Format syntax error in "..wF..k:gsub(" and ",rF.." and "..eF)..eF.." statement.<br>The "..wF.."and"..eF.." function is strictly prohibited between brackets. Only "..wF.."or"..eF.." function could be used. <br>Syntax is "..sErr,{k},jD[inId].lineNum) end
    end
    tmpStr,tmpNum=sLine:gsub("{","");tmpStr,lNum=tmpStr:gsub("}","|")
     if tmpNum~=lNum or sLine:find("{{") or sLine:find("}}") then 
      sceneAbort("(6) Syntax error in statement "..wF..acTbl..eF.." table, '{' expected to close '}' at \""..wF..sLine:gsub("{",rF.."{"..eF):gsub("}",rF.."}"..eF).."</font>\"<br>Syntax is "..sErr,{acTbl,sLine},jD[inId].lineNum) end
  end --=================================== checkAndOr 
 function checkAct4(actStr,inId,acTbl)
  local k,i,j,dNum,lNum,lSeen,pName,o,sErr=0,0,0,0,0,{},"","",lgF.."\""..wF.."["..eF.."if/when"..wF.."]"..eF.." {"..wF.."<i>ID</i>"..eF..":<i>[property]</i>[<=>]<i>[value]</i>}\"<br>e.g. \"[if/when] "..wF.."{"..eF.."999:value=true "..wF.."and"..eF.." 888:lastBreached>10"..wF.."} or {"..eF.."$hour:value=6 "..wF.."and"..eF.." &gVar:valueModified>20"..wF.."}"..eF.."\"</font>"
  if actStr[4] then checkAndOr(actStr[4],inId,sErr,acTbl)
    actStr[4]=actStr[4]:gsub("%s+|%s+","|"):gsub("[%s+]?if[%s+]?{","{"):gsub("%s+and%s+","|"):gsub("[%s+]?when[%s+]?{","={"); 
    lSeen[#lSeen+1]=actStr[4] end
  if actStr[1]:match("%b{}") or acTbl:find("State") then checkAndOr(actStr[1],inId,sErr,acTbl)
    actStr[1]=actStr[1]:gsub("%s+|%s+","|"):gsub("[%s+]?if[%s+]?{","{"):gsub("[%s+]?when[%s+]?{","={"):gsub("%b{}", function(a) return a:gsub("%s+and%s+","|") end); 
    lSeen[#lSeen+1]=actStr[1] end 
  if #lSeen==0 then return end 
     for j=1,#lSeen do lSeen[j]=spKeyword(lSeen[j],inId);
       for i in lSeen[j]:gmatch("([&$][%w_']+[:]?)[<=>]") do
         if not i:find(":") then lSeen[j]=lSeen[j]:gsub(i,i..":value") 
           if actStr[4] and j==1 then actStr[4]=lSeen[j] else actStr[1]=lSeen[j] end
         end
       end
    tmpStr=lSeen[j]:gsub("{",""):gsub("}","|")
    if not lSeen[j]:sub(1,1):match("[={]") then sceneAbort("(5) Condition format syntax error in "..wF..acTbl..eF.." missing "..wF.."[if/when]{"..eF.." in \""..wF..lSeen[j].. "</font>\"<br>Syntax is "..sErr,{acTbl,lSeen[j]:sub(1,2)},jD[inId].lineNum) end     
    for i in tmpStr:gmatch("(.-)[|]") do if i:len()==0 then goto nextLseen end
    if i:lower():find("modified") and not i:find("Modified") then sceneAbort("(4) Format error in \""..wF..i..eF.."\". Missing capital letter '"..lgF.."M"..eF.."odified'<br>Syntax is "..wF.."\"<i>device property</i>"..lgF.."Modified"..eF..eF.."\"<br>e.g. "..lgF.."\"{999:powerModified<60 and 888:valueModified>10}\"</font>",{acTbl,i},jD[inId].lineNum) end
    if not i:find(":") or not i:find("[<=>]") then sceneAbort("(3) Format syntax error in \""..wF..lSeen[j]:gsub(i,rF..i..eF)..eF.."<br>Syntax is "..sErr,{acTbl,lSeen[j]},jD[inId].lineNum) end
    dNum,pName,o,val=i:match("([$&]?[%w_]+)%s-[:]%s-([%w%.]+)%s-([=<>][<>=]?)%s-(.+)")
    if not val then sceneAbort("(1) Syntax error in '"..wF..lSeen[j]:gsub(i,rF..i..eF)..eF.."', incorrect value.<br>Syntax is "..sErr,{acTbl,lSeen[j]},jD[inId].lineNum) end
    if dNum:gsub("or",""):find("%D") and not dNum:find("[&$]") then sceneAbort("(2) Syntax error in '"..i:gsub(dNum,wF..dNum..eF).."'<br>Syntax is "..sErr,{acTbl,dNum},jD[inId].lineNum) end
    end ::nextLseen:: end 
   end --=========================== checkAct4 
 function checkFormat(k,inId,acTbl)
   if json.encode(k):find("@[&$]") then tmpStr=json.encode(k):match("@[$&]%w+")
     sceneAbort("(83) Format syntax error, Attempt to retrive non-device value "..wF..tmpStr..eF..". Syntax is:"..wF.."<br>@[DevID]>[property]	(@407>power)<br>&variableName<br>$keywordName"..eF,{tmpStr},jD[inId].lineNum) end 
   if type(k)~="table" then sceneAbort("(76) Syntax error, Attempt to access a corrupted table "..wF.. acTbl.."{}"..eF..". Verify that proper structures are defined.",{acTbl,k},jD[inId].lineNum) end 
   if #k<3 or #k>5 then sceneAbort("(9) Wrong number of "..#k.." arguments found in '"..wF..acTbl.."</font>' commands table.<br>Requires 3 mandatory and 2 (4<sup>th</sup> and 5<sup>th</sup>) optional arguments.",{acTbl,"\""..k[#k].."\""},jD[inId].lineNum) end
   for i=1,4 do if k[i] and k[i]:match("%b[]") then
         k[i]=k[i]:gsub("%b[]",function (a) if a:match("(%[%%)") then 
             return a:gsub("%[%%","["):gsub("%%%]","]") else return a:sub(2,-2) end end) end end 
   if k[2]=="setGlobal" then k[1]="&"..k[1]:gsub("&","") end
   local cmdStr,i,uAdd=k[2]:match("%w+"),0,nil
   if k[2]:sub(1,1)=="+" then k[2]=k[2]:sub(2);uAdd=1 end; getDevAct(k[1],cmdStr,inId,uAdd)
   if jCmd[cmdStr].f1:find("[#<>]") then k[1]=k[1]:gsub(" ","") end
   if #k<3 or #k>5 then sceneAbort("(9) Wrong number of "..#k.." arguments found in '"..wF..acTbl.."</font>' commands table.<br>Requires 3 mandatory and 2 (4<sup>th</sup> and 5<sup>th</sup>) optional arguments.",{acTbl,"\""..k[#k].."\""},jD[inId].lineNum) end
   if k[5] and type(k[5])~="boolean" then sceneAbort("(63) Wrong type of parameter "..wF..k[5]..eF.." in "..wF..k[2]:match("%w+")..eF.." command. Boolean required ("..bF.."false  true"..eF..") "..type(k[5]).." type found.",{acTbl,"\""..k[5].."\""},jD[inId].lineNum) end
   for i=1,3 do if type(k[i])~="string" then tmpNum=json.decode(json.encode(k));k[i]=tostring(k[i]);sceneAbort("(54) Wrong parameter "..i.." type (<u>"..type(tmpNum[i]).."</u>) in '"..wF..json.encode(k):gsub("\""..k[i].."\"",rF..k[i]..eF)..eF.." Please change it to (<u>string</u>)",{tostring(json.encode(tmpNum):gsub("%[",""):gsub("%]",""))},jD[inId].lineNum) end end  
   if (jCmd[cmdStr].resp:find("x") and not jCmd[cmdStr].f2:find(",,,")) and (jCmd[cmdStr].f2:find(",") or k[2]:find(",")) then  _,tmpNum = string.gsub(jCmd[cmdStr].resp,"x",""); _,j1=string.gsub(k[2]:gsub("%b()",""),",","") --"\""..k[5].."\""
      if tmpNum~=j1 then sceneAbort("(10) Wrong number ("..j1..") of parameters in '"..wF..k[2].."</font>' action.<br>Required parameter(s) '"..wF..k[2]:match("%w+")..", ["..jCmd[cmdStr].resp:match("[=](.*)"):gsub("x",(cmdStr=="startScene" and " {arg1}{arg2}.."or " param")).. " ]</font>'",{k[2]},jD[inId].lineNum) end end
   if not jCmd[cmdStr].resp:find("x") and k[2]:find(",") then sceneAbort("(11) Wrong number of parameters in '"..wF..k[2].."</font>' action.<br>Command doesn't accept parameters.",{k[2]},jD[inId].lineNum) end
   if jCmd[cmdStr].f3:sub(1,1)=="!" and k[3]:len()>0 then sceneAbort("(12) Syntax error in "..cmdStr.." at '"..wF..k[3]..eF.."' no data allowed.<br>e.g. {\""..k[1].."\", \""..wF..cmdStr.."\", \""..k[3].."\""..eF.."}",{cmdStr,k[3]},jD[inId].lineNum) end
   if jCmd[cmdStr].f1:sub(1,1)=="!" and k[1]:len()>0 then sceneAbort("(13) Syntax error in "..cmdStr.." at '"..wF..k[1]..eF.."' no data allowed.<br>e.g. "..wF.."{\""..k[1].."\", \""..cmdStr..eF.."\", \""..k[3].."\"}",{cmdStr,k[1]},jD[inId].lineNum) end
   if jCmd[cmdStr].f3:sub(1,1)=="?" and not jCmd[cmdStr].f3:find(":"..k[3]:match("%w+")..":") then sceneAbort("(14) Wrong parameter '"..wF..k[3]..eF.."' in "..wF..k[2]..eF.." command.<br>Acceptable parameter(s):"..wF..jCmd[cmdStr].f3:sub(2,-1):gsub(":","<br>")..eF,{k[2]},jD[inId].lineNum) end
   if jCmd[cmdStr].f1:find("[#$<]") and k[1]:len()==0 then sceneAbort("(15) Action's 1<sup>st</sup> field in '"..wF..cmdStr..eF.."' is empty.<br>Field should include "..wF..f1frmt[jCmd[cmdStr].f1]..eF,{cmdStr},jD[inId].lineNum) end
   if jCmd[cmdStr].f1:find("[>#<]") then k[1]=k[1]:gsub(" ","") end 
   if k[1]:find("[{|}]") then tmpStr=k[1]:gsub("[{}]",""):gsub("||","|"):gsub("|"," ") 
      for i in tmpStr:gmatch("%S+") do i=spKeyword(i,inId)
         if (jCmd[cmdStr].f1:find("[<>]") and not i:find("[>:]")) or (jCmd[cmdStr].f1:find("[#]") and i:find(">")) then sceneAbort("(55) Device syntax error in "..cmdStr.." at '"..k[1]:gsub(i,wF..i..eF).."'<br>Syntax is "..wF..f1frmt[jCmd[cmdStr].f1]..eF,{k[1],cmdStr},jD[inId].lineNum) end end end
   if k[3]:gsub(" ",""):len()==0 and jCmd[cmdStr].f3:find("%$") then sceneAbort("(18) Action's 3<sup>rd</sup> field in '"..wF..cmdStr..eF.."' is empty.<br>Field should include "..wF..f1frmt[jCmd[cmdStr].f3]..eF,{cmdStr},jD[inId].lineNum) end
  end --===================================== checkFormat 
 function cmdFormat(actData,inId,acTbl) local i,cmdData=0,{{""},{""}}
  if not json.encode(task.act):find(acTbl) then return end
  if not json.encode(actData):find(";else;") then return checkFormat(actData,inId,acTbl) end
  for i=1,#actData do cmdData[1][i]=(actData[i]:match("(.-);else;") or actData[i]);cmdData[2][i]=(actData[i]:match(";else;(.+)") or actData[i]) end
  checkFormat(cmdData[1],inId,acTbl);checkFormat(cmdData[2],inId,acTbl)
  end --===================================== cmdFormat 
 function setOrder(k,inId,acTbl)
     if #k<2 or type(k)~="table" then sceneAbort("(94) Syntax error in "..wF..acTbl..eF.." table. Syntax is:"..wF.."<br>"..acTbl.."={\"devID\",\"command\",\"...\"}"..eF,{acTbl},jD[inId].lineNum) end
   if k[1]:find("[%s+]? and [%s+]?") then k[1]=k[1]:gsub("[%s+]? and [%s+]?","|") end 
   local nK={k[1],k[2],"","na","na"}
   if #k==2 then k[3]="" else 
         for i=3,#k do
             if type(k[i])=="number" then k[i]=tostring(k[i]) end
             if type(k[i])=="boolean" then nK[5]=k[i];if nK[4]=="na" then nK[4]=false end
             elseif k[i]:find("[{}]") and k[i]:find(":") then nK[4]=k[i] 
             else nK[3]=k[i] end
         end
         for i=5,4,-1 do if nK[i]=="na" then table.remove(nK,i) end end
         for i=1,#nK do k[i]=nK[i] end   
     end
  end --===================================== setOrder 
 function sceneAbort(fMsg,str2find,jLine) local errIn,mStr="","" --99
  str2find=json.decode(json.encode(str2find));subStr=json.decode(json.encode(str2find))
  for i=1,#str2find do if #str2find[i]==0 then str2find[i]="!!!" end ;tmpStr="";str2find[i]=string.gsub(str2find[i]:gsub("[%?%(%)%+%-%*%[%]%$]",function (a) return "%"..a end),"\"","\"") 
    if i==1 and type(jLine)=="number" then errIn=".jM hash table:"..jLine; errMsg=json.encode(jM[jLine]):gsub("\\/","/"):gsub("[%[%]]",function (a) return a:find("%[") and "{" or a:find("%]") and "}"  end) end
    if not jLine and i==1 then for j=1, #jM do if json.encode(jM[j]):gsub("\\/","/"):find(str2find[i]) then tmpStr=jM2n[j];errIn=".jM hash table:"..j;jLine=j;errMsg=json.encode(jM[j]):gsub("\\/","/"):gsub("[%[%]]",function (a) return a:find("%[") and "{" or a:find("%]") and "}"  end) break end end end
    if i==1 and type(jLine)=="table" then errIn=jLine[1];errMsg=jLine[2]:gsub("[%[%]]",function (a) return a:find("%[") and "{" or a:find("%]") and "}"  end) end
    errMsg=errMsg:gsub(str2find[i],rF..subStr[i].."</font>") end
  if type(jLine)=="number" and jM[jLine][2] and not jM2n[jLine]:find(jM[jLine][2])then tmpStr=jM2n[jLine] end 
  mStr="[ "..rF.."<font size=6><sub>&#9760</sub></font></font> ] exception: /opt/fibaro/scene/"..__fibaroSceneId..errIn..": <small><font color=SlateGrey>"..tmpStr.."</font></small><pre span style=white-space:pre-wrap;><font color=wheat>"..errMsg:gsub("\":","\"=").."</font><br><br><font color=cadetblue>"..fMsg:gsub("e%.g%.","<font color=SlateGrey>e.g.</font>").."</font>"
  if initMode then print(mStr);fibaro:abort() 
   elseif "fixedMenu"..mStr~=table.concat(runErrBuf," ") then errCnt=0
     runErrBuf[1]="fixedMenu"..mStr;dispInfo() return false end
  end --============================================= sceneAbort 
 function checkData(dParam,inId,jmLine,lineNum)
   local apiData,dParamFound,actFound,fStatus,i,j,i1,j1,dType={},false,false,true,0,0,0,0,(inId:find("_") and "scene" or inId:find("&") and "Variable" or inId:find("[$]") and "Keyword" or "device")
   if not inId:find("[$&]") then apiData=api.get("/"..dType.."s/"..realId(inId)) if not apiData then sceneAbort("(36) "..dType .." ID "..wF..jsId(inId)..eF.." not found in the system.",{realId(inId)},lineNum) end end
   if jDlist["mId"..realId(inId)] then sceneAbort("(37) Master device ID "..wF..jsId(inId)..eF.." prohibited to use.",{realId(inId)},lineNum) end
   checkType(dType,inId,apiData) if not dParam then return end 
   for i=1,#task.rule do if dParam[task.rule[i]] and type(dParam[task.rule[i]])~=task.ruleType[i] then sceneAbort("(38) Incorrect type definition of "..wF..task.rule[i]..eF..".  Found ("..type(dParam[task.rule[i]])..") instead of ("..task.ruleType[i]..")",{task.rule[i]},lineNum) break end end
   for j,_ in pairs(dParam) do fStatus=false
     if tonumber(j) then sceneAbort("(19) Unrecognized table array "..wF..j.."={"..json.encode(dParam[j]):gsub("[%]%[]","").."}"..eF.."<br>Please vefiry proper action tables format.",dParam[j],lineNum) end
     for i=1,#task.all do if j==task.all[i] then dParamFound=true;fStatus=true end end 
     if not fStatus then sceneAbort("(20) Unrecognized action/criteria table \""..wF..j.."</font>'<br>Accepted action/criteria tables:<br>"..wF..json.encode(task.all):gsub("\",\"","   "):gsub("[%[%]\"]","")..eF,{j},lineNum) break end end
     for i1,j in pairs(dParam) do  dataCol[i1]=true
       if json.encode(task.act):find(i1) then
         if type(j[1])=="table" then for _,k in pairs(j) do setOrder(k,inId,i1);cmdFormat(k,inId,i1);checkAct4(k,inId,i1) end 
         else setOrder(j,inId,i1);cmdFormat(j,inId,i1);checkAct4(j,inId,i1) end end --if json.encode(criteria[2]):find(i1) then 
      end -- for i1,j in pairs(dParam) do 
   if inId:find("_") or not inId:find(">") then for i=1,#task.scene do if dParam[task.scene[i]] then sceneAbort("(21) Wrong action/criteria "..wF..task.scene[i]..eF.." found for "..dColor[jD[inId].idType]..jD[inId].idType..eF.." |"..dColor[jD[inId].idType]..findNameRoom(inId,2)..eF.."|<br>Accpted actions/criteria:<br>"..lgF.. table.concat(task.sceneAct," ")..eF,{task.scene[i],inId},lineNum) end end end  
   if jD[inId].idType:find("Auto") then for i=1,#task.sceneAuto do if dParam[task.sceneAuto[i]] then sceneAbort("(59) Wrong action/criteria "..wF..task.scene[i]..eF.." found for "..dColor[jD[inId].idType]..jD[inId].idType..eF.." |"..dColor[jD[inId].idType]..findNameRoom(inId,2)..eF.."|<br>Accpted actions/criteria:<br>"..lgF.. table.concat(task.sceneAutoAct," ")..eF,{task.scene[i],inId},lineNum) end end end  
   if dParam.property then  
       if inId:sub(1,1):find("[$&]") then sceneAbort("(93) Property rule is not availabe for "..jD[inId].idType.." "..wF..findNameRoom(inId,2)..eF.."<br>Available options are:<br>1. "..wF.."state=\"value=...\""..eF.."<br>2."..wF.." Empty "..eF.."(do not define "..wF.."state property"..eF..")",{"property",inId},lineNum) end 
       for i=1,#task.prop do if dParam[task.prop[i]] then sceneAbort("(22) While porperty criteria defined, wrong table array found for ".. jD[inId].idType.." |"..wF..findNameRoom(inId,2)..eF.."|<br>Accpted table arrays:<br>"..lgF.. table.concat(task.prop," ")..eF,{task.prop[i],inId},lineNum) end end 
       if dParam.state then sceneAbort("(23) Criteria '"..wF.."state</font>' and '"..wF.."property</font>' are not allowed on the same line.",{"\"property\"","\"state\""},lineNum)  end
       if api.get("/"..dType.."s/"..realId(inId))["properties"][dParam.property] == nil then sceneAbort("(24) Property '"..wF..dParam.property ..eF.."' is not available for ".. jD[inId].idType.."|"..wF..findNameRoom(realId(inId),2)..eF.."|<br>Available properties:"..wF..getIdData(inId,"properties")..eF,{dParam.property,inId},lineNum)  end  
       if inId:find("[$&]") then sceneAbort("(25) Criteria '<font color=wheat>property</font>' is unavailable for "..wF..realId(inId)..eF.." "..fibaro_getGlobalValue(realId(inId),"?").." variable.",{"property",realId(inId)},lineNum) end
       if not dParam.trigAct and jD[inId].tstRate==0 then sceneAbort("(74) While |"..wF..findNameRoom(inId,2)..eF.."| defined as activity ("..wF.. "timeSpan=0"..eF.."), action table "..wF.."trigAct{}"..eF.." is missing.<br>Please define it or change timeSpan.",{"property",realId(inId),"0,"},lineNum) end end
   if dParam.state then if not dParam.state:match("[=<>]") then sceneAbort("(26) Operator syntax error in \""..wF..dParam.state..eF.."\"<br>Accepted operators are:"..wF.."<br>=  equal to<br><  less than<br>>  greater than<br><> not equal to<br> e.g. state=\"value<>"..dParam.state:match("%p+(.*)").."\"",{dParam.state},lineNum) end
       if inId:find("[$&]") and dParam.state:match("%w+")~="value" then 
         sceneAbort("(27) Incorrect property defined in {state=\""..wF..dParam.state..eF.."\"} for "..wF..tableId(inId)..eF..(inId:find("[$]") and " keyword" or " variable")..".<br> Only "..wF.."value"..eF.." property is accepted.<br>"..wF.."e.g. state=\"value"..dParam.state:match("[=<>].*").."\"",{"state\"=\"",dParam.state:match("(%w+)[=<>]"),tableId(inId)},lineNum) end
    --   if inId:find("[$&]") and not dParam.state:find("value") then sceneAbort("(27) Incorrect property in {state=\""..dParam.state:gsub("(%w+)=", function (a) return wF..a..eF.."=" end).."\"} for '"..wF..realId(inId)..eF.."' "..
     --     fibaro_getGlobalValue(realId(inId),"?").." variable.<br>For "..fibaro_getGlobalValue(realId(inId),"?").." variables, property "..wF.."value"..eF.." only is accepted.<br>"..wF.."e.g. state=\"value"..dParam.state:match("=.*").."\"",{"state\"=\"",dParam.state:match("(%w+)="),realId(inId)},lineNum) end
       if not inId:find("[$&]") and api.get("/"..dType.."s/"..realId(inId))["properties"][dParam.state:match("(%S-)[=<>]")] == nil and dParam.state:sub(1,1)~="+" then 
          sceneAbort("(28) State property \""..wF..dParam.state:match("(%S-)[=<>]").."</font>\" is not available for ".. jD[inId].idType.." |"..wF..findNameRoom(realId(inId),2)..eF.."|<br>Available properties:"..wF..getIdData(inId,"properties")..eF,{dParam.state:match("(.*)[=<>]"),inId},lineNum) end   
       if dParam.state:lower():find("modified") and not dParam.state:find("Modified") then sceneAbort("(29) Spelling error in \""..wF..dParam.state..eF.."\". Missing capital letter '"..gF.."M"..eF.."odified'<br>Syntax is "..wF.."\"<i>device property</i>"..gF.."Modified"..eF.."\"",{dParam.state},jD[inId].lineNum) end end
   if dParam.timeoutAct and dParam.timeLoopAct then sceneAbort("(31) Action tables "..wF.."timeoutAct{}"..eF.." and "..wF.."timeLoopAct{}"..eF.." are not allowed on same line.",{"timeoutAct","timeLoopAct"},lineNum) end
  -- if dParam.timeSlot then dParam.timeSlot=dParam.timeSlot:gsub(" ","");meanVsSlot(inId,dParam.timeSlot) end 
   if dParam.timeSlot then meanVsSlot(inId,extractTimeSlot(dParam.timeSlot)) end 
   if dParam.vacation and dParam.vacation~="stop" and dParam.vacation~="normal" then sceneAbort("(32) Unrecognized vacation value \""..wF..dParam.vacation..eF.."\"<br>Accepted values:<br>"..wF.."stop<br>normal</font>",{dParam.vacation},lineNum) end
   for i=1,#task.state do
       if dParam[task.state[i]] then checkAct4(dParam[task.state[i]],inId,task.state[i]) end end
  end --================================== checkData 
 function getIdData(devId,dataType) local i,pStr=0,""
   if not jDid[realId(devId)] then return sceneAbort("(97) ID "..wF..jsId(devId)..eF.." not found in the system.",{realId(devId)},jD[inGid].lineNum) end
   for i,_ in pairs(api.get("/devices/"..realId(devId))[dataType]) do 
     if not notProperty:find(i) then pStr=pStr.."<br>- "..i end end return pStr
  end --====================================== getIdData 
 function fibaro_setGlobal(varName,value,ref)
  local fStatus,vName=false,varName:gsub("&","")
  for i=1,2 do vName=(i==1 and vName or ref:gsub("&",""))
       
     if jVar[vName] then fStatus=true
        if tostring(jVar[vName])~=tostring(value) then jVar[vName]=value;jVar[vName.."lTime"]=os_time()
           if global4local[1] then fibaro:setGlobal(global4local.gVarName,json.encode(jVar)) end end 
     else tmpStr=fibaro:getGlobalValue(vName) 
       if tmpStr then fStatus=true if tostring(tmpStr)~=tostring(value) then fibaro:setGlobal(vName,value) end end end
     if fStatus then break end end
  if not fStatus then sceneAbort("(33) Global variable "..wF..ref..eF.." or its value "..wF..vName..eF.." not found as global.",{"setGlobal",ref},jD[inGid].lineNum) end
  return fStatus
  end --====================================== fibaro_setGlobal 
 function fibaro_getGlobalValue(vName,vType)
   vName=vName:gsub("&","");if vName:sub(1,1)=="%" then return "&"..vName end if not vType then vType="" end
   if vType=="?" then if jVar[vName] then return "Local" else return "Global" end end
   if jVar[vName] then return jVar[vName] end
   if fibaro:getGlobalValue(vName) then return fibaro:getGlobalValue(vName) end
   tmpStr="Scene global variables:<br><font color=white>";tmpNum=api.get("/globalVariables")
   for i,j in pairs(global4local.varArray) do tmpStr=tmpStr..i.."  " end
   tmpStr=tmpStr..eF.."<br>System Global variables:<br><font color=white>"
   for i in json.encode(tmpNum):gmatch("name\":\"(.-)\"") do tmpStr=tmpStr..i.."  " end  
   sceneAbort("(39) Global Variable '<font color=wheat>&"..vName.."</font>' not found. Available variables are:<br>"..tmpStr..eF,{vType:sub(1,1).."&"..vName..vType:sub(2,2)})
  end --=========================== fibaro_getGlobalValue 
 function to_number(value)
  return tostring(value):find("true") and 1 or tostring(value):find("false") and 0 
   or tostring(value):len()==0 and 0 or tonumber(value) == nil and nil or type(value) == "string" and tonumber(value) or type(value)=="number" and value 
   end --============================== to_number 
 function compare(o1,o,o2,o3) return o=="=" and o1==o2 or o==">" and o1>o2 
           or o=="<" and o1<o2 or o=="<>" and o1~=o2 
           or o=="==" and (tostring(o1):find(tostring(o2)) and true or tostring(o2):find("|"..o1.."|") and true) 
          -- or o=="==" and (o1:find(o2) and true) 
           or (o=="~" and o1>o2 and o1<(o3 or o2)) end
 function checkState(inId) if not jD[inId].property then return false end 
   if inId:find("&") then jD[inId][jD[inId].property].value=fibaro_getGlobalValue(realId(inId)) end
   if inId:find("[$]") then jD[inId][jD[inId].property].value=setKeyword(tableId(inId)) end
   if jD[inId].state~=2 then return true end
   local val1,sOper,val2=tostring(doTheMath(jD[inId].stateValue,inId)),jD[inId].stateOper,""
   if tostring(val1):find("~") then val1,val2=tostring(val1):match("(.*)~(.*)"); sOper="~" end
   if to_number(val1) and to_number(jD[inId][jD[inId].property].value) then return compare(to_number(jD[inId][jD[inId].property].value),sOper,to_number(val1),to_number(val2))
   else return compare(jD[inId][jD[inId].property].value,sOper,val1,val2) end
  end --=============================== checkState 
 function inProperty(inId) 
    if jD[inId].state==1 or jD[inId].status==0 then return jD[inId].lTime 
    elseif jD[inId].state==2 then -- state criteria defined
        if jD[inId].status==3 then return os_time() end -- not in timeslot
        if tmpStatus then jD[inId].status=1 return jD[inId].lTime else jD[inId].status=2 return (jD[inId].timeSpanOn and jD[inId].lTime or os_time()) end
    else return jD[inId].lTime end
  end --================================ inProperty 
 function isOnTime(tRange,inId,iLog)
  local t,fStatus,cTime="",false,os.date("%H:%M",os_time())
  for t in string.gmatch(tRange:gsub(","," "),"%S+") do --t=doTheMath(t,inId) 
    if checkDate(t) then 
      local sTime,eTime=tSlotFormat(t:match("(%w+:%w+)~")),tSlotFormat(t:match("~(%w+:%w+)"))
      if not sTime and not eTime then sTime=t:match("(%w+:%w+)") end
      if     eTime and not sTime then if eTime==os.date("%H:%M",os_time()) then fStatus=t end
      elseif sTime and not eTime then if sTime==os.date("%H:%M",os_time()) then fStatus=t end
      elseif not sTime and not eTime then fStatus=t 
      elseif (cTime>sTime and cTime<eTime) or (sTime>=eTime and (cTime<eTime or cTime>sTime)) then fStatus=t end end
   end if iLog then if fStatus and jD[inId].tstRate>=0 then return ygF..fStatus:gsub("(%w+:%w+)", function(a) return tSlotFormat(a,"disp") end)..eF else return tRange:gsub("(%w+:%w+)", function(a) return tSlotFormat(a,"disp") end) end else return fStatus end
  end --================================ isOnTime 
 function checkDate(tSlot) 
   local j,i,k,mStr,date,tDate,fStatus,sDate=0,0,0,"","",os.date("*t",os_time()),false,{{"[m]","[d]","[w]"},{"month","day","wday"}}
   if not tSlot:match("(%a)[!=]") or not tSlot:find("[mdw]") then return true else date=tSlot:match(".+[;]?"):gsub("=","=;")..";" end
   date=date:gsub("[mwd]",function(a) return " "..a end)
   for i,j in date:gmatch("(%d+)~(%d+)") do mStr="" for k=i,j do mStr=mStr..k..";" end date=date:gsub(i.."~"..j,mStr:sub(1,-2)) end
   for j=1,3 do 
     if date:find(sDate[1][j]) then fStatus=false
       if date:match(sDate[1][j].."(%S+)"):find("!=") then if not date:match(sDate[1][j].."(%S+)"):find(";"..tDate[sDate[2][j]]..";") then fStatus=true end
       elseif date:match(sDate[1][j].."(%S+)"):find(";"..tDate[sDate[2][j]]..";") then fStatus=true end
       if not fStatus then return false end end 
    end return true
  end --=================================== checkDate 
 function extractTimeSlot(mTime)
     local rSlot=mTime:gsub(" ","")
     if not mTime:find("true") and not mTime:find("false") then return mTime else mTime="" end
     rSlot=rSlot:gsub("%b??", function (a) return a:gsub(",","!!") end)
     for i in string.gmatch(rSlot:gsub(","," "),"%S+") do
         if i:find("true") then i=i:gsub("true",""):gsub("~","").."~" end
         if i:find("false") then i="~"..i:gsub("false",""):gsub("~","") end
         mTime=mTime..i:gsub("!!",",")..","
     end
     return mTime:sub(1,-2)
   end --=================================== extractTimeSlot 
 function meanVsSlot(inId,timeTable,disp)
  local slotStr,sTime,fStatus,i,j,realSlot,hTime,mTime,mathTime=",",{},true,0,0,"",0,0,""
  if not timeTable then return true, "" end
  mathTime=doTheMath(timeTable,inId)
  if mathTime==math.huge then return sceneAbort("(65) Format/Syntax/Formula error in time slot '"..wF..i..eF.."'<br> See Advanced User's Guide for proper time slot format definition.",{timeTable,"timeSlot"},jD[inId].lineNum) end
   for i in string.gmatch(mathTime:gsub(","," "),"%S+") do realSlot=i
     if not realSlot:find("~") and not realSlot:match("(%a)[!=]") then return sceneAbort("(57) Syntax error in timeslot "..wF..timeTable.."<br>e.g. timeSlot=\"m=5;d=6;21:00~22:00, w=3;06:00~09:00, d!=1, m=3;4\"</font>",{timeTable,"timeSlot"},jD[inId].lineNum) end 
     if realSlot:match("(%a)[!=]") and not realSlot:find("[mdw]") then return sceneAbort("(64) Syntax error in timeslot date format "..wF..timeTable.."<br>e.g. timeSlot=\"m=5;d=6;21:00~22:00, w=3;06:00~09:00, d!=1, m=3;4\"</font>",{timeTable,"timeSlot"},jD[inId].lineNum) end
     if disp then slotStr=slotStr..isOnTime(realSlot,inId,"log")..", ";goto tContinue end
     sTime[1]=tSlotFormat(realSlot:match("(%w+:%w+)[:~]"));sTime[2]=tSlotFormat(realSlot:match("~(%w+:%w+)"))
     if not sTime[1] and not sTime[2] then if realSlot:find("[mdw]") then goto tContinue else sceneAbort("(78) Syntax error in timeslot "..wF..realSlot.."<br>e.g. timeSlot=\"21:00~22:00, 06:00~, ~01:00\"</font>",{timeTable,"timeSlot"},jD[inId].lineNum)  end end
     if sTime[1] and not sTime[2] then goto tContinue end
     if sTime[2] and not sTime[1] then goto tContinue end
     if not sTime[1]:match("(%d+):(%d+)") or not sTime[2]:match("(%d+):(%d+)") then return sceneAbort("(66) Wrong format in timeslot "..wF..realSlot.."<br>e.g. timeSlot=\"21:00~22:00, 06:00~, ~01:00\"</font>",{timeTable,"timeSlot"},jD[inId].lineNum)  end
     for j=1,2 do hTime,mTime=sTime[j]:match("(%d+):(%d+)");sTime[j]=hTime*60+mTime end
     if sTime[2]<sTime[1] then sTime[2]=sTime[2]+24*60 end
     if (sTime[2]-sTime[1])<jD[inId].tstRate then return sceneAbort("(67) Time span exceeds time slot range ("..wF..jD[inId].tstRate.." > "..sTime[2]-sTime[1]..eF..") in <br>\""..timeTable:gsub(i,wF..i..eF).."\"",{jD[inId].tstRate..",",i,"timeSlot"},jD[inId].lineNum)  end
   ::tContinue:: end 
  return disp and (slotStr:gsub("~[,<]",function (a) return a:gsub("~","<sup>true</sup>")end):gsub("[,>][%s+]?~", function (a) return a:gsub("~","<sup>false</sup>")end)) or true 
  end --================================== meanVsSlot 
 function tSlotFormat(tSlot,disp) 
   if not tSlot then return (disp and "" or tSlot) end -- if disp then return "" else return tSlot end end
   tSlot=tSlot:gsub("(%w+):(%w+)",function (a,b) return (#a==1 and "0"..a or a)..":"..(#b==1 and "0"..b or b) end)
   local hTime,mTime=tSlot:match("(%d+):(%d+)")
   if disp and os.date("!%H:%M",hTime*3600+mTime*60)~=tSlot then return os.date("!<markPink>%H:%M</markPink>",hTime*3600+mTime*60) else return os.date("!%H:%M",hTime*3600+mTime*60) end
   end --================================== tSlotFormat 
 function clockTime(timeInt)
  local _,onTime=math.modf((os.date("*t",os_time()).day*1440+os.date("*t",os_time()).hour*60+ os.date("*t",os_time()).min)/timeInt)
  if onTime==0 then return true else return false end 
  end --=================================== clockTime 
 function checkInterval(inId,lSeen) 
  if jD[inId].onClock==0 then return lSeen end
  local _,onTime=math.modf((os.date("*t",os_time()).day*1440+os.date("*t",os_time()).hour*60+ os.date("*t",os_time()).min)/jD[inId].tstRate)
   jD[inId].lTime=os_time()-onTime*(jD[inId].tstRate*60)
  if onTime==0 then if jD[inId].onClock==1 then jD[inId].onClock=2 return onTime else jD[inId].maxTime=0 return os_time() end
  else if jD[inId].onClock==2 then jD[inId].onClock=1;jD[inId].maxTime=0 end
  return os_time() end
  end --================================ checkInterval 
 function inTimeSlot(inId)
   local lCnt,sCnt,i,fStatus,cTime,realSlot,mathTime=0,0,0,true,os.date("%H:%M",os_time()),"",""
   if jD[inId].timeSlot then fStatus=false 
     mathTime=jD[inId].timeSlot:gsub("$sunsetHour",intValue.sunsetHour):gsub("$sunriseHour",intValue.sunriseHour)
     mathTime=doTheMath(mathTime,inId)
     for i in string.gmatch(mathTime:gsub(","," "),"%S+") do realSlot=i;lCnt=lCnt+1
       local sTime,eTime=tSlotFormat(realSlot:match("(%w+:%w+)~")),tSlotFormat(realSlot:match("~(%w+:%w+)"))
       if not sTime and eTime then setTimeActions(realSlot,eTime,"falseAct",1,inId);sCnt=sCnt+1
        elseif sTime and not eTime then setTimeActions(realSlot,sTime,"trueAct",2,inId);sCnt=sCnt+1
        elseif not sTime and not eTime then fStatus=checkDate(realSlot)
        elseif (cTime>sTime and cTime<eTime) or (sTime>=eTime and (cTime<eTime or cTime>sTime)) then fStatus=checkDate(realSlot) end --if checkDate(realSlot) then fStatus=true end end
     end if sCnt==lCnt then fStatus=true end end 
   if not fStatus then jD[inId].status=3 return false end
   if jD[inId].status>2 then jD[inId].lTime=os_time();
     jD[inId].status=to_number(tmpStatus)+1
     if jD[inId].initOnStartup then 
       if jD[inId].initAct then
         jAct[inId]={act=json.decode(json.encode(jD[inId].initAct)),actState="initAct",lTime=os_time(),type="Is"} 
       else 
         if jD[inId].state~=3 then jD[inId].status=(jD[inId].status % 2) + 1;setActions(inId,"s") end 
       end 
     end --if jD[inId].initOnStartup then 
   end
   return fStatus end --=========================== setTimeActions ============================================
 function setTimeActions(tDate,tAct,inAct,aMode,inId) 
   if checkDate(tDate) and tAct==os.date("%H:%M",os_time()) then if not jD[inId][tAct] and jD[inId][inAct] then jAct[inId]={act=json.decode(json.encode(jD[inId][inAct])),actState=inAct,lTime=os_time(),type=inAct:upper():sub(1,1).."t"};jD[inId][tAct]=true end
   else jD[inId][tAct]=false end
  end --================================ setTimeActions 
 function setActions(inId,aType)
  if initMode and jD[inId].state~=3 then return end
  aType=aType or ""
  if jD[inId].status==1 and not tmpStatus then if jD[inId].falseAct then jAct[inId]={act=json.decode(json.encode(jD[inId].falseAct)),actState="falseAct",lTime=os_time(),type="F"..aType}  end 
  elseif jD[inId].status==2 and tmpStatus and inTimeSlot(inId) then if jD[inId].trueAct then jAct[inId]={act=json.decode(json.encode(jD[inId].trueAct)),actState="trueAct",lTime=os_time(),type="T"..aType} end 
  elseif jD[inId].trigAll and jD[inId].trigOn and jD[inId].status~=3 then if jD[inId][task.all[jD[inId].status]] then jAct[inId]={act=json.decode(json.encode(jD[inId][task.all[jD[inId].status]])),actState=task.all[jD[inId].status],lTime=os_time(),type="A"..aType} end end
  if jD[inId].lState~=tmpStatus then jD[inId].lTime=os_time();jD[inId].lState = tmpStatus end
  end --================================ setActions 
 function onTime(inId)
  local fStatus,modNum,ttsMsg,noteMsg,i=true,"devices","","",0;gData.alertId={}
  for i,_ in pairs(jD) do if inId and i~=inId or os_time()-jD[i].lagTime<0 then goto nextOnTime end
     if jD[i].tstRate<0 then jD[i].status=4; goto nextOnTime end setTickTime(i,true);tmpStatus=checkState(i);setActions(i)
     if jD[i].timeoutAct and not jD[i].active and jD[i].tstRate>0 and os_time()-jD[i].lTime<jD[i].tstRate*60 then jD[i].active=true end --restart for timeoutAct()
     if inTimeSlot(i) and os_time()-checkInterval(i,inProperty(i))>jD[i].tstRate*60 and jD[i].tstRate>0 then
        if jD[i].timeoutAct then if jD[i].active then jD[i].active=false;jAct[i]={act=json.decode(json.encode(jD[i].timeoutAct)),actState="timeoutAct",lTime=os_time(),type="O"} end
        elseif jD[i].timeLoopAct then jD[i].maxTime=0;jD[i].lTime=os_time();jAct[i]={act=json.decode(json.encode(jD[i].timeLoopAct)),actState="timeLoopAct",lTime=os_time(),type="L"}
        else if jD[i].status==1 or (jD[i].timeSpanOn and jD[i].status~=0) then jD[i].tAlerts=jD[i].tAlerts+1;jD[i].alertTime[#jD[i].alertTime+1]=os.date(" %d %b %H:%M:%S",os_time()) end
          jD[i].status=0; gData.numAlerts=gData.numAlerts+1;gData.alertId[#gData.alertId+1]=i;fStatus=false
          ttsMsg=ttsMsg..findNameRoom(i,1)..", "
          noteMsg=noteMsg..jD[i].idType..":"..jD[i].id..": "..findNameRoom(i,1).." ("..jD[i].userTerms..jD[i].stateValue..")\n" end
     elseif jD[i].status==0 then jD[i].status=1 end
     if jD[i].property then logVal(jD[i][jD[i].property].value,i,sColor[jD[i].status+1]) end
     jD[i].trigOn=false 
  ::nextOnTime:: end -- for i,_ in pairs(jD) do
  if not inId then 
     if not fStatus and (gData.prvAlerts~= #gData.alertId or os_time()-gData.lAlert > alertRate*60) then gData.lAlert=os_time()
       if #gData.alertId==1 then modNum="device" end
       homeTts(sceneName.." alert on ".. #gData.alertId .. " "..modNum ..". "..ttsMsg)   
       sendNote(sceneName.." Alert ("..#gData.alertId..")","Time out on next "..modNum..":\n"..("-"):rep(25).."\n"..noteMsg)
    elseif gData.prvAlerts>0 and #gData.alertId==0 then homeTts(sceneName.." back to normal.");sendNote(sceneName.." OK","All devices back to normal activitiy.") end
  gData.prvAlerts=#gData.alertId end
  end --======================================== onTime 
 function sendNote(subject,body,noteType,logInfo) if not inGid then inGid=1 end 
   local i,cmd,runScene,idStr,nLine,fStatus,rStr,mStr=0,"",0,"","","","<br> "..indent..ctlChar("<mark4> subj: </mark4> "..subject.." <mark4> body: </mark4> "..body.." ",txtLine),"";txtNote=""
   if not noteType or noteType=="sendNote" then noteType="sendNote";nLine="<br>"..indent;mStr=""
      fStatus="<markRed> "..noteType:match("%w+").." </markRed> Error: All notification means are set to "..bF.."FALSE"..eF else mStr=rStr end
   cmd=noteType;noteType=noteType:gsub(",run[_]?%d+",function(a) runScene=tonumber(a:match("%d+")) return "" end)
   if eMail[1] and noteType=="sendNote" or noteType:match("%w+")=="sendEmail" then fStatus="";tmpStr=eMail[2]
     if noteType:find(",") then tmpStr=noteType:gsub("sendEmail","") end
     for i in string.gmatch(tmpStr:gsub(","," "),"%S+") do 
       if noteList.sendEmail[i] then txtNote=txtNote..noteList.sendEmail[i]:match("(.+):")..",";idStr=idStr..", "..i.."<sup>"..noteList.sendEmail[i].."</sup> "
       else sceneAbort("(58) eMail user ID '"..wF..i..eF.." has not been found in the system. Available users:<br>"..ygF.. table_concat(noteList.sendEmail," ",true)..eF,{cmd},jD[inGid].lineNum) end
     if not logInfo then fibaro:call(to_number(i),"sendEmail",subject,body) end end  
     fStatus=indent.."<mark> sendEmail </mark>"..idStr..mStr 
     if noteType~="sendNote" and runScene>0 then fibaro:startScene(runScene,{noteType}) end end 
   if popupNote and noteType=="sendNote" or noteType:match("%w+")=="sendPopup" then fStatus=fStatus:gsub("%b{}","")..nLine.."<mark> sendPopup, All users </mark>"..mStr 
       if not logInfo then HomeCenter.PopupService.publish({title=subject,contentBody=body..(runScene>0 and "\nstartScene("..runScene..")" or ""),type="Critical",buttons={{caption='OK',sceneId=runScene}} }) end end
   if pushNote[1] and noteType=="sendNote" or noteType:find("Push") then fStatus=fStatus:gsub("%b{}","");idStr="";tmpStr=pushNote[2]
     if noteType:find(",") then tmpStr=noteType:gsub("send%w+","") end; isAct.sendPush=true
       for i in string.gmatch(tmpStr:gsub(","," "),"%S+") do 
           if noteList.sendPush[i] then txtNote=txtNote..noteList.sendPush[i]..",";idStr=idStr..", "..i.."<sup>"..noteList.sendPush[i].."</sup> "
           else sceneAbort("(16) Mobile ID ("..wF..i..eF..") has not been found in the system.<br>List of mobiles (in<font color=darkgreen>Dark Green"..eF.." - authorized):<br>"..wF.. table_concat(noteList.sendPush,"  ",true)..eF,{cmd},jD[inGid].lineNum) end
           if not logInfo then if noteType:find("sendiPush") then api.post('/mobile/push',{mobileDevices={tonumber(i)},message=body,title="iPUSH:"..subject,category='RUN_CANCEL',data={sceneId=runScene}}) 
             else fibaro:call(tonumber(i), "sendPush",(#subject>2 and subject.."\n" or "")..body) end end
       end --[[end fot i]] if idStr:len()==0 then fStatus=fStatus..nLine.."<markRed> "..cmd:match("%w+").." </markRed> Error: mobile users not defined.";isAct.sendPush=false 
         else fStatus=fStatus..nLine.."<mark> "..noteType:match("send%w+").." </mark>"..idStr..mStr..(runScene>0 and "<br>"..indent.." <mark4> RUN </mark4> scene "..runScene or "") end end
   if sms[1] and noteType=="sendNote" or noteType:match("%w+")=="sendSms" then tmpStr=sms[2];if noteType:find(",") then tmpStr=noteType:gsub("sendSms","") end
      fStatus=fStatus:gsub("%b{}","")..nLine.."<mark> sendSms</mark>"..tmpStr..mStr
      for i in string.gmatch(tmpStr:gsub(","," "),"%S+") do --fStatus=fStatus.."   #"..i
      if not logInfo then sendSms(i,subject,body) end end 
   if noteType~="sendNote" and runScene>0 then fibaro:startScene(runScene,{noteType}) end end 
   if noteType=="sendNote" and isAct["sendNote"] then txtNote="";fStatus="<mark> sendNote distribuiton list: </mark><br>"..fStatus:gsub("mark>","mark2>")..rStr end
   if logInfo then return fStatus end
  end --=================================== sendNote 
 function checkOnScreen(pattern)
   local dMsg=api.get("/scenes/"..__fibaroSceneId.."/debugMessages")
   if json.encode(dMsg):len()>110000 and not json.encode(dMsg):find(gData.tKeyWord) then api.delete("/scenes/" .. __fibaroSceneId .. "/debugMessages") return false end
   return json.encode(dMsg):find(pattern) and true or false
  end --================================== checkOnScreen 
 function getButtonName(inId,bNum) local i,j;bNum=bNum:match("%d+")
  if not jDid[inId].button then jDid[inId].button={}
     for _,i in pairs(api.get("/devices/"..inId)["properties"]["rows"]) do if i.type=="button" then
      for _,j in pairs(i.elements) do jDid[inId].button[tostring(j.id)]=j.caption end end end end 
  if jDid[inId].button[bNum] then return jDid[inId].button[bNum]
     else sceneAbort("(77) VD "..wF..findNameRoom(inId,2)..eF.." button number '"..wF..bNum..eF.."' is not found. Available buttons:<br>"..json.encode(jDid[inId].button):gsub("\",\"","<br>"):gsub("\":\"","-"):gsub("[{}\"]",""),{inId,"pressButton",","..bNum},jD[inGid].lineNum) end
   end --=============================== getButtonName 
 function findNameRoom(dId,f) dId=tableId(dId)
   if not jDid[dId] then 
       if initMode then return realId(dId) end 
       sceneAbort("(82) Item ID "..wF..dId..eF.." not found in the system.",{dId},jD[inGid].lineNum) end
   local idF={jDid[dId].name.." @ "..jDid[dId].room, jDid[dId].name..":"..realId(dId)..":"..jDid[dId].room, "", jDid[dId].name.."<sup>"..realId(dId).."</sup>"..jDid[dId].room, jDid[dId].room..":"..realId(dId)..":"..jDid[dId].name}
   return (dId:find("[&]") and dId..":"..jDid[dId].name or dId:find("[%$]") and dId or f and idF[f] or idF[4])
   end --=============================== findNameRoom
 function dispInfo() 
   gData.tableTimeStamp=os_time();refreshTime=os.time();--getIntValue()
   local i,j,k,k1,tipTxt,devAct,execCmd,notAct=0,0,0,0,"",{"trueAct","falseAct","trigAct","timeoutAct","timeLoopAct","initAct","errAct","okAct"},"",""
   local inRoom,rowStr,mStr,zBuffer,deadColor,dArm="","", "",{},{[true]=rF,[false]=ygF},{"  ","&#128680"}
   local tHeader={"Type","Item Description","Value","Criteria","in State",rF.."<font size=4>&#10227</font><sup>"..gData.prvAlerts.."</sup></font>","TimeSpan","Time Slot","trueAct","falseAct","trigAct","timeoutAct","timeLoopAct","initAct","errAct","okAct","Active Rules","jM{#}","jM { hash table line }"}
   local inBuffer,dHeader,rptHeader,gHeader,rmdHeader,zHeader,gpsHeader="",{" Name :ID: Room ","nAck","Dead"," Is dead "," Events history "},{"Master :ID: Room"," # "," Events history "},{" Type "," Name "," Value "," Modified "},{" Rate/Left(sec) "," Run Terms "," Note "," Reminder "},{"Master :ID: Room","#","%"},{"Name","ID","Radius"}
   zBuffer[1]=htmlStr;tmpStr=ygF.."  <font size=4>&#10227</font> ".. math.floor((os_time()-gData.startTime)/86400) .."d,"..os.date("!%H:%M:%S ",os_time()-gData.startTime).."</font>"      
   if gData.zTotal>1 then for i,j in pairs(eCmd) do k=k+j
      if i=="call" then execCmd=execCmd.. string.format("  %-18s",eCmdType[i])..j.."/"..eCmd.dev.."<br>" elseif i=="dev" then k=k
      elseif eCmdType[i] then execCmd=execCmd.. string.format("  %-18s",eCmdType[i])..j.. "<br>" else execCmd=execCmd.. string.format("  %-18s",i.." control")..j.." <br>" end end; execCmd=bF.."  "..k.." activities recorded   </font><br><br>"..execCmd
   mStr=tostring(zw.min):gsub(".+",function (a) if a~= "-1" then return string.format(" %.1fs<sup>Min</sup>",tonumber(a)) else return "" end end)..string.format(" %.1fs<sup>Avg</sup>",(os_time()-gData.startTime)/gData.zTotal)..tostring(zw.max):gsub(".+",function (a) if a~= "100" then return string.format(" %.1fs<sup>Max</sup>",tonumber(a)) else return "" end end)
   tmpStr=tmpStr.."   <span class='dropdown'>"..cF.."<u>"..gData.zTotal.." zEvents</u></font><div class='dropdown-content'"..menuLen(execCmd,"right:-",true).."</div></span><span class='dropdown'>  "..ygF.."<u>"..mStr.."</u></font><div class='dropdown-content'"..menuLen(string.format(bF.." CPU elapsed time<br><br>"..eF.." Minimum    %.3f <br> Current    %.3f <br> Maximum    %.3f ",xTime.min,xTime.avg,xTime.max),"left:-",true).."</div></span>" end
   zBuffer[#zBuffer+1]=sysInventory..trueFalseColor[atHome].."@"..vacMode[atHome].."</sup></font></font></font> <span class='dropdown'>"..sbF.."<u>system status.</u></font><div class='drop-value'"..menuLen("fixedMenu800<font color=darkgrey>"..zmStr.."</font>","left:-",true).."</div></span>"..tmpStr.."</h><br><table><tr>"
   for i=1,#tHeader do 
     if tHeader[i]:find("10227") then if gData.numAlerts>0 then zBuffer[#zBuffer+1] = '<th>'..tHeader[i]..'</th>' end
     elseif tHeader[i]:find("Item") then zBuffer[#zBuffer+1]="<th class=dropdown> "..tHeader[i].." <span class='dropdown-content'"..gData.idList.. " </span></th>"
     elseif tHeader[i]:find("Act") then if dataCol[tHeader[i]] then zBuffer[#zBuffer+1]='<th>'..tHeader[i]..'</th>' end
     else zBuffer[#zBuffer+1]='<th>'..tHeader[i]..'</th>' end end zBuffer[#zBuffer+1]="</tr>"
   for k=1,#tableOrder[1] do rowSpan=false
      for j=1,#jI do i=jI[j]:match("%b::"):sub(2,-2) 
        if tableOrder[1][k]~=jD[i].idType then goto nextType end if jD[i].idType:find("Scene") then sceneEnabled(i) end
        if jD[i].tstRate<0 then noAct=sColor[5] else noAct="" end inRoom=findNameRoom(i,5)
        zBuffer[#zBuffer+1]="<tr>";tmpStr="#004000";if json.encode(jD[i].lAct):find("=red>") then mStr="<div style='background:#400000;'> " else mStr=" " end
        if not rowSpan then if k==1 and gData.zTotal>0 then zBuffer[#zBuffer+1]="<td rowspan="..tableOrder[4][tableOrder[1][k]].." class=dropdown>"..dColor[jD[i].idType].."<font size=1%> "..tableOrder[3][k].." </font><span class='dropdown-content' style='width:350px;position:fixed;top:auto;left:0px;right:0px;bottom:10px;margin: 0px 0px 20px 350px'>"..setActTop().."</span></td>"
           else zBuffer[#zBuffer+1]="<td rowspan="..tableOrder[4][tableOrder[1][k]]..">"..dColor[jD[i].idType].."<font size=1%> "..tableOrder[3][k].." </font></td>" end end
        if jD[i].pRef.batteryLevel then if jD[i].pRef.batteryLevel<30 then tmpStr="#550000" end; tmpStr="<div style='background-color:"..tmpStr..";width:"..math.min(100,jD[i].pRef.batteryLevel).."%'>" else tmpStr="" end --"position:fixed;top:auto;left:0px;right:0px;bottom:10px;margin: 0px 0px 0px 350px
        if k<6 and jT[tableId(i)].rowspan[i] then zBuffer[#zBuffer+1] ="<td rowspan="..#jT[tableId(i)].idNum.." class=txtLeft>"..(#noAct>5 and noAct or dColor[jD[i].idType])..tmpStr..dArm[to_number(jD[i].pRef.armed)+1]..inRoom.." </font></div></td>" end
        if k>5 then zBuffer[#zBuffer+1] ="<td class=txtLeft>  "..dColor[jD[i].idType]..noAct..inRoom.." </font></td>" end
        if jD[i].idType:find("Scene") then tmpStr=string.format("FF%02X%02X",math.floor(255-jD[i].instances*(255/jD[i].maxInstances)),math.floor(255-jD[i].instances*(255/jD[i].maxInstances))); if jD[i].tstRate<0 then noAct=sColor[5] end
            if jD[i].lAct[1] then zBuffer[#zBuffer+1]="<td class=dropdown>"..noAct..mStr.."<font color=#"..tmpStr.."> "..jD[i].instances.."</font>/"..jD[i].maxInstances.." <span class='drop-value'"..menuLen(ctlChar(table.concat(jD[i].lAct)),"right:-",true).." </span></div></td>"
            else zBuffer[#zBuffer+1]="<td><font color=#"..tmpStr.."> "..noAct..jD[i].instances.."</font>/"..jD[i].maxInstances.." </td>" end
        elseif jD[i][jD[i].property] then tmpNum=jD[i].status+1; if os_time()-jD[i].lagTime<0 then tmpNum=6 end
           zBuffer[#zBuffer+1]="<td class=dropdown>"..mStr..sColor[tmpNum]..cutStr(jD[i][jD[i].property].value,15).." </font><span class='drop-value'"..menuLen(table.concat(jD[i].lVal)..ctlChar(table.concat(jD[i].lAct)),"left:-",true).." </span></div></td>" 
        else zBuffer[#zBuffer+1]="<td></td>" end
        if jD[i].state<3 then  
            if string.match(jD[i].stateValue,'[%(%+%-%*%$/@&]') and not tonumber(jD[i].stateValue) then
               zBuffer[#zBuffer+1] ="<td class=dropdown> "..sColor[jD[i].status+1].."<span style='background-color:#264040'> "..cutStr(jD[i].userTerms,20,true)..doTheMath(jD[i].stateValue,i)..jD[i].lagStr.."</i> <span class='dropdown-content'"..menuLen(doTheMath(jD[i].stateValue,i,"parse"),"left:-",true).."</span></td>"
            else zBuffer[#zBuffer+1] ="<td> "..sColor[jD[i].status+1]..cutStr(jD[i].userTerms,20,true)..jD[i].stateValue..jD[i].lagStr.." </font></td>" end
        elseif jD[i].state==3 then zBuffer[#zBuffer+1]="<td>("..sColor[jD[i].status+1]..jD[i].property.."</font>)</td>" 
        elseif not jD[i].idType:find("Auto") and jD[i].idType:find("Scene") and not rowSpan then zBuffer[#zBuffer+1] ="<td rowspan="..tableOrder[4][tableOrder[1][k]]..">"..dColor[jD[i].idType].." instances </font></td>"
        elseif jD[i].idType:find("Auto") and not rowSpan then zBuffer[#zBuffer+1]="<td rowspan="..tableOrder[4][tableOrder[1][k]]..">"..dColor[jD[i].idType].." <font size=4>&#10227</font></font> </td>"
        elseif not rowSpan then zBuffer[#zBuffer+1]="<td rowspan="..tableOrder[4][tableOrder[1][k]].."></td>" end
        zBuffer[#zBuffer+1]="<td>"..(jD[i].timeoutAct and not jD[i].active and "<font color=#b87ee7>" or sColor[jD[i].status+1])..noAct..(#noAct==0 and (" %02d:"):format(math.floor((os_time()-jD[i].lTime)/3600))..os.date("!%M:%S",os_time()-jD[i].lTime) or "--:--:--").." </font></td>"
        if gData.numAlerts>0 then zBuffer[#zBuffer+1]="<td></td>" end
        if jD[i].tAlerts~=0 then zBuffer[#zBuffer]="<td class=dropdown><font color=orangered> "..jD[i].tAlerts.." </font><span class='drop-value'"..menuLen("<font color=orangered>"..table.concat(jD[i].alertTime,"  <br>").."</font>","left:-",true).."</span></td>" end 
        if jD[i].tstRate>0 then tmpNum=0
         if jD[i].status==1 or jD[i].timeSpanOn then tmpNum=math.min(math.floor((os_time()-jD[i].lTime)/(jD[i].tstRate*60)*100),100) end
         if jD[i].status==0 then tmpNum=math.min(math.floor(setTickTime(i,true)/(jD[i].tstRate*60)*100),100) end
           --tmpNum=math.min(math.floor((jD[i].status==1 and os_time()-jD[i].lTime or jD[i].timeSpanOn and jD[i].status%3~=0 and os_time()-jD[i].lTime or jD[i].status==0 and setTickTime(i,true) or jD[i].timeLoopAct and os_time()-jD[i].lTime or 0)/(jD[i].tstRate*60)*100),100) 
           tmpStr=(jD[i].timeoutAct and "<td bgcolor=#244864><div style='background-color:#3e1263;width:"..tmpNum .."%'><span class=dropdown> " or jD[i].timeLoopAct and "<td><div style='background-color:#404040;width:"..tmpNum .."%'> " or "<td bgcolor=#012d08><div style='background-color:#640202;width:"..tmpNum.."%'><span class=dropdown> ")
           zBuffer[#zBuffer+1]=tmpStr..(" %02d:"):format(math.floor(jD[i].tstRate/60))..os.date("!%M:%S",math.ceil(jD[i].tstRate*60)).." <span class='dropdown-content'"..menuLen("<u>"..inRoom.."</u><br><br>max. elapsed "..rF..os.date("!%H:%M:%S",setTickTime(i,true)),"right:-",true).."</span></td>"
        else zBuffer[#zBuffer+1]=(jD[i].tstRate==0 and "<td><font color=silver> Activity </font></td>" or jD[i].tstRate< -1 and "<td>"..sColor[5].." Disabled </font></td>" or jD[i].tstRate==-1 and "<td>"..sColor[5].." Suspend </font></td>") end
        if jD[i].timeSlot then tmpStr=meanVsSlot(i,jD[i].timeSlot,"disp"):sub(2,-3);
            if json.encode(jD[i].timeSlot):find("%b??") or json.encode(jD[i].timeSlot):find("sun") or tmpStr:find("pink>") then zBuffer[#zBuffer+1] ="<td class='dropdown' span style='text-align:left;font-size:10.5px;'> <i>"..yF..noAct..tmpStr.." </i><span class='dropdown-content'"..menuLen("<uT>"..inRoom.."</uT><br><br>"..doTheMath(json.encode(jD[i].timeSlot),i,"parse"),"right:-",true).." </font></span></td>" 
            else zBuffer[#zBuffer+1] ="<td class=txtLeft span style='font-size:10.5px;'> "..yF..noAct..tmpStr.." </font></td>" end
        else zBuffer[#zBuffer+1]="<td></td>" end; tmpNum=0 
        for k1=1,#devAct do tmpNum=tmpNum+1; tmpStr="";if jD[i][devAct[k1]] then 
           if jD[i].lineState then 
              indent="";tmpStr=(logTrueFalse(jD[i].lineState[1],i)):gsub("if</font>","if lineState</font>") end
           if jD[i][devAct[k1].."State"] then 
             indent=indent.." ";tmpStr=tmpStr..(logTrueFalse(jD[i][devAct[k1].."State"][1],i)):gsub("if</font>","if "..devAct[k1].."State</font>");indent=indent.."  " end
             log_trueFalse=false;tmpStr=tmpStr..setTipTxt(jD[i][devAct[k1]],i,devAct[k1])
           if jD[i][devAct[k1].."State"] then 
             tmpStr=tmpStr:gsub("(<font color=blue><br> and</font><br>)$","")
             tmpStr=tmpStr..bF.."<br> end<sup>"..devAct[k1].."State</sup>"..eF end 
           if jD[i].lineState then 
             --  tmpStr=tmpStr..(jD[i].okAct and setTipTxt(jD[i].okAct,i,devAct[k1]).."<br>" or "")..(jD[i].errAct and bF.."else<br>"..eF..setTipTxt(jD[i].errAct,i,devAct[k1]).."<br>" or "<br>")..bF.."end<sup>lineState</sup>" end
               tmpStr=tmpStr.."<br>"..bF.."end<sup>lineState</sup>" end
           if os.time()-dispGuide>time2disp then tmpStr=bF.."Do Manual refresh for details "..eF end
            zBuffer[#zBuffer+1]="<td class='dropdown' span style='text-align: left;'> "..noAct..cutStr(setToolTipTxt(jD[i][devAct[k1]],i,k1),50).."<span class='dropdown-content' "..menuLen("<uT><b>"..inRoom.."  "..devAct[k1].."{}</b></uT><br><br>"..tmpStr,"left:-",true,tmpNum).."  </span></td>" 
           else if dataCol[devAct[k1]] then zBuffer[#zBuffer+1]="<td></td>" end end end
        if dataCol["Active Rules"] then zBuffer[#zBuffer+1]=jD[i].rules and "<td class=txtLeft>"..jD[i].rules.."</td>" or "<td></td>" end
        zBuffer[#zBuffer+1]="<td>"..dColor[jD[i].idType]..noAct..">"..jD[i].lineNum.."</font></td>"
        zBuffer[#zBuffer+1]="<td class='dropdown' span style='text-align: left;'> "..(#noAct==0 and "" or noAct.."<s>")..jD[i].jm2..(jMe[i] and " <sup>["..jMe[i].."/"..math.floor(jMe[i]/jMeSum*1000)/10 .."%]</sup>" or "").." </s><span class='drop-value'"..menuLen("<mark5> "..dColor[jD[i].idType]..inRoom.." </font></mark5>"..jD[i].cfg.."<br>"..jM2n[jD[i].lineNum.."act"],"right:1px;",true).." </span></td>"
         rowSpan=true
      if os_time()-jD[i].lagTime<0 then inBuffer=inBuffer..dColor[jD[i].idType].." "..inRoom.."<sup>?"..jD[i].lagTime- os_time().."s</sup></font>" end
     ::nextType:: end --for j=1,#jI do i=jI[j]
  end -- for k=1,#tableOrder do <font color=pink></font>
  zBuffer[#zBuffer+1]="<tr><td class=txtLeft colspan=20 style='width:5px;white-space:pre-wrap;'>"..table.concat(gData.logAct,"  ").."</td></tr>"
   if json.encode(jAct):len()>5 then 
     for i,j in pairs(jAct) do --i=k1:gsub(":.+","");
       m=(type(j.act[1])=="string" and {j.act} or j.act)
       for k,l in pairs(m) do if m[k][1]=="done" or m[k][3]:find(":") then break end
        tmpNum=tonumber(subSign(doTheMath(m[k][3],i)):gsub("~",""):match("%d+"))
        inBuffer=inBuffer.."  "..cF..(jN2s[realId(i)] and jN2s[realId(i)]..
             i:match(">%d+") or i)..eF.."<sup><sup>"..yF..
           (tmpNum and tmpNum-(os_time()-jAct[i].lTime) or os_time()-jAct[i].lTime or "?")..
           "s></font></sup>"..
           ygF..m[k][2].."("..
           (m[k][1]:find(":") and "" or m[k][1]:len()==0 and "" or m[k][1]:gsub("[_]?[%w_']+", function (a) return (jN2s[a] or a) end))..
           (tmpNum and "" or m[k][3]).."}</sup></font> " end end
  end --  if json.encode(jAct):len()>5
  if inBuffer:len()>5 then zBuffer[#zBuffer+1]="<tr style='border:none;height:10px;'></tr><tr><td class=txtLeft colspan=20 style='border:none;width:5px;white-space:pre-wrap;'> "..yF.."In buffer:"..eF..inBuffer.."</td></tr>" end
  zBuffer[#zBuffer+1]="</table>"
  if #jMem~=0 then zBuffer[#zBuffer+1]="<br><table><h><font size=2><font color=sandybrown>Reminders status</font></font></h><tr>"
    for i=1,#rmdHeader do zBuffer[#zBuffer+1]="<th>"..rmdHeader[i].."</th>"  end 
    for i=1,#jMem do zBuffer[#zBuffer+1]='<tr><td> '..jMem[i].remRate.."/"..math.max(0,jMem[i].remRate-(os_time()-jMem[i].lTime))..' </td>'
       if jMem[i].srcTrg:len()>5 then zBuffer[#zBuffer+1]="<td class='dropdown' span style='text-align: left;'> "..json.encode(jMem[i].srcTrg):gsub("[\"%]%[]",""):gsub("}{","}<br>{")..
         " <span class='dropdown-content'"..menuLen(logTrueFalse(jMem[i].srcTrg,jMem[i].devId).."  run reminder in "..math.max(0,jMem[i].remRate-(os_time()-jMem[i].lTime)).." sec. <br><font color=blue> END </font>","left:",true).."</span></td>" else zBuffer[#zBuffer+1]="<td></td>" end
       zBuffer[#zBuffer+1]='<td> '..tostring(jMem[i].note)..' </td>'
       zBuffer[#zBuffer+1]="<td class='dropdown'> "..jMem[i].remMsg.." <span class='dropdown-content'"..menuLen(doTheMath(jMem[i].remMsg,jMem[i].devId,"parse"),"right:",true).."</span></td></tr>" 
  end zBuffer[#zBuffer+1]="</table>" end -- if #jMem ~= 0 then
  if #json.encode(jGvar)>10 then zBuffer[#zBuffer+1]="<br><table><h><font size=2>"..sbF.."Global/Local variables</font></font></h><tr>"
    for i=1,#gHeader do zBuffer[#zBuffer+1] = '<th>'..gHeader[i]..'</th>' end 
    for i,j in pairs(jGvar) do zBuffer[#zBuffer+1] ="<tr><td> <font color="..tableOrder[2][4].."> "..fibaro_getGlobalValue(i,"?").." </td>"
        zBuffer[#zBuffer+1]="<td> <font color="..tableOrder[2][4].."> "..i:sub(2).." </td><td> "..fibaro_getGlobalValue(i).." </td>"
        zBuffer[#zBuffer+1]="<td> "..math.floor(getModificationTime(i)/86400).."d, "..os.date("!%H:%M:%S",getModificationTime(i)).." </td></tr>" end zBuffer[#zBuffer+1] ="</table>"
  end --if #json.encode(jGvar)>10 then
  if gpsStatus then zBuffer[#zBuffer+1]="<br><table><h>"..sbF.."Geofence in use for:<br><small>Users: "..cF..json.encode(jGps.user):gsub(":","="):gsub("\"","")..eF.."<br>Mobiles: "..cF..json.encode(jGps.ios):gsub(":","="):gsub("\"","")..eF.."</small></font></h>"
     for i=1,#gpsHeader do zBuffer[#zBuffer+1] = '<th>'..gpsHeader[i]..'</th>' end 
     for i,j in pairs(jGps) do 
         if not ("data user ios "):find(i) then zBuffer[#zBuffer+1] ="<tr><td>"..j.name.."</td>";zBuffer[#zBuffer+1]="<td>"..i.."</td>";zBuffer[#zBuffer+1]="<td>"..j.radius.."</td>" end
     end zBuffer[#zBuffer+1] ="</table>"
  end --if gpsStatus
  if gData.numDeads>0 then if rstDeadRpt>0 and gData.totalDeads~=gData.numDeads then mStr="<br>Since last reset at "..os.date("%d %b %H:%M",gData.rstDeadRpt).." occurred "..gData.numDeads.." out of " else mStr="" end
     zBuffer[#zBuffer+1]="<br><table><h><font size=2>"..sbF.."Dead traffic report:  <small>"..mStr.."total "..gData.totalDeads.." dead events.</small></font></font></h><tr>"
     for i=1,#dHeader do zBuffer[#zBuffer+1]='<th>'..dHeader[i]..'</th>'  end 
     for i,_ in pairs(jF) do tipTxt=""
       zBuffer[#zBuffer+1]="<tr><td class=txtLeft>"..deadColor[api.get("/devices/" .. i)["properties"]["dead"]]..findNameRoom(i,2).."</font> </td>"
       if jF[i].nack >0 then zBuffer[#zBuffer+1]="<td>"..rF..jF[i].nack .."</font></td>" else zBuffer[#zBuffer+1]="<td></td>" end
       if jF[i].total>0 then zBuffer[#zBuffer+1]="<td>"..rF..jF[i].total.."</font></td>" else zBuffer[#zBuffer+1]="<td></td>" end
       tmpStr=api.get("/devices/"..i)["properties"]["dead"];zBuffer[#zBuffer+1] ="<td>"..deadColor[tmpStr]..tostring(tmpStr).."</td>";tmpStr=""
       for j=1,#jF[i].reason do if jF[i].reason[j]:find("wkUp") then tmpStr=tmpStr.."<font color=yellowgreen>("..jF[i].reason[j]..")</font>" else tmpStr=tmpStr.."("..jF[i].reason[j]..")" end end
       zBuffer[#zBuffer+1]="<td class=txtLeft>"..rF..tmpStr:gsub(os.date(" %d %b",os_time()),"").."</td></tr>"
     end zBuffer[#zBuffer+1]="</table>" end -- if gData.numDeads>0 
  if gData.numDeads==0 and gData.totalDeads>0 then zBuffer[#zBuffer+1]="<br><h><font size=3><font color=sandybrown>Dead traffic report:  <br>total "..gData.totalDeads.." dead events occured.</font></font></h>" end
  if gData.zTotal>0 and top.zwave>0 and os.time()-dispGuide<time2disp then local tab=tableSortByKey(jEvent,false,"total")
     zBuffer[#zBuffer+1]="<br><table><h><font size=2><font color=sandybrown>Top "..math.min(top.zwave,#tab).." active master devices:</font></font></h><tr>"
     for i=1,#zHeader do zBuffer[#zBuffer+1]="<th>"..zHeader[i].."</th>" end 
     for i=1,math.min(top.zwave,#tab) do tmpStr=""; for _,k in pairs(jEvent[tab[i]].child) do tmpStr=tmpStr..k[2] end
         zBuffer[#zBuffer+1]="<tr><td class='dropdown' span style='text-align: left;'> "..dColor[tableOrder[1][1]]..jEvent[tab[i]].name..eF.." <span class='dropdown-content'"..menuLen(tmpStr,"left:",true).."</span></td>"
         zBuffer[#zBuffer+1]="<td> "..jEvent[tab[i]].total.." </td><td> "..math.floor(jEvent[tab[i]].total/gData.zTotal*100+.5) .."% </td></tr>" end
         zBuffer[#zBuffer+1]="</table>" end -- if gData.zTotal>0
   if tblRefresh==0 then zBuffer[#zBuffer+1]="<br>"..ygF..string.format("%-27s"," ") .. "Data table auto-refresh disabled.</font>"
   else zBuffer[#zBuffer+1]="<br>"..ygF..string.format("%-27s"," ") .. "Data table auto-refresh, every "..gData.tableTime.." seconds.</font><font color=black> "..os.time()-refreshTime.." </font>" end
  tmpStr=(getLedStatus() or "")..setKeyword("&nbsp&nbspsunHours $sunriseHour~$sunsetHour ","1").."&nbsp&nbsp GMT +"..tonumber(setKeyword("$timezoneOffset")/3600)
  if #runErrBuf>0 and errCnt<3 then zBuffer[#zBuffer+1] ="<div class=drop-menu "..menuLen(table.concat(runErrBuf,"<br>--------------------------------------<br>"),"",true).."</div>" end
   if powerOutage then zBuffer[#zBuffer+1]="<div class=drop-menu style='left:380px;bottom:auto;top:35px;font-size:14px;'>      Ongoing Power Outage <br> <font size=2>All Z-Wave command suspended. <br> System has been set to Vacation mode </font></div>" 
  elseif not atHome then zBuffer[#zBuffer+1]="<div class=drop-menu style='left:380px;bottom:auto;top:35px;font-size:14px;'> System at Vacation mode </div>" end
  mStr='<a href="#" onclick="mainData.scenes['..__fibaroSceneId..'].run(); return false;"><div class="Button1_0 ng-binding" style="position:absolute; margin: -102px 0px 0px 362px;">Refresh</div></a>'
  if not debug then api.delete("/scenes/"..__fibaroSceneId.."/debugMessages") end debug=false
  print(sysStatus.."<font color=darkgrey><small> "..os.date("%d-%b %H:%M",gData.startTime)..cF.." AOS<sup>v"..aosVer.."</sup> "..eF..sceneName..tmpStr.."</small></font><pre>".. mStr.. table.concat(zBuffer).."<br>")  
  initMode=false
  end --=============================== INIT TABLE 
 function setStateFmt(stateStr)
     if not stateStr.state then return end 
     if stateStr.state:sub(1,1):match("[=<>]") then stateStr.state="value"..stateStr.state
     elseif stateStr.state:sub(1,1):match("[@%?]") then stateStr.state="value="..stateStr.state 
     elseif not stateStr.state:match("[=<>!][>=]?") then stateStr.state="value="..stateStr.state end
  end --====================================== setStateFmt 
 function initTable(callType)
  local jmStr,cTime,dType,devNum,delSpace,i,j,jv,k=json.encode(jM),os.date("%H:%M",os_time()),"devices",0,{"property","state","timeSlot"},0,0,"",0
  getIntValue();jGps.user={};jGps.data={};jGps.ios={}; if not gpsDevice then gpsDevice={} end 
  for _,j in ipairs(fibaro:getDevicesId({roomID=0,type="iOS_device"})) do tmpStr=rF
     if tostring(api.get("/devices/"..j)["properties"]["Push"])=="true" then jv=jv..j..","; tmpStr="<font color=darkgreen>" end 
     noteList.sendPush[tostring(j)]=tmpStr..fibaro:getName(j)..eF end 
  if not pushNote[2] or not pushNote[2]:match("%d+") then pushNote[2]=","..jv end
  for _,j in ipairs(api.get("/users/")) do noteList.sendEmail[tostring(j.id)]=j.name..":"..j.email:gsub(j.name,"");jGps.user[tostring(j.id)]=j.name:match("%w+") end 
  if not eMail[2] or eMail[2]:len()==0 then eMail[2]="2" end
  if callType=="getUsers" then return end
  initMode=true;fibaro:debug(ygF.."Gathering "..wF..api.get("/settings/info/")["hcName"].." - "..api.get("/settings/info/")["serialNumber"].."</font> system information...</font>") 
  for i,j in pairs(api.get("/panels/location")) do jGps[tostring(j.id)]=j
    if j.home==true then jGps.data={timestamp=os.time(),geofenceAction="NA",userId=2,deviceId=999,locationId=j.id} end end 
  --jIcons=api.get("/icons")
  jIcons=api.get("/proxy?url=http://127.0.0.1:11111/api/icons")
  for i,j in pairs(api.get("/devices/")) do j.id=tostring(j.id);jDid[j.id]={}
    jDid[j.id].name=j.name;
    if j.type=="iOS_device" then jGps.ios[tostring(j.id)]=j.name end 
    jDid[j.id].room=(j.roomID==0 and "Unassigned" or api.get("/rooms/"..j.roomID)["name"]);
    jDlist["cmd"..j.id]=tableSortByKey(j.actions,"primeSort")   
    if j.parentId and j.properties.nodeId and j.id~="1" then 
      if j.parentId>1 or j.remoteGatewayId>0 then jDlist["numDev"]=jDlist["numDev"]+1;jDlist[j.id]=j.properties.nodeId;jDlist["nId"..jDlist[j.id]]=os_time()
      else jDlist["pId"..j.properties.nodeId]=j.id;jDlist["mId"..j.id]=true;jDlist["phDev"]=jDlist["phDev"]+1 if j.properties.batteryLevel then jDlist["batDev"]=jDlist["batDev"]+1 end end end 
    if j.isPlugin then jDlist[j.id]="plugIn";jDlist["plugIn"]=jDlist["plugIn"]+1;jDlist.pinId=jDlist.pinId..","..j.id.."," end
    if j.type=="virtual_device" then jDlist[j.id]="vd";jDlist["vDev"]=jDlist["vDev"]+1;jDlist.vdId=jDlist.vdId..","..j.id.."," end
  end --for i,j in pairs(api.get("/devices/"))
  for i,j in pairs(api.get("/scenes")) do jDid["_"..j.id]={};jDlist["scenes"]=jDlist["scenes"]+1
     jDid["_"..j.id].name=j.name; jDid["_"..j.id].room=(j.roomID==0 and "Unassigned" or api.get("/rooms/"..j.roomID)["name"]) end
  print(ygF.."Initializing jS2n{}, jP2n{}, global and userKeyWord{} tables...</font>") 
  if not jM or type(jM[1])~="table" then sceneAbort("(40) "..rF.."Attempt to access jM hash table (a nil value)"..eF,{"not defined"},{".jM hash table","See error below"}) end 
  if #userKeyWord[1]~= #userKeyWord[2] then sceneAbort("(41) Number of elements in array doesn't match. <br>Array 1 has '<font color=wheat>"..#userKeyWord[1].." elements</font>'<br>"..json.encode(userKeyWord[1]).."<br>Array 2 has '<font color=wheat>"..#userKeyWord[2].." elements</font>'<br>"..json.encode(userKeyWord[2]),{"not defined"},{".userKeyword table:","See error below"}) end
  for i=1,#userKeyWord[1] do if userKeyWord[1][i]:sub(1,1)~="$" then sceneAbort("(42) keyword '"..wF..userKeyWord[1][i]..eF.."' missing prefix sign'<font color=wheat>$</font>'.",{userKeyWord[1][i]},{".userKeyword table:",json.encode(userKeyWord[1])}) end end 
  parseCmd();
  for j=1,#jM do         
     if type(jM[j][1])~="number" then table.insert(jM[j],1,0) end 
     if jM[j][3] then
             for i=1,#task.state do
             if jM[j][3][task.state[i]] and type(jM[j][3][task.state[i]])~="table" then 
                 jM[j][3][task.state[i]]={jM[j][3][task.state[i]]} end 
      end end --if jM[j][3] then / for i=1,#task.state do
     jM2n[j]="{"..irF..jM[j][1].."</font>, <font color=darkgrey>\""..jM[j][2].."\"</font>...}";jM[j][2]=jM[j][2]:gsub("[%s+]? and [%s+]?","|") end
  jmStr=json.encode(jM); 
  for i=1,#tableOrder[1] do dColor[tableOrder[1][i]]="<font color="..tableOrder[2][i]..">";tableOrder[4][tableOrder[1][i]]=0 end
   if global4local[1] then 
     if not fibaro:getGlobalValue(global4local.gVarName) then sceneAbort("(43) Global Variable '"..wF..global4local.gVarName.."</font>' not found in the system.",{global4local.gVarName,"gVarName"},{".User defined global4local",json.encode(global4local)}) end
     jVar=fibaro:getGlobalValue(global4local.gVarName) 
     if jVar:len()<20 then jVar={} else jVar=json.decode(jVar) end
     --print(ygF.."Local variables ("..wF..json.encode(global4local.varArray):gsub(","," "):gsub("[:]%S+",""):gsub("{","")..eF..") will be saved in global "..wF..global4local.gVarName..eF.." variable ...</font>")
     print(ygF.."Local variables will be saved in system's global "..wF..global4local.gVarName..eF.." variable ...</font>")

     for i,j in pairs(global4local.varArray) do jVar[i]=(tostring(j):match("init:(.*)") or jVar[i])
         jVar[i]=jVar[i] or j;jVar[i.."lTime"]=jVar[i.."lTime"] or os_time() end 
     --else print(lpF.."Global not defined. Local variables ("..wF..json.encode(global4local.varArray):gsub(","," "):gsub("[:]%S+",""):gsub("{","")..eF..") "..rF.."won't be saved"..eF.." for next run...</font>")
   else print(lpF.."Global not defined. Local variables "..rF.."won't be saved"..eF.." for next run...</font>")

     jVar=json.decode(json.encode(global4local.varArray));for i,j in pairs(global4local.varArray) do jVar[i]=tostring(j):gsub("init:","");jVar[i.."lTime"]=os_time() end end
  if global4local[1] then fibaro:setGlobal(global4local.gVarName,json.encode(jVar)) end
  for j,i,k in jmStr:gmatch("(.)([&][%w_]+)(.)") do if jS2n[i:match("[&]([%w_]+)")] then sceneAbort("(44) Duplicate name "..wF..i:match("[&](%w+)")..eF.." found for global and jS2n{} table variable "..wF..i:match("[&](%w+)").."="..jS2n[i:match("[&](%w+)")]..eF.."<br>Please change one of the names.",{i:match("[&](%w+)")}) end end
  tmpStr=""; mCnt=0
  for j,i in pairs(sysKeyWord) do tmpStr=tmpStr..j.."\""  end
  for i in jmStr:gmatch("([$][%w_.]+)") do 
    if i:find("$geo") then gpsStatus=true end
    if i:find("$math") then mCnt=mCnt+1; jmStr=jmStr:gsub(i,"$math"..mCnt)
        sysKeyWord["$math"..mCnt]=i:match("$math([%d.]+)"); i="$math"..mCnt;tmpStr=tmpStr..i.."\""  end    
    jDid[i]={};jDid[i].name="Keyword";
    jDid[i].room=(tmpStr:find(i) and "sysKey" or json.encode(userKeyWord[1]):find(i) and "usrKey"  or "")
    --jDid[i].room="Variable"; 
    if not (tmpStr..json.encode(userKeyWord[1])):find(i.."\"") then sceneAbort("(62) Keyword ("..wF..i..eF..") not found.<br>Available system keywords:<br>"..wF..tmpStr:gsub("[\",]"," ")..eF.."<br>Available user keywords:<br>"..wF..json.encode(userKeyWord[1]):gsub("[\",]"," ")..eF,{i.." "}) end end
  if global4rmd[1] then jMem=fibaro:getGlobalValue(global4rmd.gVarName)
     if not jMem then sceneAbort("(61) Reminders Global variable '"..wF..global4rmd.gVarName.."</font>' Not found in the system.",{global4rmd.gVarName,"gVarName"},{".User defined "..rF.."global4rmd"..eF,json.encode(global4rmd)}) end
     print(ygF.."Reminders will be saved in global "..wF..global4rmd.gVarName..eF.." variable ...</font>");fibaro:sleep(250)
     if json.encode(jMem):len()< 20 then jMem={}  else jMem=json.decode(jMem) for i=1,#jMem do jMem[i].lTime=os_time() end end
  else print(lpF.."Global not defined. Reminders "..rF.."won't be saved"..eF.." for next run...</font>");fibaro:sleep(250) end 
  print(ygF.."Parsing jM["..#jM.."] hash table data...</font><span style=text-align:left>") 
  if jS2n then for k=1,5 do for i,j in pairs(jS2n) do jN2s[tostring(j)]=i;jmStr=jmStr:gsub("`"..i.."`",j) end end end --jM=json.decode(jmStr)
  if jP2n then for k=1,3 do for i,j in pairs(jP2n) do jmStr=jmStr:gsub("`"..i.."`",j) end end end 
  jM=json.decode(jmStr)
   for j,jv in ipairs(jM) do 
    if not jv[2] then sceneAbort("(47) Syntax error in table array line "..j.." (wrong number of elements)<br>"..wF.."{25, \"|823|765|\",{state=\"value=true\", trueAct={\"|792|\",\"trunOn\",\"\"}}}"..eF,{"{","}"},j) end
    checkAlias(json.encode(jv),j);checkIdVal(json.encode(jv),j)
    jv[2]=jv[2]:gsub(" ","");devNum=0
    for tblId in string.gmatch(jv[2],"['_$&]?[%w_]+") do  
       i=((jDlist[tblId] or tblId:find("[$&]")) and tblId..">"..j or tblId)
       jT[tableId(tblId)]=jT[tableId(tblId)] or {room={},idNum={},rowspan={},loc=""}
       jT[tableId(tblId)].idNum[#jT[tableId(tblId)].idNum+1] = i
       if #jT[tableId(tblId)].idNum==1 then jT[tableId(tblId)].rowspan[i] = true else jT[tableId(tblId)].rowspan[i] = false end
       if i:find("_") and tonumber(realId(i))==__fibaroSceneId then sceneAbort("(49) Scene ID ("..wF..realId(i) ..eF..") is the current scene and it's prohibited to use.",i) end 
       if jD[i] then sceneAbort("(50) Duplicated "..jD[i].idType.." ID ("..wF.. realId(i) ..eF..") in table.<br>Previous occurance in jM hash table:"..jD[i].lineNum..":<br>"..wF..jM[jD[i].lineNum][2]:gsub(i,rF..i..eF)..eF,{i},j) end 
       jD[i]={lAct={},lineNum=j,timeSpanOn=false,pRef={armed=""},cfg="",userTerms="",timeSlot=nil,timeSlotOrg=nil,onClock=0;property=nil,lState=false,
            state=4,stateValue="",stateOper="",idType="na",id=realId(tblId),active=true;trigAll=false;trigOn=false;
            initOnStartup=true,lVal={""},inVal="",total=0,lTime=os_time(),status=1,tstRate=jv[1],tstRateOrg=jv[1],maxTime=0,maxTimeStamp=os_time(),instances=0,maxInstances=0;tAlerts=0,alertTime={};lag=0,lagStr="",lagTime=os_time()}
       if i:find("$geo") then jD[i].trigAll=true;jD[i].initOnStartup=false end
       if jD[i].tstRate<0 then jD[i].status=4;jD[i].initOnStartup=false end;--jDid[i]={}
       if jv[3] then 
         for ds=1,#task.rule do if jv[3][task.rule[ds]] then tmpStr=json.encode(jv[3][task.rule[ds]]):gsub("[ ]?[<=>][ ]?",function(a) return a:gsub(" ","") end);jv[3][task.rule[ds]]=json.decode(tmpStr) end end
         for k =1,#task.all  do if jv[3][task.all[k]]~=nil then jD[i][task.all[k]]=jv[3][task.all[k]] end end
       else jv[3]={nil} end
       for j1,i1,k1 in json.encode(jv):gmatch("(.)([&][%w_]+)(.)") do 
          jDid[i1]={};jGvar[i1]=fibaro_getGlobalValue(i1,j1..k1);jDid[i1].name=fibaro_getGlobalValue(i1,"?");jDid[i1].room="Variable" end
       setStateFmt(jv[3])
       checkData(jv[3],i,jv[2],j);devNum=devNum+1;--jDid[i]={};jDid[i].name,jDid[i].room=setNameRoom(i)
    --   if jD[i].timeSlot then jD[i].timeSlot=jD[i].timeSlot:gsub(" ","") end
       if jD[i].timeSlot then jD[i].timeSlot=extractTimeSlot(jD[i].timeSlot) end;
       jD[i].timeSlotOrg=jD[i].timeSlot;jD[i].onClock=to_number(jD[i].onClock)
       jT[tableId(tblId)].room[#jT[tableId(tblId)].room+1]=jDid[tableId(i)].room
       if jD[i].property  then jD[i][jD[i].property]={value=tostring(api.get("/devices/"..tblId)["properties"][jv[3].property]),lTime=os_time()};jD[i].property=jv[3].property;jD[i].userTerms=jv[3].property;jD[i].state=1
       if jD[i][jD[i].property].value:find("table") then jDlist[jD[i].property..realId(i)]="TBR"; jD[i][jD[i].property].value="TBR" end
       if  jD[i].property:lower():find("scene") then jD[i].trigAll=true;jD[i].initOnStartup=false end
       elseif jv[3].state then jD[i].state=2
          jD[i].stateOper=jv[3].state:match("[=<>!][>=]?") 
          tmpStr,jD[i].stateValue=jv[3].state:match("(.-)"..jD[i].stateOper.."(.*)");
          if jD[i].stateValue:find(" or ") then jD[i].stateValue="|"..jD[i].stateValue:gsub(" or ","|") .."|" end
          if jD[i].stateValue:match("[%(%+%-%*/@&%$]") and not jD[i].stateValue:match("%b??") then 
       if jD[i].stateValue:find("#") then jD[i].stateValue=("?"..jD[i].stateValue):gsub("#","?#") 
        else jD[i].stateValue="?"..jD[i].stateValue.."?" end  end  
          if tmpStr:sub(1,1)=="+" then tmpStr=tmpStr:sub(2) end         
          if tmpStr=="state" or tmpStr=="status" then jD[i].property=tmpStr:gsub("stat","Stat")
             else jD[i].property=tmpStr end      
          if  jD[i].property:lower():find("scene") then jD[i].trigAll=true;jD[i].initOnStartup=false end
          jD[i].userTerms=jD[i].property..jD[i].stateOper 
          if jD[i].stateValue:find(dly) then jD[i].lag=to_number(string.sub(jD[i].stateValue,jD[i].stateValue:find(dly)+1));jD[i].lagStr="<sup>"..dly..jD[i].lag.."</sup>" 
             jD[i].stateValue=jD[i].stateValue:sub(1,jD[i].stateValue:find(dly)-1) end 
          if jD[i].idType=="Keyword" then jD[i][jD[i].property]={value=tostring(setKeyword(tableId(tblId))),lTime=os_time()} end
          if jD[i].idType=="Variable" then jD[i][jD[i].property]={value=tostring(fibaro_getGlobalValue(realId(tblId))),lTime=os_time()} end
          if ("Z.Device Plugin V.Device"):find(jD[i].idType) then jD[i][jD[i].property]={value=tostring(api.get("/devices/"..tblId)["properties"][jD[i].property]),lTime=os_time()} if jD[i][jD[i].property].value:find("table") then jD[i][jD[i].property].value="TBR" end  end
       elseif i:find(">") then jD[i].state=3;
            if i:find("[$&]") then jD[i].property="value" else jD[i].property="n/a" end 
           jD[i][jD[i].property]={value="-",lTime=os_time()} 
        end
       if jD[i].idType:find("Scene") then jD[i].maxInstances=api.get("/scenes/"..jD[i].id)["maxRunningInstances"] end
       if jD[i].idType:find("Auto") then jD[i].instances=1 end
     end --for tblId in string.gmatch(string.gsub(jv[2
  end --for j,jv in ipairs(jM) do
  for _, i in pairs(jT) do 
     for j=1,#i.room do jI[#jI+1]=i.room[j]..":"..i.idNum[j]..":" end end; table.sort(jI); tmpStr=""
  for j=1,#jI do i=jI[j]:match("%b::"):sub(2,-2) if i:match("%w+")==tmpStr:match("%w+") then jT[tableId(i)].rowspan[i]=false else jT[tableId(i)].rowspan[i]=true end;tmpStr=i end
   for j,_ in ipairs(jM) do for i,k in string.gmatch(json.encode(jM[j]),"([_&%$]?%w+[_]?%w+)>(%d+)") do --"[!|]([&%$]?%w+>%d+)") do
       if i:find("[&%$]") or (i:match("%d+") and not i:match("%a+")) then i=i..">"..k
         if tonumber(k)>#jM then sceneAbort("(45) Reference to line "..i:match(">(%d+)").." in '"..wF..i..eF.."' is "..rF.."out of jM hash table range."..eF.."<br> jM hash table range is 1-"..#jM,{i},j) end
         if not jD[i] then sceneAbort("(46) Reference to '"..wF..i..eF.."' not found in jM hash table.<br> ID list in jM hash table line "..i:match(">(%d+)")..": \""..jM[tonumber(i:match(">(%d+)"))][2].."\"",{i},j) end end
  end end
 
  onTime(); print("<font color=yellowgreen>Initializing devices state...</font>") 
  for j=1,#jM do if jM[j][3] then jM2n[j.."act"]=logJmLine(json.encode(jM[j][3]):gsub("\":","\"="):gsub(":%[","={"):gsub("[%[%]\\]",function (a) return a:find("%[") and "{" or a:find("%]") and "}" or a:find("\\") and "" end)) else jM2n[j.."act"]="{ no rules or actions defined }" end end
  for j=1,#jM do for i,_ in pairs(jD) do  
     if j==1 then jN2s[tableId(i)]=(jN2s[tableId(i)] or tableId(i));
       tmpStr=(jM2n[jD[i].lineNum]:find(jN2s[tableId(i)]) and jN2s[tableId(i)] or tableId(i))
       jD[i].jm2=jM2n[jD[i].lineNum]:gsub(tmpStr,ygF..tmpStr..eF)
       for k=4,#task.rule do 
         if jM2n[jD[i].lineNum.."act"]:find(task.rule[k]) then dataCol["Active Rules"]=true;tmpStr=tostring(jD[i][task.rule[k]]) if type(jD[i][task.rule[k]])=="table" then jD[i].rules=(jD[i].rules and jD[i].rules..ygF..task.rule[k]..eF.." " or ygF..task.rule[k]..eF.." ") else jD[i].rules=(jD[i].rules and jD[i].rules..trueFalseColor[tmpStr]..task.rule[k].."</font> " or trueFalseColor[tmpStr]..task.rule[k].."</font> ") end end end
       end
      if jD[i].initOnStartup and jD[i].state==2 and jD[i].lineNum==j and jD[i].status~=3 then mStr="I"  
      if jD[i][task.all[jD[i].status]] and not jD[i].initAct then mStr="I"..task.all[jD[i].status]:sub(1,1)
         setInitAct(jD[i][task.all[jD[i].status]],i,task.all[jD[i].status]) end 
      if jD[i].initAct then dataCol.initAct=true;jAct[i]={act=json.decode(json.encode(jD[i].initAct)),actState="initAct",lTime=0,type=mStr};runAction();onTime() end end end 
  end tmpNum=0
  print(ygF.." data initialization is <font size=5>&#9786</font>, validation is in progress... ~"..math.floor(#jmStr/400+.4) .." sec.</font>")
  for j=1,#tableOrder[1] do tmpStr=" "..tableOrder[4][tableOrder[1][j]];tmpNum=tmpNum+tableOrder[4][tableOrder[1][j]]
     gData.idList=gData.idList.."  "..string.format("%-16s",tableOrder[1][j])..tmpStr:gsub(" 0"," - ").."<br>" end; gData.idList=menuLen(gData.idList.."----------------------<br>  "..string.format("%-17s","Total")..tmpNum,"right:-",true)
  sysInventory="<h><span class='dropdown'> "..sbF.."<font size=3><u>" ..api.get("/settings/info/")["hcName"].."</u><div class='dropdown-content' style='width:160px;left:15px'>"..bF.."    System Inventory </font><br><br>"..string.format("  %-18s","Z-Wave devices")..jDlist.numDev.." <br>"..string.format("  %-18s","Physical devices")..jDlist.phDev.." <br>"..string.format("  %-18s","Battery capable")..jDlist.batDev..
   " <br>"..string.format("  %-18s","Virtual devices")..jDlist.vDev.." <br>"..string.format("  %-18s","PlugIns")..jDlist.plugIn.." <br>"..string.format("  %-18s","Scenes")..jDlist.scenes.."</div></span><sup>"
  dispInfo() end --============================= logValue 
 function checkIdVal(lStr,lNum)
    if not lStr:find("@") then return end
    local inId,i,j,aName=nil,0,0,""
    for i in lStr:gmatch("[@][%w_']+[>]?%w+") do inId=i:match("[@]([%w_']+)"); aId=jN2s[inId]
        if not i:match("[>]%w+") then 
        sceneAbort("(52) Syntax error in "..wF..i..eF.." property not defined.<br>Format is: @[Device] > [property]<br>e.g. "..wF.."@"..inId..">value"..eF..(aId and " or "..wF.."@`"..aId.."`>value"..eF or ""),{i},lNum) end 
        if not jDid[inId] then tmpStr=""
            if jS2n[inId] then tmpStr="An alias has found in jS2n table "..wF..inId.."="..jS2n[inId]..eF.."<br>Please add back quotes for proper use.<br>e.g. "..wF.."@`"..inId.."`"..i:match(">%w+")..eF.." or "..wF.."@"..jS2n[inId]..i:match(">%w+")..eF end 
            sceneAbort("(96) Device ID "..wF..inId..eF.." not found.<br>"..tmpStr,{i},lNum) end 
    end
  end
 function checkAlias(lStr,lNum)
    local aName=lStr:match("(`[%w_]+`)");
    if aName then 
        sceneAbort("(48) Alias "..wF..aName.."</font> not found. Available aliases<br>jS2n table:<br> "..ygF..json.encode(jS2n):gsub("[{\"}]",""):gsub(":","=")..eF.."<br>jP2n table<br> "..ygF..json.encode(jP2n):gsub("[{\"}]",""):gsub(":","=")..eF,{aName},lNum) end 
    aName=lStr:match("(`%w+)")
    if not aName then aName=lStr:match("(%w+`)") end
        if aName then sceneAbort("(95) Syntax error at alias "..wF..aName.."</font>. Missing back quote mark (`)",{aName},lNum) end 
  end
 function logValue(inId,property,newValue) local i,tblId=0,""
  if not jT[inId] then return end
   if property =="state" or property=="status" then property=property:gsub("stat","Stat") end
   for i=1,#jT[inId].idNum do tblId=jT[inId].idNum[i]
      if jD[tblId].pRef[property]~=nil then jD[tblId].pRef[property]=newValue end
      if jD[tblId].property:find(property) then jD[tblId][property].value=tostring(newValue);setTickTime(tblId);jD[tblId].trigOn=true
         if jD[tblId].state~=2 then jD[tblId].lTime=os_time() end end 
      if jD[tblId].state==3 then jD[tblId].property=property if not jD[tblId][property] then jD[tblId][property]={} end  
         jD[tblId][property]={value=tostring(newValue),lTime=os_time()};jD[tblId].lTime=os_time() end
      if not initMode and os_time()-jD[tblId].lagTime>0 then jD[tblId].lagTime=os_time()+jD[tblId].lag end
     onTime(tblId) end runAction()
  end --============================= lastState 
 function setTrigOn(inId)
     local i
     for i,_ in pairs(jD) do if i:find(inId) then jD[i].trigOn=true;onTime(i); runAction() end end
  end --============================= setTrigOn
 function lastState(lState)
   local i,v,k,i1,idStr,_status,tblId=0,0,0,0,"","",""
       zmStr=""
       if fibaro:countScenes()==2 and checkOnScreen("Please wait while") then gData.tableTimeStamp=0;dispGuide=os.time();errCnt=errCnt+1; end  
       lastRefresh=lState.last;xRef=os.clock()
       for _, v in pairs(lState.events) do 
         if v.type=="CentralSceneEvent" then v.data.id=tostring(v.data.deviceId); v.data.property="centralSceneSupport"; v.data.newValue=v.data.keyId.."."..v.data.keyAttribute; jDlist["centralSceneSupport"..v.data.id]=v.data.newValue end 
         if ("DevicePropertyUpdatedEvent CentralSceneEvent"):find(v.type) and jDlist[tostring(v.data.id)] and not notZwave:find(" "..v.data.property.." ") then v.data.id=tostring(v.data.id)
            v.data.newValue=(type(v.data.newValue)=="number" and v.data.newValue or type(v.data.newValue)=="table" and "table" or ctlChar(v.data.newValue,true))
            logEvent(v.data.id);idStr=findNameRoom(v.data.id).."("..tostring(v.data.newValue).."<sup>".. v.data.property.."</sup>)  "
            if jT[v.data.id] and not v.data.property:find("dead") then logValue(v.data.id,v.data.property,v.data.newValue);zmStr=zmStr..dColor[jD[jT[v.data.id].idNum[1]].idType]..idStr..eF
            elseif v.data.property:find("dead") then zmStr=zmStr.."<font color=firebrick>"..idStr..eF
               if v.data.property=="deadReason" then logDead(v.data.id,v.data.newValue) end; 
            else zmStr=zmStr..idStr end 
         elseif v.type=="GeofenceEvent" and gpsStatus then print("geofence = "..json.encode(v.data))
                if gpsDevice[tostring(v.data.deviceId)]=="skip" then
                    prtLine(grF.."{SKIP} "..eF..rF.."GPS event for mobile "..eF..lgF..v.data.deviceId.." : "..jGps.ios[tostring(v.data.deviceId)]..eF..rF.." has been ignored"..eF.." => "..rF.."no actions"..eF)
                else jGps.data=v.data;setTrigOn("$geoAction") end
         elseif v.type=="SceneRunningInstancesEvent" and v.data.runningInstances >0 then tblId=tostring("_"..v.data.id);
              if jD[tblId] then setTickTime(tblId);jD[tblId].lTime=os_time();jD[tblId].instances=math.max(jD[tblId].instances,v.data.runningInstances)
                 if jD[tblId].trigAct and jD[tblId].tstRate>=0 then jAct[tblId..":trig"]={act=json.decode(json.encode(jD[tblId].trigAct)),actState="trigAct",lTime=os_time(),type="G"} end end
              if v.data.id~=__fibaroSceneId and jDid[tblId] and not zmStr:find(findNameRoom(tblId):gsub("%-","%%-")) then zmStr=zmStr..(jD[tblId] and dColor[jD[tblId].idType] or "")..findNameRoom(tblId).."<sup>"..v.data.runningInstances.."</sup>"..(jD[tblId] and "</font>  " or "  ") end 
       end end ---- if v.type   for i, v in pairs(lState
     for _, v in pairs(lState.changes) do if not v.log or not v.id then goto nextChange else v.id=tostring(v.id) end
       if jDlist.vdId:find(","..v.id..",") and not v.log:find("transfer") then --virtual device
         if jT[v.id] and v.log:len()>3 then logValue(v.id,"log",v.log);zmStr=zmStr..dColor[jD[jT[v.id].idNum[1]].idType]..findNameRoom(v.id).."("..v.log.."<sup>log</sup>)</font>  "
         elseif  v.log:len()>3 then zmStr=zmStr..findNameRoom(v.id).."("..v.log.."<sup>log</sup>)  " end 
       elseif jDlist[v.id] then  
           if v.log:find("transfer") and not v.value then logEvent(v.id)
              if v.log:find("failed") then logDead(v.id,gData.transfer);zmStr=zmStr.."<font color=firebrick>"..findNameRoom(v.id).."("..v.log.."<sup>log</sup>)</font>  "
              elseif not v.log:find("OK") then zmStr=zmStr.."<font color=pink>"..findNameRoom(v.id).."("..v.log.."<sup>log</sup>)</font>  " end end --if v.log:find("transfer") and not v.value then
       end -- if jDlist.vdId:find(","..v.id..",") 
     ::nextChange:: end -- for i, v in pairs(lState.changes) do average
     onTime();runAction();xTime.avg=os.clock()-xRef;xTime.max=math.max(xTime.max,xTime.avg);if xTime.avg>0 then xTime.min=math.min(xTime.min,xTime.avg) end
   --end --[[ for k=1,]]
   if wakeUpRate>0 and clockTime(wakeUpRate) and gData.numDeads>0 then wakeUpDead() end
   if gData.zTotal-zw.lNum>zw.rate then zw.lNum=gData.zTotal;zw.min=math.max(zw.min,(os.time()-zw.lTime)/zw.rate);zw.max=math.min(zw.max,(os.time()-zw.lTime)/zw.rate);zw.lTime=os.time() end
   if clockTime(20) then collectgarbage(); wdtReset() end --setParams("","999>999","reload")
   for i,_ in pairs(jD) do ------==== check automatic scenes 
     if jD[i].idType:find("Auto") and os_time()-jD[i].lTime>(jD[i].tstRate*60*.3) 
      and api.get("/scenes/"..jD[i].id)["runningInstances"] > 0 then jD[i].lTime = os_time();jD[i].total=jD[i].total+1
          jD[i].instances=math.max(jD[i].instances,api.get("/scenes/"..jD[i].id)["runningInstances"])
          zmStr=zmStr..dColor[jD[i].idType]..findNameRoom(i).."</font>  " end
   end --[[ for k=1,25]] 
   if tblRefresh==0 then if gData.tableTimeStamp==0 then dispInfo() end
   elseif os_time()-gData.tableTimeStamp>gData.tableTime then dispInfo() end 
   end --============================= lastState  
 --Main 
  local startSource,dMsg=fibaro:getSourceTrigger(),api.get("/scenes/" .. __fibaroSceneId .. "/debugMessages")
  if (fibaro:args()~=nil) and fibaro:args()[1]=="restart" then fibaro:sleep(2000) end --end
  if not ("autostart other"):find(startSource["type"]) and fibaro:countScenes()==1 then --~="autostart" and startSource["type"] ~="other" then
   if not checkOnScreen(sceneName.." failed") then if #dMsg==0 or not dMsg[#dMsg].txt:find(".lua:") then dMsg={{}};dMsg[1].txt="/opt/fibaro/scenes/ debug info not available " end 
     initTable("getUsers");sendNote(sceneName.." (Failed)",sceneName.." failed at "..os.date("%c",os_time()).."\nlast debug message:\n"..dMsg[#dMsg].txt:match("/opt/fibaro/scenes/.*"):gsub("'"," "):gsub("lua:","lua;")) end
   if autoRestart then homeTts("Warning! "..sceneName.." failed and restarted");fibaro:startScene(__fibaroSceneId,{"restart"});
   else homeTts("Warning! "..sceneName.." failed") end print(sceneName .." failed");fibaro:abort()
  elseif fibaro:countScenes()==1 then api.delete("/scenes/" .. __fibaroSceneId .. "/debugMessages");initTable();getLastState(1);setInterval(function() getIntValue() end,240000) 
  elseif fibaro:countScenes()==2 and startSource["type"]=="other" then api.delete("/scenes/" .. __fibaroSceneId .. "/debugMessages")
   print("<font color=yellowgreen><font size=2>Please wait while generating table view...</font></font>")
   x=os_time();while not checkOnScreen("auto%-refresh",false) and os_time()-x < 40 do end
   if os_time()-x >= 40 then 
     if fibaro:countScenes()==1 then print("<font color=red>Somethinng went wrong! The scene has been aborted. Please restart the scene.</font>") 
     else print("<font color=yellow>Somethinng went wrong! Please repeat last action.</font>") end 
   fibaro:abort() end
  else fibaro:abort() end