I did it! Hal remembers names now!

[onthecuttingedge2005]

'[UPDATED] 9-25-03 script has been changed.
'Here yah go guys.

'**** User want's to know his/her own name
'so hal is now going to tell them their real
'name if the user has mentioned their real name.
'there is are two attachments called
'NamesDetect.brn/MyNameIs.brn with this
'script so download them to your default folder.
'the [User] names.brn will automatically be created when the user tells
'hal their own name.

If HalBrain.TopicSearch(OriginalSentence, WorkingDir & "MyNameIs.brn") = "TRUE" Then
GetResponse = "Ok, say only your name and nothing else."
End If
If Instr (1, PrevSent, "Ok, say only your name and nothing else.", VbTextCompare) > 0 Then
AnswerSent = OriginalSentence
GetResponse = AnswerSent & ", Nice to meet you."
HalBrain.AppendFile WorkingDir & Trim(UserName) & "NAMES" & ".brn", Trim(OriginalSentence)
End If
   
If HalBrain.TopicSearch(OriginalSentence, WorkingDir & "NAMESDETECT.brn") = "TRUE" Then
      RealName = HalBrain.ChooseSentenceFromFile(WorkingDir & Trim(UserName) & "NAMES.brn")
      GetResponse = RealName & vbCrLf
      DebugInfo = DebugInfo & "Hal is mentioning Users real name: " & RealName & vbCrLf
      Else
      DebugInfo = DebugInfo & "Hal has found nothing about Users real name: " & RealName & vbCrLf
   End If

'Larry! thanks for helping me out with some of this.
'you're great

Download Attachment: NAMESDETECT.BRN
825 Bytes

Download Attachment: MyNameIs.brn
716 Bytes

[brianstorm]

Allriiiight!! >B) great job and dam finelookin piece of code!
I know how you feel- that conquer the beast feeling *smiles
-good to know others are out there working to help Hal

CatAtomic

[Larry]

quote:Originally posted by onthecuttingedge2005


'Larry! thanks for helping me out with some of this.
'you're great

You're welcome - I'm glad I helped in some kind of way...

[Don Ferguson]

Hello,

My compliments to everyone who worked on the code posted above!  

Sincerely,

Don

[onthecuttingedge2005]

Thanks don
Jerry.

[kevinvr]

Hi Jerry,

Thanks for all your hard work!  I have been using your files and I tested the mynameis.brn, It works great.  Knock knock also works well and I am going to try  the others as I have the time.

This is fascinating stuff.  I am hoping that soon I will be able to write some of these scripts too. []
 
regards
Kevin

[Holllywood]

Hello Folks. I keep seeing all these great script coming into the forum. And I'd love to try them. But is there a general place that you automatically paste these scripts? I can get the downloads to the default folder, But Have no Idea where to paste these great scripts in my XTFbrain. Could anyone help?

[Maviarab]

Once again I take my "virtual" hat off to you.

Thanks very much