LiFeTimeGamer,
Try here:
http://www.ultrahal.com/community/index.php?topic=9461.0Just drag / select the text below, then save the text (use Notepad if you like) as: HalVisionX3.uhp then copy it to your Ultra Hal 7 folder if you want to try it.
================================================
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
'***************************************************************