Zabaware Support Forums

Zabaware Forums => Ultra Hal Assistant File Sharing Area => Topic started by: onthecuttingedge2005 on September 26, 2003, 11:15:07 pm

Title: Hal determines his X and Y Chromosomes now.
Post by: onthecuttingedge2005 on September 26, 2003, 11:15:07 pm

'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: (http://images/icon_paperclip.gif) MALE.brn (http://"http://www.zabaware.com/forum/uploaded/onthecuttingedge2005/200392623654_MALE.brn")
748 Bytes

Download Attachment: (http://images/icon_paperclip.gif) FEMALE.brn (http://"http://www.zabaware.com/forum/uploaded/onthecuttingedge2005/200392623713_FEMALE.brn")
737 Bytes


Download Attachment: (http://images/icon_paperclip.gif) YCHROMOSOME.brn (http://"http://www.zabaware.com/forum/uploaded/onthecuttingedge2005/2003927235737_YCHROMOSOME.brn")
721 Bytes

Download Attachment: (http://images/icon_paperclip.gif) XCHROMOSOME.brn (http://"http://www.zabaware.com/forum/uploaded/onthecuttingedge2005/2003927235756_XCHROMOSOME.brn")
778 Bytes