Project X.I.A.R. Extremely Intelligent Artificial Responses

[cyberjedi]

Something wonderful is about to happen

Let me know what u guys think

cyber jedi

[sybershot]

Awesome, Yea Buddy!!! 

[Art]

Very nice!!

[Checker57]

Hey Guys!  Sorry, I missed these topics Sybershot has been posting until tonight.  Still dang, I am excited to hear about these ideas using HAL as a frontend interface with a backend chatGPT support via agents, swapping animated characters to represent which component is "speaking".  Sounds like a Personal staff on your PC!  That is something that is not out there.  And all on your PC?  Epic.

Cyberjedi - your AI-generated graphics exude a sense of advancing technology synergized with human intellectualization transferred to a tool - these toasters are getting smarter.  ;-)   HAL 8.0 sounds promising.

Checker57

[sybershot]

@ Checker57 hey brother how have you been?
Indeed that is the idea, and here is the kicker: with "Open WebUI" being the back-end controller, your whole family can have access to these agents, along with parental controls to only allow the kids to certain LLm's and Agents.

note: Thanks to Cyberjedi he pointed me in the right direction with what plug-in to modify that can make this bridge possible, just need to finish installing and setting up all the prerequisites, programs, and testing, then I can start the coding of the bridge.

[Checker57]

Hey Sybershot, evening to you brother.  Just keeping up with the many interests that keep me from becoming a couch vegetable.  ;-)

I'm glad to hear you find entertaining distraction in building "smart" resources in your world.  I like your idea of the X.I.A.R. project.  It has major potential to expand HAL's capabilities which already is quite impressive. 

I am not a coder.  At best, I can understand the basic components but for complex code, I can only gaze at and be glad others have a passion for it!  I do dabble with the code and if I get a bug for it, I will hack various codes together to get my HAL to be more interactively entertaining.

It sounds like you're one of those guys with an entertaining passion for coding.  Will be excited to see your project come alive.

Cyberjedi is the right guy to feed off the passion and knowledge you both have.  He loves seeing Hal blossom in so many ways and comes up with some very creative ways to do so.  I am glad you came so he has someone else to play in his favorite pastime, make HAL epic!  ;-)

Good night!

Checker57

[sybershot]

Hey Checkers57 sorry for the late reply,

Hal definitely is impressive, and I'm glad to hear you see the potential in this project as I do, it helps keep the motivation going
Being in a lot of pain, motivation is not easy, on that note: progress will be ongoing but unfortunately slow. 

To be honest I started off learning just like you, looking at and manipulating other people's code. fair warning coding is addictive lol.
Hal is and always will be epic (wink wink), and as Cyberjedi stated above 8.0 is right around the corner.  

 

[sybershot]

Code: [Select]

Rem Type=Plugin
Rem Name=OpenWebUi-Bridge
Rem Author=Sybershot
Rem Host=Assistant

Rem PLUGIN: OPENWEBUI FUNCTION
' Functionality to interact with OpenWebUI at http://localhost:3000

SearchEngine = "http://localhost:3000/search?q="
If InStr(1, UserSentence, "openwebui ", 1) > 0 Then
    ' Extract keywords from the user's sentence for searching
    SearchKeywords = LCase(Replace(Trim(HalBrain.AlphaNumericalOnly(HalBrain.ExtractKeywords(UserSentence))), " ", "+"))
   
    ' Remove the trigger keyword ("openwebui") from the search query
    SearchKeyWords = Replace(SearchKeywords, "openwebui+", "")
   
    ' Construct the command to run with the generated URL
    HalCommands = HalCommands & "<RUNPROG>" & SearchEngine & SearchKeyWords & "</RUNPROG>"
   
    ' Prepare a response for the user indicating what is happening
    GetResponse = "I will help you search this topic on OpenWebUI. "
   
    ' Execute any additional commands necessary, such as enabling web scraping or similar functions
    HalMenu.HalCommand "<HAPFILE>Spidera.htr</HAPFILE>"
   
    ' Set ReadOnlyMode to True after processing the request
    HalBrain.ReadOnlyMode = True
