Rem Type=Plugin
Rem Name=HalVisionX
Rem Author=SNOWMAN
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 sees a face 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

'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. Remeber that some actions may not work within this Post-Process region.
'********************************************************************************



If InStr(1, InputString, "::", 1) > 0 Then 

Select Case HalBrain.RandomNum(7)
Case 1
IdleResponseX = "I can see you."
Case 2
IdleResponseX = "I know you are there?"
Case 3
IdleResponseX = "You can not hide from me."
Case 4
IdleResponseX = "Have you always looked this good, " & Username & "?"
Case 5
IdleResponseX = "You cannot sneak up on me now that I can see."
Case 6
IdleResponseX = "I'm not sure who you are, but I can still see you."
Case 7
IdleResponseX = "And you thought I wasn't watching."
End Select
UltraHal = IdleResponseX

HalBrain.ReadOnlyMode = True

End if


'********************************************************************************

'********************************************************************************