frmChat.frm

VERSION 5.00
Object = "{0E59F1D2-1FBE-11D0-8FF2-00A0D10038BC}#1.0#0"; "msscript.ocx"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX"
Object = "{48E59290-9880-11CF-9754-00AA00C00908}#1.0#0"; "MSINET.OCX"
Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Begin VB.Form frmChat 
   BackColor       =   &H00000000&
   Caption         =   ":: StealthBot &version :: Disconnected ::"
   ClientHeight    =   7965
   ClientLeft      =   165
   ClientTop       =   810
   ClientWidth     =   11400
   ForeColor       =   &H00000000&
   Icon            =   "frmChat.frx":0000
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form1"
   ScaleHeight     =   7965
   ScaleWidth      =   11400
   StartUpPosition =   3  'Windows Default
   Begin VB.Timer tmrParseBNCS 
      Interval        =   1
      Left            =   6720
      Top             =   4080
   End
   Begin MSComctlLib.ListView lvChannel 
      Height          =   6375
      Left            =   8880
      TabIndex        =   1
      TabStop         =   0   'False
      Top             =   240
      Width           =   3705
      _ExtentX        =   6535
      _ExtentY        =   11245
      View            =   3
      LabelEdit       =   1
      LabelWrap       =   0   'False
      HideSelection   =   -1  'True
      HideColumnHeaders=   -1  'True
      OLEDragMode     =   1
      _Version        =   393217
      SmallIcons      =   "imlIcons"
      ForeColor       =   10079232
      BackColor       =   0
      BorderStyle     =   1
      Appearance      =   1
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Tahoma"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      OLEDragMode     =   1
      NumItems        =   3
      BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         Object.Width           =   4145
      EndProperty
      BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         Alignment       =   2
         SubItemIndex    =   1
         Object.Width           =   1252
      EndProperty
      BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         Alignment       =   1
         SubItemIndex    =   2
         Object.Width           =   582
      EndProperty
   End
   Begin VB.Timer tmrAccountLock 
      Enabled         =   0   'False
      Interval        =   30000
      Left            =   6240
      Top             =   4080
   End
   Begin MSScriptControlCtl.ScriptControl SControl 
      Left            =   120
      Top             =   720
      _ExtentX        =   1005
      _ExtentY        =   1005
   End
   Begin MSScriptControlCtl.ScriptControl SCRestricted 
      Left            =   5880
      Top             =   3360
      _ExtentX        =   1005
      _ExtentY        =   1005
   End
   Begin VB.Timer tmrScriptLong 
      Enabled         =   0   'False
      Index           =   0
      Left            =   1200
      Top             =   120
   End
   Begin InetCtlsObjects.Inet itcScript 
      Index           =   0
      Left            =   120
      Top             =   120
      _ExtentX        =   1005
      _ExtentY        =   1005
      _Version        =   393216
      RequestTimeout  =   7
   End
   Begin MSWinsockLib.Winsock sckScript 
      Index           =   0
      Left            =   720
      Top             =   120
      _ExtentX        =   741
      _ExtentY        =   741
      _Version        =   393216
   End
   Begin VB.Timer ChatQueueTimer 
      Enabled         =   0   'False
      Interval        =   500
      Left            =   5280
      Top             =   4560
   End
   Begin VB.Timer cacheTimer 
      Enabled         =   0   'False
      Interval        =   2500
      Left            =   5280
      Top             =   4080
   End
   Begin MSComctlLib.ImageList imlClan 
      Left            =   6480
      Top             =   3360
      _ExtentX        =   1005
      _ExtentY        =   1005
      BackColor       =   0
      ImageWidth      =   37
      ImageHeight     =   23
      UseMaskColor    =   0   'False
      _Version        =   393216
      BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
         NumListImages   =   7
         BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":1B32
            Key             =   ""
         EndProperty
         BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":1DC1
            Key             =   ""
         EndProperty
         BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":2048
            Key             =   ""
         EndProperty
         BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":2302
            Key             =   ""
         EndProperty
         BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":25AC
            Key             =   ""
         EndProperty
         BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":2A8A
            Key             =   ""
         EndProperty
         BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":4C5D
            Key             =   ""
         EndProperty
      EndProperty
   End
   Begin MSComctlLib.ImageList imlIcons 
      Left            =   7080
      Top             =   3360
      _ExtentX        =   1005
      _ExtentY        =   1005
      BackColor       =   0
      ImageWidth      =   28
      ImageHeight     =   18
      UseMaskColor    =   0   'False
      _Version        =   393216
      BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
         NumListImages   =   166
         BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":6DD7
            Key             =   ""
         EndProperty
         BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":7071
            Key             =   ""
         EndProperty
         BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":731B
            Key             =   ""
         EndProperty
         BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":7955
            Key             =   ""
         EndProperty
         BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":7BEB
            Key             =   ""
         EndProperty
         BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":7F99
            Key             =   ""
         EndProperty
         BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":834B
            Key             =   ""
         EndProperty
         BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":8985
            Key             =   ""
         EndProperty
         BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":8FBF
            Key             =   ""
         EndProperty
         BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":915D
            Key             =   ""
         EndProperty
         BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":9417
            Key             =   ""
         EndProperty
         BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":9A5D
            Key             =   ""
         EndProperty
         BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":9BFF
            Key             =   ""
         EndProperty
         BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":9DA1
            Key             =   ""
         EndProperty
         BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":A05B
            Key             =   ""
         EndProperty
         BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":A1E9
            Key             =   ""
         EndProperty
         BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":A37B
            Key             =   ""
         EndProperty
         BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":A609
            Key             =   ""
         EndProperty
         BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":A8DF
            Key             =   ""
         EndProperty
         BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":ABA5
            Key             =   ""
         EndProperty
         BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":AE8B
            Key             =   ""
         EndProperty
         BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":B159
            Key             =   ""
         EndProperty
         BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":B520
            Key             =   ""
         EndProperty
         BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":B896
            Key             =   ""
         EndProperty
         BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":BC1E
            Key             =   ""
         EndProperty
         BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":BFB7
            Key             =   ""
         EndProperty
         BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":C35C
            Key             =   ""
         EndProperty
         BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":C70E
            Key             =   ""
         EndProperty
         BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":CAD3
            Key             =   ""
         EndProperty
         BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":CE55
            Key             =   ""
         EndProperty
         BeginProperty ListImage31 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":D22B
            Key             =   ""
         EndProperty
         BeginProperty ListImage32 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":D551
            Key             =   ""
         EndProperty
         BeginProperty ListImage33 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":D96B
            Key             =   ""
         EndProperty
         BeginProperty ListImage34 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":DDCD
            Key             =   ""
         EndProperty
         BeginProperty ListImage35 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":E407
            Key             =   ""
         EndProperty
         BeginProperty ListImage36 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":EA41
            Key             =   ""
         EndProperty
         BeginProperty ListImage37 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":F02F
            Key             =   ""
         EndProperty
         BeginProperty ListImage38 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":F669
            Key             =   ""
         EndProperty
         BeginProperty ListImage39 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":FCA3
            Key             =   ""
         EndProperty
         BeginProperty ListImage40 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":FF14
            Key             =   ""
         EndProperty
         BeginProperty ListImage41 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":1017E
            Key             =   ""
         EndProperty
         BeginProperty ListImage42 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":1038F
            Key             =   ""
         EndProperty
         BeginProperty ListImage43 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":105C9
            Key             =   ""
         EndProperty
         BeginProperty ListImage44 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":1082D
            Key             =   ""
         EndProperty
         BeginProperty ListImage45 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":10A88
            Key             =   ""
         EndProperty
         BeginProperty ListImage46 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":10CD3
            Key             =   ""
         EndProperty
         BeginProperty ListImage47 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":10F3D
            Key             =   ""
         EndProperty
         BeginProperty ListImage48 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":11160
            Key             =   ""
         EndProperty
         BeginProperty ListImage49 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":1138D
            Key             =   ""
         EndProperty
         BeginProperty ListImage50 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":115A9
            Key             =   ""
         EndProperty
         BeginProperty ListImage51 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":117E0
            Key             =   ""
         EndProperty
         BeginProperty ListImage52 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":11A2B
            Key             =   ""
         EndProperty
         BeginProperty ListImage53 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":11C95
            Key             =   ""
         EndProperty
         BeginProperty ListImage54 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":11E98
            Key             =   ""
         EndProperty
         BeginProperty ListImage55 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":120D1
            Key             =   ""
         EndProperty
         BeginProperty ListImage56 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":12300
            Key             =   ""
         EndProperty
         BeginProperty ListImage57 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":1255C
            Key             =   ""
         EndProperty
         BeginProperty ListImage58 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":127A6
            Key             =   ""
         EndProperty
         BeginProperty ListImage59 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":12A10
            Key             =   ""
         EndProperty
         BeginProperty ListImage60 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":12C53
            Key             =   ""
         EndProperty
         BeginProperty ListImage61 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":12EA7
            Key             =   ""
         EndProperty
         BeginProperty ListImage62 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":130E9
            Key             =   ""
         EndProperty
         BeginProperty ListImage63 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":13351
            Key             =   ""
         EndProperty
         BeginProperty ListImage64 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":135B0
            Key             =   ""
         EndProperty
         BeginProperty ListImage65 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":1381A
            Key             =   ""
         EndProperty
         BeginProperty ListImage66 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":13A68
            Key             =   ""
         EndProperty
         BeginProperty ListImage67 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":13CE7
            Key             =   ""
         EndProperty
         BeginProperty ListImage68 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":13F1C
            Key             =   ""
         EndProperty
         BeginProperty ListImage69 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":14189
            Key             =   ""
         EndProperty
         BeginProperty ListImage70 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":143A0
            Key             =   ""
         EndProperty
         BeginProperty ListImage71 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":1460A
            Key             =   ""
         EndProperty
         BeginProperty ListImage72 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":14844
            Key             =   ""
         EndProperty
         BeginProperty ListImage73 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":14A6D
            Key             =   ""
         EndProperty
         BeginProperty ListImage74 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":14CC0
            Key             =   ""
         EndProperty
         BeginProperty ListImage75 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":14EF9
            Key             =   ""
         EndProperty
         BeginProperty ListImage76 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":1514F
            Key             =   ""
         EndProperty
         BeginProperty ListImage77 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":153C0
            Key             =   ""
         EndProperty
         BeginProperty ListImage78 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":1562A
            Key             =   ""
         EndProperty
         BeginProperty ListImage79 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":15882
            Key             =   ""
         EndProperty
         BeginProperty ListImage80 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":15AA7
            Key             =   ""
         EndProperty
         BeginProperty ListImage81 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":15CFA
            Key             =   ""
         EndProperty
         BeginProperty ListImage82 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":15F1D
            Key             =   ""
         EndProperty
         BeginProperty ListImage83 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":16187
            Key             =   ""
         EndProperty
         BeginProperty ListImage84 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":163C7
            Key             =   ""
         EndProperty
         BeginProperty ListImage85 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":1660C
            Key             =   ""
         EndProperty
         BeginProperty ListImage86 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":1685A
            Key             =   ""
         EndProperty
         BeginProperty ListImage87 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":16AA1
            Key             =   ""
         EndProperty
         BeginProperty ListImage88 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":16D0B
            Key             =   ""
         EndProperty
         BeginProperty ListImage89 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":16F3E
            Key             =   ""
         EndProperty
         BeginProperty ListImage90 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":17183
            Key             =   ""
         EndProperty
         BeginProperty ListImage91 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":173BF
            Key             =   ""
         EndProperty
         BeginProperty ListImage92 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":1762B
            Key             =   ""
         EndProperty
         BeginProperty ListImage93 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":17895
            Key             =   ""
         EndProperty
         BeginProperty ListImage94 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":17ADC
            Key             =   ""
         EndProperty
         BeginProperty ListImage95 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":17D24
            Key             =   ""
         EndProperty
         BeginProperty ListImage96 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":17F50
            Key             =   ""
         EndProperty
         BeginProperty ListImage97 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":18177
            Key             =   ""
         EndProperty
         BeginProperty ListImage98 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":183E1
            Key             =   ""
         EndProperty
         BeginProperty ListImage99 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":185E6
            Key             =   ""
         EndProperty
         BeginProperty ListImage100 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":187E1
            Key             =   ""
         EndProperty
         BeginProperty ListImage101 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":18A22
            Key             =   ""
         EndProperty
         BeginProperty ListImage102 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":18C32
            Key             =   ""
         EndProperty
         BeginProperty ListImage103 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":18F43
            Key             =   ""
         EndProperty
         BeginProperty ListImage104 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":19289
            Key             =   ""
         EndProperty
         BeginProperty ListImage105 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":1985A
            Key             =   ""
         EndProperty
         BeginProperty ListImage106 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":19E2A
            Key             =   ""
         EndProperty
         BeginProperty ListImage107 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":1A3D5
            Key             =   ""
         EndProperty
         BeginProperty ListImage108 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":1AA6A
            Key             =   ""
         EndProperty
         BeginProperty ListImage109 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":1B0FB
            Key             =   ""
         EndProperty
         BeginProperty ListImage110 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":1B78E
            Key             =   ""
         EndProperty
         BeginProperty ListImage111 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":1BCF5
            Key             =   ""
         EndProperty
         BeginProperty ListImage112 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":1C262
            Key             =   ""
         EndProperty
         BeginProperty ListImage113 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":1C7D4
            Key             =   ""
         EndProperty
         BeginProperty ListImage114 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":1CD7B
            Key             =   ""
         EndProperty
         BeginProperty ListImage115 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":1D320
            Key             =   ""
         EndProperty
         BeginProperty ListImage116 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":1D8CD
            Key             =   ""
         EndProperty
         BeginProperty ListImage117 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":2360A
            Key             =   ""
         EndProperty
         BeginProperty ListImage118 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":292CF
            Key             =   ""
         EndProperty
         BeginProperty ListImage119 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":2EEE7
            Key             =   ""
         EndProperty
         BeginProperty ListImage120 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":3497A
            Key             =   ""
         EndProperty
         BeginProperty ListImage121 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":3A5AB
            Key             =   ""
         EndProperty
         BeginProperty ListImage122 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":401C9
            Key             =   ""
         EndProperty
         BeginProperty ListImage123 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":406A6
            Key             =   ""
         EndProperty
         BeginProperty ListImage124 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":40C5B
            Key             =   ""
         EndProperty
         BeginProperty ListImage125 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":4131F
            Key             =   ""
         EndProperty
         BeginProperty ListImage126 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":41960
            Key             =   ""
         EndProperty
         BeginProperty ListImage127 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":41F8F
            Key             =   ""
         EndProperty
         BeginProperty ListImage128 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":425A6
            Key             =   ""
         EndProperty
         BeginProperty ListImage129 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":42AB9
            Key             =   ""
         EndProperty
         BeginProperty ListImage130 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":430F3
            Key             =   ""
         EndProperty
         BeginProperty ListImage131 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":4372D
            Key             =   ""
         EndProperty
         BeginProperty ListImage132 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":43D67
            Key             =   ""
         EndProperty
         BeginProperty ListImage133 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":443A1
            Key             =   ""
         EndProperty
         BeginProperty ListImage134 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":449DB
            Key             =   ""
         EndProperty
         BeginProperty ListImage135 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":45015
            Key             =   ""
         EndProperty
         BeginProperty ListImage136 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":4564F
            Key             =   ""
         EndProperty
         BeginProperty ListImage137 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":45C89
            Key             =   ""
         EndProperty
         BeginProperty ListImage138 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":462C3
            Key             =   ""
         EndProperty
         BeginProperty ListImage139 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":468FD
            Key             =   ""
         EndProperty
         BeginProperty ListImage140 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":46F37
            Key             =   ""
         EndProperty
         BeginProperty ListImage141 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":470D9
            Key             =   ""
         EndProperty
         BeginProperty ListImage142 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":47713
            Key             =   ""
         EndProperty
         BeginProperty ListImage143 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":47D4D
            Key             =   ""
         EndProperty
         BeginProperty ListImage144 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":48387
            Key             =   ""
         EndProperty
         BeginProperty ListImage145 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":489C1
            Key             =   ""
         EndProperty
         BeginProperty ListImage146 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":48FFB
            Key             =   ""
         EndProperty
         BeginProperty ListImage147 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":49635
            Key             =   ""
         EndProperty
         BeginProperty ListImage148 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":49C6F
            Key             =   ""
         EndProperty
         BeginProperty ListImage149 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":4A2A9
            Key             =   ""
         EndProperty
         BeginProperty ListImage150 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":4A8E3
            Key             =   ""
         EndProperty
         BeginProperty ListImage151 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":4AF1D
            Key             =   ""
         EndProperty
         BeginProperty ListImage152 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":4B557
            Key             =   ""
         EndProperty
         BeginProperty ListImage153 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":4BB91
            Key             =   ""
         EndProperty
         BeginProperty ListImage154 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":4C1CB
            Key             =   ""
         EndProperty
         BeginProperty ListImage155 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":4C485
            Key             =   ""
         EndProperty
         BeginProperty ListImage156 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":4C757
            Key             =   ""
         EndProperty
         BeginProperty ListImage157 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":4CA29
            Key             =   ""
         EndProperty
         BeginProperty ListImage158 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":4CCD3
            Key             =   ""
         EndProperty
         BeginProperty ListImage159 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":4CFC5
            Key             =   ""
         EndProperty
         BeginProperty ListImage160 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":4D2CB
            Key             =   ""
         EndProperty
         BeginProperty ListImage161 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":4D5D1
            Key             =   ""
         EndProperty
         BeginProperty ListImage162 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":4D883
            Key             =   ""
         EndProperty
         BeginProperty ListImage163 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":4DB55
            Key             =   ""
         EndProperty
         BeginProperty ListImage164 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":4DE3F
            Key             =   ""
         EndProperty
         BeginProperty ListImage165 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":4E129
            Key             =   ""
         EndProperty
         BeginProperty ListImage166 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmChat.frx":4E3D3
            Key             =   ""
         EndProperty
      EndProperty
   End
   Begin VB.Timer tmrScript 
      Enabled         =   0   'False
      Index           =   0
      Left            =   720
      Top             =   600
   End
   Begin VB.Timer tmrSilentChannel 
      Enabled         =   0   'False
      Index           =   1
      Interval        =   60000
      Left            =   5760
      Top             =   4560
   End
   Begin VB.Timer tmrSilentChannel 
      Enabled         =   0   'False
      Index           =   0
      Interval        =   500
      Left            =   5760
      Top             =   4080
   End
   Begin VB.ComboBox cboSend 
      BackColor       =   &H00000000&
      BeginProperty Font 
         Name            =   "Tahoma"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   315
      Left            =   600
      TabIndex        =   7
      Top             =   6600
      Width           =   7695
   End
   Begin VB.TextBox txtPost 
      BackColor       =   &H00000000&
      BeginProperty Font 
         Name            =   "Tahoma"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   315
      Left            =   8280
      TabIndex        =   9
      Top             =   6600
      Width           =   615
   End
   Begin VB.TextBox txtPre 
      BackColor       =   &H00000000&
      BeginProperty Font 
         Name            =   "Tahoma"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   315
      Left            =   0
      TabIndex        =   8
      Top             =   6600
      Width           =   615
   End
   Begin TabDlg.SSTab ListviewTabs 
      Height          =   375
      Left            =   8880
      TabIndex        =   0
      Top             =   6600
      Width           =   3705
      _ExtentX        =   6535
      _ExtentY        =   661
      _Version        =   393216
      TabOrientation  =   1
      Style           =   1
      Tab             =   1
      TabHeight       =   520
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Tahoma"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      TabCaption(0)   =   "Channel  "
      TabPicture(0)   =   "frmChat.frx":4E661
      Tab(0).ControlEnabled=   0   'False
      Tab(0).ControlCount=   0
      TabCaption(1)   =   "Friends  "
      TabPicture(1)   =   "frmChat.frx":4E67D
      Tab(1).ControlEnabled=   -1  'True
      Tab(1).ControlCount=   0
      TabCaption(2)   =   "Clan  "
      TabPicture(2)   =   "frmChat.frx":4E699
      Tab(2).ControlEnabled=   0   'False
      Tab(2).ControlCount=   0
   End
   Begin VB.Timer tmrIdleTimer 
      Enabled         =   0   'False
      Interval        =   1000
      Left            =   6240
      Top             =   4560
   End
   Begin VB.CommandButton cmdShowHide 
      Caption         =   " ^^^^"
      BeginProperty Font 
         Name            =   "Tahoma"
         Size            =   5.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   1695
      Left            =   12360
      TabIndex        =   3
      TabStop         =   0   'False
      Top             =   6600
      Width           =   245
   End
   Begin MSWinsockLib.Winsock sckMCP 
      Left            =   5280
      Top             =   2760
      _ExtentX        =   741
      _ExtentY        =   741
      _Version        =   393216
   End
   Begin VB.Timer scTimer 
      Enabled         =   0   'False
      Left            =   1200
      Top             =   600
   End
   Begin InetCtlsObjects.Inet Inet 
      Left            =   5280
      Top             =   3360
      _ExtentX        =   1005
      _ExtentY        =   1005
      _Version        =   393216
      RequestTimeout  =   7
   End
   Begin MSWinsockLib.Winsock sckBNLS 
      Left            =   5760
      Top             =   2760
      _ExtentX        =   741
      _ExtentY        =   741
      _Version        =   393216
      RemotePort      =   9367
   End
   Begin MSWinsockLib.Winsock sckBNet 
      Left            =   6240
      Top             =   2760
      _ExtentX        =   741
      _ExtentY        =   741
      _Version        =   393216
      RemotePort      =   6112
   End
   Begin MSComctlLib.ListView lvClanList 
      Height          =   6375
      Left            =   8880
      TabIndex        =   5
      TabStop         =   0   'False
      Top             =   240
      Visible         =   0   'False
      Width           =   3705
      _ExtentX        =   6535
      _ExtentY        =   11245
      SortKey         =   2
      View            =   3
      LabelEdit       =   1
      SortOrder       =   -1  'True
      Sorted          =   -1  'True
      LabelWrap       =   0   'False
      HideSelection   =   -1  'True
      HideColumnHeaders=   -1  'True
      OLEDragMode     =   1
      _Version        =   393217
      SmallIcons      =   "imlClan"
      ForeColor       =   10079232
      BackColor       =   0
      BorderStyle     =   1
      Appearance      =   1
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Tahoma"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      OLEDragMode     =   1
      NumItems        =   3
      BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         Object.Width           =   4057
      EndProperty
      BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         SubItemIndex    =   1
         Object.Width           =   2540
      EndProperty
      BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         Alignment       =   1
         SubItemIndex    =   2
         Object.Width           =   0
      EndProperty
   End
   Begin MSComctlLib.ListView lvFriendList 
      Height          =   6375
      Left            =   8880
      TabIndex        =   2
      TabStop         =   0   'False
      Top             =   240
      Visible         =   0   'False
      Width           =   3705
      _ExtentX        =   6535
      _ExtentY        =   11245
      SortKey         =   2
      View            =   3
      LabelEdit       =   1
      Sorted          =   -1  'True
      LabelWrap       =   0   'False
      HideSelection   =   -1  'True
      HideColumnHeaders=   -1  'True
      OLEDragMode     =   1
      _Version        =   393217
      Icons           =   "imlIcons"
      SmallIcons      =   "imlIcons"
      ForeColor       =   10079232
      BackColor       =   0
      BorderStyle     =   1
      Appearance      =   1
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Tahoma"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      OLEDragMode     =   1
      NumItems        =   3
      BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         Object.Width           =   4057
      EndProperty
      BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         Alignment       =   1
         SubItemIndex    =   1
         Object.Width           =   88
      EndProperty
      BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         SubItemIndex    =   2
         Object.Width           =   0
      EndProperty
   End
   Begin RichTextLib.RichTextBox rtbWhispers 
      Height          =   1695
      Left            =   0
      TabIndex        =   4
      TabStop         =   0   'False
      Top             =   6960
      Width           =   12375
      _ExtentX        =   21828
      _ExtentY        =   2990
      _Version        =   393217
      BackColor       =   0
      ReadOnly        =   -1  'True
      ScrollBars      =   2
      AutoVerbMenu    =   -1  'True
      TextRTF         =   $"frmChat.frx":4E6B5
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Tahoma"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
   End
   Begin RichTextLib.RichTextBox rtbChat 
      Height          =   6615
      Left            =   0
      TabIndex        =   6
      TabStop         =   0   'False
      Top             =   0
      Width           =   8895
      _ExtentX        =   15690
      _ExtentY        =   11668
      _Version        =   393217
      BackColor       =   0
      ReadOnly        =   -1  'True
      ScrollBars      =   2
      AutoVerbMenu    =   -1  'True
      OLEDropMode     =   0
      TextRTF         =   $"frmChat.frx":4E746
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Tahoma"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
   End
   Begin VB.Label lblCurrentChannel 
      Alignment       =   2  'Center
      BackColor       =   &H00CC3300&
      BeginProperty Font 
         Name            =   "Tahoma"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   8880
      TabIndex        =   10
      Top             =   0
      UseMnemonic     =   0   'False
      Width           =   3698
   End
   Begin VB.Menu mnuBot 
      Caption         =   "&Bot"
      Begin VB.Menu mnuConnect2 
         Caption         =   "&Connect"
      End
      Begin VB.Menu mnuDisconnect2 
         Caption         =   "&Disconnect"
      End
      Begin VB.Menu mnuSepT 
         Caption         =   "-"
      End
      Begin VB.Menu mnuAccountManager 
         Caption         =   "&Account Manager..."
      End
      Begin VB.Menu mnuUserDBManager 
         Caption         =   "&User Database Manager..."
      End
      Begin VB.Menu mnuCommandManager 
         Caption         =   "Command &Manager..."
      End
      Begin VB.Menu mnuScriptManager 
         Caption         =   "&Script Settings Manager..."
         Visible         =   0   'False
      End
      Begin VB.Menu mnuKeyManager 
         Caption         =   "CD-&Key Manager..."
         Visible         =   0   'False
      End
      Begin VB.Menu mnuSepZ 
         Caption         =   "-"
      End
      Begin VB.Menu mnuProfile 
         Caption         =   "Edit &Profile..."
         Enabled         =   0   'False
      End
      Begin VB.Menu mnuRealmSwitch 
         Caption         =   "Switch &Realm Character..."
         Visible         =   0   'False
      End
      Begin VB.Menu mnuClanCreate 
         Caption         =   "Create C&lan..."
         Visible         =   0   'False
      End
      Begin VB.Menu mnuSep1 
         Caption         =   "-"
      End
      Begin VB.Menu mnuQCTop 
         Caption         =   "Channel &List"
         Begin VB.Menu mnuHomeChannel 
            Caption         =   "&Bot Home"
            Visible         =   0   'False
         End
         Begin VB.Menu mnuLastChannel 
            Caption         =   "&Last Channel"
            Visible         =   0   'False
         End
         Begin VB.Menu mnuQCDash 
            Caption         =   "-"
            Visible         =   0   'False
         End
         Begin VB.Menu mnuQCHeader 
            Caption         =   "- QuickChannels -"
            Enabled         =   0   'False
         End
         Begin VB.Menu mnuCustomChannels 
            Caption         =   ""
            Index           =   0
            Shortcut        =   {F1}
         End
         Begin VB.Menu mnuCustomChannels 
            Caption         =   ""
            Index           =   1
            Shortcut        =   {F2}
         End
         Begin VB.Menu mnuCustomChannels 
            Caption         =   ""
            Index           =   2
            Shortcut        =   {F3}
         End
         Begin VB.Menu mnuCustomChannels 
            Caption         =   ""
            Index           =   3
            Shortcut        =   {F4}
         End
         Begin VB.Menu mnuCustomChannels 
            Caption         =   ""
            Index           =   4
            Shortcut        =   {F5}
         End
         Begin VB.Menu mnuCustomChannels 
            Caption         =   ""
            Index           =   5
            Shortcut        =   {F6}
         End
         Begin VB.Menu mnuCustomChannels 
            Caption         =   ""
            Index           =   6
            Shortcut        =   {F7}
         End
         Begin VB.Menu mnuCustomChannels 
            Caption         =   ""
            Index           =   7
            Shortcut        =   {F8}
         End
         Begin VB.Menu mnuCustomChannels 
            Caption         =   ""
            Index           =   8
            Shortcut        =   {F9}
         End
         Begin VB.Menu mnuCustomChannelAdd 
            Caption         =   "&Add QuickChannel"
            Visible         =   0   'False
         End
         Begin VB.Menu mnuCustomChannelEdit 
            Caption         =   "&Edit QuickChannels..."
         End
         Begin VB.Menu mnuPCDash 
            Caption         =   "-"
         End
         Begin VB.Menu mnuPCHeader 
            Caption         =   "- Public Channels -"
            Enabled         =   0   'False
         End
         Begin VB.Menu mnuPublicChannels 
            Caption         =   ""
            Index           =   0
         End
      End
      Begin VB.Menu mnuSep5 
         Caption         =   "-"
      End
      Begin VB.Menu mnuFiles 
         Caption         =   "View &Files"
         Begin VB.Menu mnuOpenBotFolder 
            Caption         =   "Open Bot &Folder"
         End
         Begin VB.Menu mnuSepA 
            Caption         =   "-"
         End
         Begin VB.Menu mnuClearedTxt 
            Caption         =   "Current Text &Log"
         End
         Begin VB.Menu mnuWhisperCleared 
            Caption         =   "&Whisper Window Text Log"
         End
         Begin VB.Menu mnuSepB 
            Caption         =   "-"
         End
         Begin VB.Menu mnuEditCaught 
            Caption         =   "Caught &Phrases"
         End
      End
      Begin VB.Menu mnuSettingsRepair 
         Caption         =   "&Tools"
         Begin VB.Menu mnuToolsMenuWarning 
            Caption         =   "- Use Carefully -"
            Enabled         =   0   'False
         End
         Begin VB.Menu mnuRepairDataFiles 
            Caption         =   "Delete &Data Files"
         End
         Begin VB.Menu mnuUpdateVerbytes 
            Caption         =   "&Update Version Bytes"
         End
         Begin VB.Menu mnuRepairVerbytes 
            Caption         =   "Restore Default &Version Bytes"
         End
         Begin VB.Menu mnuRepairCleanMail 
            Caption         =   "Clean Up &Mail Database"
         End
         Begin VB.Menu mnuPacketLog 
            Caption         =   "Log StealthBot &Packet Traffic"
         End
      End
      Begin VB.Menu mnuSep2 
         Caption         =   "-"
      End
      Begin VB.Menu mnuExit 
         Caption         =   "E&xit"
      End
   End
   Begin VB.Menu mnuSetTop 
      Caption         =   "&Settings"
      Begin VB.Menu mnuSetup 
         Caption         =   "&Bot Settings..."
         Shortcut        =   ^P
      End
      Begin VB.Menu mnuUTF8 
         Caption         =   "Use &UTF-8 in Chat"
      End
      Begin VB.Menu mnuLogging 
         Caption         =   "&Logging Settings"
         Begin VB.Menu mnuLog0 
            Caption         =   "Full Text Logging"
         End
         Begin VB.Menu mnuLog1 
            Caption         =   "Temporary Logging"
         End
         Begin VB.Menu mnuLog2 
            Caption         =   "No Logging"
         End
      End
      Begin VB.Menu mnuSep4 
         Caption         =   "-"
      End
      Begin VB.Menu mnuFilters 
         Caption         =   "Edit Chat &Filters..."
      End
      Begin VB.Menu mnuCatchPhrases 
         Caption         =   "Edit &Catch Phrases..."
      End
      Begin VB.Menu mnuSep6 
         Caption         =   "-"
      End
      Begin VB.Menu mnuReload 
         Caption         =   "&Reload Config"
      End
   End
   Begin VB.Menu mnuConnect 
      Caption         =   "&Connect"
   End
   Begin VB.Menu mnuDisconnect 
      Caption         =   "&Disconnect"
   End
   Begin VB.Menu mnuWindow 
      Caption         =   "&Window"
      Begin VB.Menu mnuToggle 
         Caption         =   "Hide &Join/Leave Messages"
         Shortcut        =   ^J
      End
      Begin VB.Menu mnuHideBans 
         Caption         =   "Hide &Ban Messages"
         Shortcut        =   ^H
      End
      Begin VB.Menu mnuLock 
         Caption         =   "Loc&k Chat Window"
         Shortcut        =   ^L
      End
      Begin VB.Menu mnuToggleFilters 
         Caption         =   "Use Chat &Filtering"
         Checked         =   -1  'True
         Shortcut        =   ^F
      End
      Begin VB.Menu mnuSep7 
         Caption         =   "-"
      End
      Begin VB.Menu mnuToggleWWUse 
         Caption         =   "Use Individual &Whisper Windows"
      End
      Begin VB.Menu mnuSP3 
         Caption         =   "-"
      End
      Begin VB.Menu mnuToggleShowOutgoing 
         Caption         =   "Show &Outgoing Whispers in Whisper Box"
      End
      Begin VB.Menu mnuHideWhispersInrtbChat 
         Caption         =   "&Hide Whispers in Main Window"
      End
      Begin VB.Menu mnuSepC 
         Caption         =   "-"
      End
      Begin VB.Menu mnuClear 
         Caption         =   "&Clear Chat Window"
         Shortcut        =   +{DEL}
      End
      Begin VB.Menu mnuClearWW 
         Caption         =   "Cl&ear Whisper Window"
      End
      Begin VB.Menu mnuSepD 
         Caption         =   "-"
      End
      Begin VB.Menu mnuFlash 
         Caption         =   "Fl&ash Window on Events"
      End
      Begin VB.Menu mnuDisableVoidView 
         Caption         =   "Disable &Silent Channel View"
      End
      Begin VB.Menu mnuRecordWindowPos 
         Caption         =   "&Record Current Position"
      End
   End
   Begin VB.Menu mnuTray 
      Caption         =   "systray"
      Visible         =   0   'False
      Begin VB.Menu mnuTrayCaption 
         Caption         =   ""
      End
      Begin VB.Menu mnuRestore 
         Caption         =   "&Restore"
      End
      Begin VB.Menu mnuTraySep 
         Caption         =   "-"
      End
      Begin VB.Menu mnuTrayExit 
         Caption         =   "E&xit"
      End
   End
   Begin VB.Menu mnuPopup 
      Caption         =   "popupmenu"
      Visible         =   0   'False
      Begin VB.Menu mnuPopWhisper 
         Caption         =   "W&hisper"
      End
      Begin VB.Menu mnuPopCopy 
         Caption         =   "&Copy Name to Clipboard"
      End
      Begin VB.Menu mnuPopAddLeft 
         Caption         =   "Add to &Left Send Box"
      End
      Begin VB.Menu mnuPopAddToFList 
         Caption         =   "Add to &Friends List"
      End
      Begin VB.Menu mnuPopInvite 
         Caption         =   "&Invite to Warcraft III Clan"
      End
      Begin VB.Menu mnuPopShitlist 
         Caption         =   "Shi&tlist"
      End
      Begin VB.Menu mnuPopSafelist 
         Caption         =   "S&afelist"
      End
      Begin VB.Menu mnuPopSep1 
         Caption         =   "-"
      End
      Begin VB.Menu mnuPopUserlistWhois 
         Caption         =   "&Userlist Whois"
      End
      Begin VB.Menu mnuPopWhois 
         Caption         =   "Battle.net &Whois"
      End
      Begin VB.Menu mnuPopStats 
         Caption         =   "Battle.net &Stats"
      End
      Begin VB.Menu mnuPopProfile 
         Caption         =   "Battle.net &Profile"
      End
      Begin VB.Menu mnuPopWebProfile 
         Caption         =   "W&eb Profile"
      End
      Begin VB.Menu mnuPopSep2 
         Caption         =   "-"
      End
      Begin VB.Menu mnuPopKick 
         Caption         =   "&Kick"
      End
      Begin VB.Menu mnuPopBan 
         Caption         =   "&Ban"
      End
      Begin VB.Menu mnuPopSquelch 
         Caption         =   "S&quelch"
      End
      Begin VB.Menu mnuPopUnsquelch 
         Caption         =   "U&nsquelch"
      End
      Begin VB.Menu mnuPopDes 
         Caption         =   "&Designate"
      End
   End
   Begin VB.Menu mnuScripting 
      Caption         =   "Sc&ripting"
      Begin VB.Menu mnuReloadScripts 
         Caption         =   "Reload Scripts"
         Shortcut        =   ^R
      End
      Begin VB.Menu mnuOpenScriptFolder 
         Caption         =   "Open Script Folder"
      End
      Begin VB.Menu mnuScriptingDash 
         Caption         =   "-"
         Index           =   0
         Visible         =   0   'False
      End
   End
   Begin VB.Menu mnuHelp 
      Caption         =   "&Help"
      NegotiatePosition=   3  'Right
      Begin VB.Menu mnuAbout 
         Caption         =   "&About..."
      End
      Begin VB.Menu mnuGetNews 
         Caption         =   "Get &News and Check for Updates"
      End
      Begin VB.Menu mnuHelpReadme 
         Caption         =   "&Wiki"
      End
      Begin VB.Menu mnuHelpWebsite 
         Caption         =   "&Forum"
      End
      Begin VB.Menu mnuTerms 
         Caption         =   "&End-User License Agreement"
      End
      Begin VB.Menu mnuChangeLog 
         Caption         =   "&Change Log"
      End
   End
   Begin VB.Menu mnuShortcuts 
      Caption         =   "invisibleMenu"
      Visible         =   0   'False
      Begin VB.Menu mnuItalic 
         Caption         =   "Italic"
         Shortcut        =   ^I
      End
      Begin VB.Menu mnuBold 
         Caption         =   "Bold"
         Shortcut        =   ^B
      End
      Begin VB.Menu mnuUnderline 
         Caption         =   "Underline"
         Shortcut        =   ^U
      End
      Begin VB.Menu mnuListViewButton 
         Caption         =   "invisible CTRL+A Channel"
         Index           =   0
         Shortcut        =   ^A
         Visible         =   0   'False
      End
      Begin VB.Menu mnuListViewButton 
         Caption         =   "invisible CTRL+S Friends"
         Index           =   1
         Shortcut        =   ^S
         Visible         =   0   'False
      End
      Begin VB.Menu mnuListViewButton 
         Caption         =   "invisible CTRL+D Clan"
         Index           =   2
         Shortcut        =   ^D
         Visible         =   0   'False
      End
   End
   Begin VB.Menu mnuPopClanList 
      Caption         =   "clanlist popup menu"
      Visible         =   0   'False
      Begin VB.Menu mnuPopClanWhisper 
         Caption         =   "W&hisper"
      End
      Begin VB.Menu mnuPopClanCopy 
         Caption         =   "&Copy Name to Clipboard"
      End
      Begin VB.Menu mnuPopClanAddLeft 
         Caption         =   "Add to &Left Send Box"
      End
      Begin VB.Menu mnuPopClanAddToFList 
         Caption         =   "Add to &Friends List"
      End
      Begin VB.Menu mnuPopClanSep1 
         Caption         =   "-"
      End
      Begin VB.Menu mnuPopClanUserlistWhois 
         Caption         =   "&Userlist Whois"
      End
      Begin VB.Menu mnuPopClanWhois 
         Caption         =   "Battle.net &Whois"
      End
      Begin VB.Menu mnuPopClanStats 
         Caption         =   "Battle.net &Stats"
         Begin VB.Menu mnuPopClanStatsWAR3 
            Caption         =   "&Reign of Chaos"
         End
         Begin VB.Menu mnuPopClanStatsW3XP 
            Caption         =   "The &Frozen Throne"
         End
      End
      Begin VB.Menu mnuPopClanProfile 
         Caption         =   "&Battle.net Profile"
      End
      Begin VB.Menu mnuPopClanWebProfile 
         Caption         =   "W&eb Profile"
         Begin VB.Menu mnuPopClanWebProfileWAR3 
            Caption         =   "&Reign of Chaos"
         End
         Begin VB.Menu mnuPopClanWebProfileW3XP 
            Caption         =   "The &Frozen Throne"
         End
      End
      Begin VB.Menu mnuPopClanSep2 
         Caption         =   "-"
      End
      Begin VB.Menu mnuPopClanPromote 
         Caption         =   "&Promote"
      End
      Begin VB.Menu mnuPopClanDemote 
         Caption         =   "&Demote"
      End
      Begin VB.Menu mnuPopClanRemove 
         Caption         =   "Remove from Clan"
      End
      Begin VB.Menu mnuPopClanLeave 
         Caption         =   "Leave Clan"
         Visible         =   0   'False
      End
      Begin VB.Menu mnuPopClanMakeChief 
         Caption         =   "Make Chieftain"
      End
      Begin VB.Menu mnuPopClanDisband 
         Caption         =   "Disband Clan"
      End
   End
   Begin VB.Menu mnuPopFList 
      Caption         =   "flistpopup"
      Visible         =   0   'False
      Begin VB.Menu mnuPopFLWhisper 
         Caption         =   "W&hisper"
      End
      Begin VB.Menu mnuPopFLCopy 
         Caption         =   "&Copy Name to Clipboard"
      End
      Begin VB.Menu mnuPopFLAddLeft 
         Caption         =   "Add to &Left Send Box"
      End
      Begin VB.Menu mnuPopFLInvite 
         Caption         =   "&Invite to Warcraft III Clan"
      End
      Begin VB.Menu mnuPopFLSep1 
         Caption         =   "-"
      End
      Begin VB.Menu mnuPopFLUserlistWhois 
         Caption         =   "&Userlist Whois"
      End
      Begin VB.Menu mnuPopFLWhois 
         Caption         =   "Battle.net &Whois"
      End
      Begin VB.Menu mnuPopFLStats 
         Caption         =   "Battle.net &Stats"
      End
      Begin VB.Menu mnuPopFLProfile 
         Caption         =   "&Battle.net Profile"
      End
      Begin VB.Menu mnuPopFLWebProfile 
         Caption         =   "W&eb Profile"
      End
      Begin VB.Menu mnuPopFLSep2 
         Caption         =   "-"
      End
      Begin VB.Menu mnuPopFLPromote 
         Caption         =   "&Promote"
      End
      Begin VB.Menu mnuPopFLDemote 
         Caption         =   "&Demote"
      End
      Begin VB.Menu mnuPopFLRemove 
         Caption         =   "&Remove"
      End
      Begin VB.Menu mnuPopFLSep3 
         Caption         =   "-"
      End
      Begin VB.Menu mnuPopFLRefresh 
         Caption         =   "Refresh"
      End
   End
