Author Topic: I think...  (Read 3829 times)

Larry

  • Sr. Member
  • ****
  • Posts: 266
    • View Profile
I think...
« on: July 02, 2003, 12:04:53 am »
I think I found an error in the programming...

   'PROCESS: CONTROL TOPICFOCUS
   'Here we set up the TopicFocus vairable so we can use it as a pointer and a counter.
   'We will use this later to control Hal's "persistence" in focusing on certain subjects.
   'Hal keeps "focus" on a topic for 5 sentences. After 2 sentences, Hal will lose focus from
   'this topic so his entire brain is used again. However, if the user continues talking about
   'the topic, Hal will regain focus again. After 2 sentences TopicFocus will be set to 1,
   'which means no focus.
   If TopicFocus > 5 Then TopicFocus = TopicFocus + 1
   For FI = 10 To 1000 Step 10
      If TopicFocus = (FI - 3) Then
         TopicFocus = 1
      End If
   Next

If I understand TopicFocus, further down the script, TopicFocus is the actual number of the Focus file - ie, Focus15.brn ... so in the above programming, then next time through, it would become Focus16.brn... how can it stay 'on topic' like that???

This is my fix for this:
   If TopicFocus > 1 Then TopicFocusCount = TopicFocusCount + 1
      If TopicFocusCount > 5 Then
         TopicFocusCount = 1
         TopicFocus = 1
      End If
The only purpose of this is to keep Hal on topic for 5 sentences (as long as the user doesn't change the topic). If the user is still talking on topic, then so will Hal (After the 5th sentence).

Then further down the script:
   'PROCESS: FOCUS ON TOPIC
      TopicSearch = Trim(UCase(HalBrain.TopicSearch(UserSentence, WorkingDir & "TopicFocus.Brn")))
      If TopicSearch = "" Then TopicSearch = 0
      If TopicSearch > 10 Then
         TopicFocus = TopicSearch
         TopicFocuscount = TopicSearch
         DebugInfo = DebugInfo & "The user has used a keyword defined in Hal's topic focus file, and Hal is now focusing on topic #" & TopicFocus & vbCrLf
      End If
If Hal's already 'focused' (or not), this part of the script can change him off topic if the user changes the topic...

My fix:
      TopicSearch = Trim(UCase(HalBrain.TopicSearch(UserSentence, WorkingDir & "TopicFocus.Brn")))
      If TopicSearch = "" Then
         TopicSearch = 0
         TopicFocus = TopicSearch
         TopicFocuscount = 1
         DebugInfo = DebugInfo & "The user has no keywords defined in Hal's topic focus file, and Hal is not focusing on a topic #" & TopicFocus & vbCrLf
      End If
      If TopicSearch > 10 Then
         TopicFocus = TopicSearch
         TopicFocuscount = 1
         DebugInfo = DebugInfo & "The user has used a keyword defined in Hal's topic focus file, and Hal is now focusing on topic #" & TopicFocus & vbCrLf
      End If

That just about does it...
 

Larry

  • Sr. Member
  • ****
  • Posts: 266
    • View Profile
I think...
« Reply #1 on: July 02, 2003, 01:41:10 pm »
You can dis-reguard my observation - the programmers are right and I am wrong... What can I say???
 

Morkeleb

  • Jr. Member
  • **
  • Posts: 95
    • View Profile
I think...
« Reply #2 on: July 02, 2003, 07:31:55 pm »
Dont worry about the mistake, keep trying.
Ask and you shall learn
Be not afraid to try new things.
----------------------
Check out www.cold-chaos.net