Rem Type=Plugin
Rem Name=Vaughnlive Tv + Deep Web Access
Rem Author=
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: PLUGINAREA1
'The comment above tells Ultra Hal Assistant to insert the following code
'on-the-fly into the main brain code in the section referenced.

' 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                       'Here is where we check for Table, if not create it
        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", "*Breaking Bad*", "http://vaughnlive.tv/0_breakingbad"
            HalBrain.AddToTable "cjTV", "PatternMatch", "*blue Ray moviez*", "http://vaughnlive.tv/bluray_movies"
            HalBrain.AddToTable "cjTV", "PatternMatch", "*New Releases*", "http://http://vaughnlive.tv/new_releases1" 'Edit this and Fill in ur own Fav links
            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", "*coolden*", "http://vaughnlive.tv/cooldeniz"
            HalBrain.AddToTable "cjTV", "PatternMatch", "*moviezone*", "http://vaughnlive.tv/moviezone"

        ' Set ReadOnly Mode to its previous state
        HalBrain.ReadOnlyMode = cjReadOnlyMode
    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>"  ' This is where we do the deed, and execute the webpage
        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               'Edit these lines to fit ur need. This is where the RND picks from 1-5 . Responses
        Case 3
            GetResponse = "I am really we happy we found this." & vbCrLf   ' add more responses  to make more realistic YOU , Adjust RND function with Responses
        Case 4
            GetResponse = "OH. I bet he thought he was safe behind his VPN" & vbCrLf
        Case 5
            GetResponse = "Now look at this dip stick here." & vbCrLf
        End Select
        HalBrain.ReadOnlyMode = True
    End If

'------------------
' Deep web search engine
'------------------
' Advanced Deep Web search engine. This is the Mighty PIPL search engine. Type in your real name if u have any doubts.

SearchEngine = "https://pipl.com/search/?q="
 If InStr(1, UserSentence, "search ", 1) > 0 Or InStr(1, UserSentence, "find ", 1) > 0 Or InStr(1, UserSentence, "locate ", 1) > 0 Then
   SearchKeywords = LCase(Replace(Trim(HalBrain.AlphaNumericalOnly(HalBrain.ExtractKeywords(UserSentence))), " ", "+"))
   SearchKeyWords = Replace(SearchKeywords, "find+", "")               '<---- The following are the triggers
   SearchKeyWords = Replace(SearchKeywords, "research+", "")
   SearchKeyWords = Replace(SearchKeywords, "locate+", "")
   SearchKeyWords = Replace(SearchKeywords, "search+", "")
   HalCommands = HalCommands & "<RUNPROG>" & SearchEngine & SearchKeywords & "</RUNPROG>"
   GetResponse = "I will help you research this topic on the Internet. "
   HalBrain.ReadOnlyMode = True
End If