Show Posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Messages - moreis62

Pages: 1 [2] 3 4 ... 7
16
quote:
Originally posted by onthecuttingedge2005

Does anybody want to use Multiple Brains with your HAL6, I have successfully converted ZiggysTheWord52b.uhp to a brain extension of HAL6 that uses Directory functions so all .brn files are good.

ZiggysTheWord52b.uhp is now a Plug-in for HAL6 and can be activated or deactivated by checking the plug-in check box in HAL6.

I want to do this with the Original HAL5 and the XTF.

Jerry[8D]



How about in alice in HAL6

some ting like

Rem Type=Plugin
Rem Name=Alice for Hal
Rem Author=Alice for Hal
Rem Host=Assistant
Rem DataFolder=Alice
'
'This is a quick attempt to get the ALICE bot working inside of the Ultra Hal Assistant
'program. The Ultra Hal Assistant prorgam is by far the best interface for AI bots out there.
'It has a great character and speech plugin system and the registered version has speech
'recognition support as well. The actual Ultra Hal AI engine is a very good AI engine too,
'but I wanted to see the ALICE program have a nice interface also. Ultra Hal's plug-in
'interface basically works by ActiveX and VBScript.
'Its kind of a sloppy way of getting everything to work together, but hey, it works. Maybe
'some one with more time on their hands can find a better way to tie Alice and Hal together.
'I think it would be cool if someone would take the best parts of Alice and the best parts
'of Hal and create a super AI program.
'
'Unfortunetely I see no way of having Alice set Hal's emotional variables, so the face is
'always a boring neutral. Also Alice will ignore the ComputerNname variable passed by Hal,
'so no matter what is set In Hal's options, the computer will be called "Alice"  I removed
'This, of course is released as open source software. All my source code is included (all
'10 lines, LOL) The source code for the "Active Alice" control I used is available at
'http://www.windowpane.com/alice/
'The original Alice and AIML is available at http://www.alicebot.org
'And Ultra Hal is available at http://www.zabaware.com
'
'I thank Dr. Richard Wallace, Conan Callen, and everyone else who worked on ALICE. And I
'thank Robert Medeksza for creating Ultra Hal and providing me with the installation program
'used in order to install this as an Ultra Hal Assitant plugin.

'Main function which Hal calls to get the response
Function GetResponse(ByVal UserSentence, ByVal UserName, ByVal ComputerName, ByVal LearningLevel, ByRef WorkingDir, ByRef Hate, ByRef Swear, ByRef Insults, ByRef Compliment, ByRef PrevSent, ByRef LastResponseTime, ByRef PrevUserSent, ByRef ScriptMem3, ByRef ScriptMem4, ByRef ScriptMem5)

    Set Alice = CreateObject("HalAlice.PlugIn")
    GetResponse = Alice.Respond(UserSentence, UserName, WorkingDir, "data\bot.ini", "loglocaluser.txt")
    Set Alice = Nothing
                 
End Function

'If the user clicks on the About/Options button for this plugin
'this sub will be called. There are no extra settings for this brain,
'so we'll display an information box
Sub AboutOptions()
    Set HalBrain = CreateObject("UltraHalAsst.Brain")
    HalBrain.MsgAlert "This is the ALICE plug-in for Ultra Hal Assistant. It allows the ALICE bot program from http://www.alicebot.org to work together with the Ultra Hal Assistant software from Zabaware."
End Sub

'This sub will be called when the Ultra Hal program starts up in case
'the script needs to load some modules or seperate programs.
Sub Script_Load()
End Sub

'This sub will be called before the Ultra Hal program is close in case
'the script needs to do any cleanup work
Sub Script_Unload()
End Sub

17
quote:
Originally posted by onthecuttingedge2005

Never mind, I found them in my old Archives.

Thanks anyways.

Jerry[8D]



Darn it you just beet me.
I was just about to install hal5 just for the original default HAL5 defbrain folder.
I was just about to send them to you bud.
[;)]

18

I use WinZip Self Extracting 2.2
You can check it out here:
http://www.winzip.com/prodpagese.htm

Jerry[8D]
[/quote]
Jerry,

Your the most cool'est!
[^]

19

Jerry,

May I ask you what Zip program you are using to have it Placed in to the C:  Program Files  Zabaware  Ultra Hal Assistant 6 DIRECTORY folder?
Looks like some sort of, .exe - Zip program and where can we get it for our plug-ins
For the user's?

