VERSION 5.00 Begin VB.Form frmSettings BorderStyle = 4 'Fixed ToolWindow Caption = "Form1" ClientHeight = 15390 ClientLeft = 45 ClientTop = 315 ClientWidth = 21030 LinkTopic = "Form1" MaxButton = 0 'False MinButton = 0 'False ScaleHeight = 15390 ScaleWidth = 21030 StartUpPosition = 2 'CenterScreen Begin VB.PictureBox Pictab_club Appearance = 0 'Flat BackColor = &H80000000& BorderStyle = 0 'None ForeColor = &H80000008& Height = 4935 Left = 5520 Picture = "frmSettings.frx":0000 ScaleHeight = 4935 ScaleWidth = 7335 TabIndex = 140 Top = 10680 Width = 7335 Begin VB.TextBox clubText2 Alignment = 2 'Center Height = 285 Left = 5520 TabIndex = 143 Text = "clubText2" Top = 2880 Width = 1695 End Begin VB.TextBox hcpresent Appearance = 0 'Flat Height = 285 Index = 10 Left = 720 TabIndex = 155 Top = 3480 Width = 4335 End Begin VB.TextBox hcpresent Appearance = 0 'Flat Height = 285 Index = 9 Left = 720 TabIndex = 154 Top = 3240 Width = 4335 End Begin VB.TextBox hcpresent Appearance = 0 'Flat Height = 285 Index = 8 Left = 720 TabIndex = 153 Top = 3000 Width = 4335 End Begin VB.TextBox hcpresent Appearance = 0 'Flat Height = 285 Index = 7 Left = 720 TabIndex = 152 Top = 2760 Width = 4335 End Begin VB.TextBox hcpresent Appearance = 0 'Flat Height = 285 Index = 6 Left = 720 TabIndex = 151 Top = 2520 Width = 4335 End Begin VB.TextBox hcpresent Appearance = 0 'Flat Height = 285 Index = 5 Left = 720 TabIndex = 150 Top = 2280 Width = 4335 End Begin VB.TextBox hcpresent Appearance = 0 'Flat Height = 285 Index = 4 Left = 720 TabIndex = 149 Top = 2040 Width = 4335 End Begin VB.TextBox hcpresent Appearance = 0 'Flat Height = 285 Index = 3 Left = 720 TabIndex = 148 Top = 1800 Width = 4335 End Begin VB.TextBox hcpresent Appearance = 0 'Flat Height = 285 Index = 2 Left = 720 TabIndex = 147 Top = 1560 Width = 4335 End Begin VB.TextBox hcpresent Appearance = 0 'Flat Height = 285 Index = 1 Left = 720 TabIndex = 146 Top = 1320 Width = 4335 End Begin VB.TextBox hcpresent Appearance = 0 'Flat Height = 285 Index = 0 Left = 720 TabIndex = 145 Top = 1080 Width = 4335 End Begin VB.TextBox clubText1 Alignment = 2 'Center Height = 285 Left = 5520 TabIndex = 144 Text = "clubText1" Top = 1800 Width = 1695 End Begin VB.CommandButton clubCommand1 Caption = "clubCommand1" Height = 615 Left = 1920 Picture = "frmSettings.frx":795A2 Style = 1 'Graphical TabIndex = 142 Top = 4080 Width = 1815 End Begin VB.CommandButton clubCommand2 Caption = "clubCommand2" Height = 615 Left = 3840 Picture = "frmSettings.frx":79B2C Style = 1 'Graphical TabIndex = 141 Top = 4080 Width = 1815 End Begin VB.Label clubLabel3 Alignment = 2 'Center BackStyle = 0 'Transparent Caption = "clubLabel3" Height = 255 Left = 5160 TabIndex = 156 Top = 2640 Width = 2415 End Begin VB.Label m BackStyle = 0 'Transparent Caption = "11" Height = 255 Index = 10 Left = 240 TabIndex = 169 Top = 3495 Width = 495 End Begin VB.Label m BackStyle = 0 'Transparent Caption = "10" Height = 255 Index = 9 Left = 240 TabIndex = 168 Top = 3255 Width = 495 End Begin VB.Label m BackStyle = 0 'Transparent Caption = "9" Height = 255 Index = 8 Left = 240 TabIndex = 167 Top = 3015 Width = 495 End Begin VB.Label m BackStyle = 0 'Transparent Caption = "8" Height = 255 Index = 7 Left = 240 TabIndex = 166 Top = 2775 Width = 495 End Begin VB.Label m BackStyle = 0 'Transparent Caption = "7" Height = 255 Index = 6 Left = 240 TabIndex = 165 Top = 2535 Width = 495 End Begin VB.Label m BackStyle = 0 'Transparent Caption = "6" Height = 255 Index = 5 Left = 240 TabIndex = 164 Top = 2295 Width = 495 End Begin VB.Label m BackStyle = 0 'Transparent Caption = "5" Height = 255 Index = 4 Left = 240 TabIndex = 163 Top = 2055 Width = 495 End Begin VB.Label m BackStyle = 0 'Transparent Caption = "4" Height = 255 Index = 3 Left = 240 TabIndex = 162 Top = 1815 Width = 495 End Begin VB.Label m BackStyle = 0 'Transparent Caption = "3" Height = 255 Index = 2 Left = 240 TabIndex = 161 Top = 1575 Width = 495 End Begin VB.Label m BackStyle = 0 'Transparent Caption = "2" Height = 255 Index = 1 Left = 240 TabIndex = 160 Top = 1335 Width = 495 End Begin VB.Label m BackStyle = 0 'Transparent Caption = "1" Height = 255 Index = 0 Left = 240 TabIndex = 159 Top = 1095 Width = 495 End Begin VB.Label clubLabel1 Alignment = 2 'Center BackStyle = 0 'Transparent Caption = "clubLabel1" Height = 615 Left = 120 TabIndex = 158 Top = 240 Width = 7575 WordWrap = -1 'True End Begin VB.Label clubLabel2 Alignment = 2 'Center BackStyle = 0 'Transparent Caption = "clubLabel2" Height = 255 Left = 5160 TabIndex = 157 Top = 1560 Width = 2415 End End Begin VB.PictureBox Pictab_ranks Appearance = 0 'Flat BackColor = &H80000000& BorderStyle = 0 'None ForeColor = &H80000008& Height = 5055 Left = 15360 Picture = "frmSettings.frx":7A0B6 ScaleHeight = 5055 ScaleWidth = 7575 TabIndex = 123 Top = 10080 Width = 7575 Begin VB.TextBox ranksText2 Height = 285 Left = 2880 TabIndex = 138 Text = "ranksText2" Top = 3600 Width = 4335 End Begin VB.CheckBox ranksCheck5 Caption = "ranksCheck5" Height = 255 Left = 2880 TabIndex = 137 Top = 3360 Width = 2055 End Begin VB.CheckBox ranksCheck4 Caption = "ranksCheck4" Height = 255 Left = 2880 TabIndex = 136 Top = 3120 Width = 2055 End Begin VB.CheckBox ranksCheck3 Caption = "ranksCheck3" Height = 255 Left = 2880 TabIndex = 135 Top = 2880 Width = 2055 End Begin VB.CheckBox ranksCheck2 Caption = "ranksCheck2" Height = 255 Left = 2880 TabIndex = 134 Top = 2640 Width = 2055 End Begin VB.CheckBox ranksCheck1 Caption = "ranksCheck1" Height = 255 Left = 2880 TabIndex = 133 Top = 2400 Width = 2055 End Begin VB.ListBox ranksList2 Height = 1185 Left = 5280 Sorted = -1 'True Style = 1 'Checkbox TabIndex = 131 Top = 840 Width = 2175 End Begin VB.TextBox ranksText1 Height = 1215 Left = 2880 MultiLine = -1 'True ScrollBars = 2 'Vertical TabIndex = 129 Text = "frmSettings.frx":114210 Top = 840 Width = 2175 End Begin VB.ListBox ranksList1 Height = 2985 Left = 120 Sorted = -1 'True Style = 1 'Checkbox TabIndex = 127 Top = 840 Width = 2415 End Begin VB.ComboBox ranksCombo1 Height = 315 ItemData = "frmSettings.frx":11421D Left = 2280 List = "frmSettings.frx":114227 TabIndex = 126 Text = "ranksCombo1" Top = 120 Width = 3135 End Begin VB.CommandButton ranksCommand1 Caption = "ranksCommand1" Height = 615 Left = 1920 Picture = "frmSettings.frx":114233 Style = 1 'Graphical TabIndex = 125 Top = 4080 Width = 1815 End Begin VB.CommandButton ranksCommand2 Caption = "ranksCommand2" Height = 615 Left = 3840 Picture = "frmSettings.frx":1147BD Style = 1 'Graphical TabIndex = 124 Top = 4080 Width = 1815 End Begin VB.Label ranksLabel4 Alignment = 2 'Center BackStyle = 0 'Transparent Caption = "ranksLabel4" Height = 255 Left = 2880 TabIndex = 139 Top = 2160 Width = 4575 End Begin VB.Label ranksLabel3 AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "ranksLabel3" Height = 195 Left = 5280 TabIndex = 132 Top = 600 Width = 870 End Begin VB.Label ranksLabel2 AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "ranksLabel2" Height = 195 Left = 2880 TabIndex = 130 Top = 600 Width = 870 End Begin VB.Label ranksLabel1 AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "ranksLabel1" Height = 195 Left = 120 TabIndex = 128 Top = 600 Width = 870 End End Begin VB.PictureBox Pictab_public Appearance = 0 'Flat BackColor = &H80000000& BorderStyle = 0 'None ForeColor = &H80000008& Height = 5055 Left = 17880 Picture = "frmSettings.frx":114D47 ScaleHeight = 5055 ScaleWidth = 7575 TabIndex = 120 Top = 4920 Width = 7575 Begin VB.CommandButton publicroomCommand2 Caption = "publicroomCommand2" Height = 615 Left = 3840 Picture = "frmSettings.frx":1AEEA1 Style = 1 'Graphical TabIndex = 122 Top = 4080 Width = 1815 End Begin VB.CommandButton publicroomCommand1 Caption = "publicroomCommand1" Height = 615 Left = 1920 Picture = "frmSettings.frx":1AF42B Style = 1 'Graphical TabIndex = 121 Top = 4080 Width = 1815 End End Begin VB.PictureBox Pictab_guest Appearance = 0 'Flat BackColor = &H80000000& BorderStyle = 0 'None ForeColor = &H80000008& Height = 5055 Left = 17880 Picture = "frmSettings.frx":1AF9B5 ScaleHeight = 5055 ScaleWidth = 7575 TabIndex = 64 Top = -240 Width = 7575 Begin VB.PictureBox Pictab_guestcategories BorderStyle = 0 'None Height = 4455 Left = 120 Picture = "frmSettings.frx":249B0F ScaleHeight = 4455 ScaleWidth = 7335 TabIndex = 83 Top = 480 Width = 7335 Begin VB.ListBox catprop Height = 255 Index = 9 Left = 720 TabIndex = 106 Top = 2400 Width = 495 End Begin VB.ListBox catprop Height = 255 Index = 8 Left = 720 TabIndex = 107 Top = 2160 Width = 495 End Begin VB.ListBox catprop Height = 255 Index = 7 Left = 720 TabIndex = 108 Top = 1920 Width = 495 End Begin VB.ListBox catprop Height = 255 Index = 6 Left = 720 TabIndex = 109 Top = 1680 Width = 495 End Begin VB.ListBox catprop Height = 255 Index = 5 Left = 720 TabIndex = 110 Top = 1440 Width = 495 End Begin VB.ListBox catprop Height = 255 Index = 4 Left = 720 TabIndex = 111 Top = 1200 Width = 495 End Begin VB.ListBox catprop Height = 255 Index = 3 Left = 720 TabIndex = 112 Top = 960 Width = 495 End Begin VB.ListBox catprop Height = 255 Index = 2 Left = 720 TabIndex = 113 Top = 720 Width = 495 End Begin VB.ListBox catprop Height = 255 Index = 1 Left = 720 TabIndex = 114 Top = 480 Width = 495 End Begin VB.TextBox catname Height = 285 Index = 9 Left = 1440 TabIndex = 96 Text = "ERROR" Top = 2400 Width = 4815 End Begin VB.TextBox catname Height = 285 Index = 8 Left = 1440 TabIndex = 97 Text = "ERROR" Top = 2160 Width = 4815 End Begin VB.TextBox catname Height = 285 Index = 7 Left = 1440 TabIndex = 98 Text = "ERROR" Top = 1920 Width = 4815 End Begin VB.TextBox catname Height = 285 Index = 6 Left = 1440 TabIndex = 99 Text = "ERROR" Top = 1680 Width = 4815 End Begin VB.TextBox catname Height = 285 Index = 5 Left = 1440 TabIndex = 100 Text = "ERROR" Top = 1440 Width = 4815 End Begin VB.TextBox catname Height = 285 Index = 4 Left = 1440 TabIndex = 101 Text = "ERROR" Top = 1200 Width = 4815 End Begin VB.TextBox catname Height = 285 Index = 3 Left = 1440 TabIndex = 102 Text = "ERROR" Top = 960 Width = 4815 End Begin VB.TextBox catname Height = 285 Index = 2 Left = 1440 TabIndex = 103 Text = "ERROR" Top = 720 Width = 4815 End Begin VB.TextBox catname Height = 285 Index = 1 Left = 1440 TabIndex = 104 Text = "ERROR" Top = 480 Width = 4815 End Begin VB.ListBox catprop Height = 255 Index = 0 Left = 720 TabIndex = 115 Top = 240 Width = 495 End Begin VB.TextBox catname Height = 285 Index = 0 Left = 1440 TabIndex = 105 Text = "ERROR" Top = 240 Width = 4815 End Begin VB.CheckBox allowtraden Caption = "Check5" Height = 255 Index = 0 Left = 6480 TabIndex = 95 Top = 240 Width = 255 End Begin VB.CheckBox allowtraden Caption = "Check5" Height = 255 Index = 1 Left = 6480 TabIndex = 94 Top = 480 Width = 255 End Begin VB.CheckBox allowtraden Caption = "Check5" Height = 255 Index = 2 Left = 6480 TabIndex = 93 Top = 720 Width = 255 End Begin VB.CheckBox allowtraden Caption = "Check5" Height = 255 Index = 3 Left = 6480 TabIndex = 92 Top = 960 Width = 255 End Begin VB.CheckBox allowtraden Caption = "Check5" Height = 255 Index = 4 Left = 6480 TabIndex = 91 Top = 1200 Width = 255 End Begin VB.CheckBox allowtraden Caption = "Check5" Height = 255 Index = 5 Left = 6480 TabIndex = 90 Top = 1440 Width = 255 End Begin VB.CheckBox allowtraden Caption = "Check5" Height = 255 Index = 6 Left = 6480 TabIndex = 89 Top = 1680 Width = 255 End Begin VB.CheckBox allowtraden Caption = "Check5" Height = 255 Index = 7 Left = 6480 TabIndex = 88 Top = 1920 Width = 255 End Begin VB.CheckBox allowtraden Caption = "Check5" Height = 255 Index = 8 Left = 6480 TabIndex = 87 Top = 2160 Width = 255 End Begin VB.CheckBox allowtraden Caption = "Check5" Height = 255 Index = 9 Left = 6480 TabIndex = 86 Top = 2400 Width = 255 End Begin VB.CommandButton guestcategoriesCommand1 Caption = "guestcategoriesCommand1" Height = 615 Left = 1800 Picture = "frmSettings.frx":2E3C69 Style = 1 'Graphical TabIndex = 85 Top = 3600 Width = 1815 End Begin VB.CommandButton guestcategoriesCommand2 Caption = "guestcategoriesCommand2" Height = 615 Left = 3720 Picture = "frmSettings.frx":2E41F3 Style = 1 'Graphical TabIndex = 84 Top = 3600 Width = 1815 End Begin VB.Label guestcategoriesLabel1 BackStyle = 0 'Transparent Caption = "guestcategoriesLabel1" Height = 255 Left = 720 TabIndex = 119 Top = 0 Width = 495 End Begin VB.Label guestcategoriesLabel2 AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "guestcategoriesLabel2" Height = 195 Left = 1440 TabIndex = 118 Top = 0 Width = 1605 End Begin VB.Label guestcategoriesLabel3 Alignment = 2 'Center BackStyle = 0 'Transparent Caption = "guestcategoriesLabel3" Height = 255 Left = 6240 TabIndex = 117 Top = 0 Width = 615 End Begin VB.Label guestcategoriesLabel4 BackStyle = 0 'Transparent Caption = "guestcategoriesLabel4" Height = 645 Left = 720 TabIndex = 116 Top = 2730 Width = 6135 WordWrap = -1 'True End End Begin VB.PictureBox Pictab_guestroom BorderStyle = 0 'None Height = 4455 Left = 120 ScaleHeight = 4455 ScaleWidth = 7335 TabIndex = 65 Top = 480 Width = 7335 Begin VB.CommandButton guestroomCommand2 Caption = "guestroomCommand2" Height = 615 Left = 3720 Picture = "frmSettings.frx":2E477D Style = 1 'Graphical TabIndex = 73 Top = 3600 Width = 1815 End Begin VB.CommandButton guestroomCommand1 Caption = "guestroomCommand1" Height = 615 Left = 1800 Picture = "frmSettings.frx":2E4D07 Style = 1 'Graphical TabIndex = 72 Top = 3600 Width = 1815 End Begin VB.ListBox guestroomList1 Height = 1230 Left = 480 Sorted = -1 'True TabIndex = 71 Top = 240 Width = 6375 End Begin VB.TextBox guestroomText4 Enabled = 0 'False Height = 285 Left = 3120 TabIndex = 70 Text = "guestroomText4" Top = 2760 Width = 3255 End Begin VB.TextBox guestroomText3 Enabled = 0 'False Height = 285 Left = 3120 TabIndex = 69 Text = "guestroomText3" Top = 2400 Width = 3255 End Begin VB.TextBox guestroomText2 Enabled = 0 'False Height = 285 Left = 3120 TabIndex = 68 Text = "guestroomText2" Top = 2040 Width = 3255 End Begin VB.TextBox guestroomText1 Enabled = 0 'False Height = 285 Left = 3120 TabIndex = 67 Text = "guestroomText1" Top = 1680 Width = 3255 End Begin VB.TextBox guestroomText5 Enabled = 0 'False Height = 285 Left = 3120 TabIndex = 66 Text = "guestroomText5" Top = 3120 Width = 3255 End Begin VB.Label guestroomLabel6 AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "guestroomLabel6" Height = 195 Left = 480 TabIndex = 82 Top = 0 Width = 1215 End Begin VB.Label guestroomLabel1 Alignment = 1 'Right Justify BackStyle = 0 'Transparent Caption = "guestroomLabel1" Height = 255 Left = 1440 TabIndex = 78 Top = 1680 Width = 1575 End Begin VB.Label guestroomLabel2 Alignment = 1 'Right Justify BackStyle = 0 'Transparent Caption = "guestroomLabel2" Height = 255 Left = 1440 TabIndex = 77 Top = 2040 Width = 1575 End Begin VB.Label guestroomLabel3 Alignment = 1 'Right Justify BackStyle = 0 'Transparent Caption = "guestroomLabel3" Height = 255 Left = 1440 TabIndex = 76 Top = 2400 Width = 1575 End Begin VB.Label guestroomLabel4 Alignment = 1 'Right Justify BackStyle = 0 'Transparent Caption = "guestroomLabel4" Height = 255 Left = 1440 TabIndex = 75 Top = 2760 Width = 1575 End Begin VB.Label guestroomLabel5 Alignment = 1 'Right Justify BackStyle = 0 'Transparent Caption = "guestroomLabel5" Height = 255 Left = 1440 TabIndex = 74 Top = 3120 Width = 1575 End End Begin VB.Line Line3 X1 = 120 X2 = 7440 Y1 = 360 Y2 = 360 End Begin VB.Label guestLabel2 AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "guestLabel2" BeginProperty Font Name = "MS Sans Serif" Size = 12 Charset = 204 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 300 Left = 3960 TabIndex = 80 Top = 0 Width = 1500 End Begin VB.Label guestLabel1 Alignment = 1 'Right Justify AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "guestLabel1" BeginProperty Font Name = "MS Sans Serif" Size = 12 Charset = 204 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 300 Left = 2115 TabIndex = 79 Top = 0 Width = 1500 End End Begin VB.PictureBox Pictab_habbos Appearance = 0 'Flat BackColor = &H80000000& BorderStyle = 0 'None ForeColor = &H80000008& Height = 5055 Left = 10200 Picture = "frmSettings.frx":2E5291 ScaleHeight = 5055 ScaleWidth = 7575 TabIndex = 44 Top = 4920 Width = 7575 Begin VB.TextBox habbosText7 Enabled = 0 'False Height = 285 Left = 4200 TabIndex = 60 Text = "habbosText7" Top = 3000 Width = 3255 End Begin VB.TextBox habbosText6 Enabled = 0 'False Height = 285 Left = 4200 TabIndex = 59 Text = "habbosText6" Top = 2640 Width = 3255 End Begin VB.TextBox habbosText5 Enabled = 0 'False Height = 285 Left = 4200 TabIndex = 58 Text = "habbosText5" Top = 2280 Width = 3255 End Begin VB.TextBox habbosText1 Enabled = 0 'False Height = 285 Left = 4200 TabIndex = 52 Text = "habbosText1" Top = 840 Width = 3255 End Begin VB.TextBox habbosText2 Enabled = 0 'False Height = 285 Left = 4200 TabIndex = 51 Text = "habbosText2" Top = 1200 Width = 3255 End Begin VB.TextBox habbosText3 Enabled = 0 'False Height = 285 Left = 4200 TabIndex = 50 Text = "habbosText3" Top = 1560 Width = 3255 End Begin VB.TextBox habbosText4 Enabled = 0 'False Height = 285 Left = 4200 TabIndex = 49 Text = "habbosText4" Top = 1920 Width = 3255 End Begin VB.ComboBox habbosCombo1 Enabled = 0 'False Height = 315 ItemData = "frmSettings.frx":37F3EB Left = 4200 List = "frmSettings.frx":37F3ED TabIndex = 48 Text = "habbosCombo1" Top = 3360 Width = 3255 End Begin VB.ListBox habbosList1 Height = 3375 Left = 360 Sorted = -1 'True TabIndex = 47 Top = 480 Width = 2175 End Begin VB.CommandButton habbosCommand1 Caption = "habbosCommand1" Height = 615 Left = 1920 Picture = "frmSettings.frx":37F3EF Style = 1 'Graphical TabIndex = 46 Top = 4080 Width = 1815 End Begin VB.CommandButton habbosCommand2 Caption = "habbosCommand2" Height = 615 Left = 3840 Picture = "frmSettings.frx":37F979 Style = 1 'Graphical TabIndex = 45 Top = 4080 Width = 1815 End Begin VB.Label habbosLabel9 AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "habbosLabel9" Height = 195 Left = 360 TabIndex = 81 Top = 240 Width = 1005 End Begin VB.Image habbosImage2 Height = 240 Left = 4200 Picture = "frmSettings.frx":37FF03 Top = 360 Width = 750 Visible = 0 'False End Begin VB.Image habbosImage1 Height = 240 Left = 4200 Picture = "frmSettings.frx":3800F2 Top = 360 Width = 750 End Begin VB.Label habbosLabel8 Alignment = 1 'Right Justify BackStyle = 0 'Transparent Caption = "habbosLabel8" Height = 255 Left = 2520 TabIndex = 63 Top = 3360 Width = 1575 End Begin VB.Label habbosLabel7 Alignment = 1 'Right Justify BackStyle = 0 'Transparent Caption = "habbosLabel7" Height = 255 Left = 2520 TabIndex = 62 Top = 3000 Width = 1575 End Begin VB.Label habbosLabel6 Alignment = 1 'Right Justify BackStyle = 0 'Transparent Caption = "habbosLabel6" Height = 255 Left = 2520 TabIndex = 61 Top = 2640 Width = 1575 End Begin VB.Label habbosLabel5 Alignment = 1 'Right Justify BackStyle = 0 'Transparent Caption = "habbosLabel5" Height = 255 Left = 2520 TabIndex = 57 Top = 2280 Width = 1575 End Begin VB.Label habbosLabel4 Alignment = 1 'Right Justify BackStyle = 0 'Transparent Caption = "habbosLabel4" Height = 255 Left = 2520 TabIndex = 56 Top = 1920 Width = 1575 End Begin VB.Label habbosLabel3 Alignment = 1 'Right Justify BackStyle = 0 'Transparent Caption = "habbosLabel3" Height = 255 Left = 2520 TabIndex = 55 Top = 1560 Width = 1575 End Begin VB.Label habbosLabel2 Alignment = 1 'Right Justify BackStyle = 0 'Transparent Caption = "habbosLabel2" Height = 255 Left = 2520 TabIndex = 54 Top = 1200 Width = 1575 End Begin VB.Label habbosLabel1 Alignment = 1 'Right Justify BackStyle = 0 'Transparent Caption = "habbosLabel1" Height = 255 Left = 2520 TabIndex = 53 Top = 840 Width = 1575 End End Begin VB.PictureBox Pictab_filter Appearance = 0 'Flat BackColor = &H80000000& BorderStyle = 0 'None ForeColor = &H80000008& Height = 5055 Left = 0 Picture = "frmSettings.frx":380201 ScaleHeight = 5055 ScaleWidth = 7575 TabIndex = 37 Top = 6840 Width = 7575 Begin VB.CommandButton filterCommand1 Caption = "filterCommand1" Height = 615 Left = 4920 Picture = "frmSettings.frx":41A35B Style = 1 'Graphical TabIndex = 43 Top = 4200 Width = 1815 End Begin VB.TextBox filterText1 Alignment = 2 'Center Height = 285 Left = 4560 TabIndex = 42 Text = "filterText1" Top = 3840 Width = 2535 End Begin VB.ListBox filterList1 Height = 4740 ItemData = "frmSettings.frx":41A8E5 Left = 600 List = "frmSettings.frx":41A8E7 Sorted = -1 'True TabIndex = 38 Top = 120 Width = 3375 End Begin VB.Label filterLabel3 Alignment = 2 'Center AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "filterLabel3" Height = 195 Left = 5430 TabIndex = 41 Top = 3480 Width = 795 End Begin VB.Image filterImage2 Height = 885 Left = 5400 Picture = "frmSettings.frx":41A8E9 Top = 1680 Width = 930 End Begin VB.Image filterImage4 Height = 900 Left = 4560 Picture = "frmSettings.frx":41AC73 Top = 1560 Width = 1080 End Begin VB.Image filterImage1 Height = 885 Left = 5400 Picture = "frmSettings.frx":41AE70 Top = 240 Width = 930 End Begin VB.Image filterImage3 Height = 900 Left = 4560 Picture = "frmSettings.frx":41B222 Top = 120 Width = 1080 End Begin VB.Label filterLabel2 Alignment = 2 'Center AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "filterLabel2" Height = 195 Left = 5460 TabIndex = 40 Top = 2640 Width = 795 End Begin VB.Label filterLabel1 Alignment = 2 'Center AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "filterLabel1" Height = 195 Left = 5475 TabIndex = 39 Top = 1200 Width = 765 End End Begin VB.PictureBox Pictab_limits Appearance = 0 'Flat BackColor = &H80000000& BorderStyle = 0 'None ForeColor = &H80000008& Height = 5055 Left = 7680 Picture = "frmSettings.frx":41B41F ScaleHeight = 5055 ScaleWidth = 7575 TabIndex = 24 Top = 6840 Width = 7575 Begin VB.CommandButton limitsCommand1 Caption = "limitsCommand1" Height = 615 Left = 1920 Picture = "frmSettings.frx":4B5579 Style = 1 'Graphical TabIndex = 36 Top = 4080 Width = 1815 End Begin VB.CommandButton limitsCommand2 Caption = "limitsCommand2" Height = 615 Left = 3840 Picture = "frmSettings.frx":4B5B03 Style = 1 'Graphical TabIndex = 35 Top = 4080 Width = 1815 End Begin VB.TextBox limitsText5 Height = 285 Left = 3000 TabIndex = 34 Text = "limitsText5" Top = 2400 Width = 2535 End Begin VB.TextBox limitsText4 Height = 285 Left = 3000 TabIndex = 33 Text = "limitsText4" Top = 1920 Width = 2535 End Begin VB.TextBox limitsText3 Height = 285 Left = 3000 TabIndex = 32 Text = "limitsText3" Top = 1440 Width = 2535 End Begin VB.TextBox limitsText2 Height = 285 Left = 3000 TabIndex = 31 Text = "limitsText2" Top = 960 Width = 2535 End Begin VB.TextBox limitsText1 Height = 285 Left = 3000 TabIndex = 30 Text = "limitsText1" Top = 480 Width = 2535 End Begin VB.Label limitsLabel1 Alignment = 1 'Right Justify BackStyle = 0 'Transparent Caption = "limitsLabel1" Height = 255 Left = 960 TabIndex = 29 Top = 480 Width = 1935 End Begin VB.Label limitsLabel2 Alignment = 1 'Right Justify BackStyle = 0 'Transparent Caption = "limitsLabel2" Height = 255 Left = 960 TabIndex = 28 Top = 960 Width = 1935 End Begin VB.Label limitsLabel3 Alignment = 1 'Right Justify BackStyle = 0 'Transparent Caption = "limitsLabel3" Height = 255 Left = 960 TabIndex = 27 Top = 1440 Width = 1935 End Begin VB.Label limitsLabel4 Alignment = 1 'Right Justify BackStyle = 0 'Transparent Caption = "limitsLabel4" Height = 255 Left = 960 TabIndex = 26 Top = 1920 Width = 1935 End Begin VB.Label limitsLabel5 Alignment = 1 'Right Justify BackStyle = 0 'Transparent Caption = "limitsLabel5" Height = 255 Left = 960 TabIndex = 25 Top = 2400 Width = 1935 End Begin VB.Image Image2 Height = 3045 Left = 4560 Picture = "frmSettings.frx":4B608D Top = 1560 Width = 2850 End Begin VB.Image Image7 Height = 1845 Left = 360 Picture = "frmSettings.frx":4B77E1 Top = 2400 Width = 1710 End End Begin VB.PictureBox Pictab_main Appearance = 0 'Flat BackColor = &H80000000& BorderStyle = 0 'None ForeColor = &H80000008& Height = 5055 Left = 10200 Picture = "frmSettings.frx":4B818B ScaleHeight = 5055 ScaleWidth = 7575 TabIndex = 10 Top = -240 Width = 7575 Begin VB.CommandButton mainCommand2 Caption = "mainCommand2" Height = 615 Left = 3840 Picture = "frmSettings.frx":5522E5 Style = 1 'Graphical TabIndex = 23 Top = 4080 Width = 1815 End Begin VB.CommandButton mainCommand1 Caption = "mainCommand1" Height = 615 Left = 1920 Picture = "frmSettings.frx":55286F Style = 1 'Graphical TabIndex = 22 Top = 4080 Width = 1815 End Begin VB.TextBox mainText3 Height = 285 Left = 720 TabIndex = 21 Text = "mainText3" Top = 3600 Width = 6255 End Begin VB.CheckBox mainCheck5 BackColor = &H0080C0FF& Caption = "mainCheck5" Height = 255 Left = 720 MaskColor = &H00E0E0E0& Picture = "frmSettings.frx":552DF9 TabIndex = 20 Top = 1800 Width = 3735 End Begin VB.CheckBox mainCheck4 BackColor = &H0080C0FF& Caption = "mainCheck4" Height = 255 Left = 720 TabIndex = 19 Top = 3240 Width = 3735 End Begin VB.CheckBox mainCheck3 BackColor = &H0080C0FF& Caption = "mainCheck3" Enabled = 0 'False Height = 255 Left = 720 TabIndex = 18 Top = 2880 Width = 3735 End Begin VB.CheckBox mainCheck2 BackColor = &H0080C0FF& Caption = "mainCheck2" Height = 255 Left = 720 TabIndex = 17 Top = 2520 Width = 3735 End Begin VB.CheckBox mainCheck1 BackColor = &H0080C0FF& Caption = "mainCheck1" Height = 255 Left = 720 MaskColor = &H00E0E0E0& Picture = "frmSettings.frx":5ECF53 TabIndex = 16 Top = 2160 Width = 3735 End Begin VB.TextBox mainText2 Enabled = 0 'False Height = 285 Left = 2640 TabIndex = 15 Text = "mainText2" Top = 1200 Width = 1935 End Begin VB.TextBox mainText1 Height = 285 Left = 2640 TabIndex = 14 Text = "mainText1" Top = 840 Width = 1935 End Begin VB.Label mainLabel1 Alignment = 2 'Center BackStyle = 0 'Transparent Caption = "mainLabel1" Height = 615 Left = 0 TabIndex = 13 Top = 120 Width = 7575 End Begin VB.Label mainLabel3 Alignment = 1 'Right Justify BackStyle = 0 'Transparent Caption = "mainLabel3" Enabled = 0 'False Height = 255 Left = 480 TabIndex = 12 Top = 1200 Width = 1935 End Begin VB.Label mainLabel2 Alignment = 1 'Right Justify BackStyle = 0 'Transparent Caption = "mainLabel2" Height = 255 Left = 480 TabIndex = 11 Top = 840 Width = 1935 End Begin VB.Image mainimage1 Height = 2295 Left = 4560 Picture = "frmSettings.frx":6870AD Top = 1080 Width = 2715 End End Begin VB.Label title Alignment = 2 'Center AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "tab_main" BeginProperty Font Name = "MS Sans Serif" Size = 18 Charset = 204 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00E0E0E0& Height = 435 Left = 4830 TabIndex = 9 Top = 240 Width = 1635 End Begin VB.Image Image3 Height = 1065 Left = 120 Picture = "frmSettings.frx":6885B9 Top = 4560 Width = 1095 End Begin VB.Label Label9 Alignment = 2 'Center AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "Label9" BeginProperty Font Name = "MS Sans Serif" Size = 9.75 Charset = 204 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 240 Left = 300 TabIndex = 8 Top = 3960 Width = 735 End Begin VB.Label Label8 Alignment = 2 'Center AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "Label8" BeginProperty Font Name = "MS Sans Serif" Size = 9.75 Charset = 204 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 240 Left = 300 TabIndex = 7 Top = 3600 Width = 735 End Begin VB.Label Label7 Alignment = 2 'Center AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "Label7" BeginProperty Font Name = "MS Sans Serif" Size = 9.75 Charset = 204 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 240 Left = 300 TabIndex = 6 Top = 3240 Width = 735 End Begin VB.Label Label6 Alignment = 2 'Center AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "Label6" BeginProperty Font Name = "MS Sans Serif" Size = 9.75 Charset = 204 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 240 Left = 300 TabIndex = 5 Top = 2880 Width = 735 End Begin VB.Label Label5 Alignment = 2 'Center AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "Label5" BeginProperty Font Name = "MS Sans Serif" Size = 9.75 Charset = 204 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 240 Left = 300 TabIndex = 4 Top = 2520 Width = 735 End Begin VB.Label Label4 Alignment = 2 'Center AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "Label4" BeginProperty Font Name = "MS Sans Serif" Size = 9.75 Charset = 204 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 240 Left = 300 TabIndex = 3 Top = 2160 Width = 735 End Begin VB.Label Label3 Alignment = 2 'Center AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "Label3" BeginProperty Font Name = "MS Sans Serif" Size = 9.75 Charset = 204 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 240 Left = 300 TabIndex = 2 Top = 1800 Width = 735 End Begin VB.Label Label2 Alignment = 2 'Center AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "Label2" BeginProperty Font Name = "MS Sans Serif" Size = 9.75 Charset = 204 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 240 Left = 300 TabIndex = 1 Top = 1440 Width = 735 End Begin VB.Label Label1 Alignment = 2 'Center AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "Label1" BeginProperty Font Name = "MS Sans Serif" Size = 9.75 Charset = 204 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 240 Left = 360 TabIndex = 0 Top = 1080 Width = 735 End Begin VB.Line Line1 X1 = 0 X2 = 10080 Y1 = 6720 Y2 = 6720 End Begin VB.Line Line2 X1 = 10080 X2 = 10080 Y1 = 0 Y2 = 6720 End End Attribute VB_Name = "frmSettings" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Const LWA_COLORKEY = &H1 Const LWA_ALPHA = &H2 Const GWL_EXSTYLE = (-20) Const WS_EX_LAYERED = &H80000 Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long Const HTCAPTION = 2 Const WM_NCLBUTTONDOWN = &HA1 Private Declare Function ReleaseCapture Lib "user32" () As Long Private Declare Function SendMessage Lib "user32" _ Alias "SendMessageA" (ByVal hwnd As Long, _ ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) _ As Long 'cursore manina Private Const HandCursor = 32649& Private Declare Function SetCursor Lib "user32" (ByVal hCursor As Long) As Long Private Declare Function LoadCursor Lib "user32" Alias "LoadCursorA" (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long Private Sub Form_Load() frmFirstRun.loading.Caption = "Loading..." Wanted = 1 DoEvents SettingIni = Replace(App.Path & "\database\configuration\settings.ini", "\\", "\") DBP = Replace(App.Path & "\database\", "\\", "\") frmFirstRun.loading.Caption = "Check database..." DoEvents If FileExists(SettingIni) = False Then MsgBox "Settings.ini Not found.", vbCritical, "Editor closed" End End If Call refreshSettings Call refreshtab_main If ReadINI("server", "update", SettingIni) <> "3.2" Then Load frmUpdate Unload frmUpdate WriteINI "server", "update", "3.2", SettingIni End If Exit Sub End End Sub Private Sub clubCommand1_Click() MousePointer = 11 clubCommand1.Enabled = False clubCommand2.Enabled = False For a = 0 To 10 If Left(hcpresent(a).Text, 1) <> ";" Then hcpresent(a).Text = ";" & hcpresent(a).Text If Right(hcpresent(a).Text, 1) = ";" Then hcpresent(a).Text = Left(hcpresent(a).Text, Len(hcpresent(a).Text) - 1) hcpresent(a).Text = Replace(hcpresent(a).Text, ";;", ";") hcpresent(a).Text = Replace(hcpresent(a).Text, ";;", ";") hcpresent(a).Text = Replace(hcpresent(a).Text, ";;", ";") PresCheck = Split(hcpresent(a).Text, ";") For b = 1 To UBound(PresCheck) If PresCheck(b) <> "" Then If FSO.FolderExists(DBP & "buy_furni\club_furni\" & PresCheck(b)) = False Then hcpresent(a).BackColor = &H8080FF MsgBox Replace(locale("folder_doesnt_exists"), "%foldername%", PresCheck(b)), vbCritical, "Server" GoTo NextA End If End If Next b WriteINI "HC", "present" & a + 1, hcpresent(a).Text, DBP & "configuration\settings.ini" NextA: Next a If Left(clubText1.Text, 1) <> ";" Then clubText1.Text = ";" & clubText1.Text If Right(clubText1.Text, 1) = ";" Then clubText1.Text = Left(clubText1.Text, Len(clubText1.Text) - 1) clubText1.Text = Replace(clubText1.Text, ";;", ";") clubText1.Text = Replace(clubText1.Text, ";;", ";") clubText1.Text = Replace(clubText1.Text, ";;", ";") WriteINI "HC", "hcbadge", clubText1.Text, DBP & "configuration\settings.ini" If Left(clubText2.Text, 1) <> ";" Then clubText2.Text = ";" & clubText2.Text If Right(clubText2.Text, 1) = ";" Then clubText2.Text = Left(clubText2.Text, Len(clubText2.Text) - 1) clubText2.Text = Replace(clubText2.Text, ";;", ";") clubText2.Text = Replace(clubText2.Text, ";;", ";") clubText2.Text = Replace(clubText2.Text, ";;", ";") WriteINI "HC", "hcbadge2", clubText2.Text, DBP & "configuration\settings.ini" clubCommand1.Enabled = True clubCommand2.Enabled = True MousePointer = 0 End Sub Private Sub clubCommand2_Click() MousePointer = 11 clubCommand1.Enabled = False clubCommand2.Enabled = False Call refreshtab_club clubCommand1.Enabled = True clubCommand2.Enabled = True MousePointer = 0 End Sub Private Sub Command1_Click() frmtest.Show End Sub Private Sub filterCommand1_Click() WriteINI "config", "replacement", filterText1.Text, DBP & "configuration\settings.ini" filterCommand1.Enabled = False End Sub Private Sub filterImage1_Click() Dim BobbaWords As String AddWord = InputBox(locale("enter_bobba_word"), locale("title_bobba_word_win")) BobbaWords = FSO.OpenTextFile(DBP & "configuration\bobbafilter.ini", ForReading).ReadAll BobbaWords = Replace(BobbaWords, vbCrLf & vbCrLf, vbCrLf) BobbaWords = Replace(BobbaWords, vbCrLf & vbCrLf, vbCrLf) BobbaWords = Replace(BobbaWords, vbCrLf & vbCrLf, vbCrLf) If Left(BobbaWords, 1) = vbCrLf Then BobbaWords = Mid(BobbaWords, 2) If Right(BobbaWords, 1) <> vbCrLf Then BobbaWords = BobbaWords & vbCrLf If Left(BobbaWords, Len(AddWord) + 1) = LCase(AddWord) & vbCrLf Or InStr(BobbaWords, vbCrLf & LCase(AddWord) & vbCrLf) Then MsgBox locale("word_already_on_list_msg"), vbCritical, "Server" Exit Sub End If If Len(AddWord) <= 1 Then MsgBox locale("word_inacceptable"), vbCritical, "Server" Exit Sub End If BobbaWords = BobbaWords & LCase(AddWord) & vbCrLf FSO.OpenTextFile(DBP & "configuration\bobbafilter.ini", ForWriting).Write BobbaWords 'If FSO.OpenTextFile(DBP & "configuration\bobbafilter.ini", ForReading).AtEndOfStream = False Then frmMain.FILT.Text = ReadINI("config", "replacement", DBP & "configuration\settings.ini") & Chr(1) & FSO.OpenTextFile(DBP & "configuration\bobbafilter.ini", ForReading).ReadAll BobbaList = Split(FSO.OpenTextFile(DBP & "configuration\bobbafilter.ini", ForReading).ReadAll, vbCrLf) filterList1.Clear For a = 0 To UBound(BobbaList) If BobbaList(a) <> "" Then filterList1.AddItem BobbaList(a) Next a End Sub Private Sub filterImage1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim hdl As Long hdl = LoadCursor(0, HandCursor) If hdl Then SetCursor hdl End Sub Private Sub filterImage2_Click() Dim BobbaWords As String If filterList1.Text = "" Then Exit Sub BobbaWords = FSO.OpenTextFile(DBP & "configuration\bobbafilter.ini", ForReading).ReadAll BobbaWords = Replace(BobbaWords, vbCrLf & vbCrLf, vbCrLf) BobbaWords = Replace(BobbaWords, vbCrLf & vbCrLf, vbCrLf) BobbaWords = Replace(BobbaWords, vbCrLf & vbCrLf, vbCrLf) If Left(BobbaWords, 1) = vbCrLf Then BobbaWords = Mid(BobbaWords, 2) If Right(BobbaWords, 1) <> vbCrLf Then BobbaWords = BobbaWords & vbCrLf BobbaWords = Replace(BobbaWords, filterList1.Text & vbCrLf, "") FSO.OpenTextFile(DBP & "configuration\bobbafilter.ini", ForWriting).Write BobbaWords BobbaList = Split(FSO.OpenTextFile(DBP & "configuration\bobbafilter.ini", ForReading).ReadAll, vbCrLf) filterList1.Clear For a = 0 To UBound(BobbaList) If BobbaList(a) <> "" Then filterList1.AddItem BobbaList(a) Next a End Sub Private Sub filterImage2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim hdl As Long hdl = LoadCursor(0, HandCursor) If hdl Then SetCursor hdl End Sub Private Sub filterLabel1_Click() Dim BobbaWords As String AddWord = InputBox(locale("enter_bobba_word"), locale("title_bobba_word_win")) BobbaWords = FSO.OpenTextFile(DBP & "configuration\bobbafilter.ini", ForReading).ReadAll BobbaWords = Replace(BobbaWords, vbCrLf & vbCrLf, vbCrLf) BobbaWords = Replace(BobbaWords, vbCrLf & vbCrLf, vbCrLf) BobbaWords = Replace(BobbaWords, vbCrLf & vbCrLf, vbCrLf) If Left(BobbaWords, 1) = vbCrLf Then BobbaWords = Mid(BobbaWords, 2) If Right(BobbaWords, 1) <> vbCrLf Then BobbaWords = BobbaWords & vbCrLf If Left(BobbaWords, Len(AddWord) + 1) = LCase(AddWord) & vbCrLf Or InStr(BobbaWords, vbCrLf & LCase(AddWord) & vbCrLf) Then MsgBox locale("word_already_on_list_msg"), vbCritical, "Server" Exit Sub End If If Len(AddWord) <= 1 Then MsgBox locale("word_inacceptable"), vbCritical, "Server" Exit Sub End If BobbaWords = BobbaWords & LCase(AddWord) & vbCrLf FSO.OpenTextFile(DBP & "configuration\bobbafilter.ini", ForWriting).Write BobbaWords 'If FSO.OpenTextFile(DBP & "configuration\bobbafilter.ini", ForReading).AtEndOfStream = False Then frmMain.FILT.Text = ReadINI("config", "replacement", DBP & "configuration\settings.ini") & Chr(1) & FSO.OpenTextFile(DBP & "configuration\bobbafilter.ini", ForReading).ReadAll BobbaList = Split(FSO.OpenTextFile(DBP & "configuration\bobbafilter.ini", ForReading).ReadAll, vbCrLf) filterList1.Clear For a = 0 To UBound(BobbaList) If BobbaList(a) <> "" Then filterList1.AddItem BobbaList(a) Next a End Sub Private Sub filterLabel1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim hdl As Long hdl = LoadCursor(0, HandCursor) If hdl Then SetCursor hdl End Sub Private Sub filterLabel2_Click() Dim BobbaWords As String If filterList1.Text = "" Then Exit Sub BobbaWords = FSO.OpenTextFile(DBP & "configuration\bobbafilter.ini", ForReading).ReadAll BobbaWords = Replace(BobbaWords, vbCrLf & vbCrLf, vbCrLf) BobbaWords = Replace(BobbaWords, vbCrLf & vbCrLf, vbCrLf) BobbaWords = Replace(BobbaWords, vbCrLf & vbCrLf, vbCrLf) If Left(BobbaWords, 1) = vbCrLf Then BobbaWords = Mid(BobbaWords, 2) If Right(BobbaWords, 1) <> vbCrLf Then BobbaWords = BobbaWords & vbCrLf BobbaWords = Replace(BobbaWords, filterList1.Text & vbCrLf, "") FSO.OpenTextFile(DBP & "configuration\bobbafilter.ini", ForWriting).Write BobbaWords BobbaList = Split(FSO.OpenTextFile(DBP & "configuration\bobbafilter.ini", ForReading).ReadAll, vbCrLf) filterList1.Clear For a = 0 To UBound(BobbaList) If BobbaList(a) <> "" Then filterList1.AddItem BobbaList(a) Next a End Sub Private Sub filterLabel2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim hdl As Long hdl = LoadCursor(0, HandCursor) If hdl Then SetCursor hdl End Sub Private Sub filterText1_Change() filterCommand1.Enabled = True End Sub Private Sub guestcategoriesCommand1_Click() MousePointer = 11 guestcategoriesCommand1.Enabled = False guestcategoriesCommand2.Enabled = False Dim Cat(0 To 9) As String Cat(0) = "SL" Cat(1) = "RL" Cat(2) = "PR" Cat(3) = "RQ" Cat(4) = "SV" Cat(5) = "Q]" Cat(6) = "R]" Cat(7) = "PL" Cat(8) = "RN" Cat(9) = "RR" For a = 0 To 9 On Error Resume Next WriteINI "categories", Cat(a), catprop(a).Text, DBP & "room_categories\categories.ini" WriteINI "locale", "categorie_" & a + 1, catname(a).Text, App.Path & "\locale\" & ReadINI("server", "lang", SettingIni) & "\locale.txt" If allowtraden(a).Value = 1 And FSO.FileExists(DBP & "room_categories\allowtrade_" & Cat(a) & ".txt") = False Then FSO.CreateTextFile (DBP & "room_categories\allowtrade_" & Cat(a) & ".txt") ElseIf allowtraden(a).Value = 0 And FSO.FileExists(DBP & "room_categories\allowtrade_" & Cat(a) & ".txt") = True Then FSO.DeleteFile (DBP & "room_categories\allowtrade_" & Cat(a) & ".txt") End If Next a guestcategoriesCommand1.Enabled = True guestcategoriesCommand2.Enabled = True MousePointer = 0 End Sub Private Sub guestcategoriesCommand2_Click() MousePointer = 11 guestcategoriesCommand1.Enabled = False guestcategoriesCommand2.Enabled = False Call refreshtab_guestcategories guestcategoriesCommand1.Enabled = True guestcategoriesCommand2.Enabled = True MousePointer = 0 End Sub Private Sub guestLabel1_Click() Call refreshtab_guestroom End Sub Private Sub guestLabel1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim hdl As Long hdl = LoadCursor(0, HandCursor) If hdl Then SetCursor hdl End Sub Private Sub guestLabel2_Click() Call refreshtab_guestcategories End Sub Private Sub guestLabel2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim hdl As Long hdl = LoadCursor(0, HandCursor) If hdl Then SetCursor hdl End Sub Private Sub guestroomCommand1_Click() MousePointer = 11 guestroomCommand1.Enabled = False guestroomCommand2.Enabled = False If FSO.FolderExists(DBP & "privaterooms\" & guestroomText1.Text) = True Then If guestroomText3.Text = "" Then guestroomText3.Text = " " If guestroomText4.Text = "" Then guestroomText4.Text = " " If guestroomText5.Text = "" Then guestroomText5.Text = " " FSO.OpenTextFile(DBP & "privaterooms\" & guestroomText1.Text & "\name.txt", ForWriting).Write guestroomText3.Text FSO.OpenTextFile(DBP & "privaterooms\" & guestroomText1.Text & "\description.txt", ForWriting).Write guestroomText4.Text FSO.OpenTextFile(DBP & "privaterooms\" & guestroomText1.Text & "\pass.txt", ForWriting).Write guestroomText5.Text End If guestroomCommand1.Enabled = True guestroomCommand2.Enabled = True MousePointer = 0 End Sub Private Sub guestroomCommand2_Click() MousePointer = 11 guestroomCommand1.Enabled = False guestroomCommand2.Enabled = False Call refreshtab_guestroom guestroomCommand1.Enabled = True guestroomCommand2.Enabled = True MousePointer = 0 End Sub Private Sub guestroomList1_DblClick() testo = guestroomList1.Text testo = Replace(testo, ")", "") If IsNumeric(Split(testo, " ")(0)) = False Or FSO.FolderExists(DBP & "privaterooms\" & Split(testo, " ")(0)) = False Then Exit Sub guestroomText1.Text = Split(testo, " ")(0) guestroomText2.Text = FSO.OpenTextFile(DBP & "privaterooms\" & guestroomText1.Text & "\owner.txt", ForReading).ReadAll guestroomText3.Text = FSO.OpenTextFile(DBP & "privaterooms\" & guestroomText1.Text & "\name.txt", ForReading).ReadAll guestroomText4.Text = FSO.OpenTextFile(DBP & "privaterooms\" & guestroomText1.Text & "\description.txt", ForReading).ReadAll guestroomText5.Text = FSO.OpenTextFile(DBP & "privaterooms\" & guestroomText1.Text & "\pass.txt", ForReading).ReadAll If guestroomText5.Text <> " " And guestroomText5.Text <> "" And guestroomText5.Text <> "null" Then guestroomText5.Enabled = True Else guestroomText5.Enabled = False guestroomText3.Enabled = True guestroomText4.Enabled = True End Sub Private Sub habbosCommand1_Click() MousePointer = 11 habbosCommand1.Enabled = False habbosCommand2.Enabled = False FSO.OpenTextFile(DBP & "habbos\" & LCase(habbosList1.Text) & "\pass.txt", ForWriting).Write habbosText2.Text FSO.OpenTextFile(DBP & "habbos\" & LCase(habbosList1.Text) & "\mission.txt", ForWriting).Write habbosText3.Text FSO.OpenTextFile(DBP & "habbos\" & LCase(habbosList1.Text) & "\consolemission.txt", ForWriting).Write habbosText4.Text FSO.OpenTextFile(DBP & "habbos\" & LCase(habbosList1.Text) & "\badges.txt", ForWriting).Write habbosText5.Text FSO.OpenTextFile(DBP & "habbos\" & LCase(habbosList1.Text) & "\credits.txt", ForWriting).Write habbosText6.Text FSO.OpenTextFile(DBP & "habbos\" & LCase(habbosList1.Text) & "\tickets.txt", ForWriting).Write habbosText7.Text FSO.OpenTextFile(DBP & "habbos\" & LCase(habbosList1.Text) & "\rank.txt", ForWriting).Write habbosCombo1.Text habbosCommand1.Enabled = True habbosCommand2.Enabled = True MousePointer = 0 End Sub Private Sub habbosCommand2_Click() MousePointer = 11 limitsCommand1.Enabled = False limitsCommand2.Enabled = False Call habbosList1_DblClick limitsCommand1.Enabled = True limitsCommand2.Enabled = True MousePointer = 0 End Sub Private Sub habbosList1_DblClick() If FSO.FolderExists(DBP & "habbos\" & LCase(habbosList1.Text)) = True Then habbosText1.Text = FSO.OpenTextFile(DBP & "habbos\" & LCase(habbosList1.Text) & "\name.txt", ForReading).ReadAll habbosText2.Text = FSO.OpenTextFile(DBP & "habbos\" & LCase(habbosList1.Text) & "\pass.txt", ForReading).ReadAll habbosText3.Text = FSO.OpenTextFile(DBP & "habbos\" & LCase(habbosList1.Text) & "\mission.txt", ForReading).ReadAll habbosText4.Text = FSO.OpenTextFile(DBP & "habbos\" & LCase(habbosList1.Text) & "\consolemission.txt", ForReading).ReadAll habbosText5.Text = FSO.OpenTextFile(DBP & "habbos\" & LCase(habbosList1.Text) & "\badges.txt", ForReading).ReadAll habbosText6.Text = FSO.OpenTextFile(DBP & "habbos\" & LCase(habbosList1.Text) & "\credits.txt", ForReading).ReadAll habbosText7.Text = FSO.OpenTextFile(DBP & "habbos\" & LCase(habbosList1.Text) & "\tickets.txt", ForReading).ReadAll habbosCombo1.Clear habbosCombo1.AddItem "habbo" habbosCombo1.AddItem "habbox" habbosCombo1.AddItem "silver" habbosCombo1.AddItem "gold" habbosCombo1.AddItem "moderator" habbosCombo1.AddItem "admin" habbosCombo1.Text = FSO.OpenTextFile(DBP & "habbos\" & LCase(habbosList1.Text) & "\rank.txt", ForReading).ReadAll habbosText2.Enabled = True habbosText3.Enabled = True habbosText4.Enabled = True habbosText5.Enabled = True habbosText6.Enabled = True habbosText7.Enabled = True habbosCombo1.Enabled = True State = 0 For u = 1 To frmMain.SockI If Client(u).Name = habbosList1.Text Then If frmMain.socket(u).State = sckConnected Then State = 1 Else State = 0 End If End If Next u If State = 1 Then habbosImage2.Visible = True Else habbosImage2.Visible = False End If Else MsgBox locale("user_doesnt_exists"), vbCritical, "Server" End If End Sub Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then Dim RetVal As Long X = ReleaseCapture() RetVal = SendMessage(hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0) Else Unload Me End If End Sub Private Sub Image3_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then Dim RetVal As Long X = ReleaseCapture() RetVal = SendMessage(hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0) Else Unload Me End If End Sub Private Sub Image4_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then Dim RetVal As Long X = ReleaseCapture() RetVal = SendMessage(hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0) Else Unload Me End If End Sub Private Sub Image5_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then Dim RetVal As Long X = ReleaseCapture() RetVal = SendMessage(hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0) Else Unload Me End If End Sub Private Sub Image6_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then Dim RetVal As Long X = ReleaseCapture() RetVal = SendMessage(hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0) Else Unload Me End If End Sub Private Sub Label1_Click() Call refreshtab_main End Sub Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim hdl As Long hdl = LoadCursor(0, HandCursor) If hdl Then SetCursor hdl End Sub Private Sub Label2_Click() Call refreshtab_limits End Sub Private Sub Label2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim hdl As Long hdl = LoadCursor(0, HandCursor) If hdl Then SetCursor hdl End Sub Private Sub Label3_Click() Call refreshtab_filter End Sub Private Sub Label3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim hdl As Long hdl = LoadCursor(0, HandCursor) If hdl Then SetCursor hdl End Sub Private Sub Label4_Click() Call refreshtab_habbos End Sub Private Sub Label4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim hdl As Long hdl = LoadCursor(0, HandCursor) If hdl Then SetCursor hdl End Sub Private Sub Label5_Click() Call refreshtab_guest End Sub Private Sub Label5_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim hdl As Long hdl = LoadCursor(0, HandCursor) If hdl Then SetCursor hdl End Sub Private Sub Label6_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ' Dim hdl As Long ' hdl = LoadCursor(0, HandCursor) ' If hdl Then SetCursor hdl End Sub Private Sub Label7_Click() Call refreshtab_ranks End Sub Private Sub Label7_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim hdl As Long hdl = LoadCursor(0, HandCursor) If hdl Then SetCursor hdl End Sub Private Sub Label8_Click() Call refreshtab_club End Sub Private Sub Label8_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim hdl As Long hdl = LoadCursor(0, HandCursor) If hdl Then SetCursor hdl End Sub Private Sub Label9_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ' Dim hdl As Long ' hdl = LoadCursor(0, HandCursor) ' If hdl Then SetCursor hdl End Sub Private Sub Label10_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim hdl As Long hdl = LoadCursor(0, HandCursor) If hdl Then SetCursor hdl End Sub Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, _ Y As Single) If Button = 1 Then Dim RetVal As Long X = ReleaseCapture() RetVal = SendMessage(hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0) Else Unload Me End If End Sub Private Sub limitsCommand1_Click() MousePointer = 11 limitsCommand1.Enabled = False limitsCommand2.Enabled = False WriteINI "config", "maxroomsperuser", limitsText1.Text, SettingIni WriteINI "config", "maxguestroomsinlist", limitsText2.Text, SettingIni WriteINI "config", "maxfavouriterooms", limitsText3.Text, SettingIni WriteINI "config", "maxrollersinroom", limitsText4.Text, SettingIni WriteINI "config", "maxpetsinroom", limitsText5.Text, SettingIni limitsCommand1.Enabled = True limitsCommand2.Enabled = True MousePointer = 0 End Sub Private Sub limitsCommand2_Click() MousePointer = 11 limitsCommand1.Enabled = False limitsCommand2.Enabled = False Call refreshtab_limits limitsCommand1.Enabled = True limitsCommand2.Enabled = True MousePointer = 0 End Sub Private Sub mainCheck4_Click() If mainCheck4.Value = 1 Then mainText3.Enabled = True Else mainText3.Enabled = False End If End Sub Private Sub mainCommand1_Click() MousePointer = 11 mainCommand1.Enabled = False mainCommand2.Enabled = False WriteINI "server", "port", mainText1.Text, SettingIni WriteINI "server", "connection_limit", mainText2.Text, SettingIni WriteINI "config", "bobba_filter", mainCheck1.Value, SettingIni WriteINI "config", "console", mainCheck2.Value, SettingIni WriteINI "server", "ipscan", mainCheck3.Value, SettingIni WriteINI "config", "welcome_message", mainCheck4.Value & "," & mainText3.Text, SettingIni WriteINI "config", "freehcclothes", mainCheck5.Value, SettingIni mainCommand1.Enabled = True mainCommand2.Enabled = True MousePointer = 0 End Sub Private Sub mainCommand2_Click() MousePointer = 11 mainCommand1.Enabled = False mainCommand2.Enabled = False Call refreshtab_main mainCommand1.Enabled = True mainCommand2.Enabled = True MousePointer = 0 End Sub Private Sub ranksCombo1_Click() For a = 0 To 37 If InStr(ReadINI("rank", "speech_cmd", DBP & "ranks\" & ranksCombo1.Text & ".ini"), Replace(ranksList1.List(a), ":", ",")) Then ranksList1.Selected(a) = True Else ranksList1.Selected(a) = False Next a If InStr(ReadINI("rank", "mod_tool", DBP & "ranks\" & ranksCombo1.Text & ".ini"), ",alert") Then ranksList2.Selected(0) = True Else ranksList2.Selected(0) = False If InStr(ReadINI("rank", "mod_tool", DBP & "ranks\" & ranksCombo1.Text & ".ini"), ",ban") Then ranksList2.Selected(1) = True Else ranksList2.Selected(1) = False If InStr(ReadINI("rank", "mod_tool", DBP & "ranks\" & ranksCombo1.Text & ".ini"), ",kick") Then ranksList2.Selected(2) = True Else ranksList2.Selected(2) = False If InStr(ReadINI("rank", "mod_tool", DBP & "ranks\" & ranksCombo1.Text & ".ini"), ",roomalert") Then ranksList2.Selected(3) = True Else ranksList2.Selected(3) = False If InStr(ReadINI("rank", "mod_tool", DBP & "ranks\" & ranksCombo1.Text & ".ini"), ",roomkick") Then ranksList2.Selected(4) = True Else ranksList2.Selected(4) = False Bdg = ReadINI("rank", "badges", DBP & "ranks\" & frmSettings.ranksCombo1.Text & ".ini") Bdg = Replace(Bdg, ";;", ";") Bdg = Replace(Bdg, ";;", ";") Bdg = Replace(Bdg, ";;", ";") If Left(Bdg, 1) <> ";" Then Bdg = ";" & Bdg If Right(Bdg, 1) = ";" Then Bdg = Left(Bdg, Len(Bdg) - 1) WriteINI "rank", "badges", Bdg, DBP & "ranks\" & frmSettings.ranksCombo1.Text & ".ini" frmSettings.ranksText1.Text = "" frmSettings.ranksText1.Text = Replace(Mid(ReadINI("rank", "badges", DBP & "ranks\" & frmSettings.ranksCombo1.Text & ".ini"), 2), ";", vbCrLf) frmSettings.ranksCheck1.Value = ReadINI("rank", "admin_catalogue", DBP & "ranks\" & frmSettings.ranksCombo1.Text & ".ini") frmSettings.ranksCheck2.Value = ReadINI("rank", "see_room_owner", DBP & "ranks\" & frmSettings.ranksCombo1.Text & ".ini") frmSettings.ranksCheck3.Value = ReadINI("rank", "enter_any_room", DBP & "ranks\" & frmSettings.ranksCombo1.Text & ".ini") frmSettings.ranksCheck4.Value = ReadINI("rank", "recrieve_cfh", DBP & "ranks\" & frmSettings.ranksCombo1.Text & ".ini") frmSettings.ranksCheck5.Value = ReadINI("rank", "rights_in_any_room", DBP & "ranks\" & frmSettings.ranksCombo1.Text & ".ini") frmSettings.ranksText2.Text = ReadINI("rank", "fuse_rights", DBP & "ranks\" & frmSettings.ranksCombo1.Text & ".ini") frmSettings.ranksList1.Enabled = True frmSettings.ranksList2.Enabled = True frmSettings.ranksText1.Enabled = True frmSettings.ranksText2.Enabled = True frmSettings.ranksCheck1.Enabled = True frmSettings.ranksCheck2.Enabled = True frmSettings.ranksCheck3.Enabled = True frmSettings.ranksCheck4.Enabled = True frmSettings.ranksCheck5.Enabled = True End Sub Private Sub ranksCommand1_Click() MousePointer = 11 ranksCommand1.Enabled = False ranksCommand2.Enabled = False If FSO.FileExists(DBP & "ranks\" & ranksCombo1.Text & ".ini") = True Then SpeachList = "," For a = 0 To 37 If ranksList1.Selected(a) = True Then SpeachList = SpeachList & Replace(ranksList1.List(a), ":", ",") Next a SpeachList = Replace(SpeachList, ",,", ",") WriteINI "rank", "speech_cmd", SpeachList, DBP & "ranks\" & ranksCombo1.Text & ".ini" If ranksList2.Selected(0) = True Then mtrights = ",alert" Else mtrights = "" MsgBox mtrights If ranksList2.Selected(1) = True Then mtrights = mtrights & ",ban" MsgBox mtrights If ranksList2.Selected(2) = True Then mtrights = mtrights & ",kick" MsgBox mtrights If ranksList2.Selected(3) = True Then mtrights = mtrights & ",roomalert" MsgBox mtrights If ranksList2.Selected(4) = True Then mtrights = mtrights & ",roomkick" MsgBox mtrights WriteINI "rank", "mod_tool", mtrights, DBP & "ranks\" & ranksCombo1.Text & ".ini" BdgList = Replace(ranksText1.Text, vbCrLf, ";") BdgList = Replace(BdgList, ";;", ";") BdgList = Replace(BdgList, ";;", ";") BdgList = Replace(BdgList, ";;", ";") If Left(BdgList, 1) <> ";" Then BdgList = ";" & BdgList If Right(BdgList, 1) = ";" Then BdgList = Left(BdgList, Len(BdgList) - 1) WriteINI "rank", "badges", BdgList, DBP & "ranks\" & ranksCombo1.Text & ".ini" WriteINI "rank", "admin_catalogue", ranksCheck1.Value, DBP & "ranks\" & ranksCombo1.Text & ".ini" WriteINI "rank", "see_room_owner", ranksCheck2.Value, DBP & "ranks\" & ranksCombo1.Text & ".ini" WriteINI "rank", "enter_any_room", ranksCheck3.Value, DBP & "ranks\" & ranksCombo1.Text & ".ini" WriteINI "rank", "recrieve_cfh", ranksCheck4.Value, DBP & "ranks\" & ranksCombo1.Text & ".ini" WriteINI "rank", "rights_in_any_room", ranksCheck5.Value, DBP & "ranks\" & ranksCombo1.Text & ".ini" WriteINI "rank", "fuse_rights", ranksText2.Text, DBP & "ranks\" & ranksCombo1.Text & ".ini" Else MsgBox locale("rank_not_found"), vbCritical, "Server" End If ranksCommand1.Enabled = True ranksCommand2.Enabled = True MousePointer = 0 End Sub Private Sub ranksCommand2_Click() MousePointer = 11 ranksCommand1.Enabled = False ranksCommand2.Enabled = False Call refreshtab_ranks ranksCommand1.Enabled = True ranksCommand2.Enabled = True MousePointer = 0 End Sub