Skip to content
Permalink
Browse files

Starcraft/Brood War may now send 0 keys (free Brood War patch 1.18).

* Updated the Settings UI to handle this altered functionality.
* STAR/SEXP products now send SID_AUTH_CHECK with 0 keys.
  • Loading branch information...
nmbook committed Mar 29, 2017
1 parent 5464d24 commit 7292379171f398250e3894c89f3a97c1a13bbd74
Showing with 9 additions and 7 deletions.
  1. +7 −5 trunk/frmSettings.frm
  2. +2 −2 trunk/modOtherCode.bas
@@ -5026,7 +5026,8 @@ Private Function DoCDKeyLengthCheck(ByVal sKey As String, ByVal sProd As String)

Select Case sProd
Case PRODUCT_STAR, PRODUCT_SEXP
If ((Len(sKey) <> 13) And (Len(sKey) <> 26)) Then DoCDKeyLengthCheck = False
DoCDKeyLengthCheck = True
'If ((Len(sKey) <> 13) And (Len(sKey) <> 26)) Then DoCDKeyLengthCheck = False

Case PRODUCT_D2DV, PRODUCT_D2XP
If ((Len(sKey) <> 16) And (Len(sKey) <> 26)) Then DoCDKeyLengthCheck = False
@@ -5500,15 +5501,15 @@ Sub optSTAR_Click()
chkSHR.Visible = True
chkSpawn.Enabled = True
chkJPN.Visible = True
txtCDKey.Enabled = True
txtCDKey.Enabled = False
txtExpKey.Enabled = False
chkUseRealm.Enabled = False
If (chkSHR.Value) Then
SetHashPath GetGamePath("RHSS")
chkSpawn.Enabled = False
txtCDKey.Enabled = False
ElseIf (chkJPN.Value) Then
SetHashPath GetGamePath("RTSJ")
txtCDKey.Enabled = True
Else
SetHashPath GetGamePath("RATS")
End If
@@ -5554,7 +5555,7 @@ Sub optSEXP_Click()
chkSpawn.Enabled = False
chkSpawn.Value = vbUnchecked
chkJPN.Visible = False
txtCDKey.Enabled = True
txtCDKey.Enabled = False
txtExpKey.Enabled = False
chkUseRealm.Enabled = False
SetHashPath GetGamePath("RATS")
@@ -5604,6 +5605,7 @@ End Sub
Private Sub chkJPN_Click()
Dim Checked As Boolean
Checked = CBool(chkJPN.Value)
txtCDKey.Enabled = Checked
If (Checked) Then chkSHR.Value = vbUnchecked
If (optSTAR.Value) Then
If (Checked) Then
@@ -5620,7 +5622,7 @@ Private Sub chkSHR_Click()
If (Checked) Then chkJPN.Value = vbUnchecked
If (optSTAR.Value) Then
chkSpawn.Enabled = Not Checked
txtCDKey.Enabled = Not Checked
txtCDKey.Enabled = (chkJPN.Value = vbChecked)
If (Checked) Then
SetHashPath GetGamePath("RHSS")
Else
@@ -2166,8 +2166,8 @@ End Sub
Public Sub BuildProductInfo()
' 4-digit code, short code, full name, home channel, number of keys, BNLS ID, logon system, version byte
ProductList(0) = CreateProductInfo("UNKW", vbNullString, "Unknown Product", "Unknown", 0, &H0, &H0, &H0)
ProductList(1) = CreateProductInfo(PRODUCT_STAR, "SC", "StarCraft", "StarCraft", 1, &H1, BNCS_NLS, &HD3)
ProductList(2) = CreateProductInfo(PRODUCT_SEXP, "SC", "StarCraft Broodwar", "Brood War", 1, &H2, BNCS_NLS, &HD3)
ProductList(1) = CreateProductInfo(PRODUCT_STAR, "SC", "StarCraft", "StarCraft", 0, &H1, BNCS_NLS, &HD3)
ProductList(2) = CreateProductInfo(PRODUCT_SEXP, "SC", "StarCraft Broodwar", "Brood War", 0, &H2, BNCS_NLS, &HD3)
ProductList(3) = CreateProductInfo(PRODUCT_W2BN, "W2", "WarCraft II: Battle.net Edition", "WarCraft II", 1, &H3, BNCS_OLS, &H4F)
ProductList(4) = CreateProductInfo(PRODUCT_D2DV, "D2", "Diablo II", "Diablo II", 1, &H4, BNCS_NLS, &HE)
ProductList(5) = CreateProductInfo(PRODUCT_D2XP, "D2X", "Diablo II: Lord of Destruction", "Diablo II", 2, &H5, BNCS_NLS, &HE)

0 comments on commit 7292379

Please sign in to comment.
You can’t perform that action at this time.