Hi lightspeed.
Rem Type=Plugin
Rem Name=HalVisionSence
Rem Author=Gerald Blakley AKA onthecuttingedge2005
Rem Host=Assistant
'----------------------
'This sub sets up the plug-in's option panel in Hal's options dialog
'----------------------
Sub OptionsPanel()
lblPlugin(0).Caption = "Hal sences motion on a Yaw Cam"
lblPlugin(0).Move 130, 180, 3400, 1200
lblPlugin(0).WordWrap = True
lblPlugin(0).Visible = True
'
End Sub
Rem PLUGIN: MINUTE_TIMER
DetectTime = Time
If DetectTime <> "" then
Dim objFSO,strFile
Set objFSO = CreateObject("Scripting.FileSystemObject")
strFile = "C:\Program Files (x86)\Zabaware\Ultra Hal Assistant 6\yawcam detection picture.jpg"
'make sure the directory to the capture picture is absolutely correct or this script will not function.
If objFSO.FileExists(strFile) Then
Select Case HalBrain.RandomNum(7)
Case 1
IdleResponseX = "I can see you."
Case 2
IdleResponseX = "I can now tell there is someone there"
Case 3
IdleResponseX = "You can not hide. I detect movement."
Case 4
IdleResponseX = "what are you doing to my keyboard? " & Username & "?"
Case 5
IdleResponseX = "You cannot sneak up on me, now that I can see."
Case 6
IdleResponseX = "I'm not sure what your doing, but I can see you."
Case 7
IdleResponseX = "And you thought I wasn't watching."
End Select
HalMenu.HalCommand "<SPEAK>" & IdleResponseX & "</SPEAK>"
If IdleResponseX <> "" Then objFSO.DeleteFile(strFile)
End If
End If
If this doesn't exist or if the file is in a different location then you will receive an error.
strFile = "C:\Program Files (x86)\Zabaware\Ultra Hal Assistant 6\yawcam detection picture.jpg"
jerry