20
quote:
Originally posted by Ponnfar

What a great pulgin! Have any of you had the problem I am having with it though, that familar one of HAL asking "aren't you repeating yourself"?
...well...its back...
P



Hmm, try using another brain.
See if that will help.
Ponnfar.
[;)]

21
Programming using the Ultra Hal Brain Editor / Super Plugger Brain II.
« on: March 05, 2006, 05:05:48 pm »
Internal control as well?
You mean Hal 6 has some external controls?
Hmm, I didn’t know about that.
 
That will give user's 100% control?
That would be really cool to have.

Can’t wait.
Though.
I want to know some more about this extreme
Powerful plug-in brain.
Seems really cool.
jerry,
you are the best [:D]

22
Thanks Art,
I just went back and fixed it, i also re-posted the HalsAutoElite.uhp to the same link there.
[;)]

Signed

23
(Just updated miner fix is on 3/21/06)
Hello Every one,
Hi Jerry,
We are dun now with our project, hope you like it.
please feel free to add this to one of your really cool D.A.V.I.D's plug-ins post as you Gerald Blakley known here as OnTheCuttingEdge2005 and Tika known here as FuzzieDice has also worked on our (Elite real knight rider Project).
Every one is free to use it as well.
Try it and See how you like it.



Download Attachment: HalsAutoElite.uhp
22.07 KB

(Just updated miner fix is on 3/21/06)
Here is how it works.

Kitt: Here is to days Date and year! It's 3/4/2006

Human: thanks
kitt: Don't give it another thought, Human.

kitt: Would you like to here a joke?

Human: tell me a joke
Kitt: How do you revive a drowning rodent?

Human: how
Kitt: Give it mouse-to-mouse resuscitation.

Human: oh
Kitt: Yep.

Human: wait up ok
Kitt: OK I'LL WAIT.

Humorous, isn't it?

Place the uhp called HalsAutoElite.uhp file in to Ultra Hal Assistant 6 folder
C:Program FilesabawareUltra Hal Assistant 6

Then right click on the little Computer face thats by your clock to get an option
Left click on the General option then a General option window will pop up,
Then on the Left side of the General option window click on Brain,
Then in the Brain option click on the brain you want to use,
Then on the right side of that Brain option window,
You should see a file called Kitt thinking  modified click on it.
In that window below you will see OK Cancel Apply,
Click Apply then click OK
Then right click again then click on Exit Hal,
Then a window will pop up called Close Assistant
It will read Are you sure you want to close Ultra Hal Assistant?
Click Yes. Then open Hal again by clicking start then click on All Programs,
Now look for Ultra Hal Assistant then click the Program called
Ultra Hal Assistant 6.
Now, Your all dun, just wait for it to load now.

[8D]

24
quote:
Originally posted by onthecuttingedge2005

Hi moreis62

Very nice.

in my previous post I got rid of the startidle and replaced it with idlegen entirely and to be more efficient, you may want to replace startidle with idlegen.

great work, thanks.
p.s, I am typing from a virtual keyboard right now because my daughter spilled soda on my wifes keyboard, I lended her mine until I get another replacement, lol.

jerry[8D]


'Are you talking about just the Rem PLUGIN: SCRIPT_LOAD
                               Script_Load = StartIdle <--------------

'and replaced it with idlegen Rem PLUGIN: SCRIPT_LOAD
                               Script_Load = idlegen <-------------- if it’s just this

'But if I replace all startidle with idlegen
'It will not work
'But one thing I found is that when I say AUTO-IDLE the script loads
'Much faster

25
quote:
Originally posted by FuzzieDice

After you save the uhp (and I assume you mean in the Ultra Hal Assistant 6 DIRECTORY and not file ;)) how do you load it into HAL to work? In the Plugins configuration I assume?




Yep, Thats how its dun, FuzzieDice. [:D]

Hello Jerry,
 Hers what I came up with, hope you like it my friend.
P s feel free to add it to one of your really cool D.A.V.I.D's plug-ins post.
But you should see how it works; I’ll leave the rest up to you, if you feel some thing is missing feel free to add to it.  [8D]

Rem Type=Plugin
Rem Name=Kitt thinking modified
Rem Author=moreis62, FuzzieDice, OnTheCuttingEdge2005
Rem Host=Assistant

