Puzzled Script conditions being ignored

[Gogs]

The followsing scipt all conditions are ignored.

sub main()

Dim a
    Dim b
    Dim c
    Dim d
        Dim x




x = Replace(x,"-","minus ") 
hs.speak "Good "& TimeOfDay() & ".. The time is " & myTime() & "..It is" & WeekdayName(DatePart("w", Date)) & MonthName(DatePart("m", Date))& ",,the" &  myday() & "," & "and the current outside temperature is $$Dsr:408: .."

  If hs.IsOff(335) Then
        hs.Speak "..Gordon is at $$DSR:58:" & "$$DSR:50:"
end if
  If hs.IsOff(440) Then
        hs.Speak "..Suzanne is at $$DSR:438:" & ".$$DSR:430:.."
end if
  If hs.IsOff(68) Then
        hs.Speak "Landy is at $$DSR:46:" & ".$$DSR:38:"
end if
end sub

Abiet the divices being checked do not have "off" in the deviced string, they have "Not Near" although the valie is 0 Off.

Anyone through any light on my problem?

Thanks

[Steve Q]

You might try replacing hs.isOff. With hs.devicevaluex. I'm not sure that hs.isOff works with HS3.

Steve Q


Sent from my iPad using Tapatalk

[Gogs]

You might try replacing hs.isOff. With hs.devicevaluex. I'm not sure that hs.isOff works with HS3.

Steve Q


Sent from my iPad using Tapatalk

Thanks Steve, tried that, had no effect on HS3 at all, no errors nothing, just ignored.

[Rupp]

See this post for a working example:
http://board.homeseer.com/showthread.php?t=162986

[Gogs]

See this post for a working example:
http://board.homeseer.com/showthread.php?t=162986

Great link, thanks Rupp, one small problem I require to use the refferance code as the divices are not X10.