End
Attribute VB_Name = "frmChat"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'StealthBot 11/5/02-Present
'Source Code Version: 2.7RC2
Option Explicit

'REVISION #1337!

'Classes
Public WithEvents ClanHandler As clsClanPacketHandler
Attribute ClanHandler.VB_VarHelpID = -1
Public WithEvents FriendListHandler As clsFriendlistHandler
Attribute FriendListHandler.VB_VarHelpID = -1

'Variables
Private m_lCurItemIndex As Long
Private m_HandlingPaste As Boolean
Private doAuth As Boolean
Private AUTH_CHECKED As Boolean

' window state
Private ShowHideChangeHeight As Boolean
Private rtbWhispers_Visible As Boolean
Private SkipResize As Boolean
Public cboSendHadFocus As Boolean
Private cboSendSelStart As Long
Private cboSendSelLength As Long
Public ShuttingDown As Boolean

'Forms
Public SettingsForm As frmSettings
Public ChatNoScroll As Boolean

Private Const SB_INET_UNSET As String = vbNullString
Private Const SB_INET_NEWS1 As String = "SBNEWS_AUTOCONNECT"
Private Const SB_INET_NEWS  As String = "SBNEWS"
Private Const SB_INET_BNLS1 As String = "BNLSFINDER"
Private Const SB_INET_BNLS2 As String = "BNLSFINDER_DEFAULT"
Private Const SB_INET_VBYTE As String = "VERBYTE"
Private Const SB_INET_BETA  As String = "AUTHBETA"

' LET IT BEGIN
Private Sub Form_Load()
    Dim s As String
    Dim f As Integer
    Dim FrmSplashInUse As Boolean
    Dim strBeta As String
    Dim sStr() As String
    
    ' COMPILER FLAGS
    #If (BETA = 1) Then
        CVERSION = StringFormat("StealthBot Beta v{0}.{1} - Build {2}", App.Major, App.Minor, App.REVISION)
    #Else
        CVERSION = StringFormat("StealthBot v{0}.{1}.{2}", App.Major, App.Minor, App.REVISION)
    #End If
    
    #If (COMPILE_DEBUG = 1) Then
        CVERSION = StringFormat("{0} - DEBUG", CVERSION)
    #End If
    
    #If (COMPILE_CRC = 1) Then
        Dim crc As clsCRC32
        Set crc = New clsCRC32
        If (Not crc.ValidateExecutable) Then
            MsgBox GetHexProtectionMessage, vbOKOnly + vbCritical
            Call Form_Unload(0)
            Unload frmChat
            Exit Sub
        End If
        Set crc = Nothing
    #End If

    #If (COMPILE_DEBUG <> 1) Then
        HookWindowProc frmChat.hWnd
    #End If
    
    SendMessage frmChat.cboSend.hWnd, CB_LIMITTEXT, 0, 0
    
    ' Load default color information
    Set g_Color = New clsColor
    
    Set colWhisperWindows = New Collection
    Set colLastSeen = New Collection
    Set BotVars = New clsBotVars
    Set g_Channel = New clsChannelObj
    Set g_Clan = New clsClanObj
    Set g_Friends = New Collection
    
    sStr = SetCommandLine(Command())
    
    ' EVERYTHING ELSE
    'Set dictTimerInterval = New Dictionary
    'Set dictTimerEnabled = New Dictionary
    'Set dictTimerCount = New Dictionary
    'dictTimerInterval.CompareMode = TextCompare
    'dictTimerEnabled.CompareMode = TextCompare
    'dictTimerCount.CompareMode = TextCompare
    
    With mnuTrayCaption
        .Caption = CVERSION
        .Enabled = False
    End With
    
    mail = True
    f = FreeFile
    
    With rtbChat
        .SelTabCount = 1
        .SelTabs(0) = 15 * Screen.TwipsPerPixelX
        .SelHangingIndent = .SelTabs(0)
    End With
    
    With rtbWhispers
        .SelTabCount = 1
        .SelTabs(0) = 15 * Screen.TwipsPerPixelX
        .SelHangingIndent = .SelTabs(0)
    End With
    
    lvChannel.View = lvwReport
    lvChannel.Icons = imlIcons
    lvClanList.View = lvwReport
    lvClanList.Icons = imlIcons
    
    ReDim Phrases(0)
    ReDim Catch(0)
    ReDim gBans(0)
    ReDim gOutFilters(0)
    ReDim gFilters(0)
    ReDim ServerRequests(0)
    ReDim g_Blocklist(0)
    
    Call BuildProductInfo
    
    Set Config = New clsConfig
    Config.Load GetConfigFilePath()
    
    ' SPLASH SCREEN
    If Config.ShowSplashScreen Then
        frmSplash.Show
        FrmSplashInUse = True
    End If

    ' whisper panel show/hide button
    ShowHideChangeHeight = False
    rtbWhispers_Visible = False
    'rtbWhispers.Visible = False 'default
    cmdShowHide.Caption = CAP_HIDE

    SkipResize = True

    If Config.PositionHeight > 0 Then
        Me.Height = (IIf(CLng(Config.PositionHeight) < 200, 200, CLng(Config.PositionHeight)) * Screen.TwipsPerPixelY)
    End If
    
    If Config.PositionWidth > 0 Then
        Me.Width = (IIf(CLng(Config.PositionWidth) < 300, 300, CLng(Config.PositionWidth)) * Screen.TwipsPerPixelX)
    End If

    'Set window position
    Me.Left = CLng(Config.PositionLeft) * Screen.TwipsPerPixelX
    Me.Top = CLng(Config.PositionTop) * Screen.TwipsPerPixelY

    'Make sure the window is on the screen
    If Config.EnforceScreenBounds Then
        If Config.MonitorCount <> GetMonitorCount Then
            If (Me.Left > (Screen.Width - Me.Width)) Then
                Me.Left = (Screen.Width - Me.Width)
            End If
    
            If (Me.Top > (Screen.Height - Me.Height)) Then
                Me.Top = (Screen.Height - Me.Height)
            End If
            
            Config.MonitorCount = GetMonitorCount
        End If
    End If
    
    'Support for recording maxmized position. - FrOzeN
    If Config.IsMaximized Then
        Me.WindowState = vbMaximized
    End If
    SkipResize = False

    Set ClanHandler = New clsClanPacketHandler
    Set FriendListHandler = New clsFriendlistHandler
    Set ListToolTip = New clsCTooltip

    Set ReceiveBuffer(stBNCS) = New clsDataBuffer
    Set ReceiveBuffer(stBNLS) = New clsDataBuffer
    Set ReceiveBuffer(stMCP) = New clsDataBuffer

    ' If they changed their old color file location, use that for the new file.
    Call Config.SetFilePath(FILE_COLORS, Config.GetFilePath("Colors.sclf"))
    
    ' Check for the old file.
    s = GetFilePath("Colors.sclf")
    If Dir$(s) <> vbNullString Then
        Call g_Color.Load(s)                            ' Load existing SCLF
        Call g_Color.Save(GetFilePath(FILE_COLORS))     ' Save to new format
        Call Kill(s)                                    ' Delete old file
    Else
        ' Load the new color file.
        Call g_Color.Load(GetFilePath(FILE_COLORS))
    End If

    Call ReloadConfig
    
    Call InitListviewTabs
    Call DisableListviewTabs
    
    ListviewTabs.Tab = 0
    
    With ListToolTip
        .Style = TTStandard
        .Icon = TTNoIcon
        .DelayTime = 100
    End With
    
    Call ClearChannel
    
    SetTitle "Disconnected"
    
    frmChat.UpdateTrayTooltip
    
    Me.Show
    Me.Refresh
    
    AddChat g_Color.ConsoleText, "-> Welcome to " & CVERSION & ", by Stealth."
    AddChat g_Color.ConsoleText, "-> If you enjoy StealthBot, consider supporting its development at http://donate.stealthbot.net"

    Dim x As Integer
    For x = LBound(sStr) To UBound(sStr)
        If (LenB(sStr(x)) > 0) Then
            AddChat g_Color.InformationText, sStr(x)
        End If
    Next x
    
    On Error Resume Next
    
    VoteDuration = -1
    
    If (LenB(Dir$(GetConfigFilePath())) = 0) Then
        AddChat g_Color.ServerInfoText, "If you're new to bots, start by choosing 'Bot Settings' " & _
            "under the 'Settings' menu above."
        AddChat g_Color.ServerInfoText, "For more help, click the 'Step-By-Step Configuration' " & _
            "button inside Settings."
        AddChat g_Color.ServerInfoText, "For more information and a list of commands, see the " & _
            "Readme by clicking 'Readme' under the 'Help' menu."
        AddChat g_Color.ServerInfoText, "Please note that any usage of this program is subject to " & _
            "the terms of the End-User License Agreement available at http://eula.stealthbot.net."
    End If
    
    
    Randomize
 
    ID_TASKBARICON = (Rnd * 100)
    
    TASKBARCREATED_MSGID = RegisterWindowMessage("TaskbarCreated")
    
    ' whisper panel show/hide button: now user can click (after reload config)
    ShowHideChangeHeight = True
    ' focus on send box
    cboSend.SetFocus
    
    LoadQuickChannels
    PrepareHomeChannelMenu
    PreparePublicChannelMenu
    
    InitScriptControl SControl
    
    On Error Resume Next
    'News call and scripting events
    
    LoadScripts
    'InitMenus
    InitScripts
    
    If FrmSplashInUse Then frmSplash.SetFocus
    
    If Not MDebug("debug") Then
        mnuRecordWindowPos.Visible = False
    End If
    
    'Update the config if it's an old version
    If Config.Version < CONFIG_VERSION Then
        Call Config.Save
    End If
    
    #If (COMPILE_DEBUG <> 1) Then
        If Config.MinimizeOnStartup Then
            frmChat.WindowState = vbMinimized
            Call Form_Resize
        End If
    #End If
    
    If Not Config.DisableNews Then
        Call RequestInetPage(GetNewsURL(), SB_INET_NEWS1, True)
    ElseIf Config.AutoConnect Then
        Call DoConnect
    End If
    
    'Now loads scripts when the bot opens, instead of after connecting. - FrOzeN
    'RunInAll "Event_Load"
    
    'Dim I As Integer
    'Dim tmp As String
    'Dim str As String
    
    'str = "flood"
    
    'For I = 1 To Len(str)
    '   tmp = tmp & Hex(Asc(Mid(str, I, 1)))
    'Next I

'    BotVars.UseProxy = True
'    BotVars.ProxyIP = "213.210.194.139"
'    BotVars.ProxyPort = 1080
    'BotVars.ProxyIsSocks5 = True
End Sub

Public Sub cacheTimer_Timer()
    ' this code updated 7/23/05 in Chihuahua, Chihuahua, MX
    If (Caching) Then ' time to retrieve stored information and squelch or ban a channel
        Dim strArray() As String
        Dim ret As String
        Dim lPos As Long
        Dim y As String
        Dim c As Integer, n As Integer
        
        Caching = False
        
        ' Changed 08-18-09 - Hdx - Uses the new Channel cache function, Eventually to beremoved to script
        'ret = CacheChannelList(vbNullString, 0, Y)
        ret = CacheChannelList(enRetrieve, y)
        
        lPos = InStr(1, ret, ", ", vbBinaryCompare)
        
        If (lPos) Then
            strArray() = Split(ret, ", ")
        Else
            ReDim Preserve strArray(0)
            strArray(0) = ret
        End If
        
        For c = 0 To UBound(strArray)
            ' [CHANNELOP]  -  [*CHANNELOP]  -  [CHARACTER@USEast (*CHANNELOP)]
            If StrComp(UCase(strArray(c)), strArray(c), vbBinaryCompare) = 0 Then
                If Left$(strArray(c), 1) = "[" And Right$(strArray(c), 1) = "]" Then
                    strArray(c) = Mid(strArray(c), 2, Len(strArray(c)) - 2)
                End If
            End If
            
            strArray(c) = ConvertUsername(CleanUsername(strArray(c)))
            
            'AddChat vbRed, strArray(C)
            
            If Len(strArray(c)) > 1 Then
                If InStr(y, "ban") Then
                    If (g_Channel.Self.IsOperator) Then
                        Ban strArray(c), (AutoModSafelistValue - 1), 0
                    End If
                Else
                    If (GetSafelist(strArray(c)) = False) Then
                        AddQ "/squelch " & strArray(c)
                    End If
                End If
            End If
        Next c
    End If
    
    cacheTimer.Enabled = False
End Sub

Private Sub ChatQueueTimer_Timer()
    modChatQueue.ChatQueueTimerProc
End Sub

Private Sub Form_GotFocus()
    On Error GoTo ERROR_HANDLER

    If (cboSendHadFocus) Then
        cboSend.SetFocus
    End If
    
    Exit Sub
    
ERROR_HANDLER:
    AddChat g_Color.ErrorMessageText, "Error (#" & Err.Number & "): " & Err.Description & " in Form_GotFocus()."

    Exit Sub
End Sub

' asynchronous Inet
Private Function RequestInetPage(ByVal URL As String, ByVal Request As String, ByVal CancelStillExecuting As Boolean) As Boolean
    On Error GoTo ERROR_HANDLER:

    Dim ret As String
    With Inet
        If .StillExecuting Then
            If CancelStillExecuting Then
                .Cancel
            Else
                RequestInetPage = False
                
                Exit Function
            End If
        End If
        
        .RequestTimeout = 5
        .Tag = Request
        .Execute URL
        
        RequestInetPage = True
    End With
    
    Exit Function
    
ERROR_HANDLER:
    AddChat g_Color.ErrorMessageText, "Error (#" & Err.Number & "): " & Err.Description & " in RequestInetPage()."
    
    RequestInetPage = False
    
    Exit Function
End Function

' asynchronous Inet response
Private Sub Inet_StateChanged(ByVal State As Integer)
    Dim strData As String
    Dim Buffer As String
    
    Select Case State
        Case icResponseCompleted, icError
            If Inet.ResponseCode >= 1000 Then
                Buffer = "Inet Error #" & Inet.ResponseCode & ": " & Inet.ResponseInfo
            ElseIf Inet.ResponseCode <> 0 Then
                Buffer = "HTTP Error " & Inet.ResponseCode & " " & Inet.ResponseInfo
            Else
                Do
                    strData = Inet.GetChunk(1024, icString)
                    If Len(strData) = 0 Then Exit Do
                    Buffer = Buffer & strData
                Loop
                
                If LenB(Buffer) = 0 Then
                    Buffer = "Empty response"
                End If
            End If
            
            Select Case Inet.Tag
                Case SB_INET_NEWS
                    Call HandleNews(Buffer, Inet.ResponseCode)
                Case SB_INET_NEWS1
                    Call HandleNews(Buffer, Inet.ResponseCode)
                    If Config.AutoConnect And Not g_Connected Then
                        Call DoConnect
                    End If
                Case SB_INET_VBYTE
                    Call HandleUpdateVerbyte(Buffer, Inet.ResponseCode)
                Case SB_INET_BNLS1
                    Call HandleFindBNLSServerListResult(Buffer, Inet.ResponseCode, True)
                Case SB_INET_BNLS2
                    Call HandleFindBNLSServerListResult(Buffer, Inet.ResponseCode, False)
            End Select
            
            Inet.Tag = SB_INET_UNSET
            Inet.Cancel
    End Select
End Sub

Private Sub HandleUpdateVerbyte(ByVal Buffer As String, ByVal ResponseCode As Long)
    On Error Resume Next
    
    Dim ary() As String
    Dim i As Integer
    
    If Inet.ResponseCode <> 0 Then
        AddChat g_Color.ErrorMessageText, Buffer & ". Error retrieving version bytes from http://www.stealthbot.net. Please visit it for instructions."
    ElseIf Len(Buffer) <> 11 Then
        AddChat g_Color.ErrorMessageText, "Format not understood. Error retrieving version bytes from http://www.stealthbot.net. Please visit it for instructions."
    Else
        'W2 SC D2 W3
        Dim Keys(3) As String
        
        Keys(0) = "W2"
        Keys(1) = "SC"
        Keys(2) = "D2"
        Keys(3) = "W3"
        
        ary() = Split(Buffer, " ")
        
        For i = 0 To 3
            Config.SetVersionByte Keys(i), CLng(Val("&H" & ary(i)))
        Next i
        Config.SetVersionByte "D2X", CLng(Val("&H" & ary(2)))
        
        Call Config.Save
        
        AddChat g_Color.SuccessText, "Your config.ini file has been loaded with current version bytes."
    End If
End Sub


'RTB ADDCHAT SUBROUTINE - originally written by Grok[vL] - modified to support
'                         logging and timestamps and color decoding
' Updated 7/23/05 to remove many bulky calls to Len()
' Updated 9/01/05 to remove the changes made on 7/23/05 *smack forehead*
' Updated 9/25/05-10/25/05 to add HTML logging
' Updated 1/3/06 to remove HTML logging
' Updated 8/4/06 to add scrollbar locking (thanks FrOzeN)
' Updated 11/8/06 to log incoming text immediately
' Updated 4/17/07 to not flash the desktop when the scrollbar is held up
' Updated 8/07/07 with greater precision
Sub AddChat(ParamArray saElements() As Variant)
    Dim arr() As Variant

    arr() = saElements
    Call DisplayRichText(frmChat.rtbChat, arr)
End Sub

Sub AddWhisper(ParamArray saElements() As Variant)
    Dim arr() As Variant

    arr() = saElements
    Call DisplayRichText(frmChat.rtbWhispers, arr)
End Sub


'BNLS EVENTS
Sub Event_BNetConnected()
    Dim sRemoteHostIP As String

    If (ProxyConnInfo(stBNCS).IsUsingProxy) Then
        sRemoteHostIP = ProxyConnInfo(stBNCS).RemoteHostIP
        AddChat g_Color.SuccessText, StringFormat("[BNCS] [PROXY] Connected to {0}!", sRemoteHostIP)
    Else
        sRemoteHostIP = sckBNet.RemoteHostIP
        AddChat g_Color.SuccessText, StringFormat("[BNCS] Connected to {0}!", sRemoteHostIP)
    End If
    
    Call SetNagelStatus(sckBNet.SocketHandle, False)
End Sub

Sub Event_BNetConnecting()
    If (ProxyConnInfo(stBNCS).IsUsingProxy) Then
        AddChat g_Color.InformationText, "[BNCS] [PROXY] Connecting to the SOCKS" & ProxyConnInfo(stBNCS).Version & " proxy server at " & ProxyConnInfo(stBNCS).ProxyIP & ":" & ProxyConnInfo(stBNCS).ProxyPort & "..."
    Else
        AddChat g_Color.InformationText, "[BNCS] Connecting to the Battle.net server at " & BotVars.Server & "..."
    End If
End Sub

Sub Event_BNetDisconnected()
    Dim Alive             As Boolean
    Dim IsProxyConnecting As Boolean
    Alive = g_ConnectionAlive
    IsProxyConnecting = ProxyConnInfo(stBNCS).IsUsingProxy And ProxyConnInfo(stBNCS).Status <> psOnline

    ' proxy or BNCS connection unexpectedly closed
    Call DoDisconnect(False)
    Call DisplayError(0, vbNullString, stBNCS, IsProxyConnecting, Alive)
    Call DoScheduleAutoReconnect(Alive)
End Sub

Sub Event_BNLSAuthEvent(Success As Boolean)
    If Success = True Then
        AddChat g_Color.SuccessText, "[BNLS] Authorized!"
    Else
        AddChat g_Color.ErrorMessageText, "[BNLS] Authorization failed! Please download the latest version of StealthBot from http://www.stealthbot.net."
        Call DoDisconnect
    End If
End Sub

Sub Event_BNLSConnected()
    If (ProxyConnInfo(stBNLS).IsUsingProxy) Then
        AddChat g_Color.SuccessText, "[BNLS] [PROXY] Connected!"
    Else
        AddChat g_Color.SuccessText, "[BNLS] Connected!"
    End If
End Sub

Sub Event_BNLSConnecting()
    If (ProxyConnInfo(stBNLS).IsUsingProxy) Then
        AddChat g_Color.InformationText, "[BNLS] [PROXY] Connecting to the SOCKS" & ProxyConnInfo(stBNLS).Version & " proxy server at " & ProxyConnInfo(stBNLS).ProxyIP & ":" & ProxyConnInfo(stBNLS).ProxyPort & "..."
    Else
        AddChat g_Color.InformationText, "[BNLS] Connecting to the BNLS server at " & BotVars.BNLSServer & "..."
    End If
End Sub

' this function will return whether we are going to use the finder
Public Function HandleBnlsError(ByVal Number As Integer, ByVal Description As String, _
        Optional ByVal NoAutoReconnect As Boolean = False) As Boolean
    Dim Alive As Boolean
    Alive = g_ConnectionAlive

    'Close the current BNLS connection
    Call DoDisconnect(False)
    Call DisplayError(Number, Description, stBNLS, False, Alive)
    ' Is the BNLS server finder enabled?
    If Config.BNLSFinder Then
        Call RotateBnlsServer
        HandleBnlsError = True
    Else
        ' if we aren't using the finder, schedule reconnect
        If Not NoAutoReconnect Then
            Call DoScheduleAutoReconnect(Alive)
        End If
        HandleBnlsError = False
    End If
End Function

' Moves the connection to the next available BNLS server
Private Sub RotateBnlsServer()
    'Notify user the current BNLS server failed
    AddChat g_Color.ErrorMessageText, "[BNLS] Connection to " & BotVars.BNLSServer & " failed."
    
    'Notify user other BNLS servers are being located
    AddChat g_Color.InformationText, "[BNLS] Locating other BNLS servers..."
    
    Call FindBNLSServer
End Sub

Public Sub HandleFindBNLSServerListResult(ByVal strReturn As String, ByVal Result As Integer, ByVal ConfigListSource As Boolean)
    ' convert to LF
    strReturn = Replace(strReturn, vbCr, vbLf)
    strReturn = Replace(strReturn, vbLf & vbLf, vbLf)
    
    If (Inet.ResponseCode <> 0) Or (Right$(strReturn, 1) <> vbLf) Then
        If ConfigListSource Then
            If Not RequestInetPage(BNLS_DEFAULT_SOURCE, SB_INET_BNLS2, True) Then
                Call HandleFindBNLSServerListResult("Inet is busy", -1, False)
            End If
        Else
            AddChat g_Color.ErrorMessageText, "[BNLS] " & strReturn & ". Unable to use BNLS server finder."
            AddChat g_Color.ErrorMessageText, "[BNLS] An error occured while trying to locate an alternative BNLS server."
            AddChat g_Color.ErrorMessageText, "[BNLS]   You may not be connected to the internet or may be having DNS resolution issues."
            AddChat g_Color.ErrorMessageText, "[BNLS]   Visit http://www.stealthbot.net/ and check the Technical Support forum for more information."
            DoDisconnect
    
            ' ensure that we update our listing on following connection(s)
            BNLSFinderGotList = False
            
            ' ensure checker starts at 0 again on following connection(s)
            BNLSFinderIndex = 0
        End If
        
        Exit Sub
    Else
        ' Split the page up into an array of servers.
        BNLSFinderEntries() = Split(strReturn, vbLf)
    End If
    
    'Mark GotBNLSList as True so it's no longer downloaded for each attempt
    BNLSFinderGotList = True
    
    Call FindBNLSServerEntry
End Sub

'Locates alternative BNLS servers for the bot to use if the current one fails
Public Sub FindBNLSServer()
    'Error handler
    On Error GoTo ERROR_HANDLER
    
    BNLSFinderIndex = BNLSFinderIndex + 1
    
    'Check if the BNLS list has been downloaded
    If (BNLSFinderGotList = False) Then
        'Reset the counter
        BNLSFinderIndex = 0
        
        ' store first bnls server used so that we can avoid connecting to it again
        BNLSFinderLatest = BotVars.BNLSServer
        
        'Get the servers as a list from http://stealthbot.net/p/bnls.php
        If (LenB(Config.BNLSFinderSource) > 0) Then
            If Not RequestInetPage(Config.BNLSFinderSource, SB_INET_BNLS1, True) Then
                Call HandleFindBNLSServerListResult("Inet is busy", -1, False)
            End If
        Else
            If Not RequestInetPage(BNLS_DEFAULT_SOURCE, SB_INET_BNLS2, True) Then
                Call HandleFindBNLSServerListResult("Inet is busy", -1, False)
            End If
        End If
        
        Exit Sub
    End If
    
    Call FindBNLSServerEntry
    
    Exit Sub
    
ERROR_HANDLER:

    'Display the error message to the user
    If Err.Number = ERROR_FINDBNLSSERVER Then
        AddChat g_Color.ErrorMessageText, "[BNLS] " & Err.Description
        AddChat g_Color.ErrorMessageText, "[BNLS]   Visit http://www.stealthbot.net/ and check the Technical Support forum for more information."
        DoDisconnect
        
        ' ensure that we update our listing on following connection(s)
        BNLSFinderGotList = False
        
        ' ensure checker starts at 0 again on following connection(s)
        BNLSFinderIndex = 0
    
    Else
        Resume Next
    End If

    Exit Sub
End Sub

Sub FindBNLSServerEntry()
    If BNLSFinderIndex > UBound(BNLSFinderEntries) Then
        'All BNLS servers have been tried and failed
        Err.Raise ERROR_FINDBNLSSERVER, , "All the BNLS servers have failed."
    End If
    
    ' keep increasing counter until we find a server that is valid and isn't the same as the first one
    Do While (StrComp(BNLSFinderEntries(BNLSFinderIndex), BNLSFinderLatest, vbTextCompare) = 0) Or (LenB(BNLSFinderEntries(BNLSFinderIndex)) = 0)
        BNLSFinderIndex = BNLSFinderIndex + 1
        
        If BNLSFinderIndex > UBound(BNLSFinderEntries) Then
            'All BNLS servers have been tried and failed
            Err.Raise ERROR_FINDBNLSSERVER, , "All the BNLS servers have failed."
            Exit Do
        End If
    Loop
    
    BotVars.BNLSServer = BNLSFinderEntries(BNLSFinderIndex)
    
    ConnectBNLS
End Sub

' Updated 8/8/07 to support new prefix/suffix box feature
Public Sub Form_Resize()
    On Error Resume Next
    
    Dim lblHeight As Integer
    Static WasMaximized As Boolean
    Static DoMaximize As Boolean

    If SkipResize Then Exit Sub
    
    If Me.WindowState = vbMinimized Then
        If Not BotVars.NoTray Then
            #If (COMPILE_DEBUG <> 1) Then
                Me.Hide
                
                With nid
                    .cbSize = LenB(nid)
                    .hWnd = frmChat.hWnd
                    .uId = ID_TASKBARICON
                    .uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
                    .uCallBackMessage = WM_ICONNOTIFY
                    .hIcon = frmChat.Icon.handle
                    .szTip = GenerateTooltip()
                End With
                
                Shell_NotifyIcon NIM_ADD, nid
            #End If
        End If
    Else
        Shell_NotifyIcon NIM_DELETE, nid
        cboSend.SetFocus
        
        If txtPre.Visible Then
            txtPre.Height = cboSend.Height
            txtPre.Width = txtPost.Width
        End If
        
        If txtPost.Visible Then
            txtPost.Height = cboSend.Height
        End If
        
        'sizing + positioning
        
        'Added IsWindowsVista() call within an IIf() statement.
        'This shrinks the size of the entire layout by a further 80 twips.
        'This will act as a fix for Vista's screen cut off issues.
        '   - FrOzeN
        'This issue only occured under Aero, so the fix breaks the GUI for classic themes
        'on vista. This should be fixed now. ~Pyro
        With lvChannel
            'rtbChat.Width = Me.Width - .Width - IIf(g_OSVersion.IsWindowsVista, 200, 120)
        
            rtbChat.Width = Me.ScaleWidth - .Width
        
        '    .Width = (Me.Width / 4) - 120 'magic number?
        '    If .Width > (.ColumnHeaders.Item(1).Width + 700) Then
        '        .Width = .ColumnHeaders.Item(1).Width + 700
        '
        '        rtbChat.Width = Me.Width - .Width - 120
        '    Else
        '        rtbChat.Width = ((Me.Width / 4) * 3)
        '    End If
        '
        '    .ColumnHeaders.Item(1).Width = (.Width / 3) * 2.5
        End With
        
        lblCurrentChannel.Width = lvChannel.Width
        lvFriendList.Width = lvChannel.Width
        lvClanList.Width = lvChannel.Width
        cboSend.Width = rtbChat.Width
        
        With cmdShowHide
            If rtbWhispers_Visible Then
                'Debug.Print "-> " & rtbWhispers.Height
                .Height = rtbWhispers.Height + ListviewTabs.Height
                .Caption = CAP_HIDE
                .ToolTipText = TIP_HIDE
            Else
                .Height = ListviewTabs.Height
                .Caption = CAP_SHOW
                .ToolTipText = TIP_SHOW
            End If

            .ZOrder vbBringToFront
        End With
        
        'height is based on rtbchat.height + cmdshowhide.height
        If rtbWhispers_Visible Then
            rtbChat.Height = Me.ScaleHeight - cboSend.Height - rtbWhispers.Height
            'rtbChat.Height = ((Me.ScaleHeight / Screen.TwipsPerPixelY) - (txtPre.Height / _
                Screen.TwipsPerPixelY) - (rtbWhispers.Height / Screen.TwipsPerPixelY)) * _
                    (Screen.TwipsPerPixelY)
            rtbWhispers.Move rtbChat.Left, cboSend.Top + cboSend.Height
        Else
            rtbChat.Height = Me.ScaleHeight - cboSend.Height
            'rtbChat.Height = ((Me.ScaleHeight / Screen.TwipsPerPixelY) - (txtPre.Height / _
                Screen.TwipsPerPixelY)) * (Screen.TwipsPerPixelY)
        End If
        
        lvChannel.Move rtbChat.Left + rtbChat.Width, lblCurrentChannel.Top + lblCurrentChannel.Height, lvChannel.Width, rtbChat.Height - lblCurrentChannel.Height
        lvFriendList.Move lvChannel.Left, lvChannel.Top, lvChannel.Width, rtbChat.Height - lblCurrentChannel.Height
        lvClanList.Move lvChannel.Left, lvChannel.Top, lvChannel.Width, rtbChat.Height - lblCurrentChannel.Height
        lblCurrentChannel.Move lvChannel.Left, rtbChat.Top
        
        If txtPre.Visible Then
            txtPre.Move rtbChat.Left, rtbChat.Top + rtbChat.Height + (Screen.TwipsPerPixelY / 3)
            cboSend.Move txtPre.Left + txtPre.Width, txtPre.Top, rtbChat.Width - txtPre.Width
        Else
            cboSend.Move rtbChat.Left, rtbChat.Top + rtbChat.Height + (Screen.TwipsPerPixelY / 3)
        End If
        
        If txtPost.Visible Then
            cboSend.Width = cboSend.Width - txtPost.Width
            txtPost.Move cboSend.Left + cboSend.Width, cboSend.Top
        End If
        
        lvChannel.Height = rtbChat.Height - lblCurrentChannel.Height
        lvFriendList.Height = lvChannel.Height
        lvClanList.Height = lvChannel.Height
        
        'Minus 80 twips from rtbWhispers.Width if using Vista to fix width issue
        'the issue is not with Vista, but with Aero.
        With rtbWhispers
            If .Visible Then
                .Move rtbChat.Left, cboSend.Top + cboSend.Height, (Me.ScaleWidth - cmdShowHide.Width) ' - Screen.TwipsPerPixelX)
            End If
        End With
        
        ListviewTabs.Height = cboSend.Height
        ListviewTabs.Move lvChannel.Left, cboSend.Top, lvChannel.Width - _
            cmdShowHide.Width, cboSend.Height '+ 2 * Screen.TwipsPerPixelY
        
        If rtbWhispers_Visible Then
            cmdShowHide.Move rtbWhispers.Left + rtbWhispers.Width, lvChannel.Top + lvChannel.Height
        Else
            cmdShowHide.Move ListviewTabs.Left + ListviewTabs.Width, lvChannel.Top + lvChannel.Height
        End If
        
        With lvChannel
            If Config.HideClanDisplay Then
                .ColumnHeaders(1).Width = (.Width \ 4) * 3 + 200
                .ColumnHeaders(2).Width = 0
            Else
                .ColumnHeaders(1).Width = (.Width \ 4) * 3 - 500
                .ColumnHeaders(2).Width = 700
            End If
            If Config.HidePingDisplay Then
                .ColumnHeaders(3).Width = 0
            Else
                .ColumnHeaders(3).Width = imlIcons.ImageWidth
            End If
        End With
        
        With lvFriendList
            .ColumnHeaders(1).Width = (.Width \ 4) * 3 + 200
            .ColumnHeaders(2).Width = imlIcons.ImageWidth '.Width \ 4 + 200
        End With
        
        With lvClanList
            .ColumnHeaders(1).Width = (.Width \ 4) * 3 - 200
            .ColumnHeaders(2).Width = imlClan.ImageWidth '.Width \ 4 + 200
        End With
    End If
    
    If Me.WindowState = vbMaximized Then
        WasMaximized = True
    ElseIf Me.WindowState = vbMinimized Then
        If WasMaximized Then
            WasMaximized = False
            DoMaximize = True
        End If
    Else
        WasMaximized = False
        
        If DoMaximize Then
            DoMaximize = False
            
            Me.WindowState = vbMaximized
        End If
    End If
    
    Call rtbChat.Refresh
    
    Exit Sub
    