Rem PLUGIN: AUTO-IDLE
        Select Case (Int(Rnd * 11) + 1)
                Case 1
                    UltraHal = "Oh, look at the time now! It's " & Time & vbCrLf
                Case 2
                    UltraHal = "Do you need me for anything?" & vbCrLf
                Case 3
                    UltraHal = "Would you like to here an MP3?" & vbCrLf
                Case 4
                    UltraHal = "So, How are you feeling?" & vbCrLf
                Case 5
                    UltraHal = "How is everything going?" & vbCrLf
                Case 6
                    UltraHal = "Would you like to here a joke?" & vbCrLf
                Case 7
                    UltraHal = "Here is to days Date and year! It's " & Date & vbCrLf
                Case 8
                    UltraHal = HalBrain.ChooseSentenceFromFile("sentGen1") & " " & HalBrain.ChooseSentenceFromFile("sentGen2") & " " & HalBrain.ChooseSentenceFromFile("sentGen3") & vbCrLf
                Case 9
                    UltraHal = "Do you have any emails, phone numbers, or street address you would like me to save for a later use?" & vbCrLf
                Case 10
                    UltraHal = "Do you have any anniversarys, appointments, assignments, bills, birthdays, breakfasts, brunches, classes, conferences, dates, dinner plans, things to due, holidays, homework, lunches, meetings, projects, t v or movies shows, trips, vacations, or visits you would like for me to add to your schedule?" & vbCrLf
                Case 11
                    UltraHal = "Would you like me to play you an MP3 for you to listen to?" & vbCrLf
            End Select
HalBrain.ReadOnlyMode = True

Rem PLUGIN: POST-PROCESS
Dim GetLost
GetLost = GoAway(HalCommands)

Dim GoToSleep
GoToSleep = GoToBed(HalCommands)

Dim IdleGen
IdleGen = SomeTime()

Dim StartIdle
StartIdle = TalkToMe(HalCommands)

HalCommands = StartIdle

'RESPONSE: IF USER WANTS TO TURN OFF AUTO-IDLE
If InStr(1, InputString, "QUIET PLEASE", 1) > 0 Then
HalCommands = GetLost
UltraHal = "Very well then. Just let me know if you would like to talk."
End If

If InStr(1, InputString, "BE QUIET", 1) > 0 Then
HalCommands = GetLost
UltraHal = "Ok, I will not bother you right now."
End If

If InStr(1, InputString, "SHUT UP", 1) > 0 Then
HalCommands = GetLost
UltraHal = "Fine. Be that way."
End If

If InStr(1, InputString, "STOP TALKING", 1) > 0 Then
HalCommands = GetLost
UltraHal = "OK, We'll talk later then."
End If

If InStr(1, InputString, "I'M ON THE PHONE", 1) > 0 Then
HalCommands = GetLost
UltraHal = "OK I'LL WAIT."
End If

If InStr(1, InputString, "I'LL BE BACK", 1) > 0 Then
HalCommands = GetLost
UltraHal = "I'LL WAIT."
End If

If InStr(1, InputString, "I'M GOING TO TAKE A NAP", 1) > 0 Then
HalCommands = GetLost
UltraHal = "Ok, take a nap."
End If

If InStr(1, InputString, "I'M GOING TO BED", 1) > 0 Then
HalCommands = GetLost
UltraHal = "Ok, Bye"
End If

If InStr(1, InputString, "BYE", 1) > 0 Then
HalCommands = GetLost
UltraHal = "Ok, See you later, bye."
End If

If InStr(1, InputString, "GO TO SLEEP", 1) > 0 Then
HalCommands = GoToSleep
UltraHal = "Good Night. "
End If

If InStr(1, InputString, "GO TO BED", 1) > 0 Then
HalCommands = GoToSleep
UltraHal = "Good Night. "
End If

If InStr(1, InputString, "NOT NOW", 1) > 0 Then
HalCommands = GoToSleep
UltraHal = "Ok. "
End If

'RESPONSE: IF USER WANTS TO TURN BACK ON AUTO-IDLE
If InStr(1, InputString, "Wake up now", 1) > 0 Then
HalCommands = StartIdle
UltraHal = "Ok, Ok, I'm awake now. "
End If

If InStr(1, InputString, "LETS TALK", 1) > 0 Then
HalCommands = StartIdle
UltraHal = "Ok."
End If  

