Zabaware Support Forums
Zabaware Forums => Programming using the Ultra Hal Brain Editor => Topic started by: caangel43 on July 09, 2007, 07:09:57 pm
-
would anyone like to make a cyborg brain making everything as literal as can be kinda like data from star trek thanks caangel
-
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
-
thank you will give that a try.
-
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:
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]