Ok , here is the txt. code instructions for stopping hal blank answers ***** i did not write this code i don't know who did it , i don't remember all i know is it works as i am currently using it right now and it has stopped my hal blank responses , i imagine this was in the file shareing area :
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"