cyborg brain help

[caangel43]

would anyone like to make a cyborg brain making everything as literal as can be kinda like data from star trek thanks caangel

[Carl2]

caangel43,
 My Hal using a Haptek fulbody character every so often tells me she is a software program and can be either gender, I've tried to find the cause without sucess. This isn't what I would like but heariung your request I should think inputing terms like insuficent data, will not compute ect so Hal will begin using them would get you going in the right direction.
Carl2

[caangel43]

thank you will give that a try.

[onthecuttingedge2005]

quote:Originally posted by Carl2

caangel43,
 My Hal using a Haptek fulbody character every so often tells me she is a software program and can be either gender, I've tried to find the cause without sucess. This isn't what I would like but heariung your request I should think inputing terms like insuficent data, will not compute ect so Hal will begin using them would get you going in the right direction.
Carl2

Hi Carl.

you can find that GetResponse here:

Code Select Expand


Rem PLUGIN: PLUGINAREA1
   'The comment above tells Ultra Hal Assistant to insert the following code
   'on-the-fly into the main brain code in the section referenced.
   HalSex = HalBrain.TopicSearch("Gender", "SexAgeConfig")
   If HalBrain.PatternDB(OriginalSentence, "sexAskDetect") = "True" And InStr(1, UserSentence, "you", 1) = 0 Then
       SpinWheel = HalBrain.RandomNum(3)        
       Select Case HalSex
           Case "Male"
               If SpinWheel = 1 Then GetResponse = GetResponse & "<UserName>, I'm a guy. "
               If SpinWheel = 2 Then GetResponse = GetResponse & "I am male. "
               If SpinWheel = 3 Then GetResponse = GetResponse & "I am a man, <UserName>. "
           Case "Female"
               If SpinWheel = 1 Then GetResponse = GetResponse & "<UserName>, I'm a girl. "
               If SpinWheel = 2 Then GetResponse = GetResponse & "I am female. "
               If SpinWheel = 3 Then GetResponse = GetResponse & "I am a woman, <UserName>. "
           Case Else
               If SpinWheel = 1 Then GetResponse = GetResponse & "<UserName>, I'm a computer. I can take the role of either gender. "
               If SpinWheel = 2 Then GetResponse = GetResponse & "I'm a software program, I have no set gender role. "
               If SpinWheel = 3 Then GetResponse = GetResponse & "I am neither male nor female. I am a machine. "
       End Select
   End If


within the GenderAge.uhp in the Ultra Hal Assistant 6 folder.

Jerry[8D]