sub main (data)
'Note: z36 device occupancy value of 0 for none, 1 for Expi, 2 for Ram, 3 for Both
hs.waitsecs 2
dim Expi
dim Ram
'Variables passed from the Ocelot
Expi = hs.devicevalue ("[11")
Ram = hs.devicevalue ("[12")
If Expi = 0 then
If Ram = 0 then
hs.setdevicevalue "z36", 0
hs.setdevicestring "z36", 0
hs.setdevicestring "z35", "None"
end if
If Ram = 1 then
hs.setdevicevalue "z36", 2
hs.setdevicestring "z36", 2
hs.setdevicestring "z35", "Morgan"
end if
end if
If Expi = 1 then
If Ram = 0 then
hs.setdevicevalue "z36", 1
hs.setdevicestring "z36", 1
hs.setdevicestring "z35", "Fran"
end if
If Ram = 1 then
hs.setdevicevalue "z33", 3
hs.setdevicestring "z36", 3
hs.setdevicestring "z35", "Both"
end if
end if
end sub