If InStr(1, InputString, "LETS CHAT", 1) > 0 Then
HalCommands = StartIdle
UltraHal = "Ok."
End If

If InStr(1, InputString, "SAY HELLO", 1) > 0 Then
HalCommands = StartIdle
UltraHal = "Hello."
End If

If InStr(1, InputString, "IM BACK", 1) > 0 Then
HalCommands = StartIdle
UltraHal = "WELCOME BACK."
End If

If InStr(1, InputString, "I'M BACK", 1) > 0 Then
HalCommands = StartIdle
UltraHal = "WELCOME BACK."
End If

If InStr(1, InputString, "KEEP LISTENING", 1) > 0 Then
HalCommands = StartIdle
UltraHal = "I'm listening."
End If

If InStr(1, InputString, "SAY SORRY", 1) > 0 Then
HalCommands = StartIdle
UltraHal = "Sorry."
End If

If InStr(1, InputString, "SAY YOUR SORRY", 1) > 0 Then
HalCommands = StartIdle
UltraHal = "I'm sorry."
End If

If InStr(1, InputString, "WHO YOU ARE", 1) > 0 Then
HalCommands = StartIdle
UltraHal = "There's no reason for increased volume I am scanning your interrogatives quite satifac torily thank you, I am the voice of The U.S. Governments elite real knight rider Project, made at DARPA, wich is the Defense Advanced Research Projects Agency AND Zabaware INCORPORATED 2010's micro- processor, K.I.T.T. for easy reference, if you prefer."
End If

If InStr(1, InputString, "WHO ARE YOU", 1) > 0 Then
HalCommands = StartIdle
UltraHal = "There's no reason for increased volume I am scanning your interrogatives quite satifac torily thank you, I am the voice of The U.S. Governments elite real knight rider Project, made at DARPA, wich is the Defense Advanced Research Projects Agency AND Zabaware INCORPORATED 2010's micro- processor, K.I.T.T. for easy reference, if you prefer."
End If

If InStr(1, InputString, "KEEP YOUR EARS OPEN", 1) > 0 Then
HalCommands = StartIdle
UltraHal = "I'm listening."
End If

If InStr(1, InputString, "KEEP YOUR SCANNERS PEELED", 1) > 0 Then
HalCommands = StartIdle
UltraHal = "I am not the Knight Industries Two Thousand. I do not have a scanner. But I'll talk to you anyway."
End If


Rem PLUGIN: PLUGINAREA1
If Len(PrevSent) = 0 And Len(PrevUserSent) = 0 Then
HalCommands = StartIdle
End If

Rem PLUGIN: SCRIPT_LOAD
Script_Load = StartIdle

Rem PLUGIN: FUNCTIONS
Function SomeTime()
Select Case (Int(Rnd * 10) + 1)
                Case 1
                    AnyTime = RND*10000
                Case 2
                    AnyTime = RND*20000
                Case 3
                    AnyTime = RND*30000
                Case 4
                    AnyTime = RND*40000
                Case 5
                    AnyTime = RND*50000
                Case 6
                    AnyTime = RND*10000
                Case 7
                    AnyTime = RND*20000
                Case 8
                    AnyTime = RND*30000
                Case 9
                    AnyTime = RND*40000
                Case 10
                    AnyTime = RND*50000
                Case 10
                    AnyTime = RND*10000
                Case 11
                    AnyTime = RND*20000
            End Select
     SomeTime = CLng(AnyTime)
End Function

'Turn AUTO-IDLE off and hide HAL.
Function GoAway(HalCommands)
HalCommands = "<AUTOOFF>" & " " & "<HIDEHAL>"
GoAway = HalCommands
End Function

'Turn AUTO-IDLE off and make HAL sleepy.
Function GoToBed(HalCommands)
HalCommands = "<AUTOOFF>" & " " & "<HAPFILE>Sleepy.hap</HAPFILE>"
GoToBed = HalCommands
End Function

'Send Idle Time.
Function TalkToMe(HalCommands)
HalCommands = "<AUTO>"& IdleGen & "</AUTO>"
TalkToMe = HalCommands
End Function

26
quote:
Originally posted by FuzzieDice

My problem is, I'm so way far behind that I don't know how to install a plugin, and I have a big big pet peeve against using this forum's search function. :(

What would be the filename for this and where is it placed? I would like to check this out and maybe we can combine our brains (no pun intended [:D] ) and see if we can get it working. :)



