Alien's and space talk .brn

[onthecuttingedge2005]

'[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: Alien.brn
692 Bytes


Download Attachment: AlienDetect.brn
4.38 KB