This is the current uhp plug in i am using i am getting no errors.
also here is pics showing the web camera yawcam settings and it working motion detection {that's the blue look around face ) . and the pathway folder and that a motion picture is going into the destination folder i have.
Rem Type=Plugin
Rem Name=HalVisionX3
Rem Author=
Rem Host=Assistant
'This sub setups the plug-ins option panel in Hal's options dialog
Sub OptionsPanel()
lblPlugin(0).Caption = "Add anything you wish in this plugin and it will be called every instance Hal's movement in your primary WebCam,"
lblPlugin(0).Move 120, 10, 3300, 1000
lblPlugin(0).WordWrap = True
lblPlugin(0).Visible = True
End Sub
Rem PLUGIN: POST-PROCESS
'********************************************************************************
'Manditory....Do NOT DELETE
'Dim fso, fso2, D1
'Current Hal Directory
Set fso = CreateObject("Scripting.FileSystemObject")
MyDir = fso.GetAbsolutePathName(".") & "\"
Set fso = CreateObject("Scripting.FileSystemObject")
Set objTextFile = fso.OpenTextFile(MyDir & "UserCom.txt", 2, True)
objTextFile.WriteLine(UserName)
objTextFile.WriteLine(ComputerName)
objTextFile.Close
'********************************************************************************
'Do 'Whatever' Below this line. Remember that some actions may not work within this Post-Process region.
'********************************************************************************
'==========================================================================
Dim objFSO,strFile
Set objFSO = CreateObject("Scripting.FileSystemObject")
strFile = "C:\Program Files\Zabaware\Ultra Hal Assistant 6\yawcam detection picture\yawcam detection picture.jpg"
If objFSO.FileExists(strFile) Then
objFSO.DeleteFile(strFile)
'End If
'==========================================================================
'If InStr(1, InputString, "yawcam detection picture.jpg", 1) > 0 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
UltraHal = IdleResponseX
'HalBrain.ReadOnlyMode = True
End if
HalBrain.ReadOnlyMode = False
'***************************************************************