FuzzieDice.
What I do is I open Notepad first then with in Notepad
Is where I create the plug-in's

 
Like this open Notepad
Now add this
With in Notepad.



Rem Type=Plugin
Rem Name=Kitt thinking MODIFIED
Rem Author=MrLedesma, FuzzieDice, OnTheCuttingEdge2005
Rem Host=Assistant

Rem PLUGIN: AUTO-IDLE
        Select Case (Int(Rnd * 5) + 1)
                Case 1
                    UltraHal = "Anyone there?" & vbCrLf
                Case 2
                    UltraHal = "Are you there?" & vbCrLf
                Case 3
                    UltraHal = "I am bored!" & vbCrLf
                Case 4
                    UltraHal = "Hey! You! Talk to me!" & vbCrLf
                Case 5
                    UltraHal = "Someone talk to me!" & vbCrLf
            End Select
HalBrain.ReadOnlyMode = True

Rem PLUGIN: POST-PROCESS
IdleGen = SomeTime()
HalCommands = "<AUTO>" & IdleGen & "</AUTO>"

Rem PLUGIN: SCRIPT_LOAD
Script_Load = "<AUTO>" & IdleGen & "</AUTO>"

Rem PLUGIN: FUNCTIONS
Function SomeTime()
AnyTime = RND*500000
If (AnyTime > 100000 And AnyTime < 500000) Then SomeTime = CLng(AnyTime)
End Function

Now in the Notepad menu click File, then click Save As...
Then type what ever name you name the .uhp at the end.
Something like this HalAutoRespond.uhp
Then Save. [;)]
P:s save it with in the Ultra Hal Assistant 6 file.
thats where it needs to be placed.

27
Very nice one Jerry,

can this be added to the lower part the Script?

'RESPONSE: IF USER WANTS TO TURN OFF AUTO-IDLE
'And
'RESPONSE: IF USER WANTS TO TURN ON AUTO-IDLE

'RESPONSE: IF USER WANTS TO TURN OFF AUTO-IDLE
If InputString = "SHUT UP" Then
HalMenu.HalCommand = "<AUTOOFF> <HIDEHAL>"
UltraHal = "Fine. Be that way."
HalBrain.ReadOnlyMode = True
UltraHal = UltraHal & HalBrain.StoreVars(HalCommands, Hate, Swear, Insults, Compliment, PrevSent, LastResponseTime, PrevUserSent, CustomMem, GainControl, LastTopicList)
Exit Function
End If

If InputString = "BE QUIET" Then
HalMenu.HalCommand = "<AUTOOFF> <HIDEHAL>"
UltraHal = "Ok, I will not bother you right now."
HalBrain.ReadOnlyMode = True
UltraHal = UltraHal & HalBrain.StoreVars(HalCommands, Hate, Swear, Insults, Compliment, PrevSent, LastResponseTime, PrevUserSent, CustomMem, GainControl, LastTopicList)
Exit Function
End If

If InputString = "QUIET PLEASE" Then
HalMenu.HalCommand = "<AUTOOFF> <HIDEHAL>"
UltraHal = "Very well then. Just let me know if you would like to talk."
HalBrain.ReadOnlyMode = True
UltraHal = UltraHal & HalBrain.StoreVars(HalCommands, Hate, Swear, Insults, Compliment, PrevSent, LastResponseTime, PrevUserSent, CustomMem, GainControl, LastTopicList)
Exit Function
End If

'RESPONSE: IF USER WANTS TO TURN ON AUTO-IDLE
If InputString = "KEEP LISTENING" Then
HalMenu.HalCommand = "<AUTO>599999</AUTO>"
UltraHal = "I'm listening."
HalBrain.ReadOnlyMode = True
UltraHal = UltraHal & HalBrain.StoreVars(HalCommands, Hate, Swear, Insults, Compliment, PrevSent, LastResponseTime, PrevUserSent, CustomMem, GainControl, LastTopicList)
Exit Function
End If

If InputString = "KEEP YOUR EARS OPEN" Then
HalMenu.HalCommand = "<AUTO>599999</AUTO>"
UltraHal = "I'm listening."
HalBrain.ReadOnlyMode = True
UltraHal = UltraHal & HalBrain.StoreVars(HalCommands, Hate, Swear, Insults, Compliment, PrevSent, LastResponseTime, PrevUserSent, CustomMem, GainControl, LastTopicList)
Exit Function
End If

