Recent Posts1
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