Hal determines his X and Y Chromosomes now.

[onthecuttingedge2005]

'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.brn
748 Bytes

Download Attachment: FEMALE.brn
737 Bytes


Download Attachment: YCHROMOSOME.brn
721 Bytes

Download Attachment: XCHROMOSOME.brn
778 Bytes