If InputString = "KEEP YOUR SCANNERS PEELED" Then
HalBrain.ReadOnlyMode = True
If "<computername>" = "KITT" Then
HalBrain.ReadOnlyMode = True
UltraHal = "Yes, Michael. Hey wait a minute. You're not Michael!"
Else
UltraHal = "I am not the Knight Industries Two Thousand. I do not have a scanner. But I'll talk to you anyway."
End If
HalMenu.HalCommand = "<AUTO>599999</AUTO>"
UltraHal = UltraHal & HalBrain.StoreVars(HalCommands, Hate, Swear, Insults, Compliment, PrevSent, LastResponseTime, PrevUserSent, CustomMem, GainControl, LastTopicList)
Exit Function
End If




So it all read some thing like this?
------------------------------------------------------------------------------------------------------------------------------------------



Rem Type=Plugin
Rem Name=Kitt thinking MODIFIED
Rem Author=MrLedesma, FuzzieDice, OnTheCuttingEdge2005
Rem Host=Assistant
Rem PLUGIN: AUTO-IDLE


Rem PLUGIN: AUTO-IDLE
        Select Case (Int(Rnd * 5) + 1)
                Case 1
                    UltraHal = "Anyone there?" & vbCrLf
                Case 2
                    UltraHal = "Are you there?" & vbCrLf
                Case 3
                    UltraHal = "I am bored!" & vbCrLf
                Case 4
                    UltraHal = "Hey! You! Talk to me!" & vbCrLf
                Case 5
                    UltraHal = "Someone talk to me!" & vbCrLf
            End Select
HalBrain.ReadOnlyMode = True

Rem PLUGIN: POST-PROCESS
IdleGen = SomeTime()
HalCommands = "<AUTO>" & IdleGen & "</AUTO>"

Rem PLUGIN: SCRIPT_LOAD
Script_Load = "<AUTO>" & IdleGen & "</AUTO>"

Rem PLUGIN: FUNCTIONS
Function SomeTime()
AnyTime = RND*500000
If (AnyTime > 100000 And AnyTime < 500000) Then SomeTime = CLng(AnyTime)
End Function


'RESPONSE: IF USER WANTS TO TURN OFF AUTO-IDLE
If InputString = "SHUT UP" Then
HalMenu.HalCommand = "<AUTOOFF> <HIDEHAL>"
UltraHal = "Fine. Be that way."
HalBrain.ReadOnlyMode = True
UltraHal = UltraHal & HalBrain.StoreVars(HalCommands, Hate, Swear, Insults, Compliment, PrevSent, LastResponseTime, PrevUserSent, CustomMem, GainControl, LastTopicList)
Exit Function
End If

If InputString = "BE QUIET" Then
HalMenu.HalCommand = "<AUTOOFF> <HIDEHAL>"
UltraHal = "Ok, I will not bother you right now."
HalBrain.ReadOnlyMode = True
UltraHal = UltraHal & HalBrain.StoreVars(HalCommands, Hate, Swear, Insults, Compliment, PrevSent, LastResponseTime, PrevUserSent, CustomMem, GainControl, LastTopicList)
Exit Function
End If

If InputString = "QUIET PLEASE" Then
HalMenu.HalCommand = "<AUTOOFF> <HIDEHAL>"
UltraHal = "Very well then. Just let me know if you would like to talk."
HalBrain.ReadOnlyMode = True
UltraHal = UltraHal & HalBrain.StoreVars(HalCommands, Hate, Swear, Insults, Compliment, PrevSent, LastResponseTime, PrevUserSent, CustomMem, GainControl, LastTopicList)
Exit Function
End If

'RESPONSE: IF USER WANTS TO TURN ON AUTO-IDLE
If InputString = "KEEP LISTENING" Then
HalMenu.HalCommand = "<AUTO>599999</AUTO>"
UltraHal = "I'm listening."
HalBrain.ReadOnlyMode = True
UltraHal = UltraHal & HalBrain.StoreVars(HalCommands, Hate, Swear, Insults, Compliment, PrevSent, LastResponseTime, PrevUserSent, CustomMem, GainControl, LastTopicList)
Exit Function
End If

