Valhalla Legends Archive

Here's the code I'm currently using for my version packet

Function CreateVersionPacket(hash As String, MPQName As String) As String
   Dim version As Long
   Dim Checksum As Long
   Dim ExeInfo As String
   Dim result As Long
   Dim VersionByte As Long
   Dim path As String
   Dim GameExe As String
   path = App.path & "\STAR\"
   VersionByte = &HC7
   GameExe = "Starcraft.exe"
   ExeInfo = Space$(256)

   result = CheckRevision(path & GameExe, path & "storm.dll", path & "battle.snp", hash, version, Checksum, ExeInfo, MPQName)

   NullTruncString ExeInfo

   If Not FileExists(path & GameExe) Then

       CreateVersionPacket = INVALID_VERSION_PACKET

   Else

       CreateVersionPacket = "68XI" & StrReverse("SEXP") & MKL(VersionByte) & MKL(version) & MKL(Checksum) & ExeInfo & Chr$(0)

   End If

End Function


Quote from: St0rm.iD on April 27, 2003, 05:37 PM

Quote from: Camel on April 27, 2003, 05:32 PM

Quote from: Arta[vL] on April 27, 2003, 02:26 PMthe old login will only work for DRTL/DSHR

and JSTR

No.

uh, yes...

Quote from: Camel on April 28, 2003, 09:46 PM

Quote from: St0rm.iD on April 27, 2003, 05:37 PM

Quote from: Camel on April 27, 2003, 05:32 PM

Quote from: Arta[vL] on April 27, 2003, 02:26 PMthe old login will only work for DRTL/DSHR

and JSTR

No.

uh, yes...

No. Not only does one of my bots still use it, but my brood wars client does still.

Quote from: MesiaH on April 29, 2003, 01:53 PM

Quote from: Camel on April 28, 2003, 09:46 PM

Quote from: St0rm.iD on April 27, 2003, 05:37 PM

Quote from: Camel on April 27, 2003, 05:32 PM

Quote from: Arta[vL] on April 27, 2003, 02:26 PMthe old login will only work for DRTL/DSHR

and JSTR

No.

uh, yes...

No. Not only does one of my bots still use it, but my brood wars client does still.

who are you saying no to?
and btw, i know it's possible to use the old login sequence with, afaik, any single cd keyed product