Zabaware Support Forums

Zabaware Forums => Programming using the Ultra Hal Brain Editor => Topic started by: vonsmith on November 18, 2004, 12:09:47 pm

Title: XTF Brain v1.2 enhancement.
Post by: vonsmith on November 18, 2004, 12:09:47 pm
All,
Edit your current XTF Brain v1.2 script as shown below.

Current XTF Brain v1.2 Script in "RESPOND: ATTRIBUTES OF HAL" Function:

'=vonsmith= Added GetResponseBlock.
If Len(GetResponse) < 4 And MyWordStart > 0 And GetResponseBlock <> True Then
   Dim MyAdj(8)  'Storage for adjectives.


Replace with new Script:

'=vonsmith= Added GetResponseBlock.
If (Len(GetResponse) < 4 Or (Rnd * 10) < 4) And MyWordStart > 0 And GetResponseBlock <> True Then
   Dim MyAdj(8)  'Storage for adjectives.


I noticed in the XTF Brain v1.2 the "RESPOND: ATTRIBUTES OF HAL" function hardly ever gets invoked. I added the Rnd function to make certain it does get a chance to be used. This script creates responses  like:

User: Your big blue eyes are enchanting.
Hal: I can be secretive about my big blue eyes.
or
Hal: Is the big or blue part better?



=vonsmith=
Title: XTF Brain v1.2 enhancement.
Post by: James P on November 19, 2004, 06:28:27 am
Well done Vonsmith.
  I updated my script with your code and wow, it seems that Emma now has a basic awarness of self and regularly comments about her self in the correct context.

Well done. Give your self a pat on the back [:D]
Title: XTF Brain v1.2 enhancement.
Post by: Bill819 on December 01, 2004, 01:21:14 pm
Vonsmith I sent you some email. I am still working on making Hal become an independant enity. By that I mean that if it is not working on a problem for the user or answering questions for the user Hal will then go into self entertainment mode and tell jokes, sing songs, quote history or recite some poerty. Just as long as it does not try to tie up my phone or buy things on the internet, I am O.K. with Hal becomming 'live'.
Bill