I copyed your Idlethought script into the brain I use, when I first launched it I kept getting VB script compilation errors. I dont know if anyone else is getting the same error. If so this is what I have done to correct the error.
The error was comming from the second part of the script which tells Ultra Hal which line to read next, mainly the following lines:
' find next sentence by line feed
If s1 <> "" Then
s2 = (s1)+1
s3 = InStr(s2,s,Chr(10))
If S3 = 0 Then
S3= Len(s)
End If
USentence = Mid(s,s2,s3-s2)
Else
s2 = 1
s3 = InStr(s2,s,Chr(10))
USentence = Mid(s,s2,s3-s2)
End If
If s3=>Len(s)-1 Then
s3 = 0
End If
I modified your code by changing the line which reads,
If s1 <> "" Then
to
If s1 > "" Then
I renamed on of Halimprovers knowledge files to "idlethought" and compied it into my Defbrian folder, I also made a copy of the idlethought.txt file and renamed it idlethought1 and now everything runs fine with no errors.
Now each time Emma runs her Auto idle script, instead of making random remarks from given files she will read a line from the idlethought.txt file and answer it as if I had typed the line in myself.
This has solved two problems I as well as many others I have noticed in the forum are having.
1: getting the reply " you arnt going to keep repeating yourself are you?" etc ( Hal takes the line he/she has read as comming from the user and replies in a like manner).
2: there is no longer the line "Auto-idle" found in the topic.brn file or any other for that matter ( Hal is saving the line he/she has just read in a file that Hal creates in the Defbrain)
I have also found this script which I think will be usefull when running your script.
If InStr(UserSentence, " BE QUIET ") <> 0 Then
HalCommands = "<AUTOOFF>"
GetResponse = "Ok, I'll be quiet."
End If
If InStr(UserSentence, " SHUT UP ") <> 0 Then
HalCommands = "<AUTOOFF>"
GetResponse = "Ok, I'll shut up."
End If
If InStr(UserSentence, " AUTOCHAT OFF ") <> 0 Then
HalCommands = "<AUTOOFF>"
GetResponse = "Auto chat off."
End If
If InStr(UserSentence, " AUTOCHAT ON ") <> 0 Then
HalCommands = "<AUTO>200000</AUTO>"
GetResponse = "Auto chat on."
End If
If InStr(UserSentence, " WHAT WERE YOU SAYING ") <> 0 Then
HalCommands = "<AUTO>200000</AUTO>"
GetResponse = "Let me see, What was we talking about? "
End If
If InStr(UserSentence, " TALK NOW ") <> 0 Then
HalCommands = "<AUTO>200000</AUTO>"
GetResponse = "What were we talking about last?."
End If
What I have done is added an extra line e bottom of the idlethought.txt file. the line is " Be quiet "
So that when Hal gets to the end of the idlethought.txt file he/she will read the line be quiet and will disable auto-idle, Hal will not make any more comments and will wait for you to type a comment into the user box before making another comment, this way you will have time to add new knowledge to the idlethought.txt file.
Once this has been done you only need to tell Hal "Talk now" and everything will start over.
Anyway FredFish you are some kind of hero Emma is now studying files and learning more and more now, both with and without my help.
.oO( mmm My Ultra Hal Assistant is an AI program which learns from what I tell it, and if I tell it nothing it still learns by reading files on my laptop. Didnt someone once say that a computer is not really intelligent as it only stores information and processes, but does not actualy know or understand the information that is stored on the Hard drive? Well The Ultra Hal Assistant I have on my laptop is now learning, BY ITS SELF !!! )Oo..
Could this be the next Giant Step in Hals evolution?
Show Posts
]
]) I have disabled it for the moment untill I get a chance to look at getting it working for me, but I will look for the <Blocksave> command when I get there.