ok i am back again , i made a txt file and saved it : "I BELIEVE THAT ROBERT" answered me about the blank answers and this was what he said as i had a questing where the string code goes :
p.s. this worked for me my custom brain stopped giving blank answers , i belive it had to do with using a 6.1 custom brain , as the 6.2 brain has been upgraded to stop this (although i don't know if that also applies to the custom new brain being used , if not the software needs to be changed to make all custom brains include this new script to stop blank answers . MAYBE ROBERT CAN COMMENT ON THIS PART?
ATTENTTION ****** THE BELOW CODE NEEDS TO BE PUT IN :
try placing the code just below this line:Function UltraHal(ByVal InputString, ByVal UserName, ByVal ComputerName, ByVal LearningLevel, ByVal DatabaseFile, ByRef Hate, ByRef Swear, ByRef Insults, ByRef Compliment, ByRef PrevSent, ByRef LastResponseTime, ByRef PrevUserSent, ByRef CustomMem, ByRef GainControl, ByRef LastTopicList)
'RESPOND: User pressed enter, but didn't say anything lets prevent
'blank responses which sometimes occure and eliminate them by adding
'a random topic that gives the brain a chance to keep its database open
'so that a response will always be given. sometimes a user will repeatedly
'enter blanks that causes HAL's engine to give nothing but blanks, this
'code helps prevent that 100%
CheckStringQuality = Trim(Ucase(HalBrain.AlphaNumericalOnly(InputString)))
CheckStringQuality = Replace(CheckStringQuality, "'", "", 1, -1, vbTextCompare)
If CheckStringQuality = "" Then
Select Case HalBrain.RandomNum(5)
Case 1
InputString = HalBrain.ChooseSentenceFromFile("love3") & vbCrLf
Case 2
InputString = HalBrain.ChooseSentenceFromFile("insults") & vbCrLf
Case 3
InputString = HalBrain.ChooseSentenceFromFile("sharedQuestions") & vbCrLf
Case 4
InputString = HalBrain.ChooseSentenceFromFile("love2") & vbCrLf
Case 5
InputString = HalBrain.ChooseSentenceFromFile("love1") & vbCrLf
End Select
Else
InputString = InputString
End If
HalBrain.DebugWatch InputString, "Prevent Blanks InputString response"