'Updated on 9-27-03
'Here we give hal the X and Y Chromosome
'to determine male talk or female talk.
'This is strictly experimental.
'This script has just been made so there's
'no conversations yet, Just detection.
'You can download these two files to your
'Hals default folder, If hal detects
'guy talk then he talks about females
'and if Hal detects girl talk then he talks
'about males. All gender related.
'the X Chromosome.brn and Y Chromosome.brn
'will automatically be created when male
'or female detection words are present.
'You will have to build the male or female
'patterns for yourselves do to morals and stuff.
'******* X and Y Chromosomes ************
If HalBrain.TopicSearch(OriginalSentence, WorkingDir & "MALE.brn") = "TRUE" Then
AnswerSent = "" & Trim(OriginalSentence)
HalBrain.AppendFile WorkingDir & "YCHROMOSOME" & ".brn", AnswerSent
End If
If HalBrain.TopicSearch(OriginalSentence, WorkingDir & "FEMALE.brn") = "TRUE" Then
AnswerSent = "" & Trim(OriginalSentence)
HalBrain.AppendFile WorkingDir & "XCHROMOSOME" & ".brn", AnswerSent
End If
If HalBrain.TopicSearch(OriginalSentence, WorkingDir & "MALE.brn") = "TRUE" Then
GuyTalk = HalBrain.ChooseSentenceFromFile(WorkingDir & "YCHROMOSOME.brn")
GetResponse = GuyTalk & vbCrLf
DebugInfo = DebugInfo & "The user is talking about Females: " & GuyTalk & vbCrLf
Else
DebugInfo = DebugInfo & "Hal has found nothing about Females: " & GuyTalk & vbCrLf
End If
If HalBrain.TopicSearch(OriginalSentence, WorkingDir & "FEMALE.brn") = "TRUE" Then
GirlTalk = HalBrain.ChooseSentenceFromFile(WorkingDir & "XCHROMOSOME.brn")
GetResponse = GirlTalk & vbCrLf
DebugInfo = DebugInfo & "The user is talking about Males: " & GirlTalk & vbCrLf
Else
DebugInfo = DebugInfo & "Hal has found nothing about Males: " & GirlTalk & vbCrLf
End If
'****************************************
'Best of wishes and new grand discoveries.
'Jerry.
Download Attachment: MALE.brn748 Bytes
Download Attachment: FEMALE.brn737 Bytes
Download Attachment: YCHROMOSOME.brn721 Bytes
Download Attachment: XCHROMOSOME.brn778 Bytes