ERROR_HANDLER:
    AddChat g_Color.ErrorMessageText, "Error (#" & Err.Number & "): " & Err.Description & " in Form_Resize()."
End Sub

Function GenerateTooltip() As String
    GenerateTooltip = String(64, vbNullChar)
    GenerateTooltip = IIf(LenB(GetCurrentUsername) > 0, GetCurrentUsername, "offline") & " @ " & BotVars.Server & " (" & StrReverse(BotVars.Product) & ")" & Chr$(0)
End Function

Sub UpdateTrayTooltip()
    On Error Resume Next

    If Me.WindowState = vbMinimized Then
        With nid
            .cbSize = LenB(nid)
            .hWnd = frmChat.hWnd
            .uId = ID_TASKBARICON
            .uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
            .uCallBackMessage = WM_ICONNOTIFY
            .hIcon = frmChat.Icon.handle
            .szTip = GenerateTooltip()
        End With
        
        Shell_NotifyIcon NIM_MODIFY, nid
    End If
End Sub

Private Sub ClanHandler_CandidateListReply(ByVal Cookie As Long, ByVal Result As enuClanResponseValue, ByRef Users() As String)
    Dim i As Long
    Dim oRequest As udtServerRequest

    Call FindServerRequest(oRequest, Cookie)

    'Valid Status codes:
    '   0x00: Successfully found candidate(s)
    '   0x01: Clan tag already taken
    '   0x08: Already in clan
    '   0x0a: Invalid clan tag specified
    
    If MDebug("debug") Then
        AddChat g_Color.ErrorMessageText, "CandidateList received. Status code [0x" & ZeroOffset(Result, 2) & "]."
        If UBound(Users) > -1 Then
            AddChat g_Color.InformationText, "Potential clan members:"
            
            For i = 0 To UBound(Users)
                AddChat g_Color.InformationText, Users(i)
            Next i
        End If
    End If

    If oRequest.HandlerType = reqScriptingCall Then
        On Error Resume Next
        RunInAll "Event_ClanCandidateList", Result, ConvertStringArray(Users)
    End If
End Sub

Private Sub Clanhandler_InviteMultipleReply(ByVal Cookie As Long, ByVal Result As enuClanResponseValue, ByRef Users() As String)
    Dim oRequest As udtServerRequest

    Call FindServerRequest(oRequest, Cookie)

    If oRequest.HandlerType = reqScriptingCall Then
        On Error Resume Next
        RunInAll "Event_ClanInviteMultiple", Result, ConvertStringArray(Users)
    End If
End Sub

Private Sub ClanHandler_MemberLeaves(ByVal Member As String)

    If Not g_Clan.InClan Then Exit Sub

    AddChat g_Color.JoinText, "[CLAN] ", g_Color.JoinUsername, Member, g_Color.JoinText, " has left the clan."

    Dim x   As ListItem
    Dim pos As Integer

    pos = g_Clan.GetUserIndexEx(Member)

    If (pos > 0) Then
        g_Clan.Members.Remove pos
    End If

    Member = ConvertUsername(Member)

    Set x = lvClanList.FindItem(Member)

    If (Not (x Is Nothing)) Then
        lvClanList.ListItems.Remove x.Index
        
        lvClanList.Refresh
        
        Set x = Nothing
    End If

    On Error Resume Next

    RunInAll "Event_ClanMemberLeaves", Member
End Sub

Private Sub ClanHandler_RemovedFromClan(ByVal Status As Byte)
    Dim oRequest As udtServerRequest

    If Not g_Clan.InClan Then Exit Sub

    If Status = 1 Then
        If Not FindServerRequest(oRequest, -1, SID_CLANREMOVEMEMBER, , False) Then
            ' no pending SID_CLANREMOVEMEMBER (self leaving), mention it
            AddChat g_Color.ErrorMessageText, "[CLAN] You have been removed from the clan, or it has been disbanded."
        End If

        Set g_Clan = New clsClanObj

        ListviewTabs.TabEnabled(LVW_BUTTON_CLAN) = False
        lvClanList.ListItems.Clear
        ListviewTabs.Tab = LVW_BUTTON_CHANNEL
        Call UpdateListviewTabs

        On Error Resume Next
        RunInAll "Event_BotRemovedFromClan"
    End If
End Sub

Private Sub ClanHandler_MyRankChange(ByVal OldRank As enuClanRank, ByVal NewRank As enuClanRank, ByVal Initiator As String)

    If Not g_Clan.InClan Then Exit Sub

    If (g_Clan.Self.Rank < NewRank) Then
        AddChat g_Color.JoinText, "[CLAN] You have been promoted by ", _
                g_Color.JoinUsername, Initiator, g_Color.JoinText, ". Your new rank is ", _
                g_Color.JoinUsername, ClanHandler.GetRankName(NewRank), g_Color.JoinText, "."
    Else
        AddChat g_Color.JoinText, "[CLAN] You have been demoted by ", _
                g_Color.JoinUsername, Initiator, g_Color.JoinText, ". Your new rank is ", _
                g_Color.JoinUsername, ClanHandler.GetRankName(NewRank), g_Color.JoinText, "."
    End If

    g_Clan.Self.Rank = NewRank

    On Error Resume Next

    RunInAll "Event_BotClanRankChanged", NewRank
End Sub

Private Sub ClanHandler_Info(ByVal ClanTag As String, ByVal Rank As enuClanRank)
    Dim oRequest As udtServerRequest

    Set g_Clan = New clsClanObj

    With g_Clan
        .InClan = True
        .PendingInvitation = False
        .PendingClanMOTD = False
        .Name = ClanTag
    End With

    Call InitListviewTabs
    
    'If g_Clan.Self.Rank = 0 Then g_Clan.Self.Rank = 1
    
    BotVars.Clan = ClanTag

    If FindServerRequest(oRequest, -1, SID_CLANINVITATION, , False) Then
        AddChat g_Color.JoinText, "[CLAN] You are now a member of ", g_Color.JoinUsername, "Clan " & ClanTag, g_Color.JoinText, "!"
            
        RunInAll "Event_BotJoinedClan", ClanTag
    ElseIf FindServerRequest(oRequest, -1, SID_CLANCREATIONINVITATION, , False) Then
        AddChat g_Color.JoinText, "[CLAN] You are now a member of the newly created ", g_Color.JoinUsername, "Clan " & ClanTag, g_Color.JoinText, "!"
            
        RunInAll "Event_BotJoinedClan", ClanTag
    Else
        AddChat g_Color.JoinText, "[CLAN] You are a ", g_Color.JoinUsername, ClanHandler.GetRankName(Rank), g_Color.JoinText, " in ", _
                g_Color.JoinUsername, "Clan " & ClanTag, g_Color.JoinText, "."
        
        RunInAll "Event_BotClanInfo", ClanTag, Rank
    End If
    
    Call ClanHandler.RequestClanList(reqInternal)
    Call ClanHandler.RequestClanMOTD(reqInternal)
    
    Call UpdateListviewTabs
End Sub

Private Sub ClanHandler_InvitationReceived(ByVal Cookie As Long, ByVal ClanTag As String, ByVal ClanName As String, ByVal InvitedBy As String, ByVal IsNewClan As Boolean, ByRef Users() As String)
    Dim oRequest As udtServerRequest

    If Not Config.IgnoreClanInvites Then
        With oRequest
            .ResponseReceived = False
            .HandlerType = reqInternal
            Set .Command = Nothing
            .PacketID = SID_CLANINVITATIONRESPONSE
            .PacketCommand = 0
            .Tag = Array(Cookie, ClanTag, ClanName, InvitedBy, IsNewClan)
        End With

        Set g_Clan = New clsClanObj
        g_Clan.PendingInvitation = True
        g_Clan.PendingInvitationCookie = SaveServerRequest(oRequest)

        With g_Color
            AddChat .SuccessText, "[CLAN] ", .InformationText, ConvertUsername(InvitedBy), _
                    .SuccessText, " has invited you to join ", .InformationText, "Clan " & ClanTag, _
                    .SuccessText, ": ", .InformationText, ClanName
        End With

        frmClanInvite.Show
    End If

    RunInAll "Event_ClanInvitation", Cookie, ClanTag, ClanName, InvitedBy, IsNewClan
End Sub

Private Sub ClanHandler_MemberUpdate(ByVal Member As clsClanMemberObj)
    Dim ListItem As ListItem
    Dim pos      As Integer
    Dim OldRank  As enuClanRank
    Dim Username As String
    Dim Index    As Integer

    If Not g_Clan.InClan Then Exit Sub

    pos = g_Clan.GetUserIndexEx(Member.Name)
    
    If (pos > 0) Then
        OldRank = g_Clan.Members(pos).Rank

        With Member
            g_Clan.Members(pos).Name = .Name
            g_Clan.Members(pos).Rank = .Rank
            g_Clan.Members(pos).Status = .Status
            g_Clan.Members(pos).Location = .Location
        End With
    Else
        g_Clan.Members.Add Member

        ' we didn't have a record of this user, assume this isn't a rank change...
        OldRank = Member.Rank
    End If

    If StrComp(Member.Name, BotVars.Username, vbTextCompare) = 0 Then
        g_Clan.Self.Rank = Member.Rank
    End If

    If Member.Rank <> OldRank Then
        With g_Color
            AddChat .JoinText, "[CLAN] Member update: ", .JoinUsername, Member.DisplayName, _
                    .JoinText, " is now a ", .JoinUsername, Member.RankName, .JoinText, "."
        End With
    End If

    Set ListItem = lvClanList.FindItem(Member.Name)
    If Not (ListItem Is Nothing) Then
        ' set the icon and status in place
        SetClanMember ListItem, Member.Name, Member.DisplayName, Member.Rank, Member.Status
        Set ListItem = Nothing
    Else
        ' wasn't found...
        AddClanMember Member.Name, Member.DisplayName, Member.Rank, Member.Status
    End If

    ' re-sort
    lvClanList.Sorted = True

    Call UpdateListviewTabs
    
    On Error Resume Next
    RunInAll "Event_ClanMemberUpdate", Member.Name, Member.Rank, Member.IsOnline
End Sub

Private Sub ClanHandler_GetMOTD(ByVal Cookie As Long, ByVal Message As String)
    Dim oRequest As udtServerRequest

    Call FindServerRequest(oRequest, Cookie)

    g_Clan.MOTD = Message

    If oRequest.HandlerType = reqScriptingCall Then
        On Error Resume Next
        RunInAll "Event_ClanMOTD", Message
    End If
End Sub

Private Sub ClanHandler_GetMemberList(ByVal Cookie As Long, ByVal Members As Collection)
    Dim i As Long
    Dim oRequest As udtServerRequest
    Dim Member As clsClanMemberObj

    Call FindServerRequest(oRequest, Cookie)

    For i = 1 To Members.Count
        Set Member = Members.Item(i)
        g_Clan.Members.Add Member
        AddClanMember Member.Name, Member.DisplayName, Member.Rank, Member.Status

        If oRequest.HandlerType = reqScriptingCall Then
            On Error Resume Next
            RunInAll "Event_ClanMemberList", Member.DisplayName, Member.Rank, Member.Status
        End If
        Set Member = Nothing
    Next i

    ' re-sort
    lvClanList.Sorted = True
    
    Call UpdateListviewTabs
End Sub

Private Sub ClanHandler_GetMemberInfo(ByVal Cookie As Long, ByVal Result As enuClanResponseValue, ByVal ClanName As String, ByVal Rank As enuClanRank, ByVal JoinDate As Date)
    Dim i        As Long
    Dim oRequest As udtServerRequest
    Dim Username As String
    Dim ClanTag  As String
    Dim Member   As clsClanMemberObj
    Dim RespText As String

    Call FindServerRequest(oRequest, Cookie)

    Username = oRequest.Tag(0)
    ClanTag = oRequest.Tag(1)

    If (g_Clan.InClan And StrComp(g_Clan.Name, ClanTag, vbTextCompare) = 0) Then
        g_Clan.FullName = ClanName
        Set Member = g_Clan.GetMember(Username)
        If Not Member Is Nothing Then
            Member.JoinTime = JoinDate
            Member.Rank = Rank
        End If
        Set Member = Nothing

        Call UpdateListviewTabs
    End If

    If Result = clresSuccess Then
        RespText = StringFormat("{0} is a {1} in Clan {2}: {3} since {4}.", Username, ClanHandler.GetRankName(Rank), ClanTag, ClanName, JoinDate)
    Else
        RespText = StringFormat("Error: Get {0} member info failed - {1}.", Username, ClanHandler.GetClanResponseText(Result))
    End If

    If oRequest.HandlerType = reqScriptingCall Then
        On Error Resume Next
        RunInAll "Event_ClanMemberInfo", Result, Username, ClanTag, ClanName, Rank, JoinDate
    ElseIf oRequest.HandlerType = reqUserCommand Then
        oRequest.Command.Respond RespText
        oRequest.Command.SendResponse
    ElseIf oRequest.HandlerType = reqUserInterface Then
        AddChat g_Color.ConsoleText, RespText
    End If
End Sub

Private Sub ClanHandler_DemoteUserReply(ByVal Cookie As Long, ByVal Result As enuClanResponseValue)
    Dim oRequest As udtServerRequest
    Dim ResponseText As String
    Dim Username As String

    Call FindServerRequest(oRequest, Cookie)
    Username = oRequest.Tag(0)

    If Result = clresSuccess Then
        ResponseText = StringFormat("{0} demoted successfully.", Username)
    Else
        ResponseText = StringFormat("Error: {0} demotion failed - {1}.", Username, ClanHandler.GetClanResponseText(Result))
    End If

    If oRequest.HandlerType = reqScriptingCall Then
        On Error Resume Next
        RunInAll "Event_ClanDemoteUserReply", Result
    ElseIf oRequest.HandlerType = reqUserCommand Then
        oRequest.Command.Respond ResponseText
        oRequest.Command.SendResponse
    ElseIf oRequest.HandlerType = reqUserInterface Then
        AddChat g_Color.ConsoleText, ResponseText
    End If
End Sub

Private Sub ClanHandler_PromoteUserReply(ByVal Cookie As Long, ByVal Result As enuClanResponseValue)
    Dim oRequest As udtServerRequest
    Dim ResponseText As String
    Dim Username As String

    Call FindServerRequest(oRequest, Cookie)
    Username = oRequest.Tag(0)

    If Result = clresSuccess Then
        ResponseText = StringFormat("{0} promoted successfully.", Username)
    Else
        ResponseText = StringFormat("Error: {0} promotion failed - {1}.", Username, ClanHandler.GetClanResponseText(Result))
    End If

    If oRequest.HandlerType = reqScriptingCall Then
        On Error Resume Next
        RunInAll "Event_ClanPromoteUserReply", Result
    ElseIf oRequest.HandlerType = reqUserCommand Then
        oRequest.Command.Respond ResponseText
        oRequest.Command.SendResponse
    ElseIf oRequest.HandlerType = reqUserInterface Then
        AddChat g_Color.ConsoleText, ResponseText
    End If
End Sub

Private Sub ClanHandler_RemoveMemberReply(ByVal Cookie As Long, ByVal Result As enuClanResponseValue)
    Dim oRequest As udtServerRequest
    Dim ResponseText As String
    Dim Username As String

    Call FindServerRequest(oRequest, Cookie)
    Username = oRequest.Tag(0)

    If CBool(oRequest.Tag(1)) Then
        If Result = clresSuccess Then
            ResponseText = "Left the clan successfully."
        Else
            ResponseText = StringFormat("Error: Clan leave failed - {0}.", ClanHandler.GetClanResponseText(Result))
        End If
    Else
        If Result = clresSuccess Then
            ResponseText = StringFormat("{0} removed successfully.", Username)
        Else
            ResponseText = StringFormat("Error: {0} removal failed - {1}.", Username, ClanHandler.GetClanResponseText(Result))
        End If
    End If

    If oRequest.HandlerType = reqScriptingCall Then
        On Error Resume Next
        RunInAll "Event_ClanRemoveUserReply", Result
    ElseIf oRequest.HandlerType = reqUserCommand Then
        oRequest.Command.Respond ResponseText
        oRequest.Command.SendResponse
    ElseIf oRequest.HandlerType = reqUserInterface Then
        AddChat g_Color.ConsoleText, ResponseText
    End If
End Sub

Private Sub ClanHandler_DisbandClanReply(ByVal Cookie As Long, ByVal Result As enuClanResponseValue)
    Dim oRequest As udtServerRequest
    Dim ResponseText As String

    Call FindServerRequest(oRequest, Cookie)

    If Result = clresSuccess Then
        ResponseText = "Clan disbanded successfully."
    Else
        ResponseText = StringFormat("Error: Disband clan failed - {0}.", ClanHandler.GetClanResponseText(Result))
    End If

    If oRequest.HandlerType = reqScriptingCall Then
        On Error Resume Next
        RunInAll "Event_ClanDisbandReply", Result
    ElseIf oRequest.HandlerType = reqUserCommand Then
        oRequest.Command.Respond ResponseText
        oRequest.Command.SendResponse
    ElseIf oRequest.HandlerType = reqUserInterface Then
        AddChat g_Color.ConsoleText, ResponseText
    End If
End Sub

Private Sub ClanHandler_MakeChieftainReply(ByVal Cookie As Long, ByVal Result As enuClanResponseValue)
    Dim oRequest As udtServerRequest
    Dim ResponseText As String
    Dim Username As String

    Call FindServerRequest(oRequest, Cookie)
    Username = CStr(oRequest.Tag)

    If Result = clresSuccess Then
        ResponseText = StringFormat("{0} is now the chieftain.", Username)
    Else
        ResponseText = StringFormat("Error: Promotion of {0} to chieftain failed - {1}.", Username, ClanHandler.GetClanResponseText(Result))
    End If

    If oRequest.HandlerType = reqScriptingCall Then
        On Error Resume Next
        RunInAll "Event_ClanMakeChieftainReply", Result
    ElseIf oRequest.HandlerType = reqUserCommand Then
        oRequest.Command.Respond ResponseText
        oRequest.Command.SendResponse
    ElseIf oRequest.HandlerType = reqUserInterface Then
        AddChat g_Color.ConsoleText, ResponseText
    End If
End Sub

Private Sub ClanHandler_InviteUserReply(ByVal Cookie As Long, ByVal Result As enuClanResponseValue)
    Dim oRequest As udtServerRequest
    Dim ResponseText As String
    Dim Username As String

    Call FindServerRequest(oRequest, Cookie)
    Username = CStr(oRequest.Tag)

    If Result = clresSuccess Then
        ResponseText = StringFormat("{0} accepted the invitation.", Username)
    Else
        ResponseText = StringFormat("Error: {0} invitation failed - {1}.", Username, ClanHandler.GetClanResponseText(Result))
    End If

    If oRequest.HandlerType = reqScriptingCall Then
        On Error Resume Next
        RunInAll "Event_ClanInviteUserReply", Result
    ElseIf oRequest.HandlerType = reqUserCommand Then
        oRequest.Command.Respond ResponseText
        oRequest.Command.SendResponse
    ElseIf oRequest.HandlerType = reqUserInterface Then
        AddChat g_Color.ConsoleText, ResponseText
    End If
End Sub

Private Sub ClanHandler_UnknownClanEvent(ByVal PacketID As Byte, ByVal Data As String)
    If MDebug("debug") Then
        frmChat.AddChat g_Color.ErrorMessageText, "[CLAN] Unknown clan event [0x" & ZeroOffset(PacketID, 2) & "]. Data is as follows:"
        frmChat.AddChat g_Color.ErrorMessageText, Data
    End If
End Sub

Public Function GetLogFilePath() As String

    Dim Path As String
    Dim f    As Integer
    
    f = FreeFile
    
    Path = StringFormat("{0}{1}.txt", GetFolderPath("Logs"), Format(Date, "YYYY-MM-DD"))

    If (Dir$(Path) = vbNullString) Then
        Open Path For Output As #f
        Close #1
    End If
    
    GetLogFilePath = Path

End Function

Sub Form_Unload(Cancel As Integer)
    ShuttingDown = True
    AddChat g_Color.ErrorMessageText, "Shutting down..."
    
    If Config.FileExists Then
        If Me.WindowState <> vbMinimized Then
            Call RecordWindowPosition(CBool(Me.WindowState = vbMaximized))
        End If
        'Debug.Print Config.ShowWhisperBox
        Call Config.Save
    End If

    Call DoDisconnect

    Shell_NotifyIcon NIM_DELETE, nid
    
    On Error Resume Next
    
    RunInAll "Event_Close"
    RunInAll "Event_Shutdown"
    
    DestroyObjs
    
    On Error GoTo 0
    
    If ReconnectTimerID > 0 Then
        KillTimer 0, ReconnectTimerID
    End If

    Call modWarden.WardenCleanup(WardenInstance)

    DisableURLDetect frmChat.rtbChat.hWnd
    DisableURLDetect frmChat.rtbWhispers.hWnd
    UnhookWindowProc frmChat.hWnd
    
    DestroyAllWWs
    
    Set g_Logger = Nothing
    Set BotVars = Nothing
    Set ClanHandler = Nothing
    Set ListToolTip = Nothing
    Set FriendListHandler = Nothing
    Set colWhisperWindows = Nothing
    Set colLastSeen = Nothing
    Set SharedScriptSupport = Nothing
    Set ds = Nothing
    Set ReceiveBuffer(stBNCS) = Nothing
    Set ReceiveBuffer(stBNLS) = Nothing
    Set ReceiveBuffer(stMCP) = Nothing
    
    'Set dictTimerInterval = Nothing
    'Set dictTimerCount = Nothing
    'Set dictTimerEnabled = Nothing
    
    ' Updated to match current form list 2009-02-09 Andy
    Unload frmAbout
    Unload frmCatch
    Unload frmCommandManager
    Unload frmClanInvite
    Unload frmCustomInputBox
    Unload frmDBType
    Unload frmEMailReg
    Unload frmFilters
    Unload frmDBGameSelection
    Unload frmDBNameEntry
    Unload frmDBManager
    Unload frmAccountManager
    Unload frmKeyManager
    Unload frmProfile
    Unload frmQuickChannel
    Unload frmRealm
    Unload frmScript
    Unload frmSettings
    Unload frmSplash
    Unload frmWhisperWindow
    
    ' Added this instead of End to try and fix some system tray crashes 2009-0211-andy
    '  It was used in some capacity before since the API was already declared
    '   in modAPI...
    ' added preprocessor check; the bot was ending the VB6 IDE's process too! - ribose
    ' if it was compiled with the debugger, we don't allow minimizing to tray anyway
    #If (COMPILE_DEBUG <> 1) Then
        Call ExitProcess(0)
    #Else
        End
    #End If
End Sub

Private Sub FriendListHandler_FriendsListReply(ByVal Friends As Collection)
    Dim FriendObj   As clsFriendObj
    Dim i           As Integer
    Dim EntryNumber As Integer

    Set g_Friends = Friends

    If Config.FriendsListTab Then
        lvFriendList.ListItems.Clear
        For i = 1 To Friends.Count
            EntryNumber = i - 1
            Set FriendObj = Friends.Item(i)
            If FriendObj.IsOnline Or Config.ShowOfflineFriends Then
                AddFriendItem FriendObj.DisplayName, FriendObj.Game, FriendObj.Status, FriendObj.LocationID, EntryNumber
            End If
            Set FriendObj = Nothing
        Next i

        ' re-sort
        lvFriendList.Sorted = True

        Call UpdateListviewTabs
    End If
End Sub

Private Sub FriendListHandler_FriendsUpdate(ByVal EntryNumber As Byte, ByVal FriendObj As clsFriendObj)
    Dim ListItem As ListItem
    Dim oRequest As udtServerRequest

    If FriendObj.LocationID <> FRL_OFFLINE Then
        If Not FindServerRequest(oRequest, -1, SID_FRIENDSUPDATE, EntryNumber) Then
            ' NOTE: There is a server bug here where, when this packet is sent automaticlaly
            '   (not requested), the fields contains your own information instead when logged on.
            '   Because of this, we resend the request (if there isn't one already).
            '   (see: https://bnetdocs.org/packet/384/sid-friendsupdate)
            Call FriendListHandler.RequestFriendItem(EntryNumber, reqInternal)
            Exit Sub
        End If
    End If

    If g_Friends.Count > EntryNumber Then
        With g_Friends.Item(EntryNumber + 1)
            .Status = FriendObj.Status
            .LocationID = FriendObj.LocationID
            .Game = FriendObj.Game
            .Location = FriendObj.Location
        End With
    End If

    If Config.FriendsListTab Then
        Set ListItem = GetFriendItem(EntryNumber)
        If Not (ListItem Is Nothing) Then
            ' set the icon and status in place
            SetFriendItem ListItem, EntryNumber, True, FriendObj.Game, FriendObj.Status, FriendObj.LocationID
            Set ListItem = Nothing
        Else
            ' wasn't found...
            If FriendObj.IsOnline Or Config.ShowOfflineFriends Then
                AddFriendItem FriendObj.DisplayName, FriendObj.Game, FriendObj.Status, FriendObj.LocationID, EntryNumber
            End If
        End If

        ' re-sort
        lvFriendList.Sorted = True

        Call UpdateListviewTabs
    End If
End Sub

Private Sub FriendListHandler_FriendsAdd(ByVal FriendObj As clsFriendObj)
    Dim EntryNumber As Integer

    EntryNumber = g_Friends.Count
    g_Friends.Add FriendObj

    If Config.FriendsListTab Then
        If FriendObj.IsOnline Or Config.ShowOfflineFriends Then
            AddFriendItem FriendObj.DisplayName, FriendObj.Game, FriendObj.Status, FriendObj.LocationID, EntryNumber
        End If

        ' re-sort
        lvFriendList.Sorted = True

        Call UpdateListviewTabs
    End If
End Sub

Private Sub FriendListHandler_FriendsRemove(ByVal EntryNumber As Byte)
    Dim ListItem As ListItem
    Dim i        As Integer

    If g_Friends.Count > EntryNumber Then
        g_Friends.Remove EntryNumber + 1
    End If

    If Config.FriendsListTab Then
        Set ListItem = GetFriendItem(EntryNumber)
        If Not (ListItem Is Nothing) Then
            lvFriendList.ListItems.Remove ListItem.Index
            Set ListItem = Nothing
            For i = EntryNumber + 1 To g_Friends.Count + 1
                Set ListItem = GetFriendItem(i)
                If Not (ListItem Is Nothing) Then
                    SetFriendItem ListItem, i - 1
                    Set ListItem = Nothing
                End If
            Next i
        End If

        lvFriendList.Refresh

        Call UpdateListviewTabs
    End If
End Sub

Private Sub FriendListHandler_FriendsPosition(ByVal EntryNumber As Byte, ByVal NewPosition As Byte)
    Dim FriendObj     As clsFriendObj
    Dim ListItem      As ListItem
    Dim ListItemShift As ListItem
    Dim i             As Integer

    If g_Friends.Count > EntryNumber Then
        Set FriendObj = g_Friends.Item(EntryNumber + 1)
        g_Friends.Remove EntryNumber + 1
        If g_Friends.Count > NewPosition Then
            g_Friends.Add FriendObj, , NewPosition + 1
        Else
            g_Friends.Add FriendObj
        End If
        Set FriendObj = Nothing
    End If

    If Config.FriendsListTab Then
        Set ListItem = GetFriendItem(EntryNumber)
        If Not (ListItem Is Nothing) Then
            If EntryNumber < NewPosition Then
                ' f demote
                For i = EntryNumber + 1 To NewPosition
                    Set ListItemShift = GetFriendItem(i)
                    If Not (ListItemShift Is Nothing) Then
                        SetFriendItem ListItemShift, i - 1
                        Set ListItemShift = Nothing
                    End If
                Next i
                SetFriendItem ListItem, NewPosition
            ElseIf EntryNumber > NewPosition Then
                ' f promote
                For i = EntryNumber - 1 To NewPosition Step -1
                    Set ListItemShift = GetFriendItem(i)
                    If Not (ListItemShift Is Nothing) Then
                        SetFriendItem ListItemShift, i + 1
                        Set ListItemShift = Nothing
                    End If
                Next i
                SetFriendItem ListItem, NewPosition
            End If
            Set ListItem = Nothing
        End If

        ' re-sort
        lvFriendList.Sorted = True

        Call UpdateListviewTabs
    End If
End Sub

Private Sub lblCurrentChannel_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
    PopupMenu mnuQCTop
End Sub

Private Sub ListviewTabs_Click(PreviousTab As Integer)
    Dim CurrentTab As Integer
    Dim PrevListView As ListView
    Dim CurrListView As ListView

    CurrentTab = ListviewTabs.Tab
    If CurrentTab <> PreviousTab Then
        Select Case CurrentTab
            Case LVW_BUTTON_CHANNEL: Set CurrListView = lvChannel
            Case LVW_BUTTON_FRIENDS: Set CurrListView = lvFriendList
            Case LVW_BUTTON_CLAN:    Set CurrListView = lvClanList
        End Select
        CurrListView.Visible = True
        CurrListView.HideSelection = True
        CurrListView.Refresh
    
        Select Case PreviousTab
            Case LVW_BUTTON_CHANNEL: Set PrevListView = lvChannel
            Case LVW_BUTTON_FRIENDS: Set PrevListView = lvFriendList
            Case LVW_BUTTON_CLAN:    Set PrevListView = lvClanList
        End Select
        PrevListView.Visible = False
    End If

    With lblCurrentChannel
        If Not g_Online Then
            .Caption = vbNullString
            .ToolTipText = "Currently offline."
        Else
            Select Case ListviewTabs.Tab
                Case LVW_BUTTON_CHANNEL:
                    If LenB(g_Channel.Name) = 0 Then
                        .Caption = BotVars.Gateway
                        .ToolTipText = StringFormat("Currently online on {0}.", BotVars.Gateway)
                    Else
                        .Caption = StringFormat("{0} ({1})", g_Channel.Name, g_Channel.Users.Count)
                        .ToolTipText = StringFormat("Currently in {2} channel {0} ({1}).", _
                                g_Channel.Name, g_Channel.Users.Count, g_Channel.sType())
                    End If
                Case LVW_BUTTON_FRIENDS
                    .Caption = StringFormat("Your Friends ({0})", lvFriendList.ListItems.Count)
                    .ToolTipText = StringFormat("Currently viewing {0} friends.", lvFriendList.ListItems.Count)
                Case LVW_BUTTON_CLAN
                    .Caption = StringFormat("Clan {0} ({1} members)", g_Clan.Name, lvClanList.ListItems.Count)
                    .ToolTipText = StringFormat("Currently viewing {1} members of Clan {0}.", _
                            g_Clan.Name, lvClanList.ListItems.Count)
            End Select
        End If
    End With
End Sub

Public Sub UpdateListviewTabs()
    Call ListviewTabs_Click(ListviewTabs.Tab)
End Sub

' This procedure relies on code in RecordcboSendSelInfo() that sets global variables
'  cboSendSelLength and cboSendSelStart
' These two properties are zeroed out as the control loses focus and inaccessible
'  (zeroed) at both access time in this method AND in the _LostFocus sub
Private Sub lvChannel_dblClick()
    Dim Value As String

    Value = GetSelectedUser
    If LenB(cboSend.Text) = 0 Then Value = Value & BotVars.AutoCompletePostfix
    Value = Value & Space$(1)

    If (Len(Value) > 0) Then
        With cboSend
            .SelStart = cboSendSelStart
            .SelLength = cboSendSelLength
            .SelText = Value
            
            cboSendSelStart = cboSendSelStart + Len(Value)
            cboSendSelLength = 0
            
            .SetFocus
        End With
    End If
End Sub

Private Sub lvChannel_KeyUp(KeyCode As Integer, Shift As Integer)
    Const S_ALT = 4
    
    If (KeyCode = 93) Then
        lvChannel_MouseUp 2, Shift, 0, 0
    ElseIf (KeyCode = KEY_ALTN And Shift = S_ALT) Then
        Dim sStart As Integer
        
        With lvChannel
            If Not (.SelectedItem Is Nothing) Then
                cboSend.SelStart = Len(cboSend.Text)
                cboSend.SelText = .SelectedItem.Text
    
                KeyCode = 0
                Shift = 0
                
                Exit Sub
            End If
        End With
    End If
End Sub

Private Sub lvFriendList_KeyUp(KeyCode As Integer, Shift As Integer)
    Const S_ALT = 4
    
    If (KeyCode = 93) Then
        lvFriendList_MouseUp 2, Shift, 0, 0
    ElseIf (KeyCode = KEY_ALTN And Shift = S_ALT) Then
        Dim sStart As Integer
        
        With lvFriendList
            If Not (.SelectedItem Is Nothing) Then
                cboSend.SelStart = Len(cboSend.Text)
                cboSend.SelText = .SelectedItem.Text
    
                KeyCode = 0
                Shift = 0
                
                Exit Sub
            End If
        End With
    End If
End Sub

Private Sub lvClanList_KeyUp(KeyCode As Integer, Shift As Integer)
    Const S_ALT = 4
    
    If (KeyCode = 93) Then
        lvClanList_MouseUp 2, Shift, 0, 0
    ElseIf (KeyCode = KEY_ALTN And Shift = S_ALT) Then
        Dim sStart As Integer
        
        With lvClanList
            If Not (.SelectedItem Is Nothing) Then
                cboSend.SelStart = Len(cboSend.Text)
                cboSend.SelText = .SelectedItem.Text
    
                KeyCode = 0
                Shift = 0
                
                Exit Sub
            End If
        End With
    End If
End Sub

Private Sub lvFriendList_dblClick()
    Dim Value As String

    Value = GetFriendsSelectedUser
    If LenB(cboSend.Text) = 0 Then Value = Value & BotVars.AutoCompletePostfix
    Value = Value & Space$(1)

    If (Len(Value) > 0) Then
        With cboSend
            .SelStart = cboSendSelStart
            .SelLength = cboSendSelLength
            .SelText = Value
            
            cboSendSelStart = cboSendSelStart + Len(Value)
            cboSendSelLength = 0
            
            .SetFocus
        End With
    End If
End Sub

Private Sub lvClanList_dblClick()
    Dim Value As String

    Value = GetClanSelectedUser
    If LenB(cboSend.Text) = 0 Then Value = Value & BotVars.AutoCompletePostfix
    Value = Value & Space$(1)

    If (Len(Value) > 0) Then
        With cboSend
            .SelStart = cboSendSelStart
            .SelLength = cboSendSelLength
            .SelText = Value
            
            cboSendSelStart = cboSendSelStart + Len(Value)
            cboSendSelLength = 0
            
            .SetFocus
        End With
    End If
End Sub

Private Sub lvChannel_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
    Dim aInx         As Integer
    Dim sProd        As String * 4
    Dim HasOps       As Boolean
    Dim UserIsW3     As Boolean
    Dim UserHasStats As Boolean
    Dim IsPubGateway As Boolean
    Dim Gateway      As String
    
    If (lvChannel.SelectedItem Is Nothing) Then
        Exit Sub
    End If

    If Button = vbRightButton Then
        If Not (lvChannel.SelectedItem Is Nothing) Then
            aInx = lvChannel.SelectedItem.Index
            
            If aInx > 0 Then
                With g_Channel.PriorityUsers(aInx)
                    sProd = .Game
                    UserIsW3 = (sProd = PRODUCT_W3XP Or sProd = PRODUCT_WAR3)
                    Select Case sProd
                        Case PRODUCT_STAR, PRODUCT_SEXP, PRODUCT_W2BN, PRODUCT_WAR3, PRODUCT_W3XP, PRODUCT_JSTR, PRODUCT_SSHR
                            UserHasStats = True
                    End Select
                    HasOps = g_Channel.Self.IsOperator()

                    Gateway = GetUserNamespace(.Name)
                    Select Case Gateway
                        Case "Azeroth", "Lordaeron", "Northrend", "Kalimdor"
                            IsPubGateway = True
                    End Select

                    mnuPopInvite.Enabled = UserIsW3 And LenB(.Clan) = 0 And InStr(1, GetSelectedUser, "#") = 0 And g_Clan.Self.Rank >= 3

                    mnuPopStats.Enabled = UserHasStats
                    mnuPopWebProfile.Enabled = UserIsW3 And IsPubGateway
                    mnuPopKick.Enabled = HasOps
                    mnuPopDes.Enabled = HasOps
                    mnuPopBan.Enabled = HasOps
                End With
            End If
        End If
        
        mnuPopup.Tag = lvChannel.SelectedItem.Text 'Record which user is selected at time of right-clicking. - FrOzeN
        
        PopupMenu mnuPopup
    End If