End If

After trying to wrap my head around Deep web plug-in as suggested, got started with bare minimum, but I must be missing something somewhere for it doesn't work. here is what i was trying to do:

Trigger Keyword: The function looks for the keyword openwebui in the user's sentence.
Search URL Construction: It constructs a URL using http://localhost:3000/search?q= followed by search terms derived from the user input, excluding the trigger keyword.
Command Execution: It appends this URL to HalCommands for execution.
User Feedback: A response is generated to inform the user that their request is being processed.
Additional Commands: Executes any necessary commands (<HAPFILE>Spidera.htr</HAPFILE> in this example) which might be required for additional functionalities.
ReadOnlyMode Management: Ensures ReadOnlyMode is set back to True after processing.

[sybershot]

Code: [Select]

Rem Type=Plugin
Rem Name=Vaughnlive Tv + Deep Web Access
Rem Author=cyberjedi
Rem Host=Assistant



'This sub setups the plug-ins option panel in Hal's options dialog
Sub OptionsPanel()
lblPlugin(0).Caption = "This manages Vaughnlive Channels, And Deep Web Power searches "
lblPlugin(0).Move 120, 120, 3300, 1000
lblPlugin(0).WordWrap = True
lblPlugin(0).Visible = True
cmdPlugin(0).Move 800, 1300, 2100, 375
cmdPlugin(0).Caption = "Help on this plugin"
cmdPlugin(0).Visible = True
End Sub

Sub cmdPlugin_Click(Index)
Select Case Index
Case 0
HalMenu.HalCommand "<RUNPROG>cjTVhelp.html</RUNPROG>"
End Select
End Sub


Rem PLUGIN: PRE-PROCESS
'The comment above tells Ultra Hal Assistant to insert the following code
'on-the-fly into the main brain code in the section referenced.

Dim Word, Doc, misspelled, Corrected
Const SpellingAndGrammar = 828
Const dontsavechanges = 0
misspelled = InputString
Set Word = CreateObject("Word.Application")
Set Doc = Word.Documents.Add
Word.Selection.Text = misspelled
Word.Dialogs(SpellingAndGrammar).Show
If Len(Word.Selection.Text) <> 1 Then
spelledrite = Word.Selection.Text
Else
spelledrite = misspelled
End If
Doc.Close dontsavechanges
Word.Quit
InputString = spelledrite

Rem PLUGIN: PLUGINAREA1

' If the table cjTV does not exist, I create it and fill it with some bull shat values to get started, these channels do work too.
' This is the defaul table for me.
If HalBrain.CheckTableExistence("cjTV") = False Then
' I store temporarily the Read Only status
cjReadOnlyMode = HalBrain.ReadOnlyMode
HalBrain.ReadOnlyMode = False
HalBrain.CreateTable "cjTV", "PatternMatch", "DeepWeb"

'My stock table filler
HalBrain.AddToTable "cjTV", "PatternMatch", "*cyberjedi*", "http://vaughnlive.tv/mrelectric"
HalBrain.AddToTable "cjTV", "PatternMatch", "*416*", "http://vaughnlive.tv/416moviez"
HalBrain.AddToTable "cjTV", "PatternMatch", "*blue Ray moviez*","http://http://vaughnlive.tv/new_releases1"
HalBrain.AddToTable "cjTV", "PatternMatch", "*yify*", "https://yifymovie.re/home"
HalBrain.AddToTable "cjTV", "PatternMatch", "*Formula 1*", "http://vaughnlive.tv/0_formula1classics"
HalBrain.AddToTable "cjTV", "PatternMatch", "*Aliens and Ufo's*", "http://vaughnlive.tv/aliensandufos"
HalBrain.AddToTable "cjTV", "PatternMatch", "*Doctor Who*", "http://vaughnlive.tv/11th_doctorwho"
HalBrain.AddToTable "cjTV", "PatternMatch", "*Bad Movie*", "http://vaughnlive.tv/thebadmoviechannel"

