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: Davnit

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

@@ -9,8 +9,8 @@ Begin VB.Form frmChat
    BackColor       =   &H00000000&
    Caption         =   ":: StealthBot &version :: Disconnected ::"
    ClientHeight    =   7965
-   ClientLeft      =   225
-   ClientTop       =   855
+   ClientLeft      =   165
+   ClientTop       =   735
    ClientWidth     =   13080
    ForeColor       =   &H00000000&
    Icon            =   "frmChat.frx":0000
@@ -1121,7 +1121,6 @@ Begin VB.Form frmChat
       _ExtentY        =   2990
       _Version        =   393217
       BackColor       =   0
-      Enabled         =   -1  'True
       ReadOnly        =   -1  'True
       ScrollBars      =   2
       AutoVerbMenu    =   -1  'True
@@ -1147,7 +1146,6 @@ Begin VB.Form frmChat
       _ExtentY        =   11668
       _Version        =   393217
       BackColor       =   0
-      Enabled         =   -1  'True
       ReadOnly        =   -1  'True
       ScrollBars      =   2
       AutoVerbMenu    =   -1  'True
@@ -6532,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."
@@ -6559,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