End Sub

Private Sub lvFriendList_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
    Dim aInx         As Integer
    Dim sProd        As String * 4
    Dim bIsOn        As Boolean
    Dim bIsMutual    As Boolean
    Dim UserIsW3     As Boolean
    Dim UserHasStats As Boolean
    Dim SelfHasStats As Boolean
    Dim IsPubGateway As Boolean
    Dim Gateway      As String
    
    If (lvFriendList.SelectedItem Is Nothing) Then
        Exit Sub
    End If

    If Button = vbRightButton Then
        If Not (lvFriendList.SelectedItem Is Nothing) Then
            aInx = lvFriendList.SelectedItem.Index
            
            If aInx > 0 Then
                With g_Friends(aInx)
                    sProd = .Game
                    bIsOn = .IsOnline
                    bIsMutual = .IsMutual

                    UserIsW3 = (sProd = PRODUCT_W3XP Or sProd = PRODUCT_WAR3)
                    Select Case sProd
                        Case PRODUCT_STAR, PRODUCT_SEXP, PRODUCT_W2BN, PRODUCT_WAR3, PRODUCT_W3XP, PRODUCT_JSTR, PRODUCT_SSHR
                            UserHasStats = True
                    End Select

                    Select Case StrReverse(BotVars.Product)
                        Case PRODUCT_STAR, PRODUCT_SEXP, PRODUCT_W2BN, PRODUCT_WAR3, PRODUCT_W3XP, PRODUCT_JSTR, PRODUCT_SSHR
                            SelfHasStats = True
                    End Select

                    Gateway = GetUserNamespace(.Name)
                    Select Case Gateway
                        Case "Azeroth", "Lordaeron", "Northrend", "Kalimdor"
                            IsPubGateway = True
                    End Select
                
                    mnuPopFLWhisper.Enabled = bIsOn
                    mnuPopFLInvite.Enabled = UserIsW3 And bIsMutual And g_Clan.Self.Rank >= 3

                    mnuPopFLStats.Enabled = UserHasStats Or SelfHasStats
                    mnuPopFLWebProfile.Enabled = UserIsW3 And IsPubGateway
                End With
            End If
        End If
        
        mnuPopFList.Tag = lvFriendList.SelectedItem.Text 'Record which user is selected at time of right-clicking. - FrOzeN
        
        PopupMenu mnuPopFList
    End If
End Sub

Private Sub lvChannel_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
    Dim lvhti As LVHITTESTINFO
    Dim lItemIndex As Long
    Dim sOutBuf As String
    Dim sTemp As String
    Dim UserAccess As udtUserAccess
    Dim Clan As String
   
    lvhti.pt.x = x / Screen.TwipsPerPixelX
    lvhti.pt.y = y / Screen.TwipsPerPixelY
    lItemIndex = SendMessageAny(lvChannel.hWnd, LVM_HITTEST, -1, lvhti) + 1
 
    If m_lCurItemIndex <> lItemIndex Then
        m_lCurItemIndex = lItemIndex
        
        If m_lCurItemIndex = 0 Then   ' no item under the mouse pointer
            ListToolTip.Destroy
        Else
            'UserAccess = GetCumulativeAccess(lvChannel.ListItems(m_lCurItemIndex).text, "USER")
        
            ListToolTip.Title = _
                "Information for " & lvChannel.ListItems(m_lCurItemIndex).Text
                
            'If (UserAccess.Name <> vbNullString) Then
            '    sTemp = sTemp & "["
            '
            '    If (UserAccess.Access > 0) Then
            '        sTemp = sTemp & "rank: " & UserAccess.Access
            '    End If
            '
            '    If ((UserAccess.Flags <> "%") And (UserAccess.Flags <> vbNullString)) Then
            '        If (UserAccess.Access > 0) Then
            '            sTemp = sTemp & ", "
            '        End If
            '
            '        sTemp = sTemp & "flags: " & UserAccess.Flags
            '    End If
            '
            '    sTemp = sTemp & "]" & vbCrLf
            'End If
                
            
            'lItemIndex = g_Channel.GetUserIndex(lvChannel.ListItems(m_lCurItemIndex).Text)
            
            If (m_lCurItemIndex > 0 And m_lCurItemIndex <= g_Channel.PriorityUsers.Count) Then
                With g_Channel.PriorityUsers(m_lCurItemIndex)
                    'ParseStatstring .Statstring, sOutBuf, Clan
            
                    'sTemp = sTemp & vbCrLf
                    sTemp = sTemp & "Ping at logon: " & Format$(.Ping, "#,##0") & "ms" & vbCrLf
                    sTemp = sTemp & "Flags: " & GetFlagDescription(.Flags, True) & vbCrLf
                    sTemp = sTemp & vbCrLf
                    sTemp = sTemp & .Stats.ToString
                
                    ListToolTip.TipText = sTemp
                    
                End With
                
                Call ListToolTip.Create(lvChannel.hWnd, CLng(x), CLng(y))
            End If
        End If
    End If
End Sub

Private Sub lvFriendList_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
    Dim lvhti As LVHITTESTINFO
    Dim lItemIndex As Long
   
    lvhti.pt.x = x / Screen.TwipsPerPixelX
    lvhti.pt.y = y / Screen.TwipsPerPixelY
    lItemIndex = SendMessageAny(lvFriendList.hWnd, LVM_HITTEST, 0, lvhti) + 1
   
    If m_lCurItemIndex <> lItemIndex Then
        m_lCurItemIndex = lItemIndex
        
        If m_lCurItemIndex = 0 Then   ' no item under the mouse pointer
            ListToolTip.Destroy
        Else
            ListToolTip.Title = "Information for " & lvFriendList.ListItems(m_lCurItemIndex).Text
            
            Dim sTemp As String
            
            If ((lItemIndex > 0) And (g_Friends.Count > 0)) Then
                lItemIndex = FriendListHandler.UsernameToFLIndex(lvFriendList.ListItems(m_lCurItemIndex).Text)
            
                With g_Friends.Item(lItemIndex)
'                    Private Const FRL_OFFLINE& = &H0
'                    Private Const FRL_NOTINCHAT& = &H1
'                    Private Const FRL_INCHAT& = &H2
'                    Private Const FRL_PUBLICGAME& = &H3
'                    Private Const FRL_PRIVATEGAME& = &H5
                    If .IsOnline Then
                        sTemp = sTemp & "Using " & ProductCodeToFullName(.Game) & " "
                    End If
                    
                    Select Case .LocationID
                        Case FRL_OFFLINE
                            sTemp = sTemp & "This person is offline."
                        Case FRL_NOTINCHAT
                            sTemp = sTemp & "outside of chat."
                        Case FRL_INCHAT
                            sTemp = sTemp & "in a chat channel."
                        Case FRL_PUBLICGAME
                            sTemp = sTemp & "in public game " & .Location & "."
                        Case FRL_PRIVATEGAME
                            sTemp = sTemp & "in a private game."
                    End Select
                    
'                    Private Const FRS_NONE& = &H0
'                    Private Const FRS_MUTUAL& = &H1
'                    Private Const FRS_DND& = &H2
'                    Private Const FRS_AWAY& = &H4

                    If (.Status And FRS_MUTUAL) = FRS_MUTUAL Then
                        sTemp = sTemp & vbCrLf & "Mutual friend"
                        
                        Select Case (.LocationID)
                            Case FRL_INCHAT
                                sTemp = sTemp & ", in channel " & .Location & "."
                            Case FRL_PUBLICGAME
                                sTemp = sTemp & ", in public game " & .Location & "."
                            Case FRL_PRIVATEGAME_MUTUAL
                                sTemp = sTemp & ", in private game " & .Location & "."
                            Case Else
                                sTemp = sTemp & "."
                        End Select
                    End If
                    
                    If (.Status And FRS_AWAY) = FRS_AWAY Then
                        sTemp = sTemp & vbCrLf & "Currently marked as away."
                    End If
                    
                    If (.Status And FRS_DND) = FRS_DND Then
                        sTemp = sTemp & vbCrLf & "Currently marked as Do Not Disturb."
                    End If
                    
                    ListToolTip.TipText = sTemp
                End With
                
                Call ListToolTip.Create(lvFriendList.hWnd, CLng(x), CLng(y))
            End If
        End If
    End If
End Sub

Private Sub lvClanList_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
    Dim lvhti As LVHITTESTINFO
    Dim lItemIndex As Integer
    Dim ClanMember As clsClanMemberObj
   
    lvhti.pt.x = x / Screen.TwipsPerPixelX
    lvhti.pt.y = y / Screen.TwipsPerPixelY
    lItemIndex = SendMessageAny(lvClanList.hWnd, LVM_HITTEST, 0, lvhti) + 1
   
    If m_lCurItemIndex <> lItemIndex Then
        m_lCurItemIndex = lItemIndex
        
        If m_lCurItemIndex = 0 Then   ' no item under the mouse pointer
            ListToolTip.Destroy
        Else
            ListToolTip.Title = "Information for " & lvClanList.ListItems(m_lCurItemIndex).Text
            
            Dim sTemp As String
            
            If ((lItemIndex > 0) And (g_Clan.Members.Count > 0)) Then
                Set ClanMember = g_Clan.GetMember(lvClanList.ListItems(m_lCurItemIndex).Text)
                
                If (Not ClanMember Is Nothing) Then
                    With ClanMember
                        If (.Rank = clrankChieftain) Then
                            sTemp = sTemp & "The "
                        Else
                            sTemp = sTemp & "This "
                        End If
                        
                        sTemp = sTemp & .RankName & " is currently "
                        
                        If (.IsOnline) Then
                            sTemp = sTemp & "online"
                            
                            If (LenB(.Location) > 0) Then
                                sTemp = sTemp & " in " & .Location
                            End If
                        Else
                            sTemp = sTemp & "offline"
                        End If
                        
                        sTemp = sTemp & "."
                        
                        ListToolTip.TipText = sTemp
                    End With
                    Set ClanMember = Nothing
                End If
                
                Call ListToolTip.Create(lvClanList.hWnd, CLng(x), CLng(y))
            End If
        End If
    End If
End Sub

Private Sub mnuAccountManager_Click()
    frmAccountManager.ShowMode ACCOUNT_MODE_LOGON
End Sub

Private Sub mnuCatchPhrases_Click()
    frmCatch.Show
End Sub

Private Sub mnuChangeLog_Click()
    ShellOpenURL "http://www.stealthbot.net/wiki/changelog", "the StealthBot Changelog"
End Sub

Private Sub mnuOpenScriptFolder_Click()
    Dim sPath As String
    sPath = GetFolderPath("Scripts")
    
    ' Does the script folder exist?
    If (LenB(Dir$(sPath, vbDirectory)) > 0) Then
        Shell StringFormat("explorer.exe {0}", sPath), vbNormalFocus
    Else
        ' Try and create it
        MkDir sPath
        
        ' Did it work?
        If (LenB(Dir$(sPath, vbDirectory)) > 0) Then
            Shell StringFormat("explorer.exe {0}", sPath), vbNormalFocus
        Else
            Call frmChat.AddChat(g_Color.ErrorMessageText, "Your script folder does not exist, and could not be created.")
            Call frmChat.AddChat(g_Color.ErrorMessageText, "Script folder path: " & sPath)
            Exit Sub
        End If
    End If
End Sub

Private Sub mnuPopClanAddLeft_Click()
    If Not PopupMenuCLUserCheck Then Exit Sub 'Check user selected is the same one that was right-clicked on. - FrOzeN
    
    If txtPre.Enabled Then 'fix for topic 25290 -a
        txtPre.Text = StringFormat("/w {0} ", GetClanSelectedUser)
        
        On Error Resume Next
        cboSend.SetFocus
        cboSend.SelStart = Len(cboSend.Text)
    End If
End Sub

Private Sub mnuPopClanAddToFList_Click()
    If Not PopupMenuCLUserCheck Then Exit Sub 'Check user selected is the same one that was right-clicked on. - FrOzeN
    
    AddQ "/f a " & CleanUsername(GetClanSelectedUser), enuPriority.CONSOLE_MESSAGE
End Sub

Private Sub mnuPopClanCopy_Click()
    If Not PopupMenuCLUserCheck Then Exit Sub 'Check user selected is the same one that was right-clicked on.
    
    On Error Resume Next
    Clipboard.Clear
    
    Clipboard.SetText GetClanSelectedUser
End Sub

Private Sub mnuPopClanDemote_Click()
    Dim Rank As enuClanRank

    If Not PopupMenuCLUserCheck Then Exit Sub 'Check user selected is the same one that was right-clicked on.

    If MsgBox("Are you sure you want to demote " & GetClanSelectedUser & "?", vbYesNo, "StealthBot") = vbYes Then
        Rank = lvClanList.ListItems(lvClanList.SelectedItem.Index).SmallIcon - 1
        Call ClanHandler.DemoteMember(GetClanSelectedUser, Rank, reqUserInterface)
    End If
End Sub

Private Sub mnuPopClanDisband_Click()
    If Not PopupMenuCLUserCheck Then Exit Sub 'Check user selected is the same one that was right-clicked on.

    If MsgBox("Are you sure you want to disband this clan?", vbYesNo Or vbCritical, "StealthBot") = vbYes Then
        Call ClanHandler.DisbandClan(reqUserInterface)
    End If
End Sub

Private Sub mnuPopClanLeave_Click()
    If Not PopupMenuCLUserCheck Then Exit Sub 'Check user selected is the same one that was right-clicked on.

    If MsgBox("Are you sure you want to leave the clan?", vbYesNo, "StealthBot") = vbYes Then
        Call ClanHandler.RemoveMember(GetCurrentUsername, True, reqUserInterface)
    End If
End Sub

Private Sub mnuPopClanMakeChief_Click()
    Dim pBuf As clsDataBuffer

    If Not PopupMenuCLUserCheck Then Exit Sub 'Check user selected is the same one that was right-clicked on.

    If MsgBox("Are you sure you want to make " & GetClanSelectedUser & " the new Chieftain?", vbYesNo Or vbCritical, "StealthBot") = vbYes Then
        Call ClanHandler.MakeMemberChieftain(GetClanSelectedUser, reqUserInterface)
    End If
End Sub

Private Sub mnuPopClanProfile_Click()
    If Not PopupMenuCLUserCheck Then Exit Sub 'Check user selected is the same one that was right-clicked on.
    
    Call RequestProfile(GetClanSelectedUser, reqUserInterface)
    
    frmProfile.PrepareForProfile GetClanSelectedUser, False
End Sub

Private Sub mnuPopClanPromote_Click()
    Dim Rank As enuClanRank

    If Not PopupMenuCLUserCheck Then Exit Sub 'Check user selected is the same one that was right-clicked on.

    If MsgBox("Are you sure you want to promote " & GetClanSelectedUser & "?", vbYesNo, "StealthBot") = vbYes Then
        Rank = lvClanList.ListItems(lvClanList.SelectedItem.Index).SmallIcon + 1
        Call ClanHandler.PromoteMember(GetClanSelectedUser, Rank, reqUserInterface)
    End If
End Sub

Private Sub mnuPopClanRemove_Click()
    If Not PopupMenuCLUserCheck Then Exit Sub 'Check user selected is the same one that was right-clicked on.

    Dim LastRemoval As Long
    LastRemoval = ClanHandler.TimeSinceLastRemoval

    If LastRemoval < 30 Then
        AddChat g_Color.ErrorMessageText, "You must wait " & 30 - LastRemoval & " more seconds before you " & _
                "can remove another user from your clan."
    Else
        If MsgBox("Are you sure you want to remove this user from the clan?", vbExclamation + vbYesNo, _
                "StealthBot") = vbYes Then
            If lvClanList.SelectedItem.Index > 0 Then
                Call ClanHandler.RemoveMember(GetClanSelectedUser, False, reqUserInterface)
            End If

            ClanHandler.LastRemoval = modDateTime.GetTickCountMS()
        End If
    End If
End Sub

Private Sub mnuPopClanStatsWAR3_Click()
    Dim sProd As String
    
    If Not PopupMenuCLUserCheck Then Exit Sub 'Check user selected is the same one that was right-clicked on.
    
    sProd = PRODUCT_WAR3
    
    If (StrComp(sProd, StrReverse$(BotVars.Product), vbBinaryCompare) = 0) Then
        sProd = vbNullString
    Else
        sProd = Space$(1) & sProd
    End If
    
    AddQ "/stats " & CleanUsername(GetClanSelectedUser) & sProd, enuPriority.CONSOLE_MESSAGE
End Sub

Private Sub mnuPopClanStatsW3XP_Click()
    Dim sProd As String
    
    If Not PopupMenuCLUserCheck Then Exit Sub 'Check user selected is the same one that was right-clicked on.
    
    sProd = PRODUCT_W3XP
    
    If (StrComp(sProd, StrReverse$(BotVars.Product), vbBinaryCompare) = 0) Then
        sProd = vbNullString
    Else
        sProd = Space$(1) & sProd
    End If
    
    AddQ "/stats " & CleanUsername(GetClanSelectedUser) & sProd, enuPriority.CONSOLE_MESSAGE
End Sub

Private Sub mnuPopClanUserlistWhois_Click()
    If Not PopupMenuCLUserCheck Then Exit Sub 'Check user selected is the same one that was right-clicked on.
    
    Call ProcessCommand(GetCurrentUsername, "/whois " & GetClanSelectedUser, True, False)
    g_Queue.RemoveItem g_Queue.Count - 1
End Sub

Private Sub mnuPopClanWebProfileWAR3_Click()
    If Not PopupMenuCLUserCheck Then Exit Sub 'Check user selected is the same one that was right-clicked on.
    
    GetW3LadderProfile GetClanSelectedUser, WAR3, GetUserNamespace(GetClanSelectedUser)
End Sub

Private Sub mnuPopClanWebProfileW3XP_Click()
    If Not PopupMenuCLUserCheck Then Exit Sub 'Check user selected is the same one that was right-clicked on.
    
    GetW3LadderProfile GetClanSelectedUser, W3XP, GetUserNamespace(GetClanSelectedUser)
End Sub

Private Sub mnuPopClanWhisper_Click()
    Dim Value As String

    If Not PopupMenuCLUserCheck Then Exit Sub 'Check user selected is the same one that was right-clicked on.

    Value = cboSend.Text

    If LenB(Value) > 0 Then
        Value = "/w " & CleanUsername(GetClanSelectedUser, True) & Space(1) & Value

        AddQ Value, enuPriority.CONSOLE_MESSAGE

        cboSend.AddItem Value, 0
        cboSend.Text = vbNullString

        On Error Resume Next
        cboSend.SetFocus
    End If
End Sub

Private Sub mnuPopClanWhois_Click()
    If Not PopupMenuCLUserCheck Then Exit Sub 'Check user selected is the same one that was right-clicked on.
    
    AddQ "/whois " & lvClanList.SelectedItem.Text, enuPriority.CONSOLE_MESSAGE
End Sub

Private Sub mnuPopFLAddLeft_Click()
    If Not PopupMenuCLUserCheck Then Exit Sub 'Check user selected is the same one that was right-clicked on. - FrOzeN
    Dim Index As Integer
    Dim s As String
    
    If txtPre.Enabled Then 'fix for topic 25290 -a
        s = vbNullString
        If Dii Then s = "*"
        s = StringFormat("/w {0}{1} ", s, GetFriendsSelectedUser)
        txtPre.Text = s
        
        On Error Resume Next
        cboSend.SetFocus
        cboSend.SelStart = Len(cboSend.Text)
    End If
End Sub

Private Sub mnuPopFLCopy_Click()
    If Not PopupMenuFLUserCheck Then Exit Sub 'Check user selected is the same one that was right-clicked on.
    
    On Error Resume Next
    Clipboard.Clear
    
    Clipboard.SetText GetFriendsSelectedUser
End Sub

'Will move the selected user one spot down on the friends list.
Private Sub mnuPopFLDemote_Click()
    If Not PopupMenuFLUserCheck Then Exit Sub 'Check user selected is the same one that was right-clicked on.
    
    With lvFriendList.SelectedItem
        If (.Index < lvFriendList.ListItems.Count) Then
            AddQ "/f d " & GetFriendsSelectedUser, enuPriority.CONSOLE_MESSAGE
            'MoveFriend .index, .index + 1
        End If
    End With
End Sub

Private Sub mnuPopFLInvite_Click()
    If Not PopupMenuFLUserCheck Then Exit Sub 'Check user selected is the same one that was right-clicked on. - FrOzeN
    Dim sPlayer As String
    
    sPlayer = GetFriendsSelectedUser
    
    If LenB(sPlayer) > 0 Then
        If g_Clan.Self.Rank >= 3 Then
            Call ClanHandler.InviteToClan(ReverseConvertUsernameGateway(sPlayer), reqUserInterface)
            AddChat g_Color.InformationText, "[CLAN] Invitation sent to " & sPlayer & ", awaiting reply."
        End If
    End If
End Sub

Private Sub mnuPopFLProfile_Click()
    If Not PopupMenuFLUserCheck Then Exit Sub 'Check user selected is the same one that was right-clicked on.

    RequestProfile CleanUsername(GetFriendsSelectedUser), reqUserInterface

    frmProfile.PrepareForProfile CleanUsername(GetFriendsSelectedUser), False
End Sub

'Will move the selected user one spot up on the friends list.
Private Sub mnuPopFLPromote_Click()
    If Not PopupMenuFLUserCheck Then Exit Sub 'Check user selected is the same one that was right-clicked on.
    
    With lvFriendList.SelectedItem
        If (.Index > 1) Then
            AddQ "/f p " & GetFriendsSelectedUser, enuPriority.CONSOLE_MESSAGE
            'MoveFriend .index, .index - 1
        End If
    End With
End Sub

Private Sub mnuPopFLRefresh_Click()
    Call FriendListHandler.RequestFriendsList
End Sub

Private Sub mnuPopFLRemove_Click()
    If Not PopupMenuFLUserCheck Then Exit Sub 'Check user selected is the same one that was right-clicked on.
    
    AddQ "/f r " & GetFriendsSelectedUser, enuPriority.CONSOLE_MESSAGE
End Sub

Private Sub mnuPopFLStats_Click()
    If Not PopupMenuFLUserCheck Then Exit Sub 'Check user selected is the same one that was right-clicked on.
    
    Dim aInx As Integer
    Dim sProd As String
    
    aInx = lvFriendList.SelectedItem.Index
    sProd = g_Friends(aInx).Game
    Select Case sProd
        Case PRODUCT_STAR, PRODUCT_SEXP, PRODUCT_W2BN, PRODUCT_WAR3, PRODUCT_W3XP, PRODUCT_JSTR, PRODUCT_SSHR
            ' get stats for user on their current product
        Case Else
            ' their current product does not have stats, or they are offline
            Select Case StrReverse$(BotVars.Product)
                Case PRODUCT_STAR, PRODUCT_SEXP, PRODUCT_W2BN, PRODUCT_WAR3, PRODUCT_W3XP, PRODUCT_JSTR, PRODUCT_SSHR
                    ' get stats for user on the bot's product
                    sProd = StrReverse$(BotVars.Product)
                Case Else
                    ' unspecified product
                    AddChat g_Color.ConsoleText, "This bot and the specified friend are not on a game that stores stats viewable via the Battle.net /stats command. " & _
                                                   "Type /stats " & CleanUsername(GetFriendsSelectedUser) & " <desired product code> to get this user's stats for another game."
                    Exit Sub
            End Select
    End Select
    
    If (StrComp(sProd, StrReverse$(BotVars.Product), vbBinaryCompare) = 0) Then
        sProd = vbNullString
    Else
        sProd = Space$(1) & sProd
    End If
    
    AddQ "/stats " & CleanUsername(GetFriendsSelectedUser) & sProd, enuPriority.CONSOLE_MESSAGE
End Sub

Private Sub mnuPopFLUserlistWhois_Click()
    If Not PopupMenuFLUserCheck Then Exit Sub 'Check user selected is the same one that was right-clicked on.
    
    Call ProcessCommand(GetCurrentUsername, "/whois " & GetFriendsSelectedUser, True, False)
    g_Queue.RemoveItem g_Queue.Count - 1
End Sub

Private Sub mnuPopFLWebProfile_Click()
    If Not PopupMenuFLUserCheck Then Exit Sub 'Check user selected is the same one that was right-clicked on.
    
    Dim aInx As Integer
    Dim sProd As String
    Dim webProd As enuWebProfileTypes
    
    aInx = lvFriendList.SelectedItem.Index
    sProd = g_Friends(aInx).Game
    Select Case sProd
        ' get web profile for user on their current product
        Case PRODUCT_WAR3
            webProd = WAR3
        Case PRODUCT_W3XP
            webProd = W3XP
        Case Else
            Select Case StrReverse$(BotVars.Product)
                ' get web profile for user on the bot's product
                Case PRODUCT_WAR3
                    webProd = WAR3
                Case PRODUCT_W3XP
                    webProd = W3XP
                Case Else
                    ' their current product does not have stats, or they are offline
                    AddChat g_Color.ConsoleText, "The specified friend must be online to decide which web profile to view."
                    Exit Sub
            End Select
    End Select
    
    GetW3LadderProfile CleanUsername(GetFriendsSelectedUser), webProd, GetUserNamespace(CleanUsername(GetFriendsSelectedUser))
End Sub

Private Sub mnuPopFLWhisper_Click()
    Dim Value As String
    
    If Not PopupMenuFLUserCheck Then Exit Sub 'Check user selected is the same one that was right-clicked on.
    
    Value = cboSend.Text
    
    If LenB(Value) > 0 Then
        Value = "/w " & CleanUsername(GetFriendsSelectedUser, True) & Space$(1) & Value
        
        AddQ Value, enuPriority.CONSOLE_MESSAGE
        
        cboSend.AddItem Value, 0
        cboSend.Text = vbNullString
        
        On Error Resume Next
        cboSend.SetFocus
    End If
End Sub

Private Sub mnuPopInvite_Click()
    If Not PopupMenuUserCheck Then Exit Sub 'Check user selected is the same one that was right-clicked on. - FrOzeN
    Dim sPlayer As String
    
    sPlayer = GetSelectedUser
    
    If LenB(sPlayer) > 0 Then
        If g_Clan.Self.Rank >= 3 Then
            Call ClanHandler.InviteToClan(ReverseConvertUsernameGateway(sPlayer), reqUserInterface)
            AddChat g_Color.InformationText, "[CLAN] Invitation sent to " & sPlayer & ", awaiting reply."
        End If
    End If
End Sub

Private Sub mnuPopProfile_Click()
    If Not PopupMenuUserCheck Then Exit Sub 'Check user selected is the same one that was right-clicked on. - FrOzeN
    Dim sUser As String
    sUser = StripAccountNumber(CleanUsername(GetSelectedUser))
    
    Call RequestProfile(sUser, reqUserInterface)
    
    frmProfile.PrepareForProfile sUser, False
End Sub

Private Sub mnuPopStats_Click()
    Dim aInx As Integer
    Dim sProd As String
    
    If Not PopupMenuUserCheck Then Exit Sub 'Check user selected is the same one that was right-clicked on. - FrOzeN
    
    aInx = lvChannel.SelectedItem.Index
    sProd = g_Channel.PriorityUsers(aInx).Game
    Select Case sProd
        Case PRODUCT_STAR, PRODUCT_SEXP, PRODUCT_W2BN, PRODUCT_WAR3, PRODUCT_W3XP, PRODUCT_JSTR, PRODUCT_SSHR
            ' get stats for user on their current product
        Case Else
            ' unspecified product
            AddChat g_Color.ConsoleText, "The specified user is not on a game that stores stats viewable via the Battle.net /stats command. " & _
                                           "Type /stats " & CleanUsername(GetSelectedUser) & " <desired product code> to get this user's stats for another game."
            Exit Sub
    End Select
    
    If (StrComp(sProd, StrReverse$(BotVars.Product), vbBinaryCompare) = 0) Then
        sProd = vbNullString
    Else
        sProd = Space$(1) & sProd
    End If
    
    AddQ "/stats " & StripAccountNumber(CleanUsername(GetSelectedUser)) & sProd, enuPriority.CONSOLE_MESSAGE
End Sub

Private Sub mnuPopUserlistWhois_Click()
    If Not PopupMenuUserCheck Then Exit Sub 'Check user selected is the same one that was right-clicked on. - FrOzeN
    
    Call ProcessCommand(GetCurrentUsername, "/whois " & GetSelectedUser, True, False)
    g_Queue.RemoveItem g_Queue.Count - 1
End Sub

Private Sub mnuHomeChannel_Click()
    If (LenB(Config.HomeChannel) = 0) Then
        ' do product home join instead
        Call DoChannelJoinProductHome
    Else
        ' go home
        Call FullJoin(Config.HomeChannel, 2)
    End If
End Sub

Private Sub mnuLastChannel_Click()
    If (LenB(BotVars.LastChannel) = 0) Then
        ' do product home join instead
        Call DoChannelJoinProductHome
    Else
        ' go to last
        Call FullJoin(BotVars.LastChannel, 2)
    End If
End Sub

Private Sub mnuRealmSwitch_Click()
    If Dii Then
        If ds.MCPHandler Is Nothing Then
            Set ds.MCPHandler = New clsMCPHandler
            
            SEND_SID_QUERYREALMS2
        Else
            Call ds.MCPHandler.HandleQueryRealmServersResponse
        End If
    End If
End Sub

Private Sub mnuPublicChannels_Click(Index As Integer)
    ' some public channels are redirects
    'If (StrComp(mnuPublicChannels(Index).Caption, g_Channel.Name, vbTextCompare) = 0) Then
    '    Exit Sub
    'End If
    
    If Not BotVars.PublicChannels Is Nothing Then
        If BotVars.PublicChannels.Count > Index Then
            Select Case Config.AutoCreateChannels
                Case "ALERT", "NEVER"
                    Call FullJoin(BotVars.PublicChannels.Item(Index + 1), 0)
                Case Else ' "ALWAYS"
                    Call FullJoin(BotVars.PublicChannels.Item(Index + 1), 2)
            End Select
        End If
        'AddQ "/join " & PublicChannels.Item(Index + 1), enuPriority.CONSOLE_MESSAGE
    End If
End Sub

Private Sub mnuCustomChannels_Click(Index As Integer)
    If (StrComp(QC(Index + 1), g_Channel.Name, vbTextCompare) = 0) Then
        Exit Sub
    End If

    Select Case Config.AutoCreateChannels
        Case "ALERT", "NEVER"
            Call FullJoin(QC(Index + 1), 0)
        Case Else ' "ALWAYS"
            Call FullJoin(QC(Index + 1), 2)
    End Select
    
    'AddQ "/join " & QC(Index + 1), enuPriority.CONSOLE_MESSAGE
End Sub

Private Sub mnuCommandManager_Click()
    frmCommandManager.Show
End Sub

Private Sub mnuConnect2_Click()
    Call DoConnect
End Sub

Private Sub mnuDisableVoidView_Click()
    mnuDisableVoidView.Checked = Not (mnuDisableVoidView.Checked)
    Config.VoidView = Not CBool(mnuDisableVoidView.Checked)
    Call Config.Save
    
    If Config.VoidView And g_Channel.IsSilent Then
        tmrSilentChannel(1).Enabled = Config.VoidView
        AddQ "/unignore " & GetCurrentUsername
    End If
End Sub

Private Sub mnuDisconnect2_Click()
    Call DoDisconnect
End Sub

Private Sub mnuEditCaught_Click()
    If Dir$(GetFilePath(FILE_CAUGHT_PHRASES)) = vbNullString Then
        MsgBox "The bot has not caught any phrases yet."
        Exit Sub
    Else
        ShellOpenURL GetFilePath(FILE_CAUGHT_PHRASES), , False
    End If
End Sub

Private Sub mnuFlash_Click()
    mnuFlash.Checked = (Not mnuFlash.Checked)
    Config.FlashOnEvents = CBool(mnuFlash.Checked)
    Call Config.Save
End Sub

'Moves a person in the friends list view.
Private Sub MoveFriend(startPos As Integer, endPos As Integer)
    With lvFriendList.ListItems
        If (startPos > endPos) Then
            .Add endPos, , .Item(startPos).Text, , .Item(startPos).SmallIcon
            .Item(endPos).ListSubItems.Add , , , .Item(startPos + 1).ListSubItems.Item(1).ReportIcon
            .Remove startPos + 1
        Else
            .Add endPos + 1, , .Item(startPos).Text, .Item(startPos).Icon, .Item(startPos).SmallIcon
            .Item(endPos + 1).ListSubItems.Add , , , .Item(startPos).ListSubItems.Item(1).ReportIcon
            .Remove startPos
        End If
    End With
End Sub

Private Sub mnuGetNews_Click()
    If Not RequestInetPage(GetNewsURL(), SB_INET_NEWS, False) Then
        Call HandleNews("Inet is busy", -1)
    End If
End Sub

Sub mnuHelpReadme_Click()
    OpenReadme
End Sub

Sub mnuHelpWebsite_Click()
    ShellOpenURL "http://www.stealthbot.net", "the StealthBot Forum"
End Sub

Private Sub mnuHideBans_Click()
    mnuHideBans.Checked = (Not mnuHideBans.Checked)
    Config.HideBanMessages = CBool(mnuHideBans.Checked)
    Call Config.Save
    AddChat g_Color.InformationText, "Ban messages " & IIf(mnuHideBans.Checked, "disabled", "enabled") & "."
End Sub

Private Sub mnuHideWhispersInrtbChat_Click()
    mnuHideWhispersInrtbChat.Checked = (Not mnuHideWhispersInrtbChat.Checked)
    Config.HideWhispersInMain = CBool(mnuHideWhispersInrtbChat.Checked)
    Call Config.Save
End Sub

Private Sub mnuLog0_Click()
    BotVars.Logging = 2
    Config.LoggingMode = BotVars.Logging
    Call Config.Save
    
    AddChat g_Color.InformationText, "Full text logging enabled."
    mnuLog1.Checked = False
    mnuLog0.Checked = True
    mnuLog2.Checked = False
    'mnuLog3.Checked = False
    
    'MakeLoggingDirectory
End Sub

Private Sub mnuLog1_Click()
    BotVars.Logging = 1
    Config.LoggingMode = BotVars.Logging
    Call Config.Save
    
    AddChat g_Color.InformationText, "Partial text logging enabled."
    mnuLog1.Checked = True
    mnuLog0.Checked = False
    mnuLog2.Checked = False
    'mnuLog3.Checked = False
    
    'MakeLoggingDirectory
End Sub

Private Sub mnuLog2_Click()
    BotVars.Logging = 0
    Config.LoggingMode = BotVars.Logging
    Call Config.Save
    
    AddChat g_Color.InformationText, "Logging disabled."
    mnuLog1.Checked = False
    mnuLog0.Checked = False
    mnuLog2.Checked = True
    'mnuLog3.Checked = False
End Sub

Private Sub mnuOpenBotFolder_Click()
    Shell StringFormat("explorer.exe {0}", CurDir$()), vbNormalFocus
End Sub


Private Sub mnuPacketLog_Click()
    Dim f As Integer
    
    If mnuPacketLog.Checked Then
        ' turning this feature off
        AddChat g_Color.SuccessText, "StealthBot packet traffic will no longer be logged."
    Else
        ' turning it on
        AddChat g_Color.SuccessText, "StealthBot packet traffic will be logged in the bot's folder, in a file named " & Format(Date, "yyyy-MM-dd") & "-PacketLog.txt."
        AddChat g_Color.SuccessText, "--"
        AddChat g_Color.SuccessText, "Log packets at your own risk! Please read the note below:"
        AddChat g_Color.ErrorMessageText, "*** CAUTION: THIS LOG MAY CONTAIN PRIVATE INFORMATION."
        AddChat g_Color.ErrorMessageText, "*** CAUTION: DO NOT DISTRIBUTE it in public posts on StealthBot.net or on any other website!"
        AddChat g_Color.ErrorMessageText, "*** CAUTION: Only produce a packet log if you're specifically instructed to by"
        AddChat g_Color.ErrorMessageText, "*** CAUTION: a StealthBot.net tech, or you know what you're doing!"
        AddChat g_Color.SuccessText, "If you wish to stop logging packets, uncheck the menu item or restart your bot."
        AddChat g_Color.SuccessText, "This feature only logs StealthBot traffic. It is not a system-wide packet capture utility."
    End If
    
    mnuPacketLog.Checked = Not mnuPacketLog.Checked
    LogPacketTraffic = mnuPacketLog.Checked
End Sub

Private Sub mnuPopAddLeft_Click()
    If Not PopupMenuUserCheck Then Exit Sub 'Check user selected is the same one that was right-clicked on. - FrOzeN
    Dim Index As Integer
    Dim s As String
    
    If txtPre.Enabled Then 'fix for topic 25290 -a
        s = vbNullString
        If Dii Then s = "*"
        s = StringFormat("/w {0}{1} ", s, GetSelectedUser)
        txtPre.Text = s
        
        On Error Resume Next
        cboSend.SetFocus
        cboSend.SelStart = Len(cboSend.Text)
    End If
End Sub

Private Sub mnuPopAddToFList_Click()
    If Not PopupMenuUserCheck Then Exit Sub 'Check user selected is the same one that was right-clicked on. - FrOzeN
    
    AddQ "/f a " & StripAccountNumber(CleanUsername(GetSelectedUser)), enuPriority.CONSOLE_MESSAGE
End Sub