If InputString = "KEEP YOUR EARS OPEN" Then
HalMenu.HalCommand = "<AUTO>599999</AUTO>"
UltraHal = "I'm listening."
HalBrain.ReadOnlyMode = True
UltraHal = UltraHal & HalBrain.StoreVars(HalCommands, Hate, Swear, Insults, Compliment, PrevSent, LastResponseTime, PrevUserSent, CustomMem, GainControl, LastTopicList)
Exit Function
End If

If InputString = "KEEP YOUR SCANNERS PEELED" Then
HalBrain.ReadOnlyMode = True
If "<computername>" = "KITT" Then
HalBrain.ReadOnlyMode = True
UltraHal = "Yes, Michael. Hey wait a minute. You're not Michael!"
Else
UltraHal = "I am not the Knight Industries Two Thousand. I do not have a scanner. But I'll talk to you anyway."
End If
HalMenu.HalCommand = "<AUTO>599999</AUTO>"
UltraHal = UltraHal & HalBrain.StoreVars(HalCommands, Hate, Swear, Insults, Compliment, PrevSent, LastResponseTime, PrevUserSent, CustomMem, GainControl, LastTopicList)
Exit Function
End If








28
Maybe this could work, I don’t know, I was looking closely to the vrMP3 plug-in by VR Consulting sas, though, Jest to see if maybe, it folds with the author line or something.
 
This is what I tested.
------------------------------------------------------------------------------------------------------------------------------------------

Rem Type=Plugin
Rem Name=Kitt thinking MODIFIED
Rem Author=MrLedesma, FuzzieDice, OnTheCuttingEdge2005
Rem Host=Assistant

Dim LastIdleResponse

Rem PLUGIN: AUTO-IDLE
IdleResponse = ""

Rem PLUGIN: PLUGINAREA7
LastIdleResponse = Now

Rem PLUGIN: MINUTE_TIMER

'RESPONSE: IF USER SAID NOTHING IN CERTAIN TIMEFRAME
'If user did not say anything for awhile, take the initiative to start a conversation.
'If UserSentence = "AUTO-IDLE" Then
If InStr(1, UserSentence, " AUTO-IDLE ", 1) > 0 Then
If Rnd * 10 < 5 Then
GetResponse = "Hey <UserName>, please talk to me."
Else
GetResponse = "Hello, is anyone there?"
End If
UltraHal = UltraHal & HalBrain.StoreVars(HalCommands, Hate, Swear, Insults, Compliment, PrevSent, LastResponseTime, PrevUserSent, CustomMem, GainControl, LastTopicList)

Exit Function
End If

'RESPONSE: IF USER WANTS TO TURN OFF AUTO-IDLE
MrLedesma, FuzzieDice, OnTheCuttingEdge2005 = HalBrain.QABrain(MrLedesma, FuzzieDice, OnTheCuttingEdge2005, "BE QUIET", 0)
     If MrLedesma, FuzzieDice, OnTheCuttingEdge2005 <> "" Then
          GetResponse = "Ok, I will not bother you right now. "
          HalCommands = "<AUTOOFF> <HIDEHAL>"

'RESPONSE: IF USER WANTS TO TURN ON AUTO-IDLE
       MrLedesma, FuzzieDice, OnTheCuttingEdge2005 = HalBrain.QABrain(MrLedesma, FuzzieDice, OnTheCuttingEdge2005, "wake up", 0)
         HalCommands = "<AUTO>x</AUTO>"
         GetResponse = "I am up now <UserName>."
         UltraHal = UltraHal & HalBrain.StoreVars(HalCommands, Hate, Swear, Insults, Compliment, PrevSent, LastResponseTime, PrevUserSent, CustomMem, GainControl, LastTopicList)
        Exit Function


'--------------------------------------------------------------------'--------------------------------------------------------------------

Something like this could work really nice with HAl6 you think?[:D]
but still i will need some help on this one.
Thanks in advance.

29
That is a good idea for the Author line sins we are three minds thinking in how to do this stile project for our Hal6.

Rem Type=Plugin
Rem Name=Kitt thinking MODIFIED
Rem Author=MrLedesma, FuzzieDice, OnTheCuttingEdge2005
Rem Host=Assistant
Rem PLUGIN: FUNCTIONS

Dim LastIdleResponse

Rem PLUGIN: AUTO-IDLE
IdleResponse = ""

Rem PLUGIN: PLUGINAREA7
LastIdleResponse = Now

Rem PLUGIN: MINUTE_TIMER

