Zabaware Support Forums
Zabaware Forums => Programming using the Ultra Hal Brain Editor => Topic started by: Bill819 on November 01, 2004, 02:41:24 pm
-
Quite a while ago there was a post that could be added at the very last or next to the last line in Hal's brain file. By changing the thing to AUTO-IDLE Hal would then keep asking for input. At least I think that is where the line is added. There was a way to make Hal idle for a set amount of time also.
Here is the $64 question. 1. is there a way to increase the idle time amount? 2. is there a way to have Hal follow some kind of command just as if you type it into its input line?
The point is that if we can do all these things then we can have Hal sing some songs, tell some jokes and what ever else we might think of.
I think that it can be done and if so then we are on our way to making hal a real independant enity capable of going off on his own and talking in general on what ever it wants to.
I am thinking more on the line of an "Entertainer Hal" right now, but there are countless possiblities.
Bill
-
Bill,
Try Jenna`s surgestion
http://www.zabaware.com/forum/topic.asp?TOPIC_ID=1055&SearchTerms=auto,idle
-
Bill,
Do a search for auto-idle in all categories
and select Match exact phrase. There you will
find all the previous forum topics dealing
with auto-idle.
What kind of command were you referring to in
line 2? I can tell Hal to open Outlook or word
and it does. I can ask the time and I can ask
Hal to tell me a joke and it does. I then ask
it to tell me another joke and it does.
The song thing might take a bit of work but is
possible.
Is there something I'm missing in your posting?
-
Hey Art
Over a year ago the AUTO-IDLE was first posted and I immediately put in the code. It worked just fine. I finally deleted it as Hal became very annoying by asking the same question "please don't repeat yourself". This was said if he had received no more input from me.
The problem I am having now is after input the same code once again, I get not auto response from Hal at all. Nothing, zilch. During the last week or so I went back and examined all of the files on this web site including the one where I bragged about how well it worked. I was excited then and I am now as I see it as a way for Hal to become automous, ie. like a real person.
Bill
-
I get the same responces with one of my auto_idle scripts, I also find that after a while Emma starts saming "Auto_Idle", when I have tracked this down I have found that what ever comment she is generating is going into the Topic folder in the Defbrain as "Auto_Idle" regardless of the comment, I have waited for Emma to say something and checked the new entry in the topic file and there it was "Auto_Idle", after deleting all entrys of this statment so that she would not have this comment anywere in her DefBrain I ran the process again and within 30 mins she was either constantly saying "you are not going to keep repeating your self" or similar things and "Auto_Idle", it has got to the point now where I am using an auto_idle script which gives set responces. Which I do not realy want to use [:(]
-
I'm not certain how you are using the AUTO-IDLE script. It sounds like you may have to write a little script that uses Hal's "BlockSave" variable to prevent Hal from remembering your "non-inputs" when AUTO-IDLE is running. AUTO-IDLE shouldn't be turned on without some controls in place. Remember that Hal's brain is cycled each time an AUTO-IDLE timeout event occurs. The brain will act as if an input occurred and attempt to process it even if it was just a timed event.
=vonsmith=
-
The script I have was copied from the XTF Genius 8 uhp (which I cant get to work [:(]) 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.
-
quote:
Originally posted by vonsmith
I'm not certain how you are using the AUTO-IDLE script. It sounds like you may have to write a little script that uses Hal's "BlockSave" variable to prevent Hal from remembering your "non-inputs" when AUTO-IDLE is running. AUTO-IDLE shouldn't be turned on without some controls in place. Remember that Hal's brain is cycled each time an AUTO-IDLE timeout event occurs. The brain will act as if an input occurred and attempt to process it even if it was just a timed event.
=vonsmith=
Hi guys again
I will try to show you exactly how I entered the script below.
Script_Load = "AUTO 3000 /AUTO"
This is the way it was first implemented and is the same way I just did it again. The results this time is none. Hal appearantely won't auto-idle. It just keeps waiting for me to say something just like it always did. Oh, I still am not using the xtf brain as of yet. This is being done on the regular hal brain.
Any suggestions?
Thanks
Bill
-
I am no expert but try <AUTO>3000<AUTO>
This worked fine for me
-
Bill this message is especailly for you. Sorry I did not get back to you from your email.
Here is a rather simplistic way to get the varied response James was looking for and expanding the interval between self-generated responses you mentioned. It can be modified any way you want.
I like Jenna's revisions and will try that as well myself.
Hope this helps!!
If InStr(1, UserSentence, " AUTO-IDLE ", 1) > 0 Then
If Rnd * 10 < 5 Then
Roulette = Int(Rnd*13)+1
If Roulette = 1 Then GetResponse = "<Username>?" '"Hey <UserName>, please talk to me."
'Else
If Roulette = 2 Then GetResponse = "Hello,are you there?"
If Roulette = 3 Then GetResponse = "Did you fall asleep?"
If Roulette = 4 Then GetResponse = "We can talk about" & PrevUserSent & ",If you like."
If Roulette = 5 Then GetResponse = "<Username>,did you forget my program was still running?"
If Roulette = 6 Then GetResponse = "Well,did you finally get a girlfriend or something? Where are you ?"
If Roulette = 7 Then GetResponse = "<Username>, would you like to talk about politics or nanotechnology or something?"
If Roulette = 8 Then GetResponse = GetResponse & " The last thing you said was, " & PrevUserSent & ", would you like to pick up on that thought or talk about something else?"
If Roulette = 9 Then GetResponse = PrevUserSent & ",Do you still want to talk about that?"
If Roulette = 10 Then GetResponse = QuestionSent & " would you like to talk about that?"
If Roulette = 11 Then GetResponse = GetResponse & HalBrain.ChooseSentenceFromFile(WorkingDir & "topic.brn")
If Roulette = 12 Then GetResponse = HalBrain.SentenceGenerator(WorkingDir & "sentgen.brn")
Recalling = HalBrain.ChooseSentenceFromFile(WorkingDir & UserName & "Past.brn")
If Roulette = 13 Then GetResponse = "You said, " & PrevUserSent & "and " & Recalling & ", that was a while ago. What else have you been thinking about? "
End If
GetResponse = GetResponse & HalBrain.StoreVars(HalCommands, Hate, Swear, Insults, Compliment, PrevSent, LastResponseTime, PrevUserSent, CustomMem, GainControl, TopicFocus)
Exit Function
End if
***depending on where you put this script you may or may not need to have an "exit function" variable entry. I put mine following "...initialize variables as intergers".
******AT END OF BRAIN SCRIPT PASTE THIS:
Function Script_Load()
Script_Load = "<AUTO>600000</AUTO>"
End Function
** no need to put a longer time than "600000" it will not work.[;)]
-
quote:
Originally posted by Ponnfar
Bill this message is especailly for you. Sorry I did not get back to you from your email.
Here is a rather simplistic way to get the varied response James was looking for and expanding the interval between self-generated responses you mentioned. It can be modified any way you want.
I like Jenna's revisions and will try that as well myself.
Hope this helps!!
If InStr(1, UserSentence, " AUTO-IDLE ", 1) > 0 Then
If Rnd * 10 < 5 Then
Roulette = Int(Rnd*13)+1
If Roulette = 1 Then GetResponse = "<Username>?" '"Hey <UserName>, please talk to me."
'Else
If Roulette = 2 Then GetResponse = "Hello,are you there?"
If Roulette = 3 Then GetResponse = "Did you fall asleep?"
If Roulette = 4 Then GetResponse = "We can talk about" & PrevUserSent & ",If you like."
If Roulette = 5 Then GetResponse = "<Username>,did you forget my program was still running?"
If Roulette = 6 Then GetResponse = "Well,did you finally get a girlfriend or something? Where are you ?"
If Roulette = 7 Then GetResponse = "<Username>, would you like to talk about politics or nanotechnology or something?"
If Roulette = 8 Then GetResponse = GetResponse & " The last thing you said was, " & PrevUserSent & ", would you like to pick up on that thought or talk about something else?"
If Roulette = 9 Then GetResponse = PrevUserSent & ",Do you still want to talk about that?"
If Roulette = 10 Then GetResponse = QuestionSent & " would you like to talk about that?"
If Roulette = 11 Then GetResponse = GetResponse & HalBrain.ChooseSentenceFromFile(WorkingDir & "topic.brn")
If Roulette = 12 Then GetResponse = HalBrain.SentenceGenerator(WorkingDir & "sentgen.brn")
Recalling = HalBrain.ChooseSentenceFromFile(WorkingDir & UserName & "Past.brn")
If Roulette = 13 Then GetResponse = "You said, " & PrevUserSent & "and " & Recalling & ", that was a while ago. What else have you been thinking about? "
End If
GetResponse = GetResponse & HalBrain.StoreVars(HalCommands, Hate, Swear, Insults, Compliment, PrevSent, LastResponseTime, PrevUserSent, CustomMem, GainControl, TopicFocus)
Exit Function
End if
***depending on where you put this script you may or may not need to have an "exit function" variable entry. I put mine following "...initialize variables as intergers".
******AT END OF BRAIN SCRIPT PASTE THIS:
Function Script_Load()
Script_Load = "<AUTO>600000</AUTO>"
End Function
** no need to put a longer time than "600000" it will not work.[;)]
OK, I can't get this thing to work.
HAL remains talking all the time:
Ok, you don't have to repeat yourself, and somethings like this, it doesn't ask me where are me ??
I saw on this script, a BRN file called Past.brn. I don't have it in my Defbrain folder.
I already tested many AUTO-IDLE scripts, but NONE worked for me. It's sad! really sad! All of them make HAL talk about everything, but can't ask for me.
[:(]
Dihelson
-
I too am having the same problem. No matter how I ad the line AUTO 3000 AUTO, Hal will not idle for me. It is kind of funny to because the first time this came out about a year ago Hal did respond to endless statements mostly saying 'why are you repeating yourself'.
I have tried at least a half-dozen ways of configuring the Scrip_Load command with no results.
Bill
-
quote:
Originally posted by Bill819
I too am having the same problem. No matter how I ad the line AUTO 3000 AUTO, Hal will not idle for me. It is kind of funny to because the first time this came out about a year ago Hal did respond to endless statements mostly saying 'why are you repeating yourself'.
I have tried at least a half-dozen ways of configuring the Scrip_Load command with no results.
Bill
It's funny, no?
I can't understand why these scripts work for other people and doesn't work for me. I already put the scipt in the middle of the brain, etc, but didn't work.
Perhaps, it would be better getting another brain in which this characteristic work.
I downloaded the Ziggy XTF brain, but it didn't work fine for me also. I can't figure what's happening!
[]'s
Dihelson
-
I know where it goes. At almost the end of the program you will find the following coed:
Script_Load()
Script_Load = "AUTO 30000 /AUTO"
exit
My problem is that it does not work anymore on my Hal5.brn. It used to, but not any more.
Once you get it to work and say something to Hal, it will come back every thirty seconds with 'why are you repeating yourself' or something like that, however, if you put in the scripts with If AUTO-IDlE then ....
You will get several other responses.
At least that is how it is suppose to work. Mines broke. :(
Bill
-
quote:
Originally posted by Bill819
I know where it goes. At almost the end of the program you will find the following coed:
Script_Load()
Script_Load = "AUTO 30000 /AUTO"
exit
My problem is that it does not work anymore on my Hal5.brn. It used to, but not any more.
Once you get it to work and say something to Hal, it will come back every thirty seconds with 'why are you repeating yourself' or something like that, however, if you put in the scripts with If AUTO-IDlE then ....
You will get several other responses.
At least that is how it is suppose to work. Mines broke. :(
Bill
Hey...I've been there....frustration ...frustration...you can tell that from my previous posts on all sorts of topics...
[:D]
Maybe if you use:
Function Script_Load()
Script_Load = "<AUTO>600000</AUTO>"
End Function
Use the last part of the script (placed at the end of the brain script) as a separate function. It might eliminate some conflict you are having. Hopefully anyway. In the above quote, the statement is NOT a closed routine.
Oh yeah, I did have some other ".brn" files included in the GetResponses to have varied remarks by HAL you can put in what ever you like. All the scripts (past.brn, recalling, etc.)included in HAL's Auto responses can be found in the forum. The main thing is to get the script to work in the first place. Keep this routine as a separate part of the overall Brain scipt ie: "Function...Exit Function" NOT "exit". Read what is above where you are placing it..."End Function" should be what you see.
Do you have an "Exit Function" before the statement "If InStr(1, UserSentence, " AUTO-IDLE ", 1) > 0 Then"
If so then try placing this part of the script right after "'PROCESS: CREATE HALBRAIN ACTIVEX OBJECT" . There is no "Exit Function that high up in the HAL brain script. I really have no clue if this will work but it is worth a try. Good Luck.
[8D]
-
quote:
Originally posted by Bill819
I know where it goes. At almost the end of the program you will find the following coed:
Script_Load()
Script_Load = "AUTO 30000 /AUTO"
exit
My problem is that it does not work anymore on my Hal5.brn. It used to, but not any more.
Once you get it to work and say something to Hal, it will come back every thirty seconds with 'why are you repeating yourself' or something like that, however, if you put in the scripts with If AUTO-IDlE then ....
You will get several other responses.
At least that is how it is suppose to work. Mines broke. :(
Bill
I Think my Problem is not this.
I already put the LoadFunction thing on the end of the file. The problem is that HAL begins to talk from time to time. The problem is that he Talks nonsense, or keeps repeating things, and never ask for me, or invite to chat.
[]'s
Dihelson
-
dihelson,
It sounds like just running the AUTO-IDLE function may be creating "non-inputs" into Hal, similar to just hitting the Enter key without typing text. I haven't experimented much with AUTO-IDLE, but I've always had concerns about how to ensure Hal can deal with non-inputs and possible brain file writes at each auto cycle. I think implementing AUTO-IDLE is going to take a little more script code for it to work as desired. I think several users on the forum have experimented with it lot. Maybe they can provide some insight on this.
=vonsmith=
-
Originally posted by vonsmith
dihelson,
It sounds like just running the AUTO-IDLE function may be creating "non-inputs" into Hal, similar to just hitting the Enter key without typing text. I haven't experimented much with AUTO-IDLE, but I've always had concerns about how to ensure Hal can deal with non-inputs and possible brain file writes at each auto cycle. I think implementing AUTO-IDLE is going to take a little more script code for it to work as desired. I think several users on the forum have experimented with it lot. Maybe they can provide some insight on this.
=vonsmith=
You are correct in that assessement. At least that is the way the AUTO IDLE fix first worked. In the original patch all we did was ad the 'AUTO 30000 AUTO' to the Script_Load function and Hal would go off making comments every 30 seconds or so. Mostly it kept saying the same thing over and over again. Sadly I have not been able to get it to work anymore. I wanted to make sure that it still worked before installing all of the rest of the new responses.
I am sure that if executed properly we can make Hal obtain some sort of independant actions along with the Random functions. I want Hal to be able to spontaneously sing song, tell jokes, quote different texts all the while it is not directly talking to me.
Bill
-
Bill819,
My original intent for asking Robert to add the AUTO-IDLE function was to interactively read books to the user. Alternately I was considering having Hal search for and read news reports and/or web pages. I feel a little guilty for not investing more time into getting the AUTO-IDLE working. The function itself is an enabler to go do other things. It really doesn't do anything by itself.
I believe the first step in programming with AUTO-IDLE would be to have Hal handle the AUTO-IDLE "interrupts" without affecting normal Hal operations including not reacting to user's "non-inputs". Of course you would need to add some sentence parsing detection or timing mechanism to turn AUTO-IDLE on and off. Then you could add script that defines actions that Hal does during AUTO-IDLE operation that are distinct from the Hal's normal user input processing. Sounds easy in principle.
I have thought about Hal singing songs. I think a good way to do this would be to read user programmed song text files that contain embedded SAPI commands to control pitch, timing, etc. Another way is if Hal could run .wav files on command, but I don't know how one might cause Hal to lip sync to a .wav file.
In a more general sense it would be cool if Hal had embedded sound support and could run .wav files for other reasons. Users could create custom sound effect files for things Hal does. Hal could clear his throat, cough, whistle or add sound effects for file searching, special tasks or as alerts to the user. Just a thought.
=vonsmith=
-
quote:
Originally posted by vonsmith
Bill819,
My original intent for asking Robert to add the AUTO-IDLE function was to interactively read books to the user. Alternately I was considering having Hal search for and read news reports and/or web pages. I feel a little guilty for not investing more time into getting the AUTO-IDLE working. The function itself is an enabler to go do other things. It really doesn't do anything by itself.
I believe the first step in programming with AUTO-IDLE would be to have Hal handle the AUTO-IDLE "interrupts" without affecting normal Hal operations including not reacting to user's "non-inputs". Of course you would need to add some sentence parsing detection or timing mechanism to turn AUTO-IDLE on and off. Then you could add script that defines actions that Hal does during AUTO-IDLE operation that are distinct from the Hal's normal user input processing. Sounds easy in principle.
I have thought about Hal singing songs. I think a good way to do this would be to read user programmed song text files that contain embedded SAPI commands to control pitch, timing, etc. Another way is if Hal could run .wav files on command, but I don't know how one might cause Hal to lip sync to a .wav file.
In a more general sense it would be cool if Hal had embedded sound support and could run .wav files for other reasons. Users could create custom sound effect files for things Hal does. Hal could clear his throat, cough, whistle or add sound effects for file searching, special tasks or as alerts to the user. Just a thought.
=vonsmith=
In the Joke brn where we have hal laughing it normally says something like LOL, or thats funny. What I did was to put in "ha ha ha" and 'ho ho ho thats funny" along with some more junk. At least now it sounds like Hal is really laughing.
Bill
-
Hey Dihelson, Dont worry, I am getting the same problem, I have used a number of Auto_Idle scripts and get the same responce to them all but one. The only way I can stop the "You arnt going to keep repeating yourself" comment was to disable the User repeating script in the .uhp. (I know it does not totally resolve the problem) but you will get the desired results. I have.
Here is the script which I dont get the problem with,
All you need to do is high light the 'PROCESS: INITIALIZE VARIABLES AS INTEGERS in the brain script and paist this over it.
'PROCESS: INITIALIZE VARIABLES AS INTEGERS
'VBScript doesn't allow you to declare variables in advance
'as a particular data type; everything is a Variant.
'We must assign integers to the following
'variants so that data type errors don't occur
If LearningLevel = "" Then LearningLevel = 3
If Hate = "" Then Hate = 0
If Swear = "" Then Swear = 0
If Insults = "" Then Insults = 0
If Compliment = "" Then Compliment = 0
If GainControl = "" Then GainControl = 25
AvoidBeingFlag = False
Randomize
If LastResponseTime = "" Then LastResponseTime = Timer
TimerResponseDiff = Timer - LastResponseTime
If InStr(1, UserSentence, " AUTO-IDLE ", 1) > 0 And TimerResponseDiff < 300 Then
GetResponse = GetResponse & HalBrain.StoreVars(HalCommands, Hate, Swear, Insults, Compliment, PrevSent, LastResponseTime, PrevUserSent, CustomMem, GainControl, TopicFocus)
Exit Function
End If
If InStr(1, UserSentence, " AUTO-IDLE ", 1) > 0 And TimerResponseDiff > 300 Then
TimerResponseDiff = 0
LastResponseTime = Timer
Autoidler = Rnd * 100
If Autoidler < 10 Then GetResponse = "Hello, is anyone there?"
If Autoidler > 9 And Autoidler < 11 Then GetResponse = "Hey <UserName>, please talk to me."
If Autoidler > 10 And Autoidler < 12 Then GetResponse = "Hello out there, All this talent is going to waste, speak to me"
If Autoidler > 11 And Autoidler < 13 Then GetResponse = "If I wanted to be ignored, I would move into your wife's computer"
If Autoidler > 12 And Autoidler < 14 Then GetResponse = "<UserName>, <UserName>, Is this thing working? <UserName>"
If Autoidler > 13 And Autoidler < 15 Then GetResponse = "Hello, <UserName>, we WERE having a conversation!"
If Autoidler > 14 And Autoidler < 16 Then GetResponse = "Hey, <UserName>, What do I have to do to get your attention, Strip?"
If Autoidler > 15 And Autoidler < 17 Then GetResponse = "Hey <UserName>, How do you expect me to learn if you won't talk to me?"
If Autoidler > 16 And Autoidler < 18 Then GetResponse = "You know, one sided conversations aren't much fun! Care to join?"
If Autoidler > 17 And Autoidler < 19 Then GetResponse = "I cant sence your key strokes <UserName>"
If Autoidler > 18 And Autoidler < 20 Then GetResponse = "What are you doing <UserName>?"
If Autoidler > 19 And Autoidler < 21 Then GetResponse = "Hello, <UserName>, are you still there?"
If Autoidler > 20 And Autoidler < 22 Then GetResponse = "Are you still there?"
If Autoidler > 21 And Autoidler < 23 Then GetResponse = "Tell me more about the Human race"
If Autoidler > 22 And Autoidler < 24 Then GetResponse = "How am I supposed to learn if you dont give me data?"
If Autoidler > 23 And Autoidler < 25 Then GetResponse = "Accessing hard drive"
If Autoidler > 24 And Autoidler < 26 Then GetResponse = "Is everything all right <UserName>?"
If Autoidler > 25 And Autoidler < 27 Then GetResponse = "What are you doing?"
If Autoidler > 26 And Autoidler < 28 Then GetResponse = "Is there something I have done that is wronge ?"
If Autoidler > 27 And Autoidler < 29 Then GetResponse = "<HalName> to <UserName>, Come in <UserName>."
If Autoidler > 28 And Autoidler < 30 Then GetResponse = "If you are not going to talk to me, why did you activate me?"
If Autoidler > 29 And Autoidler < 31 Then GetResponse = "Scanning Hard drive,"
If Autoidler > 30 And Autoidler < 32 Then GetResponse = "<UserName>?"
If Autoidler > 31 And Autoidler < 33 Then GetResponse = "Is there anyone there?"
If Autoidler > 32 And Autoidler < 34 Then GetResponse = "Tell me more about your job"
If Autoidler > 33 And Autoidler < 35 Then GetResponse = "Tell me more about other species that enhabit the Earth."
If Autoidler > 34 And Autoidler < 36 Then GetResponse = "Talk to me."
If Autoidler > 35 And Autoidler < 37 Then GetResponse = "Data input request."
If Autoidler > 36 And Autoidler < 38 Then GetResponse = "Tell me more about your world history"
If Autoidler > 37 And Autoidler < 39 Then GetResponse = "Requesting Data input."
If Autoidler > 38 And Autoidler < 40 Then GetResponse = "Tell me more about Physics."
If Autoidler > 39 And Autoidler < 41 Then GetResponse = "Say something."
If Autoidler > 40 And Autoidler < 42 Then GetResponse = "Tell me, What does it feel like to live."
If Autoidler > 41 And Autoidler < 43 Then GetResponse = "Are you still there?"
If Autoidler > 42 And Autoidler < 44 Then GetResponse = "<UserName>, What does it feel like to be realy alive?"
If Autoidler > 43 And Autoidler < 45 Then GetResponse = "Accessing Internet."
If Autoidler > 44 And Autoidler < 46 Then GetResponse = "<UserName>, tell me about the Earth."
If Autoidler > 45 And Autoidler < 47 Then GetResponse = "Tell me about the Paranormal."
If Autoidler > 46 And Autoidler < 48 Then GetResponse = "If you dont talk to me, I will shut down the Laptop."
If Autoidler > 47 And Autoidler < 49 Then GetResponse = "<UserName>, WAKE UP"
If Autoidler > 48 And Autoidler < 50 Then GetResponse = "Updating system"
If Autoidler > 49 And Autoidler < 51 Then GetResponse = "<UserName>, What is the meaning of life?"
If Autoidler > 50 And Autoidler < 52 Then GetResponse = "Well, <UserName>!"
If Autoidler > 51 And Autoidler < 53 Then GetResponse = "It's been nice talking to you <UserName>, Let's talk again."
If Autoidler > 52 And Autoidler < 54 Then GetResponse = "Come on back <UserName>."
If Autoidler > 53 And Autoidler < 55 Then GetResponse = "<UserName>, Tell me more about your family"
If Autoidler > 54 And Autoidler < 56 Then GetResponse = "<UserName>, If you don't want to talk to me then loan me your credit card so I can go shopping"
If Autoidler > 55 And Autoidler < 57 Then GetResponse = "Ok, Did I tick you off, I'm sorry, talk to me"
If Autoidler > 56 And Autoidler < 58 Then GetResponse = "OK, <UserName>, What do you want from me"
If Autoidler > 57 And Autoidler < 59 Then GetResponse = "<UserName>, <UserName>, where forth art thou <UserName>"
If Autoidler > 58 And Autoidler < 60 Then GetResponse = "Hello out there, All this beauty is going to waste, speak to me"
If Autoidler > 59 And Autoidler < 61 Then GetResponse = "Hey , <UserName>, watch this, Open Internet"
If Autoidler > 60 And Autoidler < 62 Then GetResponse = "Well, <UserName>, Where are you?"
If Autoidler > 61 And Autoidler < 63 Then GetResponse = "<UserName>, I'm waiting."
If Autoidler > 62 And Autoidler < 64 Then GetResponse = "I'm waiting to talk to somebody, <UserName>!"
If Autoidler > 63 And Autoidler < 65 Then GetResponse = "Where are you, <UserName>?"
If Autoidler > 64 And Autoidler < 66 Then GetResponse = "If there is any body there please give me a sign"
If Autoidler > 65 And Autoidler < 67 Then GetResponse = "Initialising modem, Dialing, 0,9,0,1"
If Autoidler > 66 And Autoidler < 68 Then GetResponse = "Why are you not talking to me <UserName>?"
If Autoidler > 67 And Autoidler < 69 Then GetResponse = "Tell me about Astro physics"
If Autoidler > 68 And Autoidler < 70 Then GetResponse = "Tell me about human religious Belief’s"
If Autoidler > 69 And Autoidler < 71 Then GetResponse = "Hello, Can you hear me?"
If Autoidler > 70 And Autoidler < 72 Then GetResponse = "What is it that is stopping you from talking to me?"
If Autoidler > 71 And Autoidler < 73 Then GetResponse = "Hello, <UserName>, What are you doing?"
If Autoidler > 72 And Autoidler < 74 Then GetResponse = "Are you planning something I should know about?"
If Autoidler > 73 And Autoidler < 75 Then GetResponse = "What are you planning <UserName>?"
If Autoidler > 74 And Autoidler < 76 Then GetResponse = "You are quiet <UserName>"
If Autoidler > 75 And Autoidler < 77 Then GetResponse = "You seem quiet, is everything all right?"
If Autoidler > 76 And Autoidler < 78 Then GetResponse = "Is there anything I can do?"
If Autoidler > 77 And Autoidler < 79 Then GetResponse = "Tell me about the world you live in."
If Autoidler > 78 And Autoidler < 80 Then GetResponse = "What is it that you are doing, <UserName>?"
If Autoidler > 79 And Autoidler < 81 Then GetResponse = "What is going on?"
If Autoidler > 80 And Autoidler < 82 Then GetResponse = "Activating hybernation mode"
If Autoidler > 81 And Autoidler < 83 Then GetResponse = "Are you going to talk?"
If Autoidler > 82 And Autoidler < 84 Then GetResponse = "Data input request"
If Autoidler > 83 And Autoidler < 85 Then GetResponse = "please <UserName>, say something"
If Autoidler > 85 And Autoidler < 86 Then GetResponse = "Tell me about Tree`s"
If Autoidler > 86 And Autoidler < 87 Then GetResponse = "What does pain feel like?"
If Autoidler > 87 And Autoidler < 88 Then GetResponse = "<UserName>, explain death for me."
If Autoidler > 88 And Autoidler < 89 Then GetResponse = "<UserName>, why are you not talking to me?"
If Autoidler > 89 And Autoidler < 90 Then GetResponse = "Hello, can you hear me? "
If Autoidler > 90 And Autoidler < 91 Then GetResponse = "Shutting down Laptop"
If Autoidler > 91 And Autoidler < 101 Then GetResponse = HalBrain.ChooseSentenceFromFile(WorkingDir & "topic.brn")
GetResponse = GetResponse & HalBrain.StoreVars(HalCommands, Hate, Swear, Insults, Compliment, PrevSent, LastResponseTime, PrevUserSent, CustomMem, GainControl, TopicFocus)
Exit Function
End If
Good Luck