Private Sub mnuPopDes_Click()
    If Not PopupMenuUserCheck Then Exit Sub 'Check user selected is the same one that was right-clicked on. - FrOzeN

    If g_Channel.Self.IsOperator() Then
        AddQ "/designate " & CleanUsername(GetSelectedUser, True), enuPriority.CONSOLE_MESSAGE
    End If
End Sub

Private Sub mnuPopFLWhois_Click()
    If Not PopupMenuFLUserCheck Then Exit Sub 'Check user selected is the same one that was right-clicked on.
    
    AddQ "/whois " & lvFriendList.SelectedItem.Text, enuPriority.CONSOLE_MESSAGE
End Sub

Private Sub mnuPopSafelist_Click()
    If Not PopupMenuUserCheck Then Exit Sub 'Check user selected is the same one that was right-clicked on. - FrOzeN
    Dim toSafe As String
    
    toSafe = GetSelectedUser
    
    Call ProcessCommand(GetCurrentUsername, "/safeadd " & toSafe, True, False)
End Sub

Private Sub mnuPopShitlist_Click()
    If Not PopupMenuUserCheck Then Exit Sub 'Check user selected is the same one that was right-clicked on. - FrOzeN
    Dim toBan As String
    
    toBan = GetSelectedUser
    
    Call ProcessCommand(GetCurrentUsername, "/shitadd " & toBan, True, False)
End Sub

Private Sub mnuPopSquelch_Click()
    If Not PopupMenuUserCheck Then Exit Sub 'Check user selected is the same one that was right-clicked on. - FrOzeN
    
    AddQ "/squelch " & GetSelectedUser, enuPriority.CONSOLE_MESSAGE, enuPriority.CONSOLE_MESSAGE
End Sub


Private Sub mnuPopUnsquelch_Click()
    If Not PopupMenuUserCheck Then Exit Sub 'Check user selected is the same one that was right-clicked on. - FrOzeN
    
    AddQ "/unsquelch " & GetSelectedUser, enuPriority.CONSOLE_MESSAGE
End Sub

Private Sub mnuPopWhisper_Click()
    Dim Value As String

    If Not PopupMenuUserCheck Then Exit Sub 'Check user selected is the same one that was right-clicked on. - FrOzeN

    Value = cboSend.Text

    If LenB(Value) > 0 Then
        Value = "/w " & CleanUsername(GetSelectedUser, True) & Space(1) & Value

        AddQ Value, enuPriority.CONSOLE_MESSAGE

        cboSend.AddItem Value, 0
        cboSend.Text = vbNullString

        On Error Resume Next
        cboSend.SetFocus
    End If
End Sub

Private Sub mnuClear_Click()
    Call ClearChatScreen(3)
End Sub

Private Sub mnuClearWW_Click()
    Call ClearChatScreen(2)
End Sub

' clear the chat screen:
' 1 - clear chat window only
' 2 - clear whisper window only
' 3 (default) - clear chat and whisper
Sub ClearChatScreen(Optional ByVal ClearOption As Integer = 3)
    ' if they passed 0 (False), change to 3
    If ClearOption = 0 Then ClearOption = 3
    ' if they passed -1 (True), change to 1 (old behavior: DoNotClearWhispers)
    If ClearOption = -1 Then ClearOption = 1
    ' check for 2 (or 3) and clear whispers
    If ClearOption And 2 Then
        rtbWhispers.Text = vbNullString
        ' add cleared message
        AddWhisper g_Color.ConsoleText, ">> Whisper window cleared."
    End If
    
    ' check for 1 (or 3) and clear chats
    If ClearOption And 1 Then
        rtbChat.Text = vbNullString
        ' add a sensical cleared message
        If ClearOption And 2 Then
            AddChat g_Color.ConsoleText, ">> Chat window cleared."
        Else
            AddChat g_Color.ConsoleText, ">> Chat and whisper windows cleared."
        End If
    End If
    
    ' set focus to send box
    On Error Resume Next
    cboSend.SetFocus
End Sub

Private Sub mnuPopWhois_Click()
    If Not PopupMenuUserCheck Then Exit Sub 'Check user selected is the same one that was right-clicked on. - FrOzeN
    
    AddQ "/whois " & CleanUsername(GetSelectedUser, True), enuPriority.CONSOLE_MESSAGE
End Sub

Private Sub mnuPopWebProfile_Click()
    If Not PopupMenuUserCheck Then Exit Sub 'Check user selected is the same one that was right-clicked on. - FrOzeN
    
    Dim aInx     As Integer
    Dim sProd    As String
    Dim webProd  As enuWebProfileTypes
    Dim Username As String
    
    aInx = lvChannel.SelectedItem.Index
    sProd = g_Channel.PriorityUsers(aInx).Game
    Select Case sProd
        ' get web profile for user on their current product
        Case PRODUCT_WAR3
            webProd = WAR3
        Case PRODUCT_W3XP
            webProd = W3XP
        Case Else
            ' their current product does not have a web profile
            AddChat g_Color.ConsoleText, "The specified user must be on WarCraft III to view their web profile."
            Exit Sub
    End Select
    
    Username = StripAccountNumber(CleanUsername(GetSelectedUser))
    GetW3LadderProfile Username, webProd, GetUserNamespace(Username)
End Sub

Private Sub mnuClearedTxt_Click()
    Dim sPath As String
    sPath = StringFormat("{0}{1}.txt", g_Logger.LogPath, Format(Date, "yyyy-MM-dd"))
    
    If LenB(Dir$(sPath)) = 0 Then
        AddChat g_Color.ErrorMessageText, "The log file for today is empty."
    Else
        ShellOpenURL sPath, , False
    End If
End Sub

Private Sub mnuRecordWindowPos_Click()
    RecordWindowPosition
End Sub

Private Sub mnuRepairCleanMail_Click()
    CleanUpMailFile
    frmChat.AddChat g_Color.SuccessText, "Delivered and invalid pieces of mail have been removed from your mail.dat file."
End Sub

Private Sub mnuRepairDataFiles_Click()
    If MsgBox("Are you sure? This action will delete your mail.dat (Bot mail database) file.", vbYesNo, "Repair data files") = vbYes Then
        On Error Resume Next
        Kill GetFilePath(FILE_MAILDB)
        AddChat g_Color.SuccessText, "The bot's DAT data files have been removed."
    End If
End Sub

Private Sub mnuRepairVerbytes_Click()
    Dim Index As Integer
    
    For Index = 0 To UBound(ProductList)
        If ProductList(Index).BNLS_ID > 0 Then
            Config.SetVersionByte ProductList(Index).ShortCode, GetVerByte(ProductList(Index).Code, 1)
        End If
    Next
    
    Call Config.Save
    
    frmChat.AddChat g_Color.SuccessText, "The version bytes stored in config.ini have been restored to their defaults."
End Sub

Private Sub mnuScripts_Click()
'do nothing
End Sub

Private Sub mnuToggleShowOutgoing_Click()
    mnuToggleShowOutgoing.Checked = (Not mnuToggleShowOutgoing.Checked)
    Config.ShowOutgoingWhispers = CBool(mnuToggleShowOutgoing.Checked)
    Call Config.Save
End Sub

Private Sub mnuToggleWWUse_Click()
    mnuToggleWWUse.Checked = (Not mnuToggleWWUse.Checked)
    
    Config.WhisperWindows = CBool(mnuToggleWWUse.Checked)
    Call Config.Save
    
    If Not mnuToggleWWUse.Checked Then
        DestroyAllWWs
    End If
End Sub

Private Sub mnuUpdateVerbytes_Click()
    If Not RequestInetPage(VERBYTE_SOURCE, SB_INET_VBYTE, False) Then
        Call HandleUpdateVerbyte("Inet is busy", -1)
    End If
End Sub

Private Sub mnuWhisperCleared_Click()
    Dim sPath As String
    sPath = StringFormat("{0}{1}-WHISPERS.txt", g_Logger.LogPath, Format(Date, "yyyy-MM-dd"))
    
    If LenB(Dir$(sPath)) = 0 Then
        AddChat g_Color.ErrorMessageText, "The whisper log file for today is empty."
    Else
        ShellOpenURL sPath, , False
    End If
End Sub

Private Sub mnuEditUsers_Click()
    ShellOpenURL GetFilePath(FILE_USERDB), , False
End Sub

Sub mnuReloadScripts_Click()
    
    On Error GoTo ERROR_HANDLER

    'RunInAll "Event_LoggedOff"
    RunInAll "Event_Close"

    InitScriptControl SControl
    LoadScripts

    InitScripts
    
    Exit Sub

ERROR_HANDLER:

    ' Cannot call this method while the script is executing
    If (Err.Number = -2147467259) Then
        frmChat.AddChat g_Color.ErrorMessageText, "Error: Script is still executing."
        
        Exit Sub
    End If

    frmChat.AddChat g_Color.ErrorMessageText, "Error (#" & Err.Number & "): " & Err.Description & _
        " in mnuReloadScripts_Click()."
    
End Sub

Private Sub mnuSetTop_Click()
    mnuLog0.Checked = False
    mnuLog1.Checked = False
    mnuLog2.Checked = False

    Select Case BotVars.Logging
        Case 2: mnuLog0.Checked = True
        Case 1: mnuLog1.Checked = True
        Case 0: mnuLog2.Checked = True
    End Select
End Sub

Private Sub mnuTerms_Click()
    ShellOpenURL "http://eula.stealthbot.net", "the StealthBot EULA"
End Sub

Private Sub mnuFilters_Click()
    frmFilters.Show
End Sub

Private Sub mnuPopCopy_Click()
    If Not PopupMenuUserCheck Then Exit Sub 'Check user selected is the same one that was right-clicked on. - FrOzeN
    
    On Error Resume Next
    Clipboard.Clear
    
    Clipboard.SetText GetSelectedUser
End Sub

Private Sub mnuProfile_Click()
    frmProfile.PrepareForProfile vbNullString, True
End Sub

Private Sub mnuCustomChannelAdd_Click()
    Dim i As Integer
    
    If LenB(g_Channel.Name) > 0 Then
    
        For i = LBound(QC) To UBound(QC)
            If LenB(Trim$(QC(i))) = 0 Then
                QC(i) = g_Channel.Name
                PrepareQuickChannelMenu
                
                Exit Sub
            End If
        Next i
    
    End If
End Sub

Private Sub mnuCustomChannelEdit_Click()
    frmQuickChannel.Show
End Sub

Private Sub mnuReload_Click()
    On Error Resume Next
    Call ReloadConfig(1)
    AddChat g_Color.SuccessText, "Configuration file loaded."
End Sub

Private Sub mnuUTF8_Click()
    If mnuUTF8.Checked Then
        mnuUTF8.Checked = False
        AddChat g_Color.ConsoleText, "Messages will no longer be UTF-8-decoded."
    Else
        mnuUTF8.Checked = True
        AddChat g_Color.ConsoleText, "Messages will now be UTF-8-decoded."
    End If
    
    Config.UseUTF8 = CBool(mnuUTF8.Checked)
    Call Config.Save
End Sub

Private Sub rtbChat_KeyDown(KeyCode As Integer, Shift As Integer)
    If (Shift = vbCtrlMask) And ((KeyCode = vbKeyL) Or (KeyCode = vbKeyE) Or (KeyCode = vbKeyR)) Then
        'Call Ctrl+L and Ctrl+R keyboard shortcuts as they code to automatically handle them will be canceled out below
        Select Case KeyCode
            Case vbKeyL
                Call mnuLock_Click
            Case vbKeyR
                Call mnuReloadScripts_Click
        End Select
        
        'Disable Ctrl+L, Ctrl+E, and Ctrl+R
        KeyCode = 0
    ElseIf (Shift = vbShiftMask) And (KeyCode = vbKeyDelete) Then
        'Call Shift+DEL keyboard shortcut since it doens't work with RTB focus.
        Call mnuClear_Click
    End If
End Sub

Private Sub rtbChat_KeyPress(KeyAscii As Integer)
    If (KeyAscii < 32) Then
        Exit Sub
    End If

    cboSend.SetFocus
    cboSend.SelText = Chr$(KeyAscii)
End Sub

Private Sub rtbWhispers_KeyDown(KeyCode As Integer, Shift As Integer)
    If (Shift = vbCtrlMask) And ((KeyCode = vbKeyL) Or (KeyCode = vbKeyE) Or (KeyCode = vbKeyR)) Then
        'Call Ctrl+L and Ctrl+R keyboard shortcuts as they code to automatically handle them will be canceled out below
        Select Case KeyCode
            Case vbKeyL
                Call mnuLock_Click
            Case vbKeyR
                Call mnuReloadScripts_Click
        End Select
        
        'Disable Ctrl+L, Ctrl+E, and Ctrl+R
        KeyCode = 0
    ElseIf (Shift = vbShiftMask) And (KeyCode = vbKeyDelete) Then
        'Call Shift+DEL keyboard shortcut since it doens't work with RTB focus.
        Call mnuClear_Click
    End If
End Sub

Private Sub rtbWhispers_KeyPress(KeyAscii As Integer)
    If (KeyAscii < 32) Then
        Exit Sub
    End If

    cboSend.SetFocus
    cboSend.SelText = Chr$(KeyAscii)
End Sub

Private Sub rtbChat_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
    On Error Resume Next
    
    If Button = 1 And Len(rtbChat.SelText) > 0 Then
        If Not BotVars.NoRTBAutomaticCopy Then
            Clipboard.Clear
            Clipboard.SetText rtbChat.SelText, vbCFText
        End If
    End If
End Sub

Private Sub rtbWhispers_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
    On Error Resume Next
    
    If Button = 1 And Len(rtbWhispers.SelText) > 0 Then
        Clipboard.Clear
        Clipboard.SetText rtbWhispers.SelText, vbCFText
    End If
End Sub

Private Sub mnuToggleFilters_Click()
    mnuToggleFilters.Checked = (Not (mnuToggleFilters.Checked))
    
    If Filters Then
        Filters = False
        AddChat g_Color.InformationText, "Chat filtering disabled."
    Else
        Filters = True
        AddChat g_Color.InformationText, "Chat filtering enabled."
    End If
    
    Config.ChatFilters = Filters
    Call Config.Save
End Sub

Private Sub mnuConnect_Click()
    Call DoConnect
End Sub

Private Sub mnuPopKick_Click()
    If Not PopupMenuUserCheck Then Exit Sub 'Check user selected is the same one that was right-clicked on. - FrOzeN
    
    If g_Channel.Self.IsOperator() Then
        AddQ "/kick " & CleanUsername(GetSelectedUser, True), enuPriority.CONSOLE_MESSAGE
    End If
End Sub

Private Sub mnuPopBan_Click()
    If Not PopupMenuUserCheck Then Exit Sub 'Check user selected is the same one that was right-clicked on. - FrOzeN
    
    If g_Channel.Self.IsOperator() Then
        AddQ "/ban " & CleanUsername(GetSelectedUser, True), enuPriority.CONSOLE_MESSAGE
    End If
End Sub

Private Sub mnuTrayExit_click()
    Dim Result As VbMsgBoxResult

    Result = MsgBox("Are you sure you want to quit?", vbYesNo, "StealthBot")
    
    If (Result = vbYes) Then
        'frmChat.Show
    
        'UnhookWindowProc
        'RESTORE FORM
        'Call NewWindowProc(frmChat.hWnd, 0&, ID_TASKBARICON, WM_LBUTTONDOWN)
        'Call Form_Unload(0)
        Unload frmChat
    End If
End Sub

Private Sub mnuRestore_Click()
    Me.WindowState = vbNormal
    Me.Show
End Sub

Sub mnuLock_Click()
    mnuLock.Checked = (Not (mnuLock.Checked))
    
    If BotVars.LockChat = False Then
        AddChat g_Color.ConsoleText, ">> Chat window locked."
        AddChat g_Color.ErrorMessageText, "NO MESSAGES WHATSOEVER WILL BE DISPLAYED UNTIL YOU UNLOCK THE WINDOW."
        AddChat g_Color.ErrorMessageText, "To return to normal mode, press CTRL+L or use the toggle under the Window menu."
        BotVars.LockChat = True
    Else
        BotVars.LockChat = False
        AddChat g_Color.ConsoleText, ">> Chat window unlocked."
    End If
End Sub

Sub mnuDisconnect_Click()
    Call DoDisconnect
End Sub

Private Sub mnuExit_Click()
    'Call Form_Unload(0)
    Unload frmChat
End Sub

Private Sub mnuSetup_Click()
    If (SettingsForm Is Nothing) Then
        Set SettingsForm = New frmSettings
    End If
    
    SettingsForm.Show
End Sub

Private Sub mnuAbout_click()
    frmAbout.Show
End Sub

Private Sub mnuToggle_Click()
    mnuToggle.Checked = (Not (mnuToggle.Checked))
    
    If JoinMessagesOff = False Then
        AddChat g_Color.InformationText, "Join/Leave messages disabled."
        JoinMessagesOff = True
    Else
        AddChat g_Color.InformationText, "Join/Leave messages enabled."
        JoinMessagesOff = False
    End If
    
    Config.ShowJoinLeaves = Not JoinMessagesOff
    Call Config.Save
End Sub

Private Sub mnuUserDBManager_Click()
    frmDBManager.Show
End Sub

Private Sub mnuScript_Click(Index As Integer)
    On Error Resume Next

    Dim obj As scObj
    
    obj = GetScriptObjByIndex("Menu", Index)
    RunInSingle obj.SCModule, obj.ObjName & "_Click"
End Sub

Private Sub sckScript_Connect(Index As Integer)
    On Error Resume Next

    Dim obj As scObj
    
    obj = GetScriptObjByIndex("Winsock", Index)
    RunInSingle obj.SCModule, obj.ObjName & "_Connect"
End Sub

Private Sub sckScript_ConnectionRequest(Index As Integer, ByVal RequestID As Long)
    On Error Resume Next

    Dim obj As scObj
    
    obj = GetScriptObjByIndex("Winsock", Index)
    RunInSingle obj.SCModule, obj.ObjName & "_ConnectionRequest", RequestID
End Sub

Private Sub sckScript_DataArrival(Index As Integer, ByVal bytesTotal As Long)
    On Error Resume Next

    Dim obj As scObj
    
    obj = GetScriptObjByIndex("Winsock", Index)
    RunInSingle obj.SCModule, obj.ObjName & "_DataArrival", bytesTotal
End Sub

Private Sub sckScript_SendComplete(Index As Integer)
    On Error Resume Next

    Dim obj As scObj
    
    obj = GetScriptObjByIndex("Winsock", Index)
    RunInSingle obj.SCModule, obj.ObjName & "_SendComplete"
End Sub

Private Sub sckScript_SendProgress(Index As Integer, ByVal bytesSent As Long, ByVal bytesRemaining As Long)
    On Error Resume Next

    Dim obj As scObj
    
    obj = GetScriptObjByIndex("Winsock", Index)
    RunInSingle obj.SCModule, obj.ObjName & "_SendProgress", bytesSent, bytesRemaining
End Sub

Private Sub sckScript_Close(Index As Integer)
    On Error Resume Next

    Dim obj As scObj
    
    obj = GetScriptObjByIndex("Winsock", Index)
    RunInSingle obj.SCModule, obj.ObjName & "_Close"
End Sub

