Anonymous

Private Sub Irc_PrivateMessage(nick As String, User As String, Host As String, Target As String, Message As String)
On Error GoTo Err_handle
Dim splitdata() As String
Dim SplitMessage() As String
Dim i As Integer
Dim InetBuffer As String
Dim InetBufferx As String

    splitdata = Split(Message, " ")
    If UBound(splitdata) = 1 Then
    
        If LCase(splitdata(0)) = "!bash" Then
            Irc.PrivMSG "#vrocker", "Please wait " & nick & ", just getting your bash.org quote [" & splitdata(1) & "] (BETA 0.1)"
        
            
            If Inet.StillExecuting Then
                Irc.PrivMSG "#Vrocker", nick & ", I am still executing the last request!!!, please wait for abit"
                Exit Sub
            End If
            
            Inet.RequestTimeout = 5
            InetBuffer = Inet.OpenURL("http://www.bash.org/?" & splitdata(1))
            
            If Not IsNumeric(splitdata(1)) Then
                Irc.PrivMSG "#vrocker", "!bash only takes numeric values!"
                Exit Sub
            End If
            
            If InStr(1, InetBuffer, "Quote #" & splitdata(1) & " does not exist.") > 0 Then
                'does not exist
                Irc.PrivMSG "#vrocker", nick & ", this bash.org quote does not exist!"
            ElseIf InStr(1, InetBuffer, "<title>QDB: Quote ") > 0 Then
                'real quote!
                'Lets find it!!
                InetBufferx = Mid(InetBuffer, InStr(1, InetBuffer, "onClick=" & """" & "return confirm('Flag quote for review?');" & """" & " class=" & """" & "qa" & """" & ">[X]</a></p><p class=" & """" & "qt" & """" & ">") + Len("onClick=" & """" & "return confirm('Flag quote for review?');" & """" & " class=" & """" & "qa" & """" & ">[X]</a></p><p class=" & """" & "qt" & """" & ">"))
                InetBufferx = Replace(InetBufferx, vbNewLine, "")
                InetBufferx = Replace(InetBufferx, Chr(10), "")
                InetBufferx = Replace(InetBufferx, Chr(13), "")
                InetBufferx = Replace(InetBufferx, "&lt;", "<") '&gt;
                InetBufferx = Replace(InetBufferx, "&gt;", ">")
                'MsgBox InetBufferx
                InetBufferx = Mid(InetBufferx, 1, InStr(1, InetBufferx, "</p></td>") - 1)
                
                SplitMessage = Split(InetBufferx, "<br />")
                If UBound(SplitMessage) > 0 Then
                    For i = 0 To UBound(SplitMessage)
                        Irc.PrivMSG "#vrocker", SplitMessage(i)
                    Next
                Else
                    Irc.PrivMSG "#vrocker", InetBufferx
                End If
                
                
            End If
        End If
        
    
    End If
    
    Exit Sub
    
Err_handle:
    Irc.PrivMSG "#vrocker", "There was an error doing summit... soz!"
End Sub