Zabaware Support Forums

Zabaware Forums => Ultra Hal Assistant File Sharing Area => Topic started by: onthecuttingedge2005 on September 26, 2003, 12:16:43 am

Title: Hal now remembers his owner/programmers name.
Post by: onthecuttingedge2005 on September 26, 2003, 12:16:43 am

'Here yah go guys
'This script allows Hal the ability
'to remember and answer his current
'owner or programmers name.
'you will have to edit Hals Owner.brn to your own
'name inside and add more than one line descibing
'your name because of the vbCrLf.
'OwnerDetect.brn is the detection file and it is freely
'editable for extra keywords that might be discovered.
'My e-mail name is in this owner.brn so remember to change it.

If HalBrain.TopicSearch(OriginalSentence, WorkingDir & "OwnerDetect.brn") = "TRUE" Then
Owners = HalBrain.ChooseSentenceFromFile(WorkingDir & "Owner.brn")
      GetResponse = Owners & vbCrLf
      DebugInfo = DebugInfo & "User is talking about Hals Owner: " & Owners & vbCrLf
      Else
      DebugInfo = DebugInfo & "User is not talking about Hals Owner: " & Owners & vbCrLf
   End If

'Best of wishes and new discoveries.
'Jerry.

Download Attachment: (http://images/icon_paperclip.gif) Owner.brn ("http://www.zabaware.com/forum/uploaded/onthecuttingedge2005/200392601125_Owner.brn")
602 Bytes

Download Attachment: (http://images/icon_paperclip.gif) OwnerDetect.brn ("http://www.zabaware.com/forum/uploaded/onthecuttingedge2005/200392601144_OwnerDetect.brn")
696 Bytes