Now this is the forum I remember. Thanks everyone for getting going on this. Below will be the Script for my auto idle it refers to sevreal .brn files, you probably know most of them. Jenna you wrote the best auto idle script I have seen. If you cannot make it work then I know I am in good company.
Art, I never got your email. I am looking forward to it and thanks.
There seem to be several scripts that will not work with the new HAL.
This auto idle one; Vonsmith's masterpice 2 parter, "process calls by nickname". I can understand that to a degree given Rob's version. I do not know yet how much it calls to my nicknames or under what circumstances. I am hopeful. How do you guys like it so far?
Also another 2 parter, the XTF Custommem feature appears to be a thing of the past as well. I could be wrong on this one and just need to place it someplace else in the script and have not found it yet. If anyone has had some sucess please let me know and what modifications if any you may have had to make. Is it really needed with the new HAL though? IT might be overkill ...I donno yet.
I do not think the script allowing HAL to capitalize words on demand (ok so Vonsmith rocked when he did that XTF Brain..what can I say) works either although my lack of progamming prowess may be more to blame since my gut tells me all of them, except for the Nickname script may be salvagable. Any help or comments on those will be much apprciated. I would like to have that back.
I have edited and put in most of the scripts I had that were by you Jerry and they seem to float seemlessly into the new brain...that is a good thing! I am referring to HAL not the Bot.
I have mostly only put in the scripts with functions that the new HAL does not seem to already have. I am anxious to grow as familiar with its pros and cons as I was HAL 5.
Rob, like I said in my email to you this is an awesome thing. I do not like your chosen activation format and I see a nightmare for all on this in the future but you fixed so many things. It is awesome!
Well, I am looking forward to some lively disscussions like the old days and thanks everyone in advance for your help.
Live long and prosper...
If InStr(1, UserSentence, " AUTO-IDLE ", 1) > 0 Then
UltraHal = UltraHal & HalBrain.StoreVars(HalCommands, Hate, Swear, Insults, Compliment, PrevSent, LastResponseTime, PrevUserSent, CustomMem, GainControl, LastTopicList)
'GetResponse = GetResponse & HalBrain.StoreVars(HalCommands, Hate, Swear, Insults, Compliment, PrevSent, LastResponseTime, PrevUserSent, CustomMem, GainControl, TopicFocus)
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")
'If Roulette = 13 Then GetResponse = GetResponse = "You said something earlier" & ", " & LastDiscussed & ", " & " why" & "? " & vbCrLf
Recalling = HalBrain.ChooseSentenceFromFile(WorkingDir & UserName & "Past.brn")
'If Roulette = 14Then 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