' Acknowledge.txt - 2000/01/23 Glenn Reimche (control@corpacc.com)
'
' Lets HomeSeer say random acknowledgements to voice commands
'
' Also occasionally will include your name in the response
' Set name = "" if you don't want this feature
'
' To Use: Insert a line in your script(s):
'                #include acknowledge.txt
'         Wherever you want a voice acknowlegement, add command:
'                acknowledge()
'
' To add phrases, increase the array value in the 
' dim phrase(9) statement by the number of phrases you're adding,
' then add the statements phrase(9) = "xxx xxx", etc.
'

sub acknowledge()

   dim phrase(9), name, choice, choices, say

   name = ", Glenn."

   choices = Ubound(phrase) - 1

   phrase(1) = "No problem "
   phrase(2) = "Right away "
   phrase(3) = "You got it "
   phrase(4) = "OK "
   phrase(5) = "I'm on it "
   phrase(6) = "As you wish "
   phrase(7) = "Of course "
   phrase(8) = "Gladly "

   Randomize

   choice = Int((choices * Rnd)) + 1

   say = phrase(choice)

   IF Int((5 * Rnd) + 1) = 1 THEN
      say = say + name
   END IF

   hs.speak say

End Sub