Fix BNET server host not being set when using BNLS server finder (default)

Merges:
Update link to Scroll Wheel Fix to archive.org

Because Microsoft hates keeping old documents available.

Author: nmbook

README.md

@@ -19,6 +19,6 @@ You'll need Microsoft Visual Basic 6.0.
 
 ##### Visual Basic 6 Scroll Wheel Fix
 The Visual Basic 6 IDE does not have built-in support for scrolling by using the mouse wheel.
-To fix this, you need to download and follow instructions from [this KB article](https://support.microsoft.com/en-us/kb/837910).
+To fix this, you need to download and follow instructions from [this KB article](https://web.archive.org/web/20150312195640/https://support.microsoft.com/en-us/kb/837910).
 
 If you are on 64-bit Windows, you will need to use the 32-bit version of regsvr32, located in `%systemroot%\SysWoW64\` (see [this KB article](https://support.microsoft.com/en-us/kb/249873)).

trunk/frmChat.frm

@@ -6530,20 +6530,6 @@ Sub Connect()
 
         AddChat g_Color.InformationText, "Connecting your bot..."
 
-        If BotVars.BNLS Then
-            If Len(BotVars.BNLSServer) = 0 Then
-                If BotVars.UseAltBnls Then
-                    Call FindBNLSServer
-                    
-                    Exit Sub
-                End If
-            End If
-            
-            Call ConnectBNLS
-        Else
-            Call Event_BNetConnecting
-        End If
-        
         With sckBNet
             If .State <> sckClosed Then
                 AddChat g_Color.ErrorMessageText, "Already connected."
@@ -6557,8 +6543,18 @@ Sub Connect()
                 .RemoteHost = Config.Server
                 .RemotePort = 6112
             End If
-
-            If Not BotVars.BNLS Then .Connect
+            
+            If BotVars.BNLS Then
+                If Len(BotVars.BNLSServer) = 0 And BotVars.UseAltBnls Then
+                    Call FindBNLSServer
+                Else
+                    Call ConnectBNLS
+                End If
+            Else
+                Call Event_BNetConnecting
+                
+                .Connect
+            End If
 
         End With