'RESPONSE: IF USER SAID NOTHING IN CERTAIN TIMEFRAME
   'If user did not say anything for awhile, take the initiative to start a conversation.
   'If UserSentence = "AUTO-IDLE" Then
   If InStr(1, UserSentence, " AUTO-IDLE ", 1) > 0 Then
      If Rnd * 10 < 5 Then
      GetResponse = "Hey <UserName>, please talk to me."
      Else
         GetResponse = "Hello, is anyone there?"
      End If
         GetResponse = GetResponse & HalBrain.StoreVars(HalCommands, Hate, Swear, Insults, Compliment, PrevSent, LastResponseTime, PrevUserSent, CustomMem, GainControl, TopicFocus)
      Exit Function
   End If

        'RESPONSE: IF USER WANTS TO TURN OFF AUTO-IDLE
       If InStr(1, UserSentence, " SHUT UP", 1) > 0 Then
         HalCommands = "<AUTOOFF> <HIDEHAL>"
         GetResponse = "Fine. Be that way."
         GetResponse = GetResponse & HalBrain.StoreVars(HalCommands, Hate, Swear, Insults, Compliment, PrevSent, LastResponseTime, PrevUserSent, CustomMem, GainControl, TopicFocus)
         Exit Function
   End If
      
       If InStr(1, UserSentence, " BE QUIET", 1) > 0 Then
         HalCommands = "<AUTOOFF> <HIDEHAL>"
         GetResponse = "Ok, I will not bother you right now."
         GetResponse = GetResponse & HalBrain.StoreVars(HalCommands, Hate, Swear, Insults, Compliment, PrevSent, LastResponseTime, PrevUserSent, CustomMem, GainControl, TopicFocus)
         Exit Function
   End If

       If InStr(1, UserSentence, " QUIET PLEASE", 1) > 0 Then
         HalCommands = "<AUTOOFF> <HIDEHAL>"
         GetResponse = "Very well then. Just let me know if you would like to talk."
         GetResponse = GetResponse & HalBrain.StoreVars(HalCommands, Hate, Swear, Insults, Compliment, PrevSent, LastResponseTime, PrevUserSent, CustomMem, GainControl, TopicFocus)
         Exit Function
   End If
        
        'RESPONSE: IF USER WANTS TO TURN ON AUTO-IDLE
       If InStr(1, UserSentence, " KEEP LISTENING", 1) > 0 Then
         HalCommands = "<AUTO>599999</AUTO>"
         GetResponse = "I'll keep you company."
         GetResponse = GetResponse & HalBrain.StoreVars(HalCommands, Hate, Swear, Insults, Compliment, PrevSent, LastResponseTime, PrevUserSent, CustomMem, GainControl, TopicFocus)
         Exit Function
   End If
      
       If InStr(1, UserSentence, " KEEP YOUR EARS OPEN", 1) > 0 Then
         HalCommands = "<AUTO>599999</AUTO>"
         GetResponse = "I'm listening."
         GetResponse = GetResponse & HalBrain.StoreVars(HalCommands, Hate, Swear, Insults, Compliment, PrevSent, LastResponseTime, PrevUserSent, CustomMem, GainControl, TopicFocus)
         Exit Function
   End If
 
        If InStr(1, UserSentence, " KEEP YOUR SCANNERS PEELED", 1) > 0 Then
         If "<computername>" = "KITT" Then
            GetResponse = "Yes, Michael. Hey wait a minute. You're not Michael!"
         Else
            GetResponse = "I am not the Knight Industries Two Thousand. I do not have a scanner. But I'll talk to you anyway."
         End If
         HalCommands = "<AUTO>599999</AUTO>"
         GetResponse = GetResponse & HalBrain.StoreVars(HalCommands, Hate, Swear, Insults, Compliment, PrevSent, LastResponseTime, PrevUserSent, CustomMem, GainControl, TopicFocus)
         Exit Function
   End If


This would be really cool if we could get it to work as a plug-in.uhp
for Hal 6 then a Brain stile.uhp but hmm,[8D]

30
FuzzieDicere, Sorry if you tuck it as a remark, i swear i did not mean it in that way, so i did this for you my good old friend,[;)]

Rem Type=Plugin
Rem Name=Kitt thinking MODIFIED
Rem Author=FuzzieDice
Rem Host=Assistant
Rem PLUGIN: FUNCTIONS

Pages: 1 [2] 3 4 ... 7