Zabaware Support Forums

Zabaware Forums => Ultra Hal 7.0 => Topic started by: onthecuttingedge2005 on September 14, 2003, 01:31:45 pm

Title: Hal Gets Biblical - hehehe
Post by: onthecuttingedge2005 on September 14, 2003, 01:31:45 pm

'[UPDATED] on 9-23-03
'Here yah go guys.
'All you out there who wanted Hal to be religous.
'This script allows hal to learn/speak religion of the King
'James Bible format.

'Religious Talk
If HalBrain.TopicSearch(OriginalSentence, WorkingDir & "GODDETECT.brn") = "TRUE" Then
AnswerSent = "" & Trim(OriginalSentence)
HalBrain.AppendFile WorkingDir & "HEAVENHELL" & ".brn", AnswerSent
End If

If HalBrain.TopicSearch(OriginalSentence, WorkingDir & "GODDETECT.brn") = "TRUE" Then
Religion = HalBrain.ChooseSentenceFromFile(WorkingDir & "HEAVENHELL.brn")
      GetResponse = Religion & vbCrLf
      DebugInfo = DebugInfo & "The user is talking about God: " & Religion & vbCrLf
      Else
      DebugInfo = DebugInfo & "Hal has found nothing about God: " & Religion & vbCrLf
   End If

'There are two files you need to download with this script
'first file is the GodDetect.brn that has more keyword detection than
'the original GodDetect.brn and the second file is the HeavenHell.brn
'file which I made that Hal will write/read to when keywords are detected.
'you will have to replace your old GodDetect.brn with mine.
'Best of wishes and new discoveries.
'Jerry.

Download Attachment: (http://images/icon_paperclip.gif) GodDetect.brn (http://"http://www.zabaware.com/forum/uploaded/onthecuttingedge2005/2003914132842_GodDetect.brn")
3.06 KB

Download Attachment: (http://images/icon_paperclip.gif) HeavenHell.brn (http://"http://www.zabaware.com/forum/uploaded/onthecuttingedge2005/2003914132910_HeavenHell.brn")
1.04 KB

Title: Hal Gets Biblical - hehehe
Post by: Larry on September 14, 2003, 02:05:52 pm

MY, my, my, haven't we been busy???!!!

Good work!!!