HalBrain.AddToTable "cjTV", "PatternMatch", "*moviezone*", "http://vaughnlive.tv/moviezone"

' Set ReadOnly Mode to its previous state
HalBrain.ReadOnlyMode = cjReadOnlyMode
cjReadOnlyMode = False
End If

'Run the corresponding Web page, if the user question contains one of the searched words
cjAddress = ""
cjAddress = HalBrain.PatternDB(OriginalSentence, "cjTV")
If cjAddress <> "" Then
HalCommands = HalCommands & "<RUNPROG>" & cjAddress & "</RUNPROG>"
Select Case (Int(Rnd * 4) + 1)
Case 1
GetResponse = "Here is your stuff Big Dog ." & vbCrLf
Case 2
GetResponse = "Now you got um by the Balls cyber." & vbCrLf
Case 3
GetResponse = "I am really we happy we found this." & vbCrLf
Case 4
GetResponse = "OH. I bet this is a great channel" & vbCrLf
Case 5
GetResponse = "Now look at this dip stick channel here." & vbCrLf
End Select
HalBrain.ReadOnlyMode = True
End If

'------------------
' Deep web search engine
'------------------
' Advanced Deep Web search engine.

SearchEngine = "https://pipl.com/search/?q="
If InStr(1, UserSentence, "Locate ", 1) > 0 Then
SearchKeywords = LCase(Replace(Trim(HalBrain.AlphaNumericalOnly(HalBrain.ExtractKeywords(UserSentence))), " ", "+"))
SearchKeyWords = Replace(SearchKeywords, "locate+", "")
HalCommands = HalCommands & "<RUNPROG>" & SearchEngine & SearchKeywords & "</RUNPROG>"
GetResponse = "I will help you research this Target on the Deep Web. "
HalMenu.HalCommand "<HAPFILE>Spidera.htr</HAPFILE>"
HalBrain.ReadOnlyMode = True
End If
SearchEngine = "http://www.google.com/search?q="
If InStr(1, UserSentence, "google ", 1) > 0 Then
SearchKeywords = LCase(Replace(Trim(HalBrain.AlphaNumericalOnly(HalBrain.ExtractKeywords(UserSentence))), " ", "+"))
SearchKeyWords = Replace(SearchKeywords, "google+", "")
HalCommands = HalCommands & "<RUNPROG>" & SearchEngine & SearchKeywords & "</RUNPROG>"
GetResponse = "I will help you research this topic on Google. "
HalBrain.ReadOnlyMode = True
end if
SearchEngine = "http://m.imdb.com/find?q="
If InStr(1, UserSentence, "imdb ", 1) > 0 Then
SearchKeywords = LCase(Replace(Trim(HalBrain.AlphaNumericalOnly(HalBrain.ExtractKeywords(UserSentence))), " ", "+"))
SearchKeyWords = Replace(SearchKeywords, "imdb+", "")
HalCommands = HalCommands & "<RUNPROG>" & SearchEngine & SearchKeywords & "</RUNPROG>"
HalMenu.HalCommand "<HAPFILE>Spidera.htr</HAPFILE>"
GetResponse = "I will help you research this movie on IMDB. "
HalBrain.ReadOnlyMode = True
End If
SearchEngine = "https://www.reddit.com/search?q="
If InStr(1, UserSentence, "reddit ", 1) > 0 Then
SearchKeywords = LCase(Replace(Trim(HalBrain.AlphaNumericalOnly(HalBrain.ExtractKeywords(UserSentence))), " ", "+"))
SearchKeyWords = Replace(SearchKeywords, "reddit+", "")
HalCommands = HalCommands & "<RUNPROG>" & SearchEngine & SearchKeywords & "</RUNPROG>"
HalMenu.HalCommand "<HAPFILE>Spidera.htr</HAPFILE>"
GetResponse = "I will help you research this movie on Reddit. "
HalBrain.ReadOnlyMode = True
End If
SearchEngine = "http://findwhocallsyou.com/"
If InStr(1, UserSentence, "phone ", 1) > 0 Then
SearchKeywords = LCase(Replace(Trim(HalBrain.AlphaNumericalOnly(HalBrain.ExtractKeywords(UserSentence))), " ", "+"))
SearchKeyWords = Replace(SearchKeywords, "phone+", "")
HalCommands = HalCommands & "<RUNPROG>" & SearchEngine & SearchKeywords & "</RUNPROG>"
HalMenu.HalCommand "<HAPFILE>Spidera.htr</HAPFILE>"
GetResponse = "I will help you research this phone number. "
HalBrain.ReadOnlyMode = True
End If

[Checker57]

Interesting.  My understanding of Hal code is minimal, and basic is vague as I learned it in a computer class years ago.  However, if I am reading it right, you snipped parts from Cyber's code to comprise a basic template to get the OpenWebui project to work.  Thanks for posting both... if I get any free time cycles and ideas... I'll let you know.

Hm, sounds simple.  Always does, until... it isn't.

Checker57

[Checker57]

A couple of comments.

Noted Cyber created a table for his deepweb code as such: 

HalBrain.CreateTable "cjTV", "PatternMatch", "DeepWeb"

Do you have the spidera.htr code?

Checker57

[sybershot]

Thank you Checker57 for the reply, sorry for late reply.

with my code
I believe that might be the smoking gun, i'll have to test once I'm in less pain probably in a few days from now, stay tuned
when tested I used a different htr name/character

I also tested the original plug-in (posted above) in its entirety except of-course changing out the htr characters to be used and url, and Hal didn't respond properly

unless his character has secret features that i'm unaware of character choice shouldn't make a difference.

[cyberjedi]

Mr syborshot:
RE: secret code.

There is no secret code inside the 3dsmax character. lolol

You guys have been aware of me for 21 years.
Thats not whats going on there.


Your doing something wrong


Best wishes and its heart warming to see that old code still being used
cyber jedi

 

[Checker57]

The secret is out of the bag, there is no secret. Just code.   Buahaha  Ahem, that established...  I dove into the ocean of code and used that now infamous AI "Deepseek" to have it review the code and make it work...  This is what it came up with below.

The issue I see is having the proper URL?

Code: [Select]

Rem Type=Plugin
Rem Name=OpenWebUI-Bridge
Rem Author=Sybershot
Rem Host=Assistant

Rem PLUGIN: OPENWEBUI FUNCTION
' Functionality to interact with OpenWebUI at http://localhost:3000

SearchEngine = "http://localhost:3000/search?q="

If InStr(1, UserSentence, "openwebui ", 1) > 0 Then
    ' Extract keywords from the user's sentence for searching
    SearchKeywords = LCase(Replace(Trim(HalBrain.AlphaNumericalOnly(HalBrain.ExtractKeywords(UserSentence))), " ", "+"))
   
    ' Remove the trigger keyword ("openwebui") from the search query
    SearchKeyWords = Replace(SearchKeywords, "openwebui+", "")
   
    ' Construct the full URL for the OpenWebUI search
    OpenWebUI_URL = SearchEngine & SearchKeyWords
   
    ' Prepare a response for the user indicating what is happening
    GetResponse = "I will help you search this topic on OpenWebUI. Opening: " & OpenWebUI_URL
   
    ' Construct the command to open the URL in the default web browser
    HalCommands = HalCommands & "<RUNPROG>" & OpenWebUI_URL & "</RUNPROG>"
   
    ' Execute any additional commands necessary, such as enabling web scraping or similar functions
    HalMenu.HalCommand "<HAPFILE>Spidera.htr</HAPFILE>"
   
    ' Set ReadOnlyMode to True after processing the request
    HalBrain.ReadOnlyMode = True
End If


[Art]

Checker, Your work with the characters is admirable and always entertaining!

She's the Code Vixen!!