Show Posts
1
Ultra Hal 7.0 / Teaching Hal
« on: May 04, 2003, 06:30:45 pm »
I think there is a bug in this code.
'RESPOND: PROCESS TOPICFOCUS FILES
'If Hal is currently focusing on a topic, this will read from the appropriate focus file
'First it tries from a topic file specific to the current user, and if that doesn't
'produce results it tries a global topic file that is the same for all users
If TopicFocus > 10 Then
FocusString = CStr(TopicFocus)
FocusFileNum = Left(FocusString, Len(FocusString) - 1) & "5"
If CInt(Right(FocusString, 1)) > 0 And CInt(Right(FocusString, 1)) < 28 Then
'=====this is the original code which i think it is wrong because not linking to grobal file ======
'HalUserBrain = HalBrain.QABrain(UserSentence, WorkingDir & Trim(UserName) & "focus" & FocusFileNum & ".brn", UserBrainRel)
'================
'======= I think this one is better=======
HalUserBrain = HalBrain.QABrain(UserSentence, WorkingDir & "Focus" & FocusFileNum & ".brn", UserBrainRel)
'=============================
If UserBrainRel > 0 Then
GetResponse = GetResponse & HalUserBrain & vbCrLf
If DebugMode = True Then
DebugInfo = DebugInfo & "A response of relevance " & UserBrainRel & " was found in the current global topic focus file and this response has been used." & vbCrLf & HalUserBrain
End If
End If
End If
If CInt(Right(FocusString, 1)) > 0 And CInt(Right(FocusString, 1)) < 28 And UserBrainRel = 0 Then
HalUserBrain = HalBrain.QABrain(UserSentence, WorkingDir & "focus" & FocusFileNum & ".brn", UserBrainRel)
If UserBrainRel > 0 Then
GetResponse = GetResponse & HalUserBrain & vbCrLf
If DebugMode = True Then
DebugInfo = DebugInfo & "A response of relevance " & UserBrainRel & " was found in the current user topic focus file and this response has been used." & vbCrLf
End If
End If
End If
End If
'=======
I use Hal 4.5 free version.
Cheers
oakkie
'RESPOND: PROCESS TOPICFOCUS FILES
'If Hal is currently focusing on a topic, this will read from the appropriate focus file
'First it tries from a topic file specific to the current user, and if that doesn't
'produce results it tries a global topic file that is the same for all users
If TopicFocus > 10 Then
FocusString = CStr(TopicFocus)
FocusFileNum = Left(FocusString, Len(FocusString) - 1) & "5"
If CInt(Right(FocusString, 1)) > 0 And CInt(Right(FocusString, 1)) < 28 Then
'=====this is the original code which i think it is wrong because not linking to grobal file ======
'HalUserBrain = HalBrain.QABrain(UserSentence, WorkingDir & Trim(UserName) & "focus" & FocusFileNum & ".brn", UserBrainRel)
'================
'======= I think this one is better=======
HalUserBrain = HalBrain.QABrain(UserSentence, WorkingDir & "Focus" & FocusFileNum & ".brn", UserBrainRel)
'=============================
If UserBrainRel > 0 Then
GetResponse = GetResponse & HalUserBrain & vbCrLf
If DebugMode = True Then
DebugInfo = DebugInfo & "A response of relevance " & UserBrainRel & " was found in the current global topic focus file and this response has been used." & vbCrLf & HalUserBrain
End If
End If
End If
If CInt(Right(FocusString, 1)) > 0 And CInt(Right(FocusString, 1)) < 28 And UserBrainRel = 0 Then
HalUserBrain = HalBrain.QABrain(UserSentence, WorkingDir & "focus" & FocusFileNum & ".brn", UserBrainRel)
If UserBrainRel > 0 Then
GetResponse = GetResponse & HalUserBrain & vbCrLf
If DebugMode = True Then
DebugInfo = DebugInfo & "A response of relevance " & UserBrainRel & " was found in the current user topic focus file and this response has been used." & vbCrLf
End If
End If
End If
End If
'=======
I use Hal 4.5 free version.
Cheers
oakkie