alias occupancy d0
alias daylight d1

define HASHCONSOLE HASH("StructureConsole")
define HASHMONITOR HASH("StructureConsoleMonitor")
define HASHLED_S HASH("StructureConsoleLED5")
define HASHWIDELIGHT HASH("StructureLightLongWide")
define HASHLONGLIGHT HASH("StructureLightLong")

start:
yield

l r0 occupancy Activate

sb HASHCONSOLE On r0
sb HASHLED_S On r0
sb HASHMONITOR On r0

bdns daylight noday

l r1 daylight Vertical
s db Setting r1
slt r1 r1 90

and r0 r1 r0

noday:
sb HASHWIDELIGHT On r0
sb HASHLONGLIGHT On r0

j start