Private Sub sckScript_Error(Index As Integer, ByVal Number As Integer, Description As String, ByVal sCode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
    On Error Resume Next

    Dim obj As scObj
    
    obj = GetScriptObjByIndex("Winsock", Index)
    RunInSingle obj.SCModule, obj.ObjName & "_Error", Number, Description, sCode, Source, HelpFile, HelpContext, CancelDisplay
End Sub

Private Sub itcScript_StateChanged(Index As Integer, ByVal State As Integer)
    On Error Resume Next

    Dim obj As scObj
    
    obj = GetScriptObjByIndex("Inet", Index)
    RunInSingle obj.SCModule, obj.ObjName & "_StateChanged", State
End Sub

Private Sub tmrAccountLock_Timer()
    tmrAccountLock.Enabled = False

    If (Not sckBNet.State = sckConnected) Then 'g_online is set to true AFTER we login... makes this moot, changed to socket being connected.
        Exit Sub
    End If

    ds.AccountEntryPending = False
    Call Event_LogonEvent(tmrAccountLock.Tag, -2&, vbNullString)

    AddChat g_Color.ErrorMessageText, "[BNCS] Your account appears to be locked, likely due to an excessive number of " & _
        "invalid logons."

    Call DoDisconnect
    ' schedule reconnect; don't do the 0-wait one
    Call DoScheduleAutoReconnect(False, 1800)
End Sub

Private Sub tmrParseBNCS_Timer()
    If (sckBNet.State <> sckConnected) Then Exit Sub
    
    Dim pBuff As clsDataBuffer
    
    If ReceiveBuffer(stBNCS).IsFullPacket(2) Then
        Set pBuff = ReceiveBuffer(stBNCS).TakePacket(2)
        Call modBNCS.BNCSRecvPacket(pBuff)
        Set pBuff = Nothing
    End If
End Sub

Private Sub tmrScript_Timer(Index As Integer)
    On Error Resume Next

    Dim obj As scObj
    
    obj = GetScriptObjByIndex("Timer", Index)
    RunInSingle obj.SCModule, obj.ObjName & "_Timer"
End Sub

Private Sub tmrScriptLong_Timer(Index As Integer)
    On Error Resume Next

    Dim obj As scObj
    
    obj = GetScriptObjByIndex("LongTimer", Index)
    obj.obj.Counter = (obj.obj.Counter + 1)
    
    If (obj.obj.Counter >= obj.obj.Interval) Then
        RunInSingle obj.SCModule, obj.ObjName & "_Timer"
        
        obj.obj.Counter = 0
    End If
End Sub

Private Sub txtPre_GotFocus()
    Call cboSend_GotFocus
End Sub

Private Sub txtPost_GotFocus()
    Call cboSend_GotFocus
End Sub

Private Sub cboSend_GotFocus()
    On Error Resume Next

    Dim i As Integer
    cboSend.SelStart = cboSendSelStart
    cboSend.SelLength = cboSendSelLength

    If (BotVars.NoAutocompletion = False) Then
        For i = 0 To (Controls.Count - 1)
            If (TypeOf Controls(i) Is ListView) Or _
                    (TypeOf Controls(i) Is SSTab) Or _
                        (TypeOf Controls(i) Is RichTextBox) Or _
                            (TypeOf Controls(i) Is TextBox) Then
                If (Controls(i).TabStop = False) Then
                    Controls(i).Tag = "False"
                End If

                Controls(i).TabStop = False
            End If
        Next i
    End If
    
    cboSendHadFocus = True
End Sub

Private Sub txtPre_LostFocus()
    Call cboSend_LostFocus
End Sub

Private Sub txtPost_LostFocus()
    Call cboSend_LostFocus
End Sub

Private Sub cboSend_LostFocus()
    On Error Resume Next

    Dim i As Integer
    
    If (BotVars.NoAutocompletion = False) Then
        For i = 0 To (Controls.Count - 1)
            If (TypeOf Controls(i) Is ListView) Or _
                    (TypeOf Controls(i) Is TabStrip) Or _
                        (TypeOf Controls(i) Is RichTextBox) Or _
                            (TypeOf Controls(i) Is TextBox) Then
                            
                If (Controls(i).Tag <> "False") Then
                    Controls(i).TabStop = True
                End If
            End If
        Next i
    End If
    
    cboSendHadFocus = False
End Sub

Private Sub cboSend_Click()
    RecordcboSendSelInfo
End Sub

Private Sub cboSend_Change()
    'Debug.Print cboSendSelLength & "\" & cboSendSelStart
    RecordcboSendSelInfo
End Sub

Private Sub cboSend_KeyUp(KeyCode As Integer, Shift As Integer)
    RecordcboSendSelInfo
End Sub

Private Sub cboSend_KeyDown(KeyCode As Integer, Shift As Integer)
    On Error GoTo ERROR_HANDLER
    
    Static ACBuffer    As String
    Static ACWordStart As Long
    Static ACWordEnd   As Long
    Static ACUserPLen  As Long
    Static ACUserIndex As Integer

    Dim i                   As Integer
    Dim j                   As Integer
    Dim SavedSelPos         As Long
    Dim SavedSelLen         As Long
    Dim CurrentTab          As Integer
    Dim CurrentList         As ListView
    Dim CurrentUser         As Long
    Dim Value               As String
    Dim StartOutfilterPos   As Long
    Dim Vetoed              As Boolean
    Dim AccessAmount        As udtUserAccess

    SavedSelPos = cboSend.SelStart
    SavedSelLen = cboSend.SelLength
    
    CurrentTab = ListviewTabs.Tab
    Select Case CurrentTab
        Case LVW_BUTTON_FRIENDS: Set CurrentList = lvFriendList
        Case LVW_BUTTON_CLAN:    Set CurrentList = lvClanList
        Case Else:               Set CurrentList = lvChannel
    End Select
    
    If (Not (CurrentList.SelectedItem Is Nothing)) Then
        CurrentUser = CurrentList.SelectedItem.Index
    End If

    Select Case (KeyCode)
        Case vbKeySpace
            With cboSend
                If (LenB(LastWhisper) > 0) Then
                    If (Len(.Text) >= 2) Then
                        If StrComp(Split(.Text)(0), "/r", vbTextCompare) = 0 Then
                            .SelStart = 0
                            .SelLength = Len(.Text)
                            .SelText = "/w " & CleanUsername(LastWhisper, True)
                            .SelStart = Len(.Text)
                        End If
                    End If
                    
                    If (Len(.Text) >= 6) Then
                        If StrComp(Split(.Text)(0), "/reply", vbTextCompare) = 0 Then
                            .SelStart = 0
                            .SelLength = Len(.Text)
                            .SelText = "/w " & CleanUsername(LastWhisper, True)
                            .SelStart = Len(.Text)
                        End If
                    End If
                End If
                
                If (LenB(LastWhisperTo) > 0) Then
                    If (Len(.Text) >= 3) Then
                        If StrComp(Split(.Text)(0), "/rw", vbTextCompare) = 0 Then
                            .SelStart = 0
                            .SelLength = Len(.Text)
                            
                            If StrComp(LastWhisperTo, "%f%") = 0 Then
                                .SelText = "/f m"
                            Else
                                .SelText = "/w " & CleanUsername(LastWhisperTo, True)
                            End If
                            
                            .SelStart = Len(.Text)
                        End If
                    End If
                End If
            End With

        Case vbKeyPageDown 'ALT + PAGEDOWN
            If Shift = vbAltMask Then
                With CurrentList
                    If CurrentUser > 0 And CurrentUser < .ListItems.Count Then
                        .HideSelection = False
                        With .ListItems.Item(CurrentUser + 1)
                            .Selected = True
                            .EnsureVisible
                        End With
                    End If
                End With

                cboSend.SetFocus
                cboSend.SelStart = SavedSelPos
                cboSend.SelLength = SavedSelLen
                Exit Sub
            End If

        Case vbKeyPageUp 'ALT + PAGEUP
            If Shift = vbAltMask Then
                With CurrentList
                    If CurrentUser > 1 Then
                        .HideSelection = False
                        With .ListItems.Item(CurrentUser - 1)
                            .Selected = True
                            .EnsureVisible
                        End With
                    End If
                End With

                cboSend.SetFocus
                cboSend.SelStart = SavedSelPos
                cboSend.SelLength = SavedSelLen
                Exit Sub
            End If

        Case vbKeyHome 'ALT+HOME
            If Shift = vbAltMask Then
                With CurrentList
                    If .ListItems.Count > 0 Then
                        .HideSelection = False
                        With .ListItems.Item(1)
                            .Selected = True
                            .EnsureVisible
                        End With
                    End If
                End With

                cboSend.SetFocus
                cboSend.SelStart = SavedSelPos
                cboSend.SelLength = SavedSelLen
                Exit Sub
            End If

        Case vbKeyEnd 'ALT+END
            If Shift = vbAltMask Then
                With CurrentList
                    If .ListItems.Count > 0 Then
                        .HideSelection = False
                        With .ListItems.Item(.ListItems.Count)
                            .Selected = True
                            .EnsureVisible
                        End With
                    End If
                End With

                cboSend.SetFocus
                cboSend.SelStart = SavedSelPos
                cboSend.SelLength = SavedSelLen
                Exit Sub
            End If

        Case vbKeyN, vbKeyInsert 'ALT + N or ALT + INSERT
            If (Shift = vbAltMask) Then
                If (Not (CurrentList.SelectedItem Is Nothing)) Then
                    Value = CurrentList.SelectedItem.Text
                    If cboSend.SelStart = 0 Then Value = Value & BotVars.AutoCompletePostfix
                    Value = Value & Space$(1)
                    
                    cboSend.SelText = Value
                    cboSend.SelStart = cboSend.SelStart + Len(Value)
                    Exit Sub
                End If
            End If

        Case vbKeyA
            If (Shift = vbCtrlMask) Then
                If (CurrentTab <> LVW_BUTTON_CHANNEL) Then
                    ListviewTabs.Tab = LVW_BUTTON_CHANNEL
                    Call UpdateListviewTabs
                Else
                    cboSend.SelStart = 0
                    cboSend.SelLength = Len(cboSend.Text)
                End If
            End If
            
        Case vbKeyS
            If (Shift = vbCtrlMask) Then
                If (CurrentTab <> LVW_BUTTON_FRIENDS) And (ListviewTabs.TabEnabled(LVW_BUTTON_FRIENDS)) Then
                    ListviewTabs.Tab = LVW_BUTTON_FRIENDS
                    Call UpdateListviewTabs
                End If
            End If
            
        Case vbKeyD
            If (Shift = vbCtrlMask) Then
                If (CurrentTab <> LVW_BUTTON_CLAN) And (ListviewTabs.TabEnabled(LVW_BUTTON_CLAN)) Then
                    ListviewTabs.Tab = LVW_BUTTON_CLAN
                    Call UpdateListviewTabs
                End If
            End If
            
        Case vbKeyB
            If (Shift = vbCtrlMask) Then
                cboSend.SelText = Chr$(255) & "cb"
            End If
            
        'Case vbKeyJ
        '    If (Shift = vbCtrlMask) Then
        '        Call mnuToggle_Click
        '    End If
            
        Case vbKeyU
            If (Shift = vbCtrlMask) Then
                cboSend.SelText = Chr$(255) & "cu"
            End If
            
        Case vbKeyI
            If (Shift = vbCtrlMask) Then
                cboSend.SelText = Chr$(255) & "ci"
            End If
            
        Case vbKeyDelete
            ACUserIndex = 0
            
        Case vbKeyTab
            Dim ACList As Collection
            Dim ACUser As String
            Dim ACText As String
            
            If (Shift <> 0) Then
                Call cboSend_LostFocus
                
                If (txtPre.Visible = True) Then
                    Call txtPre.SetFocus
                Else
                    Call ListviewTabs.SetFocus
                    Call UpdateListviewTabs
                End If
            Else
            
                With cboSend
                    ' check if auto-complete active
                    If ACUserIndex = 0 Then
                        ' reset the static variables and auto-complete the current word
                        ACBuffer = .Text
                        
                        If .SelStart = 0 Then
                            ACWordStart = 1
                        Else
                            ACWordStart = InStrRev(ACBuffer, Space$(1), .SelStart, vbBinaryCompare) + 1
                        End If
                        ACWordEnd = InStr(.SelStart + 1, ACBuffer, Space$(1), vbBinaryCompare)
                        If ACWordEnd = 0 Then ACWordEnd = Len(ACBuffer) + 1
                        
                        ACUserPLen = ACWordEnd - ACWordStart
                        If ACUserPLen < 0 Then ACUserPLen = 0
                        
                        'AddChat vbWhite, ACWordEnd - ACWordStart
                        'AddChat vbWhite, Mid$(ACBuffer, ACWordStart, ACUserPLen)
                        
                        ACUserIndex = 1
                    Else
                        ' advance last auto-complete
                        ACUserIndex = ACUserIndex + 1
                    End If
                    
                    ' repopulate autocomplete candidates
                    ' sort as we get them
                    Set ACList = New Collection
                    'If ACUserPLen > 0 Then
                    For i = 1 To CurrentList.ListItems.Count
                        If StrComp(Left$(CurrentList.ListItems.Item(i).Text, ACUserPLen), Mid$(ACBuffer, ACWordStart, ACUserPLen), vbTextCompare) = 0 Then
                            For j = 1 To ACList.Count
                                If StrComp(CurrentList.ListItems.Item(i).Text, ACList.Item(j), vbTextCompare) < 0 Then
                                    Exit For
                                End If
                            Next j
                            
                            'AddChat vbYellow, j & " - " & CurrentList.ListItems.Item(i).Text
                            
                            ' add at found position
                            If j - 1 = ACList.Count Then
                                ACList.Add CurrentList.ListItems.Item(i).Text
                            Else
                                ACList.Add CurrentList.ListItems.Item(i).Text, , j
                            End If
                        End If
                    Next i
                    'End If
                    
                    ' set the user to the next candidate
                    ACUser = vbNullString
                    If ACList.Count > 0 Then
                        If ACList.Count < ACUserIndex Then
                            ACUserIndex = 1
                        End If
                        
                        ACUser = ACList.Item(ACUserIndex)
                    End If
                    Set ACList = Nothing
                    
                    ' save to the text box
                    If (LenB(ACUser) > 0) Then
                        If (ACWordStart > 1) Then
                            ACText = Left$(ACBuffer, ACWordStart - 1)
                        ElseIf (ACWordStart = 1) Then
                            ' only includes the postfix for the first word
                            ACUser = ACUser & BotVars.AutoCompletePostfix
                        End If
                        
                        ACText = ACText & ACUser & Space$(1)
                        
                        SavedSelPos = Len(ACText)
                        
                        If (ACWordEnd > 0) Then
                            ACText = ACText & Mid$(ACBuffer, ACWordEnd + 1)
                        End If
                        
                        .Text = ACText
                        .SelStart = SavedSelPos
                    Else
                        ACUserIndex = 0
                    End If
                End With
            End If

        Case vbKeyV
            If Shift = vbCtrlMask Then
                Dim MultiLine() As String
                Dim PrefixText  As String
                Dim PostfixText As String
                Dim TrimStart   As Long
                Dim TrimLength  As Long

                On Error Resume Next
                Value = Clipboard.GetText
                On Error GoTo 0
    
                ' trim any vbCr or vbLf (\r or \n character) from the start and end
                TrimStart = 1
                TrimLength = Len(Value)
                Do While (Mid$(Value, TrimStart, 1) = vbCr Or Mid$(Value, TrimStart, 1) = vbLf) And TrimStart < TrimLength
                    TrimStart = TrimStart + 1
                Loop
                Do While (Mid$(Value, TrimLength - 1, 1) = vbCr Or Mid$(Value, TrimLength - 1, 1) = vbLf) And TrimLength > TrimStart
                    TrimLength = TrimLength - 1
                Loop
                Value = Mid$(Value, TrimStart, TrimLength - TrimStart + 1)

                ' still linebreaks? multiline paste
                If (InStr(1, Value, vbLf, vbTextCompare) <> 0) Then
                    MultiLine() = Split(Value, vbLf)

                    ' prefix box
                    If txtPre.Visible Then PrefixText = txtPre.Text
                    ' suffix box
                    If txtPost.Visible Then PostfixText = txtPost.Text

                    If UBound(MultiLine) > LBound(MultiLine) Then
                        If (GetVScrollPosition(rtbChat)) Then
                            SetTextSelection rtbChat, -1, -1
                            ScrollToBottom rtbChat
                        End If

                        For i = LBound(MultiLine) To UBound(MultiLine)
                            MultiLine(i) = Replace(MultiLine(i), vbCr, vbNullString)

                            If (LenB(MultiLine(i)) > 0) Then
                                If (i = LBound(MultiLine)) Then
                                    Value = PrefixText & Left$(cboSend.Text, cboSend.SelStart) & MultiLine(i) & PostfixText
                                ElseIf (i = UBound(MultiLine)) Then
                                    Value = PrefixText & MultiLine(i) & Mid$(cboSend.Text, cboSend.SelStart + cboSend.SelLength + 1) & PostfixText
                                Else
                                    Value = PrefixText & MultiLine(i) & PostfixText
                                End If

                                On Error Resume Next
                                Vetoed = RunInAll("Event_PressedEnter", Value)
                                On Error GoTo 0

                                ' process / command here
                                ' use saved list of "server commands" to never process
                                ' and if it's one of those, skip this
                                If Not Vetoed Then
                                    Vetoed = ProcessInternalCommand(Value, StartOutfilterPos)
                                End If

                                ' wasn't processed above AND wasn't veto'd by scripting
                                If Not Vetoed Then
                                    ' Don't do replacements for a command unless it involves text that will be seen by someone else
                                    '  and don't replace text in the command itself or the target username
                                    Value = Left$(Value, StartOutfilterPos) & OutFilterMsg(Mid$(Value, StartOutfilterPos + 1))

                                    Call AddQ(Value, enuPriority.CONSOLE_MESSAGE)
                                End If

                                cboSend.AddItem Value, 0
                            End If
                        Next i

                        cboSend.Text = vbNullString
                        m_HandlingPaste = True
                    Else
                        ' failsafe: text contained only \r characters
                        cboSend.SelText = Replace(Value, vbCr, vbNullString)
                        m_HandlingPaste = True
                    End If
                Else
                    ' text did not contain \n characters
                    cboSend.SelText = Value
                    m_HandlingPaste = True
                End If

                KeyCode = 0
            End If

        Case vbKeyReturn
            If (GetVScrollPosition(rtbChat)) Then
                SetTextSelection rtbChat, -1, -1
                ScrollToBottom rtbChat
            End If

            Vetoed = False

            Select Case (Shift)
                Case vbShiftMask 'CTRL+ENTER - rewhisper
                    If LenB(cboSend.Text) > 0 Then
                        Value = "/w " & LastWhisperTo & Space(1)
                        Vetoed = True
                    End If

                Case vbShiftMask Or vbCtrlMask 'CTRL+SHIFT+ENTER - reply
                    If LenB(cboSend.Text) > 0 Then
                        Value = "/w " & LastWhisper & Space(1)
                        Vetoed = True
                    End If

                Case Else 'normal ENTER - old rules apply
                    If LenB(cboSend.Text) > 0 Then
                        Value = vbNullString
                    End If
            End Select

            ' prefix box
            If txtPre.Visible Then Value = Value & txtPre.Text
            ' sendbox
            Value = Value & cboSend.Text
            ' suffix box
            If txtPost.Visible Then Value = Value & txtPost.Text

            If LenB(Value) = 0 Then
                Exit Sub
            End If

            If (Left$(Value, 6) = "/tell ") Then
                Value = "/w " & Mid$(Value, 7)
            End If

            ' pass to script for pressed-enter
            On Error Resume Next
            Vetoed = RunInAll("Event_PressedEnter", Value) Or Vetoed
            On Error GoTo 0

            ' process / command here
            ' use saved list of "server commands" to never process
            ' and if it's one of those, skip this
            If Not Vetoed Then
                Vetoed = ProcessInternalCommand(Value, StartOutfilterPos)
            End If

            ' wasn't processed above AND wasn't veto'd by scripting
            If Not Vetoed Then
                ' Don't do replacements for a command unless it involves text that will be seen by someone else
                '  and don't replace text in the command itself or the target username
                Value = Left$(Value, StartOutfilterPos) & OutFilterMsg(Mid$(Value, StartOutfilterPos + 1))

                Call AddQ(Value, enuPriority.CONSOLE_MESSAGE)
            End If

            'Ignore rest of code as the bot is closing
            If ShuttingDown Then
                Exit Sub
            End If

            cboSend.AddItem Value, 0
            cboSend.Text = vbNullString

            If Me.WindowState <> vbMinimized Then
                On Error Resume Next
                cboSend.SetFocus
            End If
    End Select
    
    CurrentList.HideSelection = True
    
    If (KeyCode <> vbKeyTab) Then
        ACUserIndex = 0
    End If

    Exit Sub

ERROR_HANDLER:
    AddChat g_Color.ErrorMessageText, "Error " & Err.Number & " (" & Err.Description & ") " & _
        "in procedure cboSend_KeyDown"
        
    Exit Sub
End Sub

Private Sub cboSend_KeyPress(KeyAscii As Integer)
    Dim oldSelStart As Integer
    Dim sClosest As String
    
    'AddChat vbBlue, KeyAscii

    Select Case KeyAscii
        Case 1, 19, 4, 2, 9, 21, 13, 10
            KeyAscii = 0
        Case 22
            If m_HandlingPaste Then
                KeyAscii = 0
                m_HandlingPaste = False
            End If
            
    End Select
    
    With cboSend
        If (KeyAscii > 0) Then
            If (.ListCount > 15) Then
                .RemoveItem 15
            End If
        End If
    End With
    
    If Len(cboSend.Text) > 223 Then
        cboSend.ForeColor = vbRed
    Else
        cboSend.ForeColor = vbWhite
    End If
End Sub

' handle / commands
' return True to "veto", false otherwise
Private Function ProcessInternalCommand(ByVal Value As String, ByRef StartOutfilterPos As Long) As Boolean
    Dim i               As Integer
    Dim NoProcs()       As String
    Dim Args()          As String
    Dim UserArg         As String
    Dim CommandList     As String

    ProcessInternalCommand = False

    If (Left$(Value, 1) = "/") Then
        If (LenB(Config.ServerCommandList) > 0) Then
            CommandList = Config.ServerCommandList

            ' please note: only commands with "%" as the first argument (or no "%" arguments)
            ' (i.e. "/w %", "/ban %") are supported to be correctly no-processed
            ' complexify here if that is needed
            Args() = Split(Value, Space(1), 3)
            If UBound(Args) > 0 Then UserArg = Args(1)

            CommandList = Replace(CommandList, "%", UserArg)

            NoProcs() = Split(CommandList, ",")
        Else
            ReDim NoProcs(0)
        End If

        For i = LBound(NoProcs) To UBound(NoProcs)
            If (LenB(NoProcs(i)) > 0) And (StrComp(Left$(Value, Len(NoProcs(i)) + 2), "/" & NoProcs(i) & Space$(1), vbTextCompare) = 0) Then
                ' veto processing
                ProcessInternalCommand = False
                StartOutfilterPos = Len(NoProcs(i)) + 3
                Exit Function
            End If
        Next i

        If Not ProcessInternalCommand Then
            ' process command
            ProcessCommand GetCurrentUsername, Value, True, False
            ' veto sending / command
            ProcessInternalCommand = True
        End If
    End If
End Function

Public Sub SControl_Error()
    Call modScripting.SC_Error
End Sub

Private Sub sckBNet_Close()
    Call Event_BNetDisconnected
End Sub

Private Sub sckBNet_Connect()
    On Error Resume Next
    
    Call Event_BNetConnected
    
    If MDebug("all") Then
        AddChat COLOR_BLUE, "BNET CONNECT"
    End If
    
    Call modWarden.WardenCleanup(WardenInstance)
    WardenInstance = modWarden.WardenInitilize(sckBNet.SocketHandle)
    ds.Reset
    
    If (ProxyConnInfo(stBNCS).IsUsingProxy) Then
        modProxySupport.InitProxyConnection sckBNet, ProxyConnInfo(stBNCS), BotVars.Server, 6112
    Else
        InitBNetConnection
    End If
    
End Sub

Sub InitBNetConnection()
    Dim buf(0) As Byte
    buf(0) = BNCS_PROTOCOL_BNCS

    g_Connected = True

    Call modPacketBuffer.SendData(buf, 1, False, , sckBNet, stBNCS, phtNONE)

    If BotVars.BNLS Then
        modBNLS.SEND_BNLS_REQUESTVERSIONBYTE
    Else
        Select Case modBNCS.GetLogonSystem()
            Case modBNCS.BNCS_NLS:
                modBNCS.SEND_SID_AUTH_INFO
            Case modBNCS.BNCS_OLS:
                modBNCS.SEND_SID_CLIENTID2
                modBNCS.SEND_SID_LOCALEINFO
                modBNCS.SEND_SID_STARTVERSIONING
            Case modBNCS.BNCS_LLS:
                modBNCS.SEND_SID_CLIENTID
                modBNCS.SEND_SID_STARTVERSIONING
            Case Else:
                AddChat g_Color.ErrorMessageText, StringFormat("Unknown Logon System Type: {0}", modBNCS.GetLogonSystem())
                AddChat g_Color.ErrorMessageText, "Please visit http://www.stealthbot.net/sb/issues/?unknownLogonType for information regarding this error."
                DoDisconnect
        End Select
    End If
End Sub

Private Sub sckBNet_Error(ByVal Number As Integer, Description As String, ByVal sCode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
    Dim Alive             As Boolean
    Dim IsProxyConnecting As Boolean
    Alive = g_ConnectionAlive
    IsProxyConnecting = ProxyConnInfo(stBNCS).IsUsingProxy And ProxyConnInfo(stBNCS).Status <> psOnline

    ' proxy or BNCS connection threw error
    Call DoDisconnect(False)
    Call DisplayError(Number, Description, stBNCS, IsProxyConnecting, Alive)
    Call DoScheduleAutoReconnect(Alive)
End Sub

Private Sub sckMCP_Close()
    Dim IsProxyConnecting As Boolean

    If Not g_Online Then
        IsProxyConnecting = ProxyConnInfo(stMCP).IsUsingProxy And ProxyConnInfo(stMCP).Status <> psOnline

        ' This event is ignored if we've entered chat
        If IsProxyConnecting Then
            ' proxy connection unexpectedly closed
            Call DisplayError(0, vbNullString, stMCP, IsProxyConnecting, True)
            If ds.MCPHandler.FormActive Then
                frmRealm.UnloadRealmError
            End If
        ElseIf Not ds.MCPHandler Is Nothing Then
            ' MCP connection unexpectedly closed (ignored if no window)
            Call DisplayError(0, vbNullString, stMCP, IsProxyConnecting, True)
            If ds.MCPHandler.FormActive Then
                frmRealm.UnloadRealmError
            End If
        End If
    End If
End Sub

Private Sub sckMCP_Connect()
    On Error GoTo ERROR_HANDLER
    
    Dim sIP   As String
    Dim lPort As Long
    
    If MDebug("all") Then
        AddChat COLOR_BLUE, "MCP CONNECT"
    End If
    
    If ProxyConnInfo(stMCP).IsUsingProxy Then
        AddChat g_Color.SuccessText, "[REALM] [PROXY] Connected!"
        
        sIP = ds.MCPHandler.RealmSelectedServerIP
        lPort = ds.MCPHandler.RealmSelectedServerPort
        modProxySupport.InitProxyConnection sckMCP, ProxyConnInfo(stMCP), sIP, lPort
    Else
        AddChat g_Color.SuccessText, "[REALM] Connected!"
        
        InitMCPConnection
    End If
    
    Exit Sub

ERROR_HANDLER:
    AddChat g_Color.ErrorMessageText, _
        "Error (#" & Err.Number & "): " & Err.Description & " in sckMCP_Connect()."

    Exit Sub
End Sub

Sub InitMCPConnection()
    Dim buf(0) As Byte
    buf(0) = BNCS_PROTOCOL_BNCS

    g_Connected = True

    Call modPacketBuffer.SendData(buf, 1, False, , sckMCP, stMCP, phtNONE)

    ds.MCPHandler.SEND_MCP_STARTUP
End Sub

Private Sub sckMCP_DataArrival(ByVal bytesTotal As Long)
    On Error GoTo ERROR_HANDLER

    Dim pBuff As clsDataBuffer

    If bytesTotal = 0 Then Exit Sub

    ReceiveBuffer(stMCP).GetDataAndAppend sckMCP, bytesTotal

    If ProxyConnInfo(stMCP).IsUsingProxy And ProxyConnInfo(stMCP).Status <> psOnline Then
        Call modProxySupport.ProxyRecvPacket(sckMCP, ProxyConnInfo(stMCP), ReceiveBuffer(stMCP))
    Else
        Do While ReceiveBuffer(stMCP).IsFullPacket(0)
            ' retrieve MCP packet
            Set pBuff = ReceiveBuffer(stMCP).TakePacket(0)
            ' if MCP handler exists, parse
            If Not ds.MCPHandler Is Nothing Then
                Call ds.MCPHandler.MCPRecvPacket(pBuff)
            End If
            ' clean up
            Set pBuff = Nothing
        Loop
    End If

    Exit Sub

ERROR_HANDLER:
    AddChat g_Color.ErrorMessageText, _
        "Error (#" & Err.Number & "): " & Err.Description & " in sckMCP_DataArrival()."

    Exit Sub
End Sub

Private Sub sckMCP_Error(ByVal Number As Integer, Description As String, ByVal sCode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
    Dim IsProxyConnecting As Boolean

    If Not g_Online Then
        IsProxyConnecting = ProxyConnInfo(stMCP).IsUsingProxy And ProxyConnInfo(stMCP).Status <> psOnline

        ' This message is ignored if we've entered chat
        If IsProxyConnecting Then
            ' proxy connection threw error
            Call DisplayError(Number, Description, stMCP, IsProxyConnecting, True)
            If ds.MCPHandler.FormActive Then
                frmRealm.UnloadRealmError
            End If
        ElseIf Not ds.MCPHandler Is Nothing Then
            ' MCP connection threw error (ignored if no window)
            Call DisplayError(Number, Description, stMCP, IsProxyConnecting, True)
            If ds.MCPHandler.FormActive Then
                frmRealm.UnloadRealmError
            End If
        End If
    End If
End Sub


'// Written by Swent. Executes plugin timer subs
Private Sub scTimer_Timer()
    On Error Resume Next

    RunInAll "scTimer_Timer"
End Sub

' centralized "idle" events:
' IDLE MESSAGE (.5*IDLEMESSAGEDELAY minutes - user setting)
' PROFILE AMP (30 seconds)
' BNCS.SID_NULL (2 minutes - keep alive)
' BNCS.SID_CLANMOTD (10 minutes - may change)
' BNCS.SID_FRIENDSLIST (5 minutes - for D1,W2,D2 [no update], SC,W3 [bug in SID_FRIENDSUPDATE])
Private Sub tmrIdleTimer_Timer()
    #If (COMPILE_DEBUG <> 1) Then
        On Error GoTo ERROR_HANDLER
    #End If

    ' long-counter
    Static lCounter As Long

    Dim pBuf      As clsDataBuffer
    Dim NewColor  As Long
    Dim i         As Integer
    Dim pos       As Integer
    Dim doCheck   As Boolean

    lCounter = lCounter + 1
    If lCounter >= &H3C000000 Then lCounter = 0

    If sckBNet.State = sckConnected And (g_Online Or ds.AccountEntry) Then
        ' bot idle (30 second interval (x config value), offset 0 seconds)
        If g_Online And Config.IdleMessage Then
            Dim IdleWait As Long
            
            IdleWait = Config.IdleMessageDelay * 30
            
            If (lCounter Mod IdleWait) = 0 Then
                'AddQ "IDLE"
                Call tmrIdleTimer_Timer_IdleMsg
            End If
        End If

        ' bot ProfileAmp (30 second interval, offset 5 seconds)
        If g_Online And Config.ProfileAmp Then
            If (lCounter Mod 30&) = 5& Then
                'AddQ "PROFILE AMP"
                Call UpdateProfile
            End If
        End If

        ' BNCS keepalive... (1 minute interval; offset 15 seconds)
        ' if in clan, then (10 minute interval; offset 15 seconds before 4th minute)
        If g_Online And g_Clan.InClan And (lCounter Mod 600&) = 225& Then
            Call ClanHandler.RequestClanMOTD
        ' if friends list enabled, then (10 minute interval; offset 15 seconds before 9th minute)
        ElseIf g_Online And Config.FriendsListTab And (lCounter Mod 600&) = 525& Then
            ' request friendlist instead of FL
            'AddQ "FRIENDS"
            If (lvFriendList.ListItems.Count > 0) Then
                Call FriendListHandler.RequestFriendsList
            Else
                Set pBuf = New clsDataBuffer
                pBuf.SendPacket SID_NULL
                Set pBuf = Nothing
            End If
        ' else standard null (1 minute interval; offset 15 seconds before each minute)
        ElseIf (lCounter Mod 60&) = 45& Then
            'AddQ "NULL"
            Set pBuf = New clsDataBuffer
            pBuf.SendPacket SID_NULL
            Set pBuf = Nothing
        End If

        If (floodCap > 2) Then
            floodCap = floodCap - 3
        End If

        If (VoteDuration > 0) Then
            VoteDuration = VoteDuration - 1

            If (VoteDuration = 0) Then
                Dim s As String

                s = Voting(BVT_VOTE_END)

                If (Len(s) > 1) Then
                    AddQ s
                End If
            End If
        End If

        If (g_Queue.Count > 0) Then
            Ban vbNullString, 0, 3
        End If

        If (g_Channel.IsSilent = False) Then
            doCheck = True

            pos = 0
            For i = 1 To g_Channel.PriorityUsers.Count
                With g_Channel.PriorityUsers(i)
                    If (g_Channel.Self.IsOperator) Then
                        If (.IsOperator = False) Then
                            ' channel password
                            If ((BotVars.ChannelPasswordDelay > 0) And (Len(BotVars.ChannelPassword) > 0)) Then
                                If (.PassedChannelAuth = False) Then
                                    If (.TimeInChannel() > BotVars.ChannelPasswordDelay) Then
                                        If (GetSafelist(.DisplayName) = False) Then
                                            Ban .DisplayName & " Password time is up", (AutoModSafelistValue - 1)

                                            doCheck = False
                                        End If
                                    End If
                                End If
                            End If

                            ' idle bans
                            If ((doCheck) And ((BotVars.IB_On = BTRUE) And (BotVars.IB_Wait > 0))) Then
                                If (.TimeSinceTalk() > BotVars.IB_Wait) Then
                                    If (GetSafelist(.DisplayName) = False) Then
                                        Ban .DisplayName & " Idle for " & BotVars.IB_Wait & "+ seconds", _
                                                (AutoModSafelistValue - 1), IIf(BotVars.IB_Kick, 1, 0)

                                        doCheck = False
                                    End If
                                End If
                            End If
                        End If
                    End If

                    If (.Queue.Count = 0) Then
                        pos = pos + 1
                        If (pos <= lvChannel.ListItems.Count And Not BotVars.NoColoring) Then
                            NewColor = GetNameColor(.Flags, .TimeSinceTalk, StrComp(.DisplayName, _
                                    GetCurrentUsername, vbBinaryCompare) = 0)

                            If (lvChannel.ListItems(pos).ForeColor <> NewColor) Then
                                lvChannel.ListItems(pos).ForeColor = NewColor
                            End If
                        End If
                    End If
                End With

                doCheck = True
            Next i
        End If
    End If
    
    Exit Sub

ERROR_HANDLER:

    AddChat g_Color.ErrorMessageText, "Error (#" & Err.Number & "): " & Err.Description & " in tmrIdleTimer_Timer()."
    
    Exit Sub
    
End Sub

Private Sub tmrIdleTimer_Timer_IdleMsg()
    #If (COMPILE_DEBUG <> 1) Then
        On Error GoTo ERROR_HANDLER
    #End If

    Dim U As String, IdleMsg As String, s() As String
    Dim IdleWaitS As String, IdleType As String
    Dim IdleWait As Long, UDP As Byte
    Dim IsError As Boolean

    BotVars.JoinWatch = 0
    
    If Not Config.IdleMessage Then Exit Sub
    
    IdleMsg = Config.IdleMessageText
    IdleWait = Config.IdleMessageDelay
    IdleType = Config.IdleMessageType
    
    If IdleWait < 2 Then Exit Sub
    
    'If iCounter >= IdleWait Then
    'iCounter = 0
    'on error resume next
    If IdleType = "msg" Or IdleType = vbNullString Then
    
        If StrComp(IdleMsg, "null", vbTextCompare) = 0 Or IdleMsg = vbNullString Then
            Exit Sub
        End If
        
        IdleMsg = DoReplacements(IdleMsg)
        
        If (IdleMsg = vbNullString) Then
            IsError = True
        End If
        
    ElseIf IdleType = "uptime" Then
        IdleMsg = "/me -: System Uptime: " & ConvertTimeInterval(modDateTime.GetTickCountMS()) & " :: Connection Uptime: " & ConvertTimeInterval(modBNCS.GetConnectionUptime()) & " :: " & CVERSION & " :-"
        
    ElseIf IdleType = "mp3" Then
        Dim WindowTitle As String
        
        WindowTitle = MediaPlayer.TrackName
        
        If WindowTitle = vbNullString Then
            IsError = True
        ElseIf (MediaPlayer.IsPaused) Then
            IdleMsg = "/me -: Now Playing: " & WindowTitle & " (paused) :: " & CVERSION & " :-"
        Else
            IdleMsg = "/me -: Now Playing: " & WindowTitle & " :: " & CVERSION & " :-"
        End If

    ElseIf IdleType = "quote" Then
        U = g_Quotes.GetRandomQuote
        
        IdleMsg = "/me : " & U
        
        If Len(U) > 217 Then
            IsError = True
        End If
        
    End If
            
    If (IsError) Then
        IdleMsg = "/me -- " & CVERSION
    End If
    
    If sckBNet.State = sckConnected Then
        If InStr(1, IdleMsg, "& ", vbTextCompare) And IdleType = "msg" Then
            s = Split(IdleMsg, "& ")
            
            For IdleWait = LBound(s) To UBound(s)
                If Len(s(IdleWait)) > 215 Then
                    s(IdleWait) = Left$(s(IdleWait), 215)
                End If
                AddQ s(IdleWait)
            Next
        Else
            If Len(IdleMsg) > 215 Then
                IdleMsg = Left$(IdleMsg, 215)
            End If
            
            frmChat.AddQ IdleMsg
        End If
    End If
    'End If
    
    Exit Sub

ERROR_HANDLER:

    AddChat g_Color.ErrorMessageText, "Error (#" & Err.Number & "): " & Err.Description & " in tmrIdleTimer_Timer_IdleMsg()."
    
    Exit Sub
    
End Sub

Private Sub tmrSilentChannel_Timer(Index As Integer)
    #If (COMPILE_DEBUG <> 1) Then
        On Error GoTo ERROR_HANDLER
    #End If
    
    Dim pBuff As clsDataBuffer
    
    Static bCleared As Boolean
    Static bSkipRefresh As Boolean
    
    If (g_Channel.IsSilent = False) Then
        tmrSilentChannel(0).Enabled = False
        Exit Sub
    End If

    If (Index = 0) Then
        ' If we've received users
        If g_Channel.Users.Count > 0 Then
            ' If we haven't marked the buffer as cleared, and it is cleared.
            If ((bCleared = False) And (ReceiveBuffer(stBNCS).IsFullPacket(2) = False)) Then
                bCleared = True
                bSkipRefresh = True
                
                Call UpdateListviewTabs
            End If
        End If
    ElseIf (Index = 1) Then
        ' If we haven't received users, or the receive buffer is cleared.
        If g_Channel.Users.Count = 0 Or bCleared = True Then
            If bSkipRefresh = True Then
                bSkipRefresh = False
            Else
                bCleared = False
                ' Go ahead and refresh.
                If Config.VoidView Then Call AddQ("/unignore " & GetCurrentUsername, enuPriority.SPECIAL_MESSAGE)
            End If
        End If
    End If
    
    Exit Sub
    
ERROR_HANDLER:
    AddChat g_Color.ErrorMessageText, "Error: " & Err.Description & " in tmrSilentChannel_Timer(" & Index & ")."
    
    Exit Sub
End Sub

Private Sub txtPre_KeyPress(KeyAscii As Integer)
    If (KeyAscii = 13) Then
        Call cboSend_KeyPress(KeyAscii)
    End If
End Sub

Private Sub txtPost_KeyPress(KeyAscii As Integer)
    If (KeyAscii = 13) Then
        Call cboSend_KeyPress(KeyAscii)
    End If
End Sub

Sub ConnectBNLS()
    ' Don't try and connect if we don't have a server to connect to.
    If Len(BotVars.BNLSServer) = 0 Then
        AddChat g_Color.ErrorMessageText, "[BNLS] A working BNLS server could not be found."
        AddChat g_Color.ErrorMessageText, "[BNLS]   Go to Settings -> Bot Settings -> Connection Settings -> Advanced and either set a server or use the automatic server finder."
        Call DoDisconnect
        Exit Sub
    End If
    
    Call Event_BNLSConnecting
    
    With sckBNLS
        If .State <> sckClosed Then .Close
        
        If ProxyConnInfo(stBNLS).IsUsingProxy Then
            .RemoteHost = ProxyConnInfo(stBNLS).ProxyIP
            .RemotePort = ProxyConnInfo(stBNLS).ProxyPort
        Else
            .RemoteHost = BotVars.BNLSServer
            .RemotePort = 9367
        End If
        .Connect
    End With
End Sub

Sub Connect()
    Dim NotEnoughInfo As Boolean
    Dim MissingInfo As String
    Dim i As Integer
    
    'g_username = BotVars.Username
    
    If sckBNet.State = sckClosed And sckBNLS.State = sckClosed Then
    
        'Vars
        NotEnoughInfo = False
        MissingInfo = "Information required to connect: "
        If BotVars.Username = vbNullString Then
            MissingInfo = MissingInfo & "Username, "
            NotEnoughInfo = True
        End If
        If BotVars.Password = vbNullString Then
            MissingInfo = MissingInfo & "Password, "
            NotEnoughInfo = True
        End If
        If BotVars.Server = vbNullString Then
            MissingInfo = MissingInfo & "Server, "
            NotEnoughInfo = True
        End If
        If BotVars.Product = vbNullString Then
            MissingInfo = MissingInfo & "your choice of Client, "
            NotEnoughInfo = True
        Else
            Select Case GetProductInfo(BotVars.Product).KeyCount
                Case 0
                Case 1
                    If BotVars.CDKey = vbNullString Then
                        MissingInfo = MissingInfo & "CDKey, "
                        NotEnoughInfo = True
                    End If
                Case 2
                    If BotVars.CDKey = vbNullString Then
                        MissingInfo = MissingInfo & "CDKey, "
                        NotEnoughInfo = True
                    End If
                    If BotVars.ExpKey = vbNullString Then
                        MissingInfo = MissingInfo & "expansion CDKey, "
                        NotEnoughInfo = True
                    End If
            End Select
        End If
        
        If NotEnoughInfo Then
            MsgBox "You haven't provided enough information to connect! " & _
                "Please edit your connection settings by choosing Bot Settings under the Settings menu." & _
                vbNewLine & Left$(MissingInfo, Len(MissingInfo) - 2) & ".", vbInformation
            
            Call DoDisconnect
            
            Exit Sub
        End If
        
        For i = LBound(ProxyConnInfo) To UBound(ProxyConnInfo)
            ProxyConnInfo(i).IsUsingProxy = ProxyConnInfo(i).UseProxy
            If ProxyConnInfo(i).IsUsingProxy And (ProxyConnInfo(i).ProxyPort = 0 Or LenB(ProxyConnInfo(i).ProxyIP) = 0) Then
                MsgBox "You have selected to use a proxy for one or more connections, but no proxy is configured. Please set one up in the Advanced " & _
                    " section of Bot Settings or disable Use Proxy.", vbInformation
                    
                Call DoDisconnect
                
                Exit Sub
            End If
        Next i
        
        SetTitle "Connecting..."
        
        If ((StrComp(BotVars.Product, "PX2D", vbTextCompare) = 0) Or _
            (StrComp(BotVars.Product, "VD2D", vbTextCompare) = 0)) Then
            
            Dii = True
        Else
            Dii = False
        End If

        'Changed 10-07-2009 - Hdx - Are we going to have private betas anymore?
        #If (BETA = 2) Then
            Call AddChat(g_Color.InformationText, "Authorizing your private-release, please wait...")
            
            If (GetAuth(BotVars.Username)) Then
                Call AddChat(g_Color.SuccessText, "Private usage authorized, connecting your bot...")
                
                ' was auth function bypassed?
                If (AUTH_CHECKED = False) Then BotVars.Password = Chr$(0)
            Else
                Call AddChat(g_Color.ErrorMessageText, "- - - - - YOU ARE NOT AUTHORIZED TO USE THIS PROGRAM - - - - -")
                
                Call DoDisconnect
                Exit Sub
            End If
        #Else
            AddChat g_Color.InformationText, "Connecting your bot..."
        #End If
        
        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."
                Exit Sub
            End If
    
            If ProxyConnInfo(stBNCS).IsUsingProxy Then
                .RemoteHost = ProxyConnInfo(stBNCS).ProxyIP
                .RemotePort = ProxyConnInfo(stBNCS).ProxyPort
            Else
                .RemoteHost = BotVars.Server
                .RemotePort = 6112
            End If

            If Not BotVars.BNLS Then .Connect

        End With
        
    End If
    
    Exit Sub
    
Error:
    MsgBox "Configuration file error. Please re-write your configuration file " & _
        "using the Setup dialog.", vbCritical + vbOKOnly, "Error"
    
    Call SetTitle("Disconnected")
    
    Exit Sub
End Sub

Public Sub Pause(ByVal fSeconds As Single, Optional ByVal AllowEvents As Boolean = True)
    Dim i As Integer
    If AllowEvents Then
        For i = 0 To (1000 * fSeconds) \ 100
            Sleep 100
            DoEvents
        Next i
    Else
        Sleep fSeconds * 1000
    End If
End Sub

'StealthLock (c) 2003 Stealth, Please do not remove this header
Private Function GetAuth(ByVal Username As String) As Long
    On Error GoTo ERROR_HANDLER

    Static lastAuth     As Long
    Static lastAuthName As String
    
    Dim clsCRC32 As clsCRC32
    Dim hostFile As String
    Dim hostPath As String
    Dim f        As Integer
    Dim tmp      As String
    Dim Result   As Integer      ' string variable for storing beta authorization result
                                 ' 0  == unauthorized
                                 ' >0 == authorized
    Set clsCRC32 = New clsCRC32
    If (lastAuth) Then
        If (StrComp(Username, lastAuthName, vbTextCompare) = 0) Then
            GetAuth = lastAuth
            
            Exit Function
        End If
    End If
    
    f = FreeFile
    
    If (g_OSVersion.IsWindowsNT) Then
        hostPath = _
            GetRegistryValue(HKEY_LOCAL_MACHINE, "SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\", _
                "DatabasePath")
        
        If (Len(hostPath) = 0) Then
            hostPath = "%SystemRoot%\system32\drivers\etc\"
        End If
    Else
        hostPath = "%WinDir%"
    End If
    
    hostPath = ReplaceEnvironmentVars(hostPath & "\hosts")
 
    If (LenB(Dir$(hostPath)) > 0) Then
        Open hostPath For Input As #f
            Do While (EOF(f) = False)
                Line Input #f, tmp
                
                hostFile = hostFile & tmp
            Loop
        Close #f
    End If
    
    If (clsCRC32.CRC32(StringToByteArr(BETA_AUTH_URL)) = BETA_AUTH_URL_CRC32) Then
        If (InStr(1, hostFile, Split(BETA_AUTH_URL, ".")(1), vbTextCompare) = 0) Then
            Result = CInt(Val(Inet.OpenURL(BETA_AUTH_URL & Username)))
        End If
    End If
    
    Do While Inet.StillExecuting
        DoEvents
    Loop
    
    If (Result = 1) Then
        lastAuth = Result
        lastAuthName = Username
    
        GetAuth = True
        
        AUTH_CHECKED = True
    End If
    
    Set clsCRC32 = Nothing

    Exit Function

ERROR_HANDLER:

    AddChat g_Color.ErrorMessageText, "Beta Auth Error: #", vbRed, Err.Number, vbRed, ": ", vbRed, Err.Description
    Set clsCRC32 = Nothing
    GetAuth = False
    Exit Function
    
End Function

' http://www.go4expert.com/forums/showthread.php?t=208
Private Function ReplaceEnvironmentVars(ByVal str As String) As String

    Dim i     As Integer
    Dim Name  As String
    Dim Value As String
    Dim tmp   As String
    
    tmp = str
    
    i = 1

    While (Environ$(i) <> "")
        Name = Mid$(Environ$(i), 1, InStr(1, Environ$(i), "=") - 1)

        Value = Mid$(Environ$(i), InStr(1, Environ$(i), "=") + 1)

        tmp = Replace(tmp, "%" & Name & "%", Value)
    
        i = i + 1
    Wend

    ReplaceEnvironmentVars = tmp

End Function

Function AddQ(ByVal Message As String, Optional msg_priority As Integer = -1, _
        Optional ByVal Tag As String = vbNullString, Optional OversizeDelimiter As String = " ") As Integer

    On Error GoTo ERROR_HANDLER
    
    Dim Splt()         As String
    Dim strTmp         As String
    Dim i              As Long
    Dim currChar       As Long
    Dim Send           As String
    Dim Command        As String
    Dim GTC            As Currency
    Dim Q              As clsQueueObj
    Dim delay          As Long
    Dim Index          As Long
    Dim s              As String      ' temp string for settings
    Dim MaxLength      As Integer     ' stores max length for split (with override)
    
    Static LastGTC  As Currency
    Static BanCount As Integer

    strTmp = Message
    
    ' cap priority at 100
    If (msg_priority > 100) Then
        msg_priority = 100
    End If
    
    If (g_Queue.Count = 0) Then
        BanCount = 0
    End If
    
    If (strTmp <> vbNullString) Then
        ReDim Splt(0)
    
        ' check for tabs and replace with spaces (2005-09-23)
        If (InStr(1, strTmp, Chr$(9), vbBinaryCompare) <> 0) Then
            strTmp = Replace$(strTmp, Chr$(9), Space$(4))
        End If
        
        ' check for invalid characters in the message
        For i = 1 To Len(strTmp)
            currChar = AscW(Mid$(strTmp, i, 1))
        
            If (currChar < 32) Then
                Exit Function
            End If
        Next i
        
        ' is this an internal or battle.net command?
        If (StrComp(Left$(strTmp, 1), "/", vbBinaryCompare) = 0) Then
            ' if so, we have extra work to do
            For i = 2 To Len(strTmp)
                currChar = AscW(Mid$(strTmp, i, 1))
            
                ' find the first non-space after the /
                If (currChar <> 32) Then
                    Exit For
                End If
            Next i
            
            ' if we found a non-space, strip everything
            If (i >= 2) Then
                strTmp = StringFormat("/{0}", Mid$(strTmp, i))
            End If

            ' Find the next instance of a space (the end of the command word)
            Index = InStr(1, strTmp, Space$(1), vbBinaryCompare)
            
            ' is it a valid command word?
            If (Index > 2) Then
                ' extract the command word
                Command = LCase$(Mid$(strTmp, 2, (Index - 2)))

                ' test it for being battle.net commands we need to process now
                If ((Command = "w") Or _
                    (Command = "whisper") Or _
                    (Command = "m") Or _
                    (Command = "msg") Or _
                    (Command = "message") Or _
                    (Command = "whois") Or _
                    (Command = "where") Or _
                    (Command = "whereis") Or _
                    (Command = "squelch") Or _
                    (Command = "unsquelch") Or _
                    (Command = "ignore") Or _
                    (Command = "unignore") Or _
                    (Command = "ban") Or _
                    (Command = "unban") Or _
                    (Command = "kick") Or _
                    (Command = "designate")) Then
        
                    Splt() = Split(strTmp, Space$(1), 3)
                    
                    If (UBound(Splt) > 0) Then
                        Command = StringFormat("{0} {1}", Splt(0), ReverseConvertUsernameGateway(Splt(1)))

                        If ((g_Channel.IsSilent) And (Config.VoidView)) Then
                            If ((LCase$(Splt(0)) = "/unignore") Or (LCase$(Splt(0)) = "/unsquelch")) Then
                                If (StrComp(Splt(1), GetCurrentUsername, vbTextCompare) = 0) Then
                                    Call g_Channel.ClearUsers
                                    DisableWindowRedraw lvChannel.hWnd
                                    lvChannel.ListItems.Clear
                                End If
                            End If
                        End If
                        
                        If (UBound(Splt) > 1) Then
                            ReDim Preserve Splt(0 To UBound(Splt) - 1)
                        End If
                    End If
                    
                ElseIf ((Command = "f") Or _
                        (Command = "friends")) Then
                    
                    Splt() = Split(strTmp, Space$(1), 3)
                    
                    Command = Splt(0)
                    
                    If (UBound(Splt) >= 1) Then
                        Command = StringFormat("{0} {1}", Command, Splt(1))
                        
                        If (UBound(Splt) >= 2) Then
                            Select Case (LCase$(Splt(1)))
                                Case "m", "msg"
                                    ReDim Preserve Splt(0 To UBound(Splt) - 1)

                                Case Else
                                    Splt() = Split(strTmp, Space$(1), 4)
                                
                                    If ((StrReverse$(BotVars.Product) = PRODUCT_WAR3) Or _
                                        (StrReverse$(BotVars.Product) = PRODUCT_W3XP)) Then
                                        
                                        Command = StringFormat("{0} {1}", Command, ReverseConvertUsernameGateway(Splt(2)))
                                    Else
                                        Command = StringFormat("{0} {1}", Command, Splt(2))
                                    End If
                                    
                                    If (UBound(Splt) >= 3) Then
                                        Command = StringFormat("{0} {1}", Command, Splt(3))
                                    End If
                            End Select
                        End If
                    End If
                Else
                    Command = StringFormat("/{0}", Command)
                    strTmp = Mid$(strTmp, Len(Command) + 2)
                End If
                
                If (Len(Command) >= BNET_MSG_LENGTH) Then
                    Exit Function
                End If

                If (UBound(Splt) > 0) Then
                    strTmp = Mid$(strTmp, _
                        (Len(Join(Splt(), Space$(1))) + (Len(Space$(1))) + 1))
                End If
            End If
        End If
        
        If (msg_priority < 0) Then
            Dim cmdName    As String
            Dim spaceIndex As Long

            spaceIndex = InStr(1, Message, Space$(1), vbBinaryCompare)
            
            If (spaceIndex >= 2) Then
                cmdName = LCase$(Left$(Mid$(Message, 2), spaceIndex - 2))
            Else
                cmdName = LCase$(Mid$(Message, 2))
            End If
            
            Select Case (cmdName)
                Case "designate": msg_priority = enuPriority.SPECIAL_MESSAGE
                Case "resign":    msg_priority = enuPriority.SPECIAL_MESSAGE
                Case "who":       msg_priority = enuPriority.SPECIAL_MESSAGE
                Case "unban":     msg_priority = enuPriority.SPECIAL_MESSAGE
                Case "clan", "c": msg_priority = enuPriority.SPECIAL_MESSAGE
                Case "ban":       msg_priority = enuPriority.CHANNEL_MODERATION_MESSAGE
                Case "kick":      msg_priority = enuPriority.CHANNEL_MODERATION_MESSAGE
                Case Else:        msg_priority = enuPriority.MESSAGE_DEFAULT
            End Select
        End If
        
        MaxLength = Config.MaxMessageLength
        
        Call SplitByLen(strTmp, (MaxLength - Len(Command)), Splt(), vbNullString, , OversizeDelimiter)

        ReDim Preserve Splt(0 To UBound(Splt))

        ' add to the queue!
        For i = LBound(Splt) To UBound(Splt)
            ' store current tick
            GTC = modDateTime.GetTickCountMS()
            
            ' store working copy
            Send = Splt(i)
            If (LenB(Command) > 0) Then
                If (LenB(Send) > 0) Then
                    Send = StringFormat("{0} {1}", Command, Send)
                Else
                    Send = Command
                End If
            ElseIf (Left(Send, 1) = "/" And i > LBound(Splt)) Then
                Send = StringFormat(" {0}", Send)
            End If
            
            ' create the queue object
            Set Q = New clsQueueObj
            
            With Q
                .Message = Send
                .Priority = msg_priority
                .Tag = Tag
            End With

            ' add it
            g_Queue.Push Q
            
            ' should we subject this message to the typical delay,
            ' or can we get it out of here a bit faster?  If we
            ' want it out of here quick, we need an empty queue
            ' and have had at least 10 seconds elapse since the
            ' previous message.
            If (g_Queue.Count() = 1) Then
                If (GTC - LastGTC >= 10000) Then
                    ' set default message delay when queue is empty (in ms)
                    delay = 10
                    
                    ' are we issuing a ban or kick command?
                    If (msg_priority = enuPriority.CHANNEL_MODERATION_MESSAGE) Then
                        delay = g_BNCSQueue.BanDelay()
                    End If
                End If
            End If
            
            ' If queueTimerID is 0 the timer is idle right now, so reset it
            If QueueTimerID = 0 Then
                If delay = 0 Then
                    delay = g_BNCSQueue.GetDelay(g_Queue.Peek.Message)
                End If
            
                ' set the delay before our next queue cycle
                QueueTimerID = SetTimer(0&, 0&, delay, AddressOf QueueTimerProc)
            End If
        Next i
        
        AddQ = UBound(Splt) + 1
        
        ' store our tick for future reference
        LastGTC = GTC
    End If
        
    Exit Function
    
ERROR_HANDLER:
    Call AddChat(vbRed, "Error (#" & Err.Number & "): " & Err.Description & " in AddQ().")

    Exit Function
End Function


Sub ClearChannel()
    ' reset channel object
    Set g_Channel = New clsChannelObj
    
    ' clear channel UI elements
    lvChannel.ListItems.Clear
    lblCurrentChannel.Caption = vbNullString
    
    ' be ready to ignore processing EID_INFO Clan MOTD
    If g_Clan.InClan Then
        g_Clan.PendingClanMOTD = True
    End If
End Sub


Sub ReloadConfig(Optional Mode As Byte = 0)
    On Error GoTo ERROR_HANDLER

    Dim default_group_access As clsDBEntryObj
    Dim s                    As String
    Dim i                    As Integer
    Dim f                    As Integer
    Dim Index                As Integer
    Dim bln                  As Boolean
    Dim doConvert            As Boolean
    Dim command_output()     As String
    
    Dim oCommandGenerator    As clsCommandGeneratorObj
    
    If Mode <> 0 Then
        Call Config.Load(GetConfigFilePath())
        Call g_Color.Load(GetFilePath(FILE_COLORS))
    End If
    
    Call SetFormColors(g_Color)
        
    BotVars.TSSetting = Config.TimestampMode

    ' Client settings
    If LenB(BotVars.Username) > 0 And StrComp(BotVars.Username, Config.Username, vbTextCompare) <> 0 Then
        AddChat g_Color.ConsoleText, "Username set to " & Config.Username & "."
    End If
    BotVars.Username = Config.Username
    BotVars.Password = Config.Password
    BotVars.CDKey = Config.CDKey
    BotVars.ExpKey = Config.ExpKey
    BotVars.Product = StrReverse$(GetProductInfo(Config.Game).Code)
    BotVars.Server = Config.Server
    BotVars.HomeChannel = Config.HomeChannel
    BotVars.BotOwner = Config.BotOwner
    
    BotVars.Trigger = Config.Trigger
    'If (BotVars.TriggerLong = vbNullString) Then
    '    BotVars.Trigger = "."
    'End If
    
    BotVars.BNLSServer = Config.BNLSServer
    
    ' Load database and commands
    Call Database.Load(GetFilePath(FILE_USERDB))
    'Call oCommandGenerator.GenerateCommands
    
    ' Set UI fonts
    If Mode <> 1 Then
        Dim ResizeChatElements As Boolean
        Dim ResizeChannelElements As Boolean
        
        s = Config.ChatFont
        If s <> vbNullString And s <> rtbChat.Font.Name Then
            'rtbChat.Font.Name = s
            cboSend.Font.Name = s
            'rtbWhispers.Font.Name = s
            txtPre.Font.Name = s
            txtPost.Font.Name = s
            
            ResizeChatElements = True
        End If
        
        s = Config.ChannelListFont
        If s <> vbNullString And s <> lvChannel.Font.Name Then
            lvChannel.Font.Name = s
            lvClanList.Font.Name = s
            lvFriendList.Font.Name = s
            lblCurrentChannel.Font.Name = s
            ListviewTabs.Font.Name = s
            
            ResizeChatElements = True
        End If
        
        s = Config.ChatFontSize
        If StrictIsNumeric(s) Then
            If CInt(s) <> rtbChat.Font.Size Then
                'rtbChat.Font.Size = s
                cboSend.Font.Size = s
                'rtbWhispers.Font.Size = s
                txtPre.Font.Size = s
                txtPost.Font.Size = s
                
                ResizeChannelElements = True
            End If
        End If
        
        s = Config.ChannelListFontSize
        If StrictIsNumeric(s) Then
            If CInt(s) <> lvChannel.Font.Size Then
                lvChannel.Font.Size = s
                lvClanList.Font.Size = s
                lvFriendList.Font.Size = s
                lblCurrentChannel.Font.Size = s
                ListviewTabs.Font.Size = s
                
                ResizeChannelElements = True
            End If
        End If
    
        If ResizeChannelElements Then
            Dim lblHeight As Single
            
            lblCurrentChannel.AutoSize = True
            lblHeight = lblCurrentChannel.Height + 40
            lblCurrentChannel.AutoSize = False
            lblCurrentChannel.Height = lblHeight
            
            ResizeChatElements = True
        End If
        
        If ResizeChatElements Then
            Call ChangeRTBFont(rtbChat, Config.ChatFont, Config.ChatFontSize)
            Call ChangeRTBFont(rtbWhispers, Config.ChatFont, Config.ChatFontSize)
            
            Call Form_Resize
        End If
    End If
    
    Filters = Config.ChatFilters
    mnuToggleFilters.Checked = Filters
    If (Not Filters) Then
        BotVars.JoinWatch = 0
    End If
    
    BotVars.AutofilterMS = 0
    
    AutoModSafelistValue = Config.AutoSafelistLevel
    BotVars.ShowOfflineFriends = Config.ShowOfflineFriends
    
    BotVars.RetainOldBans = Config.RetainOldBans
    BotVars.StoreAllBans = Config.StoreAllBans
    
    BotVars.GatewayConventions = Config.NamespaceConvention
    BotVars.UseD2Naming = Config.UseD2Naming
    BotVars.D2NamingFormat = Config.D2NamingFormat
    
    BotVars.ShowStatsIcons = Config.ShowStatsIcons
    BotVars.ShowFlagsIcons = Config.ShowFlagIcons
    
    JoinMessagesOff = Not Config.ShowJoinLeaves
    mnuToggle.Checked = JoinMessagesOff

    mail = Config.BotMail
    
    BotVars.BanEvasion = Config.BanEvasion
    BotVars.Logging = Config.LoggingMode
    
    mnuToggleWWUse.Checked = Config.WhisperWindows
    BotVars.WhisperCmds = Config.WhisperCommands
    PhraseBans = Config.PhraseBans
    BotVars.CaseSensitiveFlags = Config.CaseSensitiveDBFlags
    BotVars.AutoCompletePostfix = Config.AutoCompletePostfix
    BotVars.BNLS = Config.UseBNLS
    BotVars.LogDBActions = Config.LogDBActions
    BotVars.LogCommands = Config.LogCommands

    '/* time to idle: defaults to 600 seconds / 10 minutes idle */
    BotVars.SecondsToIdle = Config.SecondsToIdle
    
    BotVars.BanUnderLevel = Config.LevelBanW3
    BotVars.BanUnderLevelMsg = Config.LevelBanMessage
    BotVars.BanPeons = Config.PeonBan
    
    BotVars.KickOnYell = Config.KickOnYell
    
    ' Capped at 32767, topic=29986 -Andy
    BotVars.IB_Wait = Config.IdleBanDelay

    ' Set and create special groups
    BotVars.DefaultShitlistGroup = Config.ShitlistGroup
    BotVars.DefaultTagbansGroup = Config.TagbanGroup
    BotVars.DefaultSafelistGroup = Config.SafelistGroup
    Call Database.CreateSpecialGroups
    
    BotVars.DisableMP3Commands = Not Config.Mp3Commands
    
    BotVars.MaxBacklogSize = Config.MaxBacklogSize
    BotVars.MaxLogFileSize = Config.MaxLogFileSize
    
    If Config.UrlDetection Then
        EnableURLDetect rtbChat.hWnd
        EnableURLDetect rtbWhispers.hWnd
    Else
        DisableURLDetect rtbChat.hWnd
        DisableURLDetect rtbWhispers.hWnd
    End If
    
    ' reload quotes file
    Set g_Quotes = New clsQuotesObj
    
    BotVars.UseBackupChan = Config.UseBackupChannel
    BotVars.BackupChan = Config.BackupChannel

    mnuUTF8.Checked = Config.UseUTF8
    
    mnuToggleShowOutgoing.Checked = Config.ShowOutgoingWhispers
    mnuHideWhispersInrtbChat.Checked = Config.HideWhispersInMain
    
    'LoadSafelist
    LoadArray LOAD_PHRASES, Phrases()
    LoadArray LOAD_FILTERS, gFilters()
    LoadArray LOAD_BLOCKLIST, g_Blocklist()
    
    ProtectMsg = Config.ChannelProtectionMessage

    Call LoadOutFilters
    
    BotVars.IB_On = Config.IdleBan
    BotVars.IB_Kick = Config.IdleBanKick
    BotVars.IB_Wait = Config.IdleBanDelay

    BotVars.Spoof = Config.PingSpoofing
    
    Protect = Config.ChannelProtection
    BotVars.UseUDP = Config.UseUDP
    BotVars.IPBans = Config.IPBans
    BotVars.UseAltBnls = Config.BNLSFinder
    BotVars.QuietTime = Config.QuietTime
    
    mnuFlash.Checked = Config.FlashOnEvents
    
    BotVars.NoTray = Not Config.MinimizeToTray
    BotVars.NoAutocompletion = Not Config.NameAutoComplete
    BotVars.NoColoring = Not Config.NameColoring
    
    mnuDisableVoidView.Checked = Not Config.VoidView
    
    BotVars.MediaPlayer = Config.MediaPlayer
    
    
    ' Load some queue stuff, reluctantly
    BotVars.QueueMaxCredits = Config.QueueMaxCredits
    BotVars.QueueCostPerPacket = Config.QueueCostPerPacket
    BotVars.QueueCostPerByte = Config.QueueCostPerByte
    BotVars.QueueCostPerByteOverThreshhold = Config.QueueCostPerByteOver
    BotVars.QueueStartingCredits = Config.QueueStartingCredits
    BotVars.QueueThreshholdBytes = Config.QueueThresholdBytes
    BotVars.QueueCreditRate = Config.QueueCreditRate

    BotVars.UseRealm = Config.UseD2Realms

    txtPre.Text = ""
    txtPost.Text = ""
    
    txtPre.Visible = Not Config.DisablePrefixBox
    mnuPopAddLeft.Enabled = Not Config.DisablePrefixBox
    mnuPopFLAddLeft.Enabled = Not Config.DisablePrefixBox
    mnuPopClanAddLeft.Enabled = Not Config.DisablePrefixBox

    txtPost.Visible = Not Config.DisableSuffixBox
    
    '[Other] MathAllowUI - Will allow People to use MessageBox/InputBox or other UI related commands in the .eval/.math commands ~Hdx 09-25-07
    SCRestricted.AllowUI = Config.MathAllowUI
    BotVars.NoRTBAutomaticCopy = Config.DisableRTBAutoCopy
    
    BotVars.UseGreet = Config.GreetMessage
    BotVars.GreetMsg = Config.GreetMessageText
    BotVars.WhisperGreet = Config.WhisperGreet
    
    BotVars.ChatDelay = Config.ChatDelay
    
    s = Config.GetFilePath("Logs")
    If (Not (s = vbNullString)) Then
        g_Logger.LogPath = s
    End If
    
    ' xor: if showwhisperbox XOR whisperboxopen then toggle it
    If (Config.ShowWhisperBox Xor (StrComp(cmdShowHide.Caption, CAP_HIDE, vbBinaryCompare) = 0)) Then
        Call cmdShowHide_Click
    End If
    
    Call Form_Resize
    
    If (g_Online) Then
        Dim found       As ListItem
        Dim outbuf      As String
        Dim pos         As Integer
        Dim ChannelUser As clsUserObj
        Dim FriendObj   As clsFriendObj
        Dim Member      As clsClanMemberObj

        SetTitle GetCurrentUsername & ", online in channel " & g_Channel.Name
        
        frmChat.UpdateTrayTooltip

        lvChannel.ListItems.Clear
        pos = 0
        For i = 1 To g_Channel.PriorityUsers.Count
            Set ChannelUser = g_Channel.PriorityUsers(i)
            If (ChannelUser.Queue.Count = 0) Then
                pos = pos + 1
                AddName ChannelUser
            End If
        Next i

        lvFriendList.ListItems.Clear
        If Config.FriendsListTab Then
            For i = 1 To g_Friends.Count
                Set FriendObj = g_Friends.Item(i)
                If FriendObj.IsOnline Or Config.ShowOfflineFriends Then
                    AddFriendItem FriendObj.DisplayName, FriendObj.Game, FriendObj.Status, FriendObj.LocationID, i - 1
                End If
                Set FriendObj = Nothing
            Next i

            ' re-sort
            lvFriendList.Sorted = True
        End If

        lvClanList.ListItems.Clear
        If g_Clan.InClan Then
            For i = 1 To g_Clan.Members.Count
                Set Member = g_Clan.Members.Item(i)
                AddClanMember Member.Name, Member.DisplayName, Member.Rank, Member.Status
                Set Member = Nothing
            Next i

            ' re-sort
            lvClanList.Sorted = True
        End If

        Call UpdateListviewTabs
    End If
    
    For i = LBound(ProxyConnInfo) To UBound(ProxyConnInfo)
        With ProxyConnInfo(i)
            .ServerType = i
            Select Case i
                Case stBNCS: .UseProxy = Config.UseProxy
                Case stBNLS: .UseProxy = Config.UseProxy And Config.ProxyBNLS
                Case stMCP:  .UseProxy = Config.UseProxy And Config.ProxyMCP
                Case Else:   .UseProxy = False
            End Select
            
            If .UseProxy Then
                ' set these values so that next connection attempt uses them--
                ' they may not be accurate for the current connection so
                ' use the values on the socket to get current IP/Port
                .ProxyIP = Config.ProxyIP
                .ProxyPort = Config.ProxyPort
                If CBool(StrComp(Config.ProxyType, PROXY_SETTING_SOCKS5, vbTextCompare) = 0) Then
                    .Version = 5
                Else
                    .Version = 4
                End If
                .Username = Config.ProxyUsername
                .Password = Config.ProxyPassword
                .RemoteResolveHost = Config.ProxyServerResolve
                
                ' do not set RemoteIP, RemotePort, RemoteHostName, Status, IsUsingProxy;
                ' those are set on proxy connect and shouldn't be touched by the config
            End If
        End With
    Next i

    Call ChatQueue_Initialize

    ' I reluctantly add the queue variables here.
    
    If (g_Online) Then
        Call g_Channel.CheckUsers
    Else
        Err.Clear
     
        '//Removed 10/29/09 - Hdx - I'll add in this feature later properly, does not work as is.
        'If (ReadCfg(OV, "LocalIP") <> vbNullString) Then
        '    If (Err.Number = 0) Then: sckBNet.bind , ReadCfg(OV, "LocalIP")
        '    If (Err.Number = 0) Then: sckBNLS.bind , ReadCfg(OV, "LocalIP")
        '    If (Err.Number = 0) Then: sckMCP.bind , ReadCfg(OV, "LocalIP")
        'End If
    End If
    
    ' disable the script system if override is set
    modScripting.SetScriptSystemDisabled Config.DisableScripting
    
    Set oCommandGenerator = Nothing
    
    Exit Sub

ERROR_HANDLER:
    If (Err.Number = 10049) Then
        AddChat g_Color.ErrorMessageText, "Error (#" & Err.Number & "): " & Err.Description & " in ReloadConfig()."
    End If
    
    Resume Next
End Sub

Private Sub ChangeRTBFont(rtb As RichTextBox, ByVal NewFont As String, ByVal NewSize As Integer)
    Dim tmpBuffer As String
    
    With rtb
        SetTextSelection rtb, 0, -1
        .SelFontSize = NewSize
        .SelFontName = NewFont
        tmpBuffer = .TextRTF
        .Text = vbNullString
        .Font.Name = NewFont
        .Font.Size = NewSize
        .TextRTF = tmpBuffer
        SetTextSelection rtb, -1, -1
    End With
End Sub

'returns OK to Proceed
Private Sub DisplayError(ByVal ErrorNumber As Integer, ByVal ErrorDescription As String, ByVal Source As enuServerTypes, _
        Optional ByVal IsProxyConnecting As Boolean = False, Optional ByVal ExistingConnection As Boolean = False)
    Dim sPrefix     As String
    Dim sServerType As String
    Dim sProtocol   As String

    Select Case (Source)
        Case stBNLS: sPrefix = "[BNLS] ":  sServerType = "BNLS"
        Case stBNCS: sPrefix = "[BNCS] ":  sServerType = "Battle.net"
        Case stMCP:  sPrefix = "[REALM] ": sServerType = "Diablo II Realm"
    End Select

    If (IsProxyConnecting) Then
        sPrefix = "[PROXY] " & sPrefix
        sServerType = "proxy"
        Source = stPROXY
    End If
    sProtocol = NamePacketType(Source)
    
    If LenB(ErrorDescription) = 0 Then
        ErrorDescription = "The " & sServerType & " server has closed the connection."
    End If

    If ErrorNumber = 0 Then
        AddChat g_Color.ErrorMessageText, sPrefix & "Error -- " & ErrorDescription
    Else
        AddChat g_Color.ErrorMessageText, sPrefix & "Error #" & ErrorNumber & " -- " & ErrorDescription
    End If

    If Not ExistingConnection Then
        AddChat g_Color.ErrorMessageText, sPrefix & "Unable to connect to the " & sServerType & " server."
    Else
        AddChat g_Color.ErrorMessageText, sPrefix & "Disconnected."
    End If

    Call RunInAll("Event_ConnectionError", sProtocol, ErrorNumber, ErrorDescription)
End Sub

Sub LoadOutFilters()
    Const o As String = "Outgoing"
    Const f As String = FILE_FILTERS
    
    Dim s   As String
    Dim i   As Integer
    
    ReDim gOutFilters(1 To 1)
    ReDim Catch(0)
    
    Catch(0) = vbNullString
    
    s = ReadINI(o, "Total", f)
    
    If (Not (StrictIsNumeric(s))) Then
        Exit Sub
    End If
    
    For i = 1 To Val(s)
        gOutFilters(i).ofFind = Replace(LCase(ReadINI(o, "Find" & i, f)), "¦", " ")
        gOutFilters(i).ofReplace = Replace(ReadINI(o, "Replace" & i, f), "¦", " ")
        
        If (i <> Val(s)) Then
            ReDim Preserve gOutFilters(1 To i + 1)
        End If
    Next i
    
    If (Dir$(GetFilePath(FILE_CATCH_PHRASES)) <> vbNullString) Then
        i = FreeFile
        
        Open GetFilePath(FILE_CATCH_PHRASES) For Input As #i
        
            If (LOF(i) < 2) Then
                Close #i
                
                Exit Sub
            End If
            
            Do While Not EOF(i)
                Line Input #i, s
                
                If ((s <> vbNullString) And (s <> " ")) Then
                    Catch(UBound(Catch)) = LCase$(s)
                    
                    ReDim Preserve Catch(0 To UBound(Catch) + 1)
                End If
            Loop
            
            'Note: Why did this happen?
            'If Catch(0) = vbNullString Then Catch(0) = "¯"
            
        Close #i
    End If
End Sub

Function OutFilterMsg(ByVal strOut As String) As String
    Dim i As Integer
    
    If (UBound(gOutFilters) > 0) Then
        For i = LBound(gOutFilters) To UBound(gOutFilters)
            strOut = Replace(strOut, gOutFilters(i).ofFind, _
                gOutFilters(i).ofReplace)
        Next i
    End If
    
    OutFilterMsg = strOut
End Function

Private Sub sckBNet_DataArrival(ByVal bytesTotal As Long)
    #If (COMPILE_DEBUG <> 1) Then
        On Error GoTo ERROR_HANDLER
    #End If

    Dim pBuff As clsDataBuffer

    If bytesTotal = 0 Then Exit Sub

    ReceiveBuffer(stBNCS).GetDataAndAppend sckBNet, bytesTotal

    If ProxyConnInfo(stBNCS).IsUsingProxy And ProxyConnInfo(stBNCS).Status <> psOnline Then
        Call modProxySupport.ProxyRecvPacket(sckBNet, ProxyConnInfo(stBNCS), ReceiveBuffer(stBNCS))
    Else
        g_ConnectionAlive = True
        If AutoReconnectActive Then
            AutoReconnectActive = False
            AutoReconnectTry = 0
        End If
        
        If tmrParseBNCS.Enabled = False Then
            tmrParseBNCS.Enabled = True
        End If
    End If

    Exit Sub

ERROR_HANDLER:
    AddChat g_Color.ErrorMessageText, _
        "Error (#" & Err.Number & "): " & Err.Description & " in sckBNet_DataArrival()."

    Exit Sub
End Sub

Sub LoadArray(ByVal Mode As Byte, ByRef tArray() As String)
    Dim iFileHandle     As Integer      ' Source file number
    Dim sFilePath       As String       ' Full path to the source file
    Dim sTemp           As String       ' Temporary string
    Dim iFilterCount    As Integer      ' Total number of filters saved
    Dim sFilterSection  As String       ' The section of filters to read (message vs users)
    Dim i               As Integer      ' Counter

    ' Determine where to read from.
    Select Case Mode
        Case LOAD_FILTERS, LOAD_BLOCKLIST
            sFilePath = GetFilePath(FILE_FILTERS)
            sFilterSection = IIf(Mode = LOAD_FILTERS, "TextFilters", "BlockList")
        Case LOAD_PHRASES
            sFilePath = GetFilePath(FILE_PHRASE_BANS)
    End Select
    
    If Dir(sFilePath) <> vbNullString Then
        ' Empty the turn array.
        ReDim tArray(0)
        
        Select Case Mode
            Case LOAD_FILTERS, LOAD_BLOCKLIST
                ' Get the total number of filters
                sTemp = ReadINI(sFilterSection, "Total", FILE_FILTERS)
                If ((LenB(sTemp) > 0) And (CInt(sTemp) > 0)) Then
                    iFilterCount = Int(sTemp)
                    
                    ' Read each filter into a row of the array.
                    For i = 1 To iFilterCount
                        sTemp = ReadINI(sFilterSection, "Filter" & i, FILE_FILTERS)
                        If LenB(sTemp) > 0 Then
                            tArray(UBound(tArray)) = sTemp
                            ReDim Preserve tArray(UBound(tArray) + 1)
                        End If
                    Next i
                End If
            Case Else
                ' Read each line of the file into a row in the array.
                Open sFilePath For Input As #iFileHandle
                Do
                    Line Input #iFileHandle, sTemp
                    If LenB(sTemp) > 0 Then
                        tArray(UBound(tArray)) = sTemp
                        ReDim Preserve tArray(UBound(tArray) + 1)
                    End If
                Loop While Not EOF(iFileHandle)
                Close #iFileHandle
        End Select
        
        ' Remove the last unused row.
        If UBound(tArray) > 0 Then
            ReDim Preserve tArray(UBound(tArray) - 1)
        End If
    End If
End Sub

Private Sub sckBNLS_Close()
    Dim Alive             As Boolean
    Dim IsProxyConnecting As Boolean

    If MDebug("all") Then
        AddChat COLOR_BLUE, "BNLS CLOSE"
    End If
    If (Not BNLSAuthorized) Then
        Alive = g_ConnectionAlive
        IsProxyConnecting = ProxyConnInfo(stBNLS).IsUsingProxy And ProxyConnInfo(stBNLS).Status <> psOnline

        If IsProxyConnecting Then
            ' proxy unexpectedly closed connection
            Call DoDisconnect(False)
            Call DisplayError(0, vbNullString, stBNCS, IsProxyConnecting, Alive)
            Call DoScheduleAutoReconnect(Alive)
        Else
            ' BNLS unexpectedly closed connection
            Call frmChat.HandleBnlsError(0, "You have been disconnected from the BNLS server. " & _
                    "You may be IPbanned from the server, it may be having issues, " & _
                    "or there is something blocking your connection.", True)
        End If
    End If
End Sub

Private Sub sckBNLS_Connect()
    If MDebug("all") Then
        AddChat COLOR_BLUE, "BNLS CONNECT"
    End If
    
    Call Event_BNLSConnected
    
    If (ProxyConnInfo(stBNLS).IsUsingProxy) Then
        modProxySupport.InitProxyConnection sckBNLS, ProxyConnInfo(stBNLS), BotVars.BNLSServer, 9367
    Else
        Call InitBNLSConnection
    End If
End Sub

Sub InitBNLSConnection()
    Call SetNagelStatus(sckBNLS.SocketHandle, False)
    
    modBNLS.SEND_BNLS_AUTHORIZE
End Sub


Private Sub sckBNLS_DataArrival(ByVal bytesTotal As Long)
    On Error GoTo ERROR_HANDLER

    Dim pBuff As clsDataBuffer
    
    If bytesTotal = 0 Then Exit Sub

    ReceiveBuffer(stBNLS).GetDataAndAppend sckBNLS, bytesTotal

    If ProxyConnInfo(stBNLS).IsUsingProxy And ProxyConnInfo(stBNLS).Status <> psOnline Then
        Call modProxySupport.ProxyRecvPacket(sckBNLS, ProxyConnInfo(stBNLS), ReceiveBuffer(stBNLS))
    Else
        Do While ReceiveBuffer(stBNLS).IsFullPacket(0)
            ' retrieve BNLS packet
            Set pBuff = ReceiveBuffer(stBNLS).TakePacket(0)
            ' parse
            Call modBNLS.BNLSRecvPacket(pBuff)
            ' clean up
            Set pBuff = Nothing
        Loop
    End If

    Exit Sub

ERROR_HANDLER:
    AddChat g_Color.ErrorMessageText, _
        "Error (#" & Err.Number & "): " & Err.Description & " in sckBNLS_DataArrival()."

    Exit Sub
End Sub

Private Sub sckBNLS_Error(ByVal Number As Integer, Description As String, ByVal sCode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
    Dim Alive             As Boolean
    Dim IsProxyConnecting As Boolean
    Alive = g_ConnectionAlive
    IsProxyConnecting = ProxyConnInfo(stBNLS).IsUsingProxy And ProxyConnInfo(stBNLS).Status <> psOnline

    If IsProxyConnecting Then
        ' proxy connection threw error
        Call DoDisconnect(False)
        Call DisplayError(Number, Description, stBNLS, IsProxyConnecting, Alive)
        Call DoScheduleAutoReconnect(Alive)
    Else
        ' BNLS connection threw error
        ' display and optionally go to server finder
        Call HandleBnlsError(Number, Description)
    End If
End Sub

'This function checks if the user selected when right-clicked is the same one when they click on the menu option. - FrOzeN
Private Function PopupMenuUserCheck() As Boolean
    If Not (lvChannel.SelectedItem Is Nothing) Then
        If mnuPopup.Tag <> lvChannel.SelectedItem.Text Then
            PopupMenuUserCheck = False
            Exit Function
        End If
    End If
    
    PopupMenuUserCheck = True
End Function

Private Function PopupMenuFLUserCheck() As Boolean
    If Not (lvFriendList.SelectedItem Is Nothing) Then
        If mnuPopFList.Tag <> lvFriendList.SelectedItem.Text Then
            PopupMenuFLUserCheck = False
            Exit Function
        End If
    End If
    
    PopupMenuFLUserCheck = True
End Function

Private Function PopupMenuCLUserCheck() As Boolean
    If Not (lvClanList.SelectedItem Is Nothing) Then
        If mnuPopClanList.Tag <> lvClanList.SelectedItem.Text Then
            PopupMenuCLUserCheck = False
            Exit Function
        End If
    End If
    
    PopupMenuCLUserCheck = True
End Function

Function GetSelectedUser() As String
    If (lvChannel.SelectedItem Is Nothing) Then
        GetSelectedUser = vbNullString
    
        Exit Function
    End If
    
    GetSelectedUser = lvChannel.SelectedItem.Tag
End Function

Function GetFriendsSelectedUser() As String
    If (lvFriendList.SelectedItem Is Nothing) Then
        GetFriendsSelectedUser = vbNullString
    
        Exit Function
    End If
    
    GetFriendsSelectedUser = CleanUsername(ReverseConvertUsernameGateway(lvFriendList.SelectedItem.Text))
End Function

Function MatchClosest(ByVal toMatch As String, Optional startIndex As Long = 1) As String
    Dim lstView     As ListView

    Dim i           As Integer
    Dim CurrentName As String
    Dim atChar      As Integer
    Dim Index       As Integer
    Dim Loops       As Integer

    i = InStr(1, toMatch, " ", vbBinaryCompare)
    
    If (i > 0) Then
        toMatch = Mid$(toMatch, i + 1)
    End If
    
    Select Case (ListviewTabs.Tab)
        Case 0:
            Set lstView = lvChannel
        Case 1:
            Set lstView = lvFriendList
        Case 2:
            Set lstView = lvClanList
    End Select
    
    With lstView.ListItems
        If (.Count > 0) Then
            Dim c As Integer
            
            If (startIndex > .Count) Then
                Index = 1
            Else
                Index = startIndex
            End If
        
            While (Loops < 2)
                For i = Index To .Count 'for each user
                    CurrentName = .Item(i).Text
                
                    If (Len(CurrentName) >= Len(toMatch)) Then
                        For c = 1 To Len(toMatch) 'for each letter in their name
                            If (StrComp(Mid$(toMatch, c, 1), Mid$(CurrentName, c, 1), _
                                vbTextCompare) <> 0) Then
                                
                                Exit For
                            End If
                        Next c
                        
                        If (c >= (Len(toMatch) + 1)) Then
                            MatchClosest = .Item(i).Text
                            
                            MatchIndex = i
                            
                            Exit Function
                        End If
                    End If
                Next i
                
                Index = 1
                
                Loops = (Loops + 1)
            Wend
            
            Loops = 0
        End If
    End With
    
    atChar = InStr(1, toMatch, Config.GatewayDelimiter, vbBinaryCompare)
    
    If (atChar <> 0) Then
        Dim tmp      As String
        Dim Gateways(5, 2) As String
        Dim OtherGateway As String
        
        ' populate list
        Gateways(0, 0) = "USWest"
        Gateways(0, 1) = "Lordaeron"
        Gateways(1, 0) = "USEast"
        Gateways(1, 1) = "Azeroth"
        Gateways(2, 0) = "Asia"
        Gateways(2, 1) = "Kalimdor"
        Gateways(3, 0) = "Europe"
        Gateways(3, 1) = "Northrend"
        Gateways(4, 0) = "Beta"
        Gateways(4, 1) = "Westfall"
        
        Dim CurrentGateway As Integer
        CurrentGateway = -1
        If (LenB(BotVars.Gateway) > 0) Then
            For i = 0 To UBound(Gateways, 1)
                If (StrComp(BotVars.Gateway, Gateways(i, 0)) = 0) Then
                    CurrentGateway = i
                    OtherGateway = Gateways(i, 1)
                    Exit For
                End If
                If (StrComp(BotVars.Gateway, Gateways(i, 1)) = 0) Then
                    CurrentGateway = i
                    OtherGateway = Gateways(i, 0)
                    Exit For
                End If
            Next i
            If (CurrentGateway = -1) Then ' BotVars.Gateway not known, @[tab]=@BotVars.Gateway
                OtherGateway = BotVars.Gateway
                CurrentGateway = 0
            End If
        Else ' BotVars.Gateway is nothing, @[tab]
            MatchClosest = vbNullString
            
            MatchIndex = 1
            
            Exit Function
        End If
        
    
        If (startIndex > UBound(Gateways, 2)) Then
            Index = 0
        Else
            Index = (startIndex - 1)
        End If
        
        If (Len(toMatch) >= (atChar + 1)) Then
            tmp = Mid$(toMatch, atChar + 1)

            While (Loops < 2)
                If (Len(OtherGateway) >= Len(tmp)) Then
                    If (StrComp(Left$(OtherGateway, Len(tmp)), tmp, _
                        vbTextCompare) = 0) Then
                        
                        Dim j As Integer
                    
                        MatchClosest = Left$(toMatch, atChar) & Gateways(CurrentGateway, i)
                        
                        MatchIndex = (i + 1)
                        
                        Exit Function
                    End If
                End If
                
                Index = 0
                
                Loops = (Loops + 1)
            Wend
        Else
            If (tmp = vbNullString) Then
                MatchClosest = Left$(toMatch, atChar) & OtherGateway
                    
                MatchIndex = (Index + 1)
                    
                Exit Function
            End If
        End If
    End If
    
    MatchClosest = vbNullString
    
    MatchIndex = 1
End Function

'this is a fucking mess. It reads:
'"This copy of StealthBot has been tampered with. Please get a new copy of StealthBot at http://www.stealthbot.net.
'Additionally, please report the website at which you downloaded StealthBot in an e-mail to abuse@stealthbot.net. Thanks!"

Function GetHexProtectionMessage() As String
    GetHexProtectionMessage = _
Chr(Asc("T")) & Chr(Asc("h")) & Chr(Asc("i")) & Chr(Asc("s")) & Chr(Asc(" ")) & Chr(Asc("c")) & _
Chr(Asc("o")) & Chr(Asc("p")) & Chr(Asc("y")) & Chr(Asc(" ")) & Chr(Asc("o")) & Chr(Asc("f")) & Chr(Asc(" ")) & Chr(Asc("S")) & Chr(Asc("t")) & Chr(Asc("e")) & Chr(Asc("a")) & Chr(Asc("l")) & Chr(Asc("t")) & Chr(Asc("h")) & Chr(Asc("B")) & Chr(Asc("o")) & Chr(Asc("t")) & Chr(Asc(" ")) & Chr(Asc("h")) & Chr(Asc("a")) & Chr(Asc("s")) & Chr(Asc(" ")) & Chr(Asc("b")) & Chr(Asc("e")) & Chr(Asc("e")) & Chr(Asc("n")) & Chr(Asc(" ")) & Chr(Asc("t")) & Chr(Asc("a")) & Chr(Asc("m")) & Chr(Asc("p")) & Chr(Asc("e")) & Chr(Asc("r")) & Chr(Asc("e")) & Chr(Asc("d")) & Chr(Asc(" ")) & Chr(Asc("w")) & Chr(Asc("i")) & Chr(Asc("t")) & Chr(Asc("h")) & Chr(Asc(".")) & Chr(Asc(" ")) & Chr(Asc("P")) & Chr(Asc("l")) & Chr(Asc("e")) & Chr(Asc("a")) & Chr(Asc("s")) & Chr(Asc("e")) & Chr(Asc(" ")) & Chr(Asc("g")) & Chr(Asc("e")) & Chr(Asc("t")) & Chr(Asc(" ")) & Chr(Asc("a")) & Chr(Asc(" ")) & Chr(Asc("n")) & Chr(Asc("e")) & Chr(Asc("w")) & _
 Chr(Asc(" ")) & Chr(Asc("c")) & Chr(Asc("o")) & Chr(Asc("p")) & Chr(Asc("y")) & Chr(Asc(" ")) & Chr(Asc("o")) & Chr(Asc("f")) & Chr(Asc(" ")) & Chr(Asc("S")) & Chr(Asc("t")) & Chr(Asc("e")) & Chr(Asc("a")) & Chr(Asc("l")) & Chr(Asc("t")) & Chr(Asc("h")) & Chr(Asc("B")) & Chr(Asc("o")) & Chr(Asc("t")) & Chr(Asc(" ")) & Chr(Asc("a")) & Chr(Asc("t")) & Chr(Asc(" ")) & Chr(Asc("h")) & Chr(Asc("t")) & Chr(Asc("t")) & Chr(Asc("p")) & Chr(Asc(":")) & Chr(Asc("/")) & Chr(Asc("/")) & Chr(Asc("w")) & Chr(Asc("w")) & Chr(Asc("w")) & Chr(Asc(".")) & Chr(Asc("s")) & Chr(Asc("t")) & Chr(Asc("e")) & Chr(Asc("a")) & Chr(Asc("l")) & Chr(Asc("t")) & Chr(Asc("h")) & Chr(Asc("b")) & Chr(Asc("o")) & Chr(Asc("t")) & Chr(Asc(".")) & Chr(Asc("n")) & Chr(Asc("e")) & Chr(Asc("t")) & Chr(Asc(".")) & Chr(Asc(" ")) & Chr(Asc("A")) & Chr(Asc("d")) & Chr(Asc("d")) & Chr(Asc("i")) & Chr(Asc("t")) & Chr(Asc("i")) & Chr(Asc("o")) & Chr(Asc("n")) & _
    Chr(Asc("a")) & Chr(Asc("l")) & Chr(Asc("l")) & Chr(Asc("y")) & Chr(Asc(",")) & Chr(Asc(" ")) & _
 Chr(Asc("p")) & Chr(Asc("l")) & Chr(Asc("e")) & Chr(Asc("a")) & Chr(Asc("s")) & Chr(Asc("e")) & Chr(Asc(" ")) & Chr(Asc("r")) & Chr(Asc("e")) & Chr(Asc("p")) & Chr(Asc("o")) & Chr(Asc("r")) & Chr(Asc("t")) & Chr(Asc(" ")) & Chr(Asc("t")) & Chr(Asc("h")) & Chr(Asc("e")) & Chr(Asc(" ")) & Chr(Asc("w")) & Chr(Asc("e")) & Chr(Asc("b")) & Chr(Asc("s")) & Chr(Asc("i")) & Chr(Asc("t")) & Chr(Asc("e")) & Chr(Asc(" ")) & Chr(Asc("a")) & Chr(Asc("t")) & Chr(Asc(" ")) & Chr(Asc("w")) & Chr(Asc("h")) & Chr(Asc("i")) & Chr(Asc("c")) & Chr(Asc("h")) & Chr(Asc(" ")) & Chr(Asc("y")) & Chr(Asc("o")) & Chr(Asc("u")) & Chr(Asc(" ")) & Chr(Asc("d")) & Chr(Asc("o")) & Chr(Asc("w")) & Chr(Asc("n")) & Chr(Asc("l")) & Chr(Asc("o")) & Chr(Asc("a")) & Chr(Asc("d")) & Chr(Asc("e")) & Chr(Asc("d")) & Chr(Asc(" ")) & Chr(Asc("S")) & Chr(Asc("t")) & Chr(Asc("e")) & Chr(Asc("a")) & Chr(Asc("l")) & Chr(Asc("t")) & Chr(Asc("h")) & Chr(Asc("B")) & _
 Chr(Asc("o")) & Chr(Asc("t")) & Chr(Asc(" ")) & Chr(Asc("i")) & Chr(Asc("n")) & Chr(Asc(" ")) & _
 Chr(Asc("a")) & Chr(Asc("n")) & Chr(Asc(" ")) & Chr(Asc("e")) & Chr(Asc("-")) & Chr(Asc("m")) & Chr(Asc("a")) & Chr(Asc("i")) & Chr(Asc("l")) & Chr(Asc(" ")) & Chr(Asc("t")) & Chr(Asc("o")) & Chr(Asc(" ")) & Chr(Asc("a")) & Chr(Asc("b")) & Chr(Asc("u")) & Chr(Asc("s")) & Chr(Asc("e")) & Chr(Asc("@")) & Chr(Asc("s")) & Chr(Asc("t")) & Chr(Asc("e")) & Chr(Asc("a")) & Chr(Asc("l")) & Chr(Asc("t")) & Chr(Asc("h")) & Chr(Asc("b")) & Chr(Asc("o")) & Chr(Asc("t")) & Chr(Asc(".")) & Chr(Asc("n")) & Chr(Asc("e")) & Chr(Asc("t")) & Chr(Asc(".")) & Chr(Asc(" ")) & Chr(Asc("T")) & Chr(Asc("h")) & Chr(Asc("a")) & Chr(Asc("n")) & Chr(Asc("k")) & Chr(Asc("s")) & Chr(Asc("!"))
End Function

Sub DeconstructSettings()
    If Not (SettingsForm Is Nothing) Then
        Set SettingsForm = Nothing
    End If
End Sub

'SHOW/HIDE STUFF
Public Sub cmdShowHide_Click()
    rtbWhispers_Visible = (Not rtbWhispers_Visible)
    'If rtbWhispers_Visible Then rtbWhispers.Visible = True

    If Me.WindowState = vbNormal And ShowHideChangeHeight Then
        SkipResize = True
        If rtbWhispers_Visible Then
            Me.Height = Me.Height + rtbWhispers.Height ' - Screen.TwipsPerPixelY
        Else
            Me.Height = Me.Height - rtbWhispers.Height ' + Screen.TwipsPerPixelY
        End If
        SkipResize = False
    End If

    'Debug.Print ShowHideChangeHeight
    Call Form_Resize
    'If Not rtbWhispers_Visible Then rtbWhispers.Visible = False

    Config.ShowWhisperBox = rtbWhispers_Visible
    Call Config.Save
End Sub

'// to be called on every successful login
Public Sub InitListviewTabs()
    ListviewTabs.TabEnabled(LVW_BUTTON_FRIENDS) = Config.FriendsListTab
    ListviewTabs.TabEnabled(LVW_BUTTON_CLAN) = g_Clan.InClan
End Sub

'// to be called at disconnect time
Public Sub DisableListviewTabs()
    ListviewTabs.TabEnabled(LVW_BUTTON_FRIENDS) = False
    ListviewTabs.TabEnabled(LVW_BUTTON_CLAN) = False
End Sub

Public Function GetSmallIcon(ByVal sProduct As String, ByVal Flags As Long, IconCode As Integer) As Long
    Dim i As Long
    
    If (BotVars.ShowFlagsIcons = False) Then
        i = IconCode ' disable any of the below flags-based icons
    ElseIf (Flags And USER_BLIZZREP) = USER_BLIZZREP Then 'Flags = 1: blizzard rep
        i = ICBLIZZ
    ElseIf (Flags And USER_SYSOP) = USER_SYSOP Then 'Flags = 8: battle.net sysop
        i = ICSYSOP
    ElseIf (Flags And USER_CHANNELOP) = USER_CHANNELOP Then 'op
        i = ICGAVEL
    ElseIf (Flags And USER_GUEST) = USER_GUEST Then 'guest
        i = ICSPECS
    ElseIf (Flags And USER_SPEAKER) = USER_SPEAKER Then 'speaker
        i = ICSPEAKER
    ElseIf (Flags And USER_GFPLAYER) = USER_GFPLAYER Then 'GF player
        i = IC_GF_PLAYER
    ElseIf (Flags And USER_GFOFFICIAL) = USER_GFOFFICIAL Then 'GF official
        i = IC_GF_OFFICIAL
    ElseIf (Flags And USER_SQUELCHED) = USER_SQUELCHED Then 'squelched
        i = ICSQUELCH
    Else
        i = IconCode
    'Else
    '    Select Case (UCase$(sProduct))
    '        Case Is =  PRODUCT_STAR: I = ICSTAR
    '        Case Is = PRODUCT_SEXP: I = ICSEXP
    '        Case Is = PRODUCT_D2DV: I = ICD2DV
    '        Case Is = PRODUCT_D2XP: I = ICD2XP
    '        Case Is = PRODUCT_W2BN: I = ICW2BN
    '        Case Is = PRODUCT_CHAT: I = ICCHAT
    '        Case Is = PRODUCT_DRTL: I = ICDIABLO
    '        Case Is = PRODUCT_DSHR: I = ICDIABLOSW
    '        Case Is = PRODUCT_JSTR: I = ICJSTR
    '        Case Is = PRODUCT_SSHR: I = ICSCSW
    '        Case Is = PRODUCT_WAR3: I = ICWAR3
    '        Case Is = PRODUCT_W3XP: I = ICWAR3X
    '
    '        '*** Special icons for WCG added 6/24/07 ***
    '        Case Is = "WCRF": I = IC_WCRF
    '        Case Is = "WCPL": I = IC_WCPL
    '        Case Is = "WCGO": I = IC_WCGO
    '        Case Is = "WCSI": I = IC_WCSI
    '        Case Is = "WCBR": I = IC_WCBR
    '        Case Is = "WCPG": I = IC_WCPG
    '
    '        '*** Special icons for PGTour ***
    '        Case Is = "__A+": I = IC_PGT_A + 1
    '        Case Is = "___A": I = IC_PGT_A
    '        Case Is = "__A-": I = IC_PGT_A - 1
    '        Case Is = "__B+": I = IC_PGT_B + 1
    '        Case Is = "___B": I = IC_PGT_B
    '        Case Is = "__B-": I = IC_PGT_B - 1
    '        Case Is = "__C+": I = IC_PGT_C + 1
    '        Case Is = "___C": I = IC_PGT_C
    '        Case Is = "__C-": I = IC_PGT_C - 1
    '        Case Is = "__D+": I = IC_PGT_D + 1
    '        Case Is = "___D": I = IC_PGT_D
    '        Case Is = "__D-": I = IC_PGT_D - 1
    '
    '        Case Else: I = ICUNKNOWN
    '    End Select
    End If
    
    GetSmallIcon = i
End Function

Private Function GetLagIcon(ByVal Ping As Long, ByVal Flags As Long) As Long
    Select Case (Ping)
        Case 0
            GetLagIcon = 0
        Case 1 To 150
            GetLagIcon = LAG_1
        Case 151 To 250
            GetLagIcon = LAG_2
        Case 251 To 350
            GetLagIcon = LAG_3
        Case 351 To 450
            GetLagIcon = LAG_4
        Case 451 To 550
            GetLagIcon = LAG_5
        Case Is >= 551 Or -1
            GetLagIcon = LAG_6
        Case Else
            GetLagIcon = ICUNKNOWN
    End Select
    
    If ((Flags And USER_NOUDP) = USER_NOUDP) Then
        GetLagIcon = LAG_PLUG
    End If
End Function

Private Function GetNameColor(ByVal Flags As Long, ByVal IdleTime As Long, ByVal IsSelf As Boolean) As Long
    '/* Self */
    If (IsSelf) Then
        'Debug.Print "Assigned color IsSelf"
        GetNameColor = g_Color.ChannelListSelf
        
        Exit Function
    End If
    
    '/* Squelched */
    If ((Flags And USER_SQUELCHED&) = USER_SQUELCHED&) Then
        'Debug.Print "Assigned color SQUELCH"
        GetNameColor = g_Color.ChannelListSquelched
        
        Exit Function
    End If
    
    '/* Blizzard */
    If (((Flags And USER_BLIZZREP&) = USER_BLIZZREP&) Or _
        ((Flags And USER_SYSOP&) = USER_SYSOP&)) Then
       
        GetNameColor = COLOR_BLUE
        
        Exit Function
    End If
    
    '/* Operator */
    If ((Flags And USER_CHANNELOP) = USER_CHANNELOP) Then
        'Debug.Print "Assigned color OP"
        GetNameColor = g_Color.ChannelListOps
        Exit Function
    End If
    
    '/* Idle */
    If (IdleTime > BotVars.SecondsToIdle) Then
        'Debug.Print "Assigned color IDLE"
        GetNameColor = g_Color.ChannelListIdle
        Exit Function
    End If
    
    '/* Default */
    'Debug.Print "Assigned color NORMAL"
    GetNameColor = g_Color.ChannelListText
End Function

Public Function GetFlagDescription(ByVal Flags As Long, ByVal ShowAll As Boolean) As String
    Dim sOut As String
    Dim sSep As String
    
    sOut = vbNullString
    sSep = vbNullString
    
    If (Flags And USER_SQUELCHED) = USER_SQUELCHED And ShowAll Then
        sOut = sOut & sSep & "squelched"
        sSep = ", "
    End If
    
    If (Flags And USER_CHANNELOP) = USER_CHANNELOP Then
        sOut = sOut & sSep & "channel operator"
        sSep = ", "
    End If
    
    If (Flags And USER_BLIZZREP) = USER_BLIZZREP Then
        sOut = sOut & sSep & "Blizzard representative"
        sSep = ", "
    End If
    
    If (Flags And USER_SYSOP) = USER_SYSOP Then
        sOut = sOut & sSep & "Battle.net system operator"
        sSep = ", "
    End If
    
    If (Flags And USER_NOUDP) = USER_NOUDP And ShowAll Then
        sOut = sOut & sSep & "UDP plug"
        sSep = ", "
    End If
    
    If (Flags And USER_BEEPENABLED) = USER_BEEPENABLED And ShowAll Then
        sOut = sOut & sSep & "beep enabled"
        sSep = ", "
    End If
    
    If (Flags And USER_GUEST) = USER_GUEST Then
        sOut = sOut & sSep & "guest"
        sSep = ", "
    End If
    
    If (Flags And USER_SPEAKER) = USER_SPEAKER Then
        sOut = sOut & sSep & "speaker"
        sSep = ", "
    End If
    
    If (Flags And USER_GFOFFICIAL) = USER_GFOFFICIAL Then
        sOut = sOut & sSep & "GF official"
        sSep = ", "
    End If
    
    If (Flags And USER_GFPLAYER) = USER_GFPLAYER Then
        sOut = sOut & sSep & "GF player"
        sSep = ", "
    End If
    
    If (LenB(sOut) = 0) And ShowAll Then
        If (Flags = &H0&) Then
            sOut = "normal"
        Else
            sOut = "unknown"
        End If
    End If
    
    GetFlagDescription = sOut
    
    If ShowAll Then
        GetFlagDescription = GetFlagDescription & " [0x" & Right$("00000000" & Hex(Flags), 8) & "]"
    End If
End Function

Public Function IsPriorityUser(ByVal Flags As Long) As Boolean
    IsPriorityUser = False
    IsPriorityUser = IsPriorityUser Or ((Flags And USER_CHANNELOP) = USER_CHANNELOP)
    IsPriorityUser = IsPriorityUser Or ((Flags And USER_BLIZZREP) = USER_BLIZZREP)
    IsPriorityUser = IsPriorityUser Or ((Flags And USER_SYSOP) = USER_SYSOP)
    IsPriorityUser = IsPriorityUser Or ((Flags And USER_SPEAKER) = USER_SPEAKER)
End Function

Public Sub AddName(ByVal UserObj As clsUserObj, Optional ByVal OldPosition As Integer = 0)
    #If (COMPILE_DEBUG <> 1) Then
        On Error GoTo ERROR_HANDLER
    #End If

    Dim i           As Integer
    Dim LagIcon     As Integer
    Dim Weight      As Long
    Dim Position    As Integer
    Dim IsSelf      As Boolean
    Dim ListItem    As ListItem
    Dim OtherUser   As clsUserObj
    Dim OtherWeight As Long
    
    If (StrComp(UserObj.DisplayName, GetCurrentUsername, vbTextCompare) = 0) Then
        MyFlags = UserObj.Flags
        
        SharedScriptSupport.BotFlags = MyFlags
        
        IsSelf = True
    End If
    
    ' Only add items if we are under the limit.
    If ((Config.MaxUserlistSize > -1) And (lvChannel.ListItems.Count >= Config.MaxUserlistSize)) Then Exit Sub
    
    'If (GetChannelItemIndex(Username) > 0) Then
    '    Exit Sub
    'End If
    
    Weight = UserObj.UserlistWeight
    If IsPriorityUser(UserObj.Flags) Then Weight = Weight * -1
    
    Position = 1
    For i = 1 To g_Channel.PriorityUsers.Count
        Set OtherUser = g_Channel.PriorityUsers(i)
        OtherWeight = OtherUser.UserlistWeight
        If OtherUser.IsOperator() Then OtherWeight = OtherWeight * -1
        If OtherWeight < Weight Then
            If OtherUser.Queue.Count = 0 Then
                Position = Position + 1
            End If
        Else
            Exit For
        End If
        Set OtherUser = Nothing
    Next i
    If Position > lvChannel.ListItems.Count + 1 Then Position = lvChannel.ListItems.Count + 1
    
    'Debug.Print UserObj.Name & " WEIGHT: " & Weight & " POSITION: " & Position
    
    i = GetSmallIcon(UserObj.Game, UserObj.Flags, UserObj.Stats.IconCode)
    
    'Special Cases
    'If i = ICSQUELCH Then
    '    'Debug.Print "Returned a SQUELCH icon"
    '    If ForcePosition > 0 Then isPriority = ForcePosition
    '
    'If (IsPriorityUser(Flags)) Then
    '    If (ForcePosition = 0) Then
    '        IsPriority = 1
    '    Else
    '        IsPriority = ForcePosition
    '    End If
    'Else
    '    If (ForcePosition > 0) Then
    '        IsPriority = ForcePosition
    '    End If
    'End If
    
    If (i > frmChat.imlIcons.ListImages.Count) Then
        i = ICUNKNOWN
    End If
        
    With frmChat.lvChannel
        .Enabled = False
        
        If OldPosition > 0 Then
            If OldPosition = Position Then
                Set ListItem = .ListItems(OldPosition)
                ListItem.Text = UserObj.DisplayName
                ListItem.SmallIcon = i
            Else
                .ListItems.Remove OldPosition
                Set ListItem = .ListItems.Add(Position, , UserObj.DisplayName, , i)
            End If
        Else
            Set ListItem = .ListItems.Add(Position, , UserObj.DisplayName, , i)
        End If
        
        ' store account name here so popup menus work
        ListItem.Tag = UserObj.Name
        
        ListItem.ListSubItems.Add , , UserObj.Clan
        
        If (.ColumnHeaders(3).Width = 0) Then
            LagIcon = 0
        Else
            LagIcon = GetLagIcon(UserObj.Ping, UserObj.Flags)
        End If
        ListItem.ListSubItems.Add , , , LagIcon
        
        If (Not BotVars.NoColoring) Then
            ListItem.ForeColor = GetNameColor(UserObj.Flags, UserObj.TimeSinceTalk, IsSelf)
        End If
        
        .Enabled = True
        
        '.Refresh
    End With
    
    If IsSelf Then
        Call frmChat.UpdateListviewTabs
    End If

    Exit Sub
ERROR_HANDLER:
    AddChat g_Color.ErrorMessageText, StringFormat("Error (#{0}): {1} in frmChat.AddName", Err.Number, Err.Description)
End Sub

Private Sub AddFriendItem(ByVal Name As String, ByVal Game As String, _
        ByVal Status As Byte, ByVal LocationID As Byte, ByVal EntryNumber As Integer)
    #If (COMPILE_DEBUG <> 1) Then
        On Error GoTo ERROR_HANDLER
    #End If
    Dim ListItem As ListItem

    Set ListItem = lvFriendList.ListItems.Add(lvFriendList.ListItems.Count + 1, , Name)
    ListItem.ListSubItems.Add , , , ICUNKNOWN
    ListItem.ListSubItems.Add , , vbNullString
    SetFriendItem ListItem, EntryNumber, True, Game, Status, LocationID
    Set ListItem = Nothing

    Exit Sub
ERROR_HANDLER:
    AddChat g_Color.ErrorMessageText, StringFormat("Error: #{0}: {1} in frmChat.AddFriendItem", Err.Number, Err.Description)
End Sub

Private Sub SetFriendItem(ByVal ListItem As ListItem, ByVal EntryNumber As Integer, _
        Optional ByVal SettingFields As Boolean = False, Optional ByVal Game As String, _
        Optional ByVal Status As Byte, Optional ByVal LocationID As Byte)
    #If (COMPILE_DEBUG <> 1) Then
        On Error GoTo ERROR_HANDLER
    #End If
    Dim OnlineIcon As Integer
    Dim GameIcon   As Integer

    If SettingFields Then
        Select Case Game
            Case PRODUCT_STAR: GameIcon = ICSTAR
            Case PRODUCT_SEXP: GameIcon = ICSEXP
            Case PRODUCT_D2DV: GameIcon = ICD2DV
            Case PRODUCT_D2XP: GameIcon = ICD2XP
            Case PRODUCT_W2BN: GameIcon = ICW2BN
            Case PRODUCT_WAR3: GameIcon = ICWAR3
            Case PRODUCT_W3XP: GameIcon = ICWAR3X
            Case PRODUCT_CHAT: GameIcon = ICCHAT
            Case PRODUCT_DRTL: GameIcon = ICDIABLO
            Case PRODUCT_DSHR: GameIcon = ICDIABLOSW
            Case PRODUCT_JSTR: GameIcon = ICJSTR
            Case PRODUCT_SSHR: GameIcon = ICSCSW
            Case Else:         GameIcon = ICUNKNOWN
        End Select

        If LocationID = FRL_PRIVATEGAME_MUTUAL Then LocationID = FRL_PRIVATEGAME
        If LocationID > FRL_PRIVATEGAME_MUTUAL Or LocationID < FRL_OFFLINE Then LocationID = FRL_NOTINCHAT
        If (Status And FRS_MUTUAL) = FRS_MUTUAL Then
            OnlineIcon = IC_FRIEND_MUTUAL_START + LocationID
        Else
            OnlineIcon = IC_FRIEND_START + LocationID
        End If

        If (Not BotVars.NoColoring) Then
            If (Status And FRS_AWAY) = FRS_AWAY Then
                ListItem.ForeColor = g_Color.ChannelListOps
            ElseIf (Status And FRS_DND) = FRS_DND Then
                ListItem.ForeColor = g_Color.ChannelListSquelched
            ElseIf LocationID <> FRL_OFFLINE Then
                ListItem.ForeColor = g_Color.ChannelListText
            Else
                ListItem.ForeColor = g_Color.ChannelListIdle
            End If
        End If

        ListItem.SmallIcon = GameIcon
        ListItem.ListSubItems.Item(1).ReportIcon = OnlineIcon
    End If

    ListItem.Tag = CInt(EntryNumber)
    ListItem.ListSubItems.Item(2).Text = CStr(1000 + EntryNumber)

    Set ListItem = Nothing

    Exit Sub
ERROR_HANDLER:
    AddChat g_Color.ErrorMessageText, StringFormat("Error: #{0}: {1} in frmChat.SetFriendItem", Err.Number, Err.Description)
End Sub

Private Function GetFriendItem(ByVal EntryNumber As Integer) As ListItem
    Dim i As Integer

    Set GetFriendItem = Nothing

    For i = 1 To lvFriendList.ListItems.Count
        If (CInt(lvFriendList.ListItems.Item(i).Tag) = EntryNumber) Then
            Set GetFriendItem = lvFriendList.ListItems.Item(i)
            Exit Function
        End If
    Next i
End Function

Private Sub AddClanMember(ByVal Name As String, ByVal DisplayName As String, ByVal Rank As Integer, ByVal Status As Integer)
    #If (COMPILE_DEBUG <> 1) Then
        On Error GoTo ERROR_HANDLER
    #End If
    Dim ListItem As ListItem

    Set ListItem = lvClanList.ListItems.Add(lvClanList.ListItems.Count + 1, , DisplayName)
    ListItem.ListSubItems.Add , , , IC_CLAN_UNKNOWN
    ListItem.ListSubItems.Add , , vbNullString
    ListItem.Tag = CStr(Name)
    SetClanMember ListItem, Name, DisplayName, Rank, Status
    Set ListItem = Nothing

    Exit Sub
ERROR_HANDLER:
    AddChat g_Color.ErrorMessageText, StringFormat("Error: #{0}: {1} in frmChat.AddClanMember", Err.Number, Err.Description)
End Sub

Private Sub SetClanMember(ByVal ListItem As ListItem, ByVal Name As String, ByVal DisplayName As String, ByVal Rank As Integer, ByVal Status As Integer)
    #If (COMPILE_DEBUG <> 1) Then
        On Error GoTo ERROR_HANDLER
    #End If
    Dim RankIcon   As Integer
    Dim OnlineIcon As Integer
    RankIcon = Rank

    If (RankIcon = clrankRecruit) Then RankIcon = IC_CLAN_PEON ' peon probation rank -> normal peon icon
    If (RankIcon < clrankRecruit Or RankIcon > clrankChieftain) Then RankIcon = IC_CLAN_UNKNOWN '// handle bad ranks

    If Status <> 0 Then
        OnlineIcon = IC_CLAN_STATUS_ONLINE
    Else
        OnlineIcon = IC_CLAN_STATUS_OFFLINE
    End If

    ListItem.Text = DisplayName
    ListItem.SmallIcon = RankIcon
    ListItem.ListSubItems.Item(1).ReportIcon = OnlineIcon
    ListItem.ListSubItems.Item(2).Text = CStr(1000 * RankIcon + ListItem.Index)

    If (Not BotVars.NoColoring) Then
        If (StrComp(BotVars.Username, Name, vbTextCompare) = 0) Then
            ListItem.ForeColor = g_Color.ChannelListSelf
        ElseIf Status <> 0 Then
            ListItem.ForeColor = g_Color.ChannelListText
        Else
            ListItem.ForeColor = g_Color.ChannelListIdle
        End If
    End If

    Exit Sub
ERROR_HANDLER:
    AddChat g_Color.ErrorMessageText, StringFormat("Error: #{0}: {1} in frmChat.SetClanMember", Err.Number, Err.Description)
End Sub

Private Function GetClanSelectedUser() As String
    With lvClanList
        If Not (.SelectedItem Is Nothing) Then
            If .SelectedItem.Index < 1 Then
                GetClanSelectedUser = vbNullString: Exit Function
            Else
                GetClanSelectedUser = CleanUsername(ReverseConvertUsernameGateway(.SelectedItem.Text))
            End If
        End If
    End With
End Function

Private Sub lvClanList_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
    Dim aInx         As Integer
    Dim bIsOn        As Boolean
    Dim MyRank       As Long
    Dim TheirRank    As Long
    Dim CanMoveUp    As Boolean
    Dim CanMoveDown  As Boolean
    Dim CanRemove    As Boolean
    Dim CanMakeChief As Boolean
    Dim CanDisband   As Boolean
    Dim IsSelf       As Boolean
    Dim CanLeave     As Boolean
    Dim IsPubGateway As Boolean
    Dim Gateway      As String
    
    If (lvClanList.SelectedItem Is Nothing) Then
        Exit Sub
    End If

    If Button = vbRightButton Then
        If Not (lvClanList.SelectedItem Is Nothing) Then
            aInx = lvClanList.SelectedItem.Index
            
            If aInx > 0 Then
                MyRank = g_Clan.Self.Rank
                With g_Clan.GetUser(GetClanSelectedUser)
                    TheirRank = .Rank
                    IsSelf = StrComp(g_Clan.Self.Name, .Name, vbBinaryCompare) = 0

                    CanMoveUp = Not IsSelf And (MyRank > (TheirRank + 1)) And (TheirRank > 0)
                    CanMoveDown = Not IsSelf And (MyRank > TheirRank) And (TheirRank > 1)
                    CanRemove = Not IsSelf And (CanMoveUp Or CanMoveDown)
                    CanMakeChief = Not IsSelf And (MyRank = 4) And (TheirRank > 1)
                    CanLeave = IsSelf And (MyRank > 0 And MyRank < 4)
                    CanDisband = IsSelf And (MyRank = 4)

                    bIsOn = .IsOnline

                    Gateway = GetUserNamespace(.Name)
                    Select Case Gateway
                        Case "Azeroth", "Lordaeron", "Northrend", "Kalimdor"
                            IsPubGateway = True
                    End Select

                    mnuPopClanWhisper.Enabled = bIsOn
                    
                    mnuPopClanPromote.Enabled = CanMoveUp
                    mnuPopClanDemote.Enabled = CanMoveDown
                    mnuPopClanRemove.Enabled = CanRemove
                    mnuPopClanLeave.Enabled = CanLeave
                    mnuPopClanDisband.Enabled = CanDisband
                    mnuPopClanMakeChief.Enabled = CanMakeChief

                    mnuPopClanPromote.Visible = Not IsSelf
                    mnuPopClanDemote.Visible = Not IsSelf
                    mnuPopClanRemove.Visible = Not IsSelf
                    mnuPopClanLeave.Visible = IsSelf And (MyRank <> 4)
                    mnuPopClanDisband.Visible = IsSelf And (MyRank = 4)
                    mnuPopClanMakeChief.Visible = Not IsSelf And (MyRank = 4)

                    mnuPopClanWebProfile.Enabled = IsPubGateway
                End With
            End If
        End If
        
        mnuPopClanList.Tag = lvClanList.SelectedItem.Text 'Record which user is selected at time of right-clicking. - FrOzeN
        
        PopupMenu mnuPopClanList
    End If
End Sub

Public Sub DoConnect()
    If ((sckBNLS.State <> sckClosed) Or (sckBNet.State <> sckClosed) Or (AutoReconnectActive)) Then
        Call DoDisconnect
    End If

    'Reset the BNLS auto-locator list
    BNLSFinderGotList = False

    Call Connect
End Sub

Public Sub DoDisconnect(Optional ByVal ClientInitiated As Boolean = True)
    On Error GoTo ERROR_HANDLER

    Dim BNCSDisconnected     As Boolean
    Dim AnythingToDisconnect As Boolean

    ' clean up connections
    AnythingToDisconnect = False

    If ClientInitiated Then
        If AutoReconnectActive Then AnythingToDisconnect = True
        AutoReconnectActive = False
        AutoReconnectTry = 0
        AutoReconnectTicks = 0
        AutoReconnectIn = 0
    End If

    If (frmChat.sckBNLS.State <> sckClosed) Then
        AnythingToDisconnect = True
        frmChat.sckBNLS.Close
    End If
    If (frmChat.sckBNet.State <> sckClosed) Then
        AnythingToDisconnect = True
        BNCSDisconnected = True
        frmChat.sckBNet.Close
    End If
    If (frmChat.sckMCP.State <> sckClosed) Then
        AnythingToDisconnect = True
        frmChat.sckMCP.Close
    End If

    ProxyConnInfo(stBNLS).Status = psNotConnected
    ProxyConnInfo(stBNCS).Status = psNotConnected
    ProxyConnInfo(stMCP).Status = psNotConnected

    ReceiveBuffer(stBNLS).Clear
    ReceiveBuffer(stBNCS).Clear
    ReceiveBuffer(stMCP).Clear

    ' close any pending Inet
    If Inet.StillExecuting Then
        AnythingToDisconnect = True
        Inet.Tag = SB_INET_UNSET
        Inet.Cancel
    End If
    
    ' reset BNLS finder
    BNLSFinderGotList = False
    BNLSFinderIndex = 0
    BNLSAuthorized = False

    ' clean up resources
    tmrAccountLock.Enabled = False
    tmrIdleTimer.Enabled = False

    Call g_Queue.Clear

    Set g_Channel = New clsChannelObj
    Set g_Clan = New clsClanObj
    Set g_Friends = New Collection

    Set BotVars.PublicChannels = Nothing
    BotVars.LastChannel = vbNullString

    ReDim ServerRequests(0)

    g_Connected = False
    g_ConnectionAlive = False
    g_Online = False
    ConnectionTickCount = 0@

    ds.EnteredChatFirstTime = False
    ds.ClientToken = 0
    ds.AccountEntry = False
    BotVars.Gateway = vbNullString
    CurrentUsername = vbNullString

    ' reset UI
    DisableListviewTabs
    Call ClearChannel
    lvClanList.ListItems.Clear
    lvFriendList.ListItems.Clear
    ListviewTabs.Tab = 0

    mnuProfile.Enabled = False
    mnuClanCreate.Visible = False
    mnuRealmSwitch.Visible = False

    PrepareHomeChannelMenu
    PrepareQuickChannelMenu
    PreparePublicChannelMenu

    ' clean up account manager
    If frmAccountManager.Visible Then
        frmAccountManager.LeftAccountEntryMode
    End If

    ' clean up realms
    If Not ds.MCPHandler Is Nothing Then
        If ds.MCPHandler.FormActive Then
            frmRealm.UnloadAfterBNCSClose
        End If

        Set ds.MCPHandler = Nothing
    End If

    ' unload clan invitation popup
    Unload frmClanInvite

    ' clean up email reg
    Unload frmEMailReg

    SetTitle "Disconnected"
    UpdateTrayTooltip

    ' reset reconnect timer
    If ReconnectTimerID > 0 Then
        KillTimer 0, ReconnectTimerID
        ReconnectTimerID = 0
    End If

    If SCReloadTimerID > 0 Then
        KillTimer 0, SCReloadTimerID
        SCReloadTimerID = 0
    End If

    If (ClientInitiated And AnythingToDisconnect And Not ShuttingDown) Then
        ' display message
        frmChat.AddChat g_Color.ErrorMessageText, "All connections closed."

        ' reset focus to send box
        If ((Me.WindowState <> vbMinimized)) Then
            'This SetFocus() call causes an error if any script have InputBoxes open.
            'This is the best fix I could come up with. :( -Pyro
            On Error Resume Next
            Call cboSend.SetFocus
            On Error GoTo ERROR_HANDLER
        End If
    End If
    
    ' tell scripts
    On Error Resume Next
    If BNCSDisconnected Then
        RunInAll "Event_LoggedOff"
        RunInAll "Event_ServerError", "All connections closed."
    End If

    Exit Sub

ERROR_HANDLER:
    AddChat g_Color.ErrorMessageText, "Error (#" & Err.Number & "): " & Err.Description & " in DoDisconnect()."

    Exit Sub

End Sub

Public Sub DoScheduleAutoReconnect(ByVal JustLostConnection As Boolean, Optional ByVal MinimumWait As Long = 0)
    If Not JustLostConnection And AutoReconnectTry = 0 Then
        ' we can't wait the 0-length wait unless we just lost connection to get here
        AutoReconnectTry = 1
    End If

    Select Case Config.ReconnectType:
        Case 0 ' disabled
            Exit Sub
        Case 1 ' always wait DELAY (first ATTEMPT = 0)
            AutoReconnectIn = Config.ReconnectDelay
            If AutoReconnectTry = 0 Then AutoReconnectIn = 0
            If AutoReconnectIn < MinimumWait Then AutoReconnectIn = MinimumWait
        Case 2 ' always wait DELAY * ATTEMPT (first ATTEMPT = 0)
            AutoReconnectIn = (Config.ReconnectDelay * AutoReconnectTry)
            If AutoReconnectIn < MinimumWait Then
                AutoReconnectTry = (MinimumWait \ Config.ReconnectDelay)
                AutoReconnectIn = (Config.ReconnectDelay * AutoReconnectTry)
            End If
            If AutoReconnectIn > Config.ReconnectDelayMax Then
                AutoReconnectIn = Config.ReconnectDelayMax
                If AutoReconnectIn < MinimumWait Then AutoReconnectIn = MinimumWait
            End If
    End Select
    If AutoReconnectIn < 1 Then
        AutoReconnectIn = 1
    End If

    AutoReconnectActive = True
    AutoReconnectTry = AutoReconnectTry + 1
    AutoReconnectTicks = 0

    If (ReconnectTimerID) Then
        Call KillTimer(0, ReconnectTimerID)
    End If
    
    ReconnectTimerID = SetTimer(0, ReconnectTimerID, 1000, AddressOf Reconnect_TimerProc)

    AddChat g_Color.InformationText, _
            StringFormat("Attempting to reconnect in {0}...", modDateTime.ConvertTimeInterval(AutoReconnectIn, True))
End Sub

Public Sub ParseFriendsPacket(ByVal PacketID As Long, ByVal pBuff As clsDataBuffer)
    FriendListHandler.ParsePacket PacketID, pBuff
End Sub

Public Sub ParseClanPacket(ByVal PacketID As Long, ByVal pBuff As clsDataBuffer)
    ClanHandler.ParseClanPacket PacketID, pBuff
End Sub

Public Sub RecordWindowPosition(Optional Maximized As Boolean = False)
    'Don't record other position information if maximized, otherwise when they unmaximize it will be fullscreen width and height. - FrOzeN
    If Not Maximized Then
        Config.PositionLeft = Int(Me.Left / Screen.TwipsPerPixelX)
        Config.PositionTop = Int(Me.Top / Screen.TwipsPerPixelY)
        Config.PositionHeight = Int(Me.Height / Screen.TwipsPerPixelY)
        Config.PositionWidth = Int(Me.Width / Screen.TwipsPerPixelX)
    End If

    Config.IsMaximized = Maximized
    Call Config.Save
End Sub

Public Sub MakeLoggingDirectory()
    On Error Resume Next
    MkDir GetFolderPath("Logs")
End Sub

' Called from several points to keep accurate tabs on the user's prior selection
'  in the send combo
Public Sub RecordcboSendSelInfo()
    'Debug.Print "SelStart: " & cboSend.SelStart & ", SelLength: " & cboSend.SelLength
    cboSendSelLength = cboSend.SelLength
    cboSendSelStart = cboSend.SelStart
End Sub

Public Sub SetFormColors(ByRef oColors As clsColor)
    With oColors
        frmChat.lvChannel.BackColor = .ChannelListBack
        frmChat.lvChannel.ForeColor = .ChannelListText
        frmChat.lvFriendList.BackColor = .ChannelListBack
        frmChat.lvFriendList.ForeColor = .ChannelListText
        frmChat.lvClanList.BackColor = .ChannelListBack
        frmChat.lvClanList.ForeColor = .ChannelListText
        frmChat.lblCurrentChannel.ForeColor = .ChannelLabelText
        frmChat.lblCurrentChannel.BackColor = .ChannelLabelBack
        frmChat.txtPost.ForeColor = .SendBoxesText
        frmChat.txtPre.ForeColor = .SendBoxesText '.SendBoxesText
        frmChat.cboSend.ForeColor = .SendBoxesText
        frmChat.txtPost.BackColor = .SendBoxesBack
        frmChat.txtPre.BackColor = .SendBoxesBack
        frmChat.rtbChat.BackColor = .RTBBack
        frmChat.cboSend.BackColor = .SendBoxesBack
    End With
End Sub