Checkrevision failure

[UserLoser]

Wth is this, doesn't look like CheckRevision() to me!

[Dale]

 

[rabbit]

That's really not helpful at all.

A bad outgoing packet construct won't have any effect on a local routine's result.

[Dale]

Hm alright, I'll work on it a little more, and check some other things out.

[Mystical]

Alrighty, here is where it gives me check revision failure.

Code Select Expand


  HF = GetHashFiles
                          Debugtxt vbYellow, "Checking hashfiles..."
                    If (checkRevision(ValueString, HF(0), HF(1), HF(2), NewMPQNumber, Checksum) = False) Then
                        frmMain.SckBnet.Close
                        AppendText LtRed, "Checkrevision failed!"
                        Exit Function
                    End If


This is the GetHashFiles function

Code Select Expand


Public Function GetHashFiles() As String()

    Dim HashFiles(2) As String
   
        Select Case UCase(BOT_PRODUCT)
            Case "RATS", "PXES"
                HashFiles(0) = App.Path & "\STAR\starcraft.exe"
                HashFiles(1) = App.Path & "\STAR\storm.dll"
                HashFiles(2) = App.Path & "\STAR\battle.snp"
        End Select

End Function


*cough*

Code Select Expand


Public Sub GetHashFiles(HashFiles() As String)
   
   Select Case UCASE(BOT_PRODUCT)
   
        Case "RATS", "SEXP"
         
            HashFiles(0) = App.Path & "\STAR\starcraft.exe"
            HashFiles(1) = App.Path & "\STAR\storm.dll"
            HashFiles(2) = App.Path & "\STAR\battle.snp"

        Case Else
            Debug.Print "hmmm..?"

    End Select

Exit Sub



another question why is it in a function your not returning nothing as GetHashFiles

Code Select Expand



HF = GetHashFiles
                          Debugtxt vbYellow, "Checking hashfiles..."
                    If (checkRevision(ValueString, HF(0), HF(1), HF(2), NewMPQNumber, Checksum) = False) Then
                        frmMain.SckBnet.Close
                        AppendText LtRed, "Checkrevision failed!"
                        Exit Function
                    End If


don't make things harder then it should be.. -_-

Code Select Expand



                          Debugtxt vbYellow, "Checking hashfiles..."
                    If (checkRevision(ValueString, HashFiles(0), HashFiles(1), HashFiles(2), NewMPQNumber, Checksum) = False) Then
                        frmMain.SckBnet.Close
                        AppendText LtRed, "Checkrevision failed!"
                        Exit Function
                    End If