'Ziggy's Simple Eye Sensory Motion Detector.
Set FileSys = CreateObject("Scripting.FileSystemObject")
Set FS = CreateObject("Scripting.FileSystemObject")
LastResponseTime = Now
'You will have to put your own link to your Motion log file here.
MotionDetect = "C:\Program Files\Webcam Zone Trigger\LOGS\Log.txt"
'If the Log file exists then motion was detected.
If Now - LastResponseTime > 0.001 And FileSys.FileExists(MotionDetect) Then
'Give a greeting if motion is detected.
IdleResponse = HalBrain.ChooseSentenceFromFile("hello2") & vbCrLf
HalMenu.HalCommand "<SPEAK>" &  IdleResponse & "</SPEAK>"
'Delete the Log file a moment later if it exists.
If FileSys.FileExists(MotionDetect) And Now - LastResponseTime > 0.002 Then FS.DeleteFile "C:\Program Files\Webcam Zone Trigger\LOGS\Log.txt"
End If