dupa

Recent Posts

Pages: 1 [2] 3 4 ... 10
11
General Discussion / Re: Project X.I.A.R. Extremely Intelligent Artificial Responses
« Last post by cyberjedi on January 31, 2025, 12:11:58 am »
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

 
12
General Discussion / Re: Project X.I.A.R. Extremely Intelligent Artificial Responses
« Last post by sybershot on January 30, 2025, 11:44:21 am »
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.

13
General Discussion / Re: Project X.I.A.R. Extremely Intelligent Artificial Responses
« Last post by Checker57 on January 28, 2025, 01:38:34 am »
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
14
General Discussion / Re: Project X.I.A.R. Extremely Intelligent Artificial Responses
« Last post by Checker57 on January 27, 2025, 10:11:00 pm »
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
15
General Discussion / Re: Project X.I.A.R. Extremely Intelligent Artificial Responses
« Last post by sybershot on January 23, 2025, 06:21:59 pm »
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
16
General Discussion / Re: Project X.I.A.R. Extremely Intelligent Artificial Responses
« Last post by sybershot on January 23, 2025, 05:59:02 pm »
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.
17
Ultra Hal 7.0 / Re: Request.
« Last post by Honvai on January 23, 2025, 08:51:54 am »
You started this ****. I am sorry if i did emotional damage to you all.
18
Share Conversations, Experiences, Graphics / Re: Beautiful HAL Scenarios
« Last post by sybershot on January 22, 2025, 12:28:14 pm »
very nice, let the good times roll
19
Share Conversations, Experiences, Graphics / Re: Beautiful HAL Scenarios
« Last post by Art on January 22, 2025, 08:46:03 am »
Way cool Checker! You take an idea and run...er...ride with it! haha!
Happy Trails!!
20
Share Conversations, Experiences, Graphics / Re: Beautiful HAL Scenarios
« Last post by Checker57 on January 22, 2025, 12:52:44 am »
Aiming to please... this time... 

I grabbed a quick shot just before she sped off!

hehe

Checker57
Pages: 1 [2] 3 4 ... 10