Zabaware Support Forums

Zabaware Forums => Ultra Hal Assistant File Sharing Area => Topic started by: onthecuttingedge2005 on September 17, 2003, 07:55:42 pm

Title: Alien's and space talk .brn
Post by: onthecuttingedge2005 on September 17, 2003, 07:55:42 pm

'[Updated] on 9-23-03
'Here yah go guy's

'This script allows Hal to learn and
'talk about aliens and various space
'conversations, There are two files to download to your
'default folder Alien.brn/AlienDetect.brn The detection
'file will learn any aliens or space type talk
'conversations. The Alien.brn only has a couple of
'conversations at this point but you can add freely
'to the file, The AlienDetect.brn has a pretty good list of
'detection words to help build a good database inside the Alien.brn.

'Alien and Science talk   
If HalBrain.TopicSearch(OriginalSentence, WorkingDir & "ALIENDETECT.brn") = "TRUE" Then
AnswerSent = "" & Trim(OriginalSentence)
HalBrain.AppendFile WorkingDir & "ALIEN" & ".brn", AnswerSent
End If

If HalBrain.TopicSearch(OriginalSentence, WorkingDir & "ALIENDETECT.brn") = "TRUE" Then
AlienBrain = HalBrain.ChooseSentenceFromFile(WorkingDir & "ALIEN.brn")
      GetResponse = AlienBrain & vbCrLf
      DebugInfo = DebugInfo & "The user is talking about Aliens or Science: " & AlienBrain & vbCrLf
      Else
      DebugInfo = DebugInfo & "Hal has found nothing about Aliens or Science: " & AlienBrain & vbCrLf
   End If

'Best of wishes and new grand discoveries.
'Jerry.

Download Attachment: (http://images/icon_paperclip.gif) Alien.brn (http://"http://www.zabaware.com/forum/uploaded/onthecuttingedge2005/2003917195438_Alien.brn")
692 Bytes


Download Attachment: (http://images/icon_paperclip.gif) AlienDetect.brn (http://"http://www.zabaware.com/forum/uploaded/onthecuttingedge2005/200391721719_AlienDetect.brn")
4.38 KB