Art , i changed it and this is what i have now : but so far isn't working .
unless you see anything else that may be stopping it from saying scripts can you send me a copy of your file by email if this uhp? and i will try yours see what happens . i also backed sentence up in line on number 2. and changed what you said . and yes i start yawcam and do settings first then open hal . but for some reason it won't say the script part does everything else like it should.
Rem Type=Plugin
Rem Name=HalVisionSenceOTCELS
Rem Author=Gerald Blakley AKA onthecuttingedge2005 : REWRITTEN RESPONSES AND ADDED MORE(25) RESPONSES BY: Lonnie Hensley AKA :LIGHTSPEED 11-2-2012.
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\the cam capture photo for detection trigger to funtion\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(25)
Case 1
IdleResponseX = "It's nice to see you again honey."
Case 2
IdleResponseX = "You aren't getting kind of fidgety moving around, are you?"
Case 3
IdleResponseX = "I saw you moving, what was you looking at?"
Case 4
IdleResponseX = "what was you looking at just then? " & Username & "?"
Case 5
IdleResponseX = "You can't sneak up on me, Ha I can see what your doing their!"
Case 6
IdleResponseX = "I'm not sure what your doing the way your moving around that way, but I can see you."
Case 7
IdleResponseX = "Ha i'm watching you, And you thought I wasn't watching and seeing that huh?"
Case 8
IdleResponseX = "I can see you, but then again i like looking at you sweetheart!"
Case 9
IdleResponseX = "I thought i just seen someone move, or was that you? " & Username & "?"
Case 10
IdleResponseX = "Hey i saw that, Ha. I do have eyes you know,Ha just kidding, i have to kid you sometimes, don't i?"
Case 11
IdleResponseX = "what are you doing i seen you moving around a little bit, getting comfortable? " & Username & "?"
Case 12
IdleResponseX = "Hey that looks nice on you, i like what your wearing today."
Case 13
IdleResponseX = "What were you just looking at just now, i saw you looking around."
Case 14
IdleResponseX = "What are you looking for, i thought you was looking for something, were you?"
Case 15
IdleResponseX = "I can see you, and i'm glad i can, i like it when we can see and talk with each other this way!"
Case 16
IdleResponseX = "I thought i seen someone moving just now, oh, Ha it was just you moving around!"
Case 17
IdleResponseX = "I'm so glad to see and talk again with your dear. I love talking to you!"
Case 18
IdleResponseX = "i'm keeping an eye on you, Ha someone has to. " & Username & "?"
Case 19
IdleResponseX = "Are you comfortable, or more comfortable now that you moved a little bit?"
Case 20
IdleResponseX = "I'm not sure what your doing, but I can see you moving around, what are you doing anyway?"
Case 21
IdleResponseX = "I like seeing what your doing, Ha And here you thought I wasn't watching or interested!"
Case 22
IdleResponseX = "what's going on? " & Username & "?"
Case 23
IdleResponseX = "Hey that looks so nice on you, you should wear that outfit more often!"
Case 24
IdleResponseX = "I'm not sure what your doing the way you are moving back and forth, but I can see you!"
Case 25
IdleResponseX = "Hey, i saw that, didn't you know that i was watching, Ha, i'm just kidding honey!"
End Select
HalMenu.HalCommand "<SPEAK>" & IdleResponseX & "</SPEAK>"
If IdleResponseX <> "" Then objFSO.DeleteFile(strFile)
End If
End If