halcapitals

[spydaz]

'RESPOND : HALCAPITALS

  If InStr(userinput, "WHAT") > 0 Or InStr(userinput, "WHERE") > 0 Then
    If Len(halbrain.UsCaps(userinput)) > 4 Then
      capitals = Trim(halbrain.UsCaps(userinput))
    End If
    If Len(halbrain.WorldCaps(userinput)) > 4 Then
      capitals = Trim(halbrain.WorldCaps(userinput))
    End If
    If capitals <> "" Then
      GeTResponse = GeTResponse & capitals & " . " & vbCrLf
      SearchWords = ""
      If SearchWords = "" Then SearchWords = halbrain.SearchPattern(UCase(capitals), "THE CAPITAL OF * IS *", 2)

    path = "http://www.google.com/local?q=" + SearchWords
         

'NEEDED THE command to open webrowser & PATH

HalCommands = "<RUNPROG>" & path & "</RUNPROG>"
HalCommands = HalCommands

    End If
  End If

[spydaz]

quote:Originally posted by spydaz

'RESPOND : HALCAPITALS

  If InStr(userinput, "WHAT") > 0 Or InStr(userinput, "WHERE") > 0 Then
    If Len(halbrain.UsCaps(userinput)) > 4 Then
      capitals = Trim(halbrain.UsCaps(userinput))
    End If
    If Len(halbrain.WorldCaps(userinput)) > 4 Then
      capitals = Trim(halbrain.WorldCaps(userinput))
    End If
    If capitals <> "" Then
      GeTResponse = GeTResponse & capitals & " . " & vbCrLf
      SearchWords = ""
      If SearchWords = "" Then SearchWords = halbrain.SearchPattern(UCase(capitals), "THE CAPITAL OF * IS *", 2)

    path = "http://www.google.com/local?q=" + SearchWords
         

'NEEDED THE command to open webrowser & PATH

HalCommands = "<RUNPROG>" & path & "</RUNPROG>"
HalCommands = HalCommands

    End If
  End If

a hal5 script NEEDS CONVERTING TO HAL6 (im on hal5) This plugin is an extestion to the original It just opens the location of the capital city inside google search engine. Taken from the websurfer plugin thanks.