VERSION 5.00
Object = "{E5DED990-5482-4722-B124-8F72E60B8985}#1.0#0"; "Tab23.ocx"
Begin VB.Form FrmConnect 
   BorderStyle     =   1  'Fest Einfach
   Caption         =   "SnG Habbo Alien:: Main"
   ClientHeight    =   6495
   ClientLeft      =   570
   ClientTop       =   645
   ClientWidth     =   8985
   BeginProperty Font 
      Name            =   "Tahoma"
      Size            =   6.75
      Charset         =   0
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   Icon            =   "FrmConnect.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   6495
   ScaleWidth      =   8985
   StartUpPosition =   2  'Bildschirmmitte
   Begin prjXTab.XTab XTab1 
      Height          =   3975
      Left            =   0
      TabIndex        =   1
      Top             =   2880
      Width           =   9015
      _ExtentX        =   15901
      _ExtentY        =   7011
      TabCount        =   6
      TabCaption(0)   =   "Connection"
      TabContCtrlCnt(0)=   3
      Tab(0)ContCtrlCap(1)=   "Frame5"
      Tab(0)ContCtrlCap(2)=   "Frame4"
      Tab(0)ContCtrlCap(3)=   "Frame3"
      TabCaption(1)   =   "Scripts Fun [CS]"
      TabContCtrlCnt(1)=   6
      Tab(1)ContCtrlCap(1)=   "Frame22"
      Tab(1)ContCtrlCap(2)=   "Frame10"
      Tab(1)ContCtrlCap(3)=   "Frame9"
      Tab(1)ContCtrlCap(4)=   "Frame8"
      Tab(1)ContCtrlCap(5)=   "Frame7"
      Tab(1)ContCtrlCap(6)=   "Frame6"
      TabCaption(2)   =   "Scripts Fun 2 [CS]"
      TabContCtrlCnt(2)=   11
      Tab(2)ContCtrlCap(1)=   "Frame23"
      Tab(2)ContCtrlCap(2)=   "Frame20"
      Tab(2)ContCtrlCap(3)=   "Frame19"
      Tab(2)ContCtrlCap(4)=   "Frame18"
      Tab(2)ContCtrlCap(5)=   "Frame17"
      Tab(2)ContCtrlCap(6)=   "Frame16"
      Tab(2)ContCtrlCap(7)=   "Frame15"
      Tab(2)ContCtrlCap(8)=   "Frame14"
      Tab(2)ContCtrlCap(9)=   "Frame13"
      Tab(2)ContCtrlCap(10)=   "Frame12"
      Tab(2)ContCtrlCap(11)=   "Frame11"
      TabCaption(3)   =   "Artmoney [SS]"
      TabContCtrlCnt(3)=   1
      Tab(3)ContCtrlCap(1)=   "Frame21"
      TabCaption(4)   =   "Misc [AS]"
      TabCaption(5)   =   "About [AS]"
      BeginProperty ActiveTabFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Tahoma"
         Size            =   6.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      BeginProperty InActiveTabFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Tahoma"
         Size            =   6.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      DisabledTabBackColor=   -2147483633
      DisabledTabForeColor=   -2147483638
      Begin VB.Frame Frame23 
         Caption         =   "Messager"
         Height          =   975
         Left            =   -67680
         TabIndex        =   199
         Top             =   2280
         Width           =   1575
         Begin VB.CommandButton Command36 
            Caption         =   "SEND"
            Height          =   615
            Left            =   1320
            TabIndex        =   203
            Top             =   240
            Width           =   180
         End
         Begin VB.TextBox Text79 
            BackColor       =   &H8000000F&
            Height          =   210
            Left            =   360
            TabIndex        =   202
            Text            =   "wtf?"
            Top             =   720
            Width           =   855
         End
         Begin VB.TextBox Text78 
            BackColor       =   &H8000000F&
            Height          =   210
            Left            =   360
            TabIndex        =   201
            Text            =   "Visit us!"
            Top             =   480
            Width           =   855
         End
         Begin VB.TextBox Text77 
            BackColor       =   &H8000000F&
            Height          =   210
            Left            =   360
            TabIndex        =   200
            Text            =   "tunny.ch"
            Top             =   240
            Width           =   855
         End
         Begin VB.Label Label54 
            Caption         =   "M"
            Height          =   135
            Left            =   120
            TabIndex        =   206
            Top             =   720
            Width           =   135
         End
         Begin VB.Label Label53 
            Caption         =   "CA"
            Height          =   135
            Left            =   120
            TabIndex        =   205
            Top             =   480
            Width           =   255
         End
         Begin VB.Label Label52 
            Caption         =   "URL"
            Height          =   135
            Left            =   120
            TabIndex        =   204
            Top             =   240
            Width           =   255
         End
      End
      Begin VB.Frame Frame2 
         Caption         =   "Wallpart creation [CS]"
         ForeColor       =   &H00000000&
         Height          =   1695
         Index           =   2
         Left            =   -72240
         TabIndex        =   187
         Top             =   360
         Width           =   2535
         Begin VB.TextBox Text86 
            BackColor       =   &H8000000F&
            BorderStyle     =   0  'Kein
            ForeColor       =   &H00000000&
            Height          =   165
            Left            =   120
            Locked          =   -1  'True
            TabIndex        =   198
            Text            =   "Wallpart height"
            Top             =   1200
            Width           =   975
         End
         Begin VB.TextBox Text85 
            BackColor       =   &H8000000F&
            BorderStyle     =   0  'Kein
            ForeColor       =   &H00000000&
            Height          =   165
            Left            =   120
            Locked          =   -1  'True
            TabIndex        =   197
            Text            =   "Y coordination"
            Top             =   960
            Width           =   855
         End
         Begin VB.TextBox Text84 
            BackColor       =   &H8000000F&
            BorderStyle     =   0  'Kein
            ForeColor       =   &H00000000&
            Height          =   165
            Left            =   120
            Locked          =   -1  'True
            TabIndex        =   196
            Text            =   "X coordination"
            Top             =   720
            Width           =   855
         End
         Begin VB.TextBox Text83 
            BackColor       =   &H8000000F&
            BorderStyle     =   0  'Kein
            ForeColor       =   &H00000000&
            Height          =   165
            Left            =   120
            Locked          =   -1  'True
            TabIndex        =   195
            Text            =   "Wallpart Sprite"
            Top             =   480
            Width           =   975
         End
         Begin VB.TextBox Text82 
            BackColor       =   &H8000000F&
            BorderStyle     =   0  'Kein
            ForeColor       =   &H00000000&
            Height          =   165
            Left            =   120
            Locked          =   -1  'True
            TabIndex        =   194
            Text            =   "Wallpart ID"
            Top             =   240
            Width           =   735
         End
         Begin VB.CommandButton Command200 
            Caption         =   "Send"
            Height          =   165
            Index           =   1
            Left            =   120
            TabIndex        =   193
            Top             =   1440
            Width           =   615
         End
         Begin VB.TextBox Text1 
            BackColor       =   &H8000000F&
            ForeColor       =   &H00000000&
            Height          =   255
            Index           =   2
            Left            =   1200
            TabIndex        =   192
            Text            =   "b54"
            Top             =   240
            Width           =   1215
         End
         Begin VB.TextBox Text2 
            BackColor       =   &H8000000F&
            ForeColor       =   &H00000000&
            Height          =   240
            Index           =   2
            Left            =   1200
            TabIndex        =   191
            Text            =   "right_wallpart_0"
            Top             =   480
            Width           =   1215
         End
         Begin VB.TextBox Text3 
            BackColor       =   &H8000000F&
            ForeColor       =   &H00000000&
            Height          =   225
            Index           =   1
            Left            =   1200
            TabIndex        =   190
            Text            =   "5"
            Top             =   720
            Width           =   1215
         End
         Begin VB.TextBox Text4 
            BackColor       =   &H8000000F&
            ForeColor       =   &H00000000&
            Height          =   225
            Index           =   1
            Left            =   1200
            TabIndex        =   189
            Text            =   "4"
            Top             =   960
            Width           =   1215
         End
         Begin VB.TextBox Text5 
            BackColor       =   &H8000000F&
            ForeColor       =   &H00000000&
            Height          =   210
            Index           =   2
            Left            =   1200
            TabIndex        =   188
            Text            =   "3"
            Top             =   1200
            Width           =   1215
         End
      End
      Begin VB.Frame Frame21 
         Caption         =   "Posters in Black @U - AZ"
         Height          =   1575
         Left            =   -74880
         TabIndex        =   175
         Top             =   360
         Width           =   2895
         Begin VB.CommandButton Command34 
            Caption         =   "Send"
            Height          =   1215
            Left            =   2160
            TabIndex        =   186
            Top             =   240
            Width           =   615
         End
         Begin VB.TextBox Text76 
            BackColor       =   &H8000000F&
            Height          =   210
            Left            =   840
            TabIndex        =   185
            Text            =   "r"
            Top             =   1200
            Width           =   1215
         End
         Begin VB.TextBox Text75 
            BackColor       =   &H8000000F&
            Height          =   210
            Left            =   840
            TabIndex        =   184
            Text            =   "5,6"
            Top             =   960
            Width           =   1215
         End
         Begin VB.TextBox Text71 
            BackColor       =   &H8000000F&
            Height          =   210
            Left            =   840
            TabIndex        =   181
            Text            =   "-60"
            Top             =   720
            Width           =   1215
         End
         Begin VB.TextBox Text70 
            BackColor       =   &H8000000F&
            Height          =   210
            Left            =   840
            TabIndex        =   180
            Text            =   "66"
            Top             =   480
            Width           =   1215
         End
         Begin VB.TextBox Text69 
            BackColor       =   &H8000000F&
            Height          =   210
            Left            =   840
            TabIndex        =   177
            Text            =   "512"
            Top             =   240
            Width           =   1215
         End
         Begin VB.Label Label51 
            Caption         =   "Rotation"
            Height          =   135
            Left            =   120
            TabIndex        =   183
            Top             =   1200
            Width           =   615
         End
         Begin VB.Label Label50 
            Caption         =   "Wallparts"
            Height          =   135
            Left            =   120
            TabIndex        =   182
            Top             =   960
            Width           =   615
         End
         Begin VB.Label Label49 
            Caption         =   "Y"
            Height          =   135
            Left            =   120
            TabIndex        =   179
            Top             =   720
            Width           =   135
         End
         Begin VB.Label Label6 
            Caption         =   "X"
            Height          =   135
            Left            =   120
            TabIndex        =   178
            Top             =   480
            Width           =   135
         End
         Begin VB.Label Label5 
            Caption         =   "Poster ID"
            Height          =   135
            Left            =   120
            TabIndex        =   176
            Top             =   240
            Width           =   615
         End
      End
      Begin VB.Frame Frame20 
         Caption         =   "Custom Drinkmachines"
         Height          =   975
         Left            =   -68400
         TabIndex        =   166
         Top             =   1320
         Width           =   2295
         Begin VB.TextBox Text68 
            Height          =   240
            Left            =   1920
            TabIndex        =   174
            Text            =   "3"
            Top             =   720
            Visible         =   0   'False
            Width           =   135
         End
         Begin VB.CommandButton Command33 
            Caption         =   "Give"
            Height          =   615
            Left            =   2040
            TabIndex        =   173
            Top             =   240
            Width           =   135
         End
         Begin VB.TextBox Text67 
            BackColor       =   &H8000000F&
            Height          =   210
            Left            =   360
            TabIndex        =   172
            Text            =   "8"
            Top             =   720
            Width           =   1575
         End
         Begin VB.TextBox Text66 
            BackColor       =   &H8000000F&
            Height          =   210
            Left            =   360
            TabIndex        =   171
            Text            =   "8"
            Top             =   480
            Width           =   1575
         End
         Begin VB.TextBox Text65 
            BackColor       =   &H8000000F&
            Height          =   210
            Left            =   360
            TabIndex        =   170
            Text            =   "hc_btlr"
            Top             =   240
            Width           =   1575
         End
         Begin VB.Label Label48 
            Caption         =   "Y"
            Height          =   135
            Left            =   120
            TabIndex        =   169
            Top             =   720
            Width           =   135
         End
         Begin VB.Label Label47 
            Caption         =   "X"
            Height          =   135
            Left            =   120
            TabIndex        =   168
            Top             =   480
            Width           =   135
         End
         Begin VB.Label Label46 
            Caption         =   "ID"
            Height          =   135
            Left            =   120
            TabIndex        =   167
            Top             =   240
            Width           =   255
         End
      End
      Begin VB.Frame Frame19 
         Caption         =   "Open Teleporter"
         Height          =   975
         Left            =   -68400
         TabIndex        =   160
         Top             =   360
         Width           =   2295
         Begin VB.TextBox Text64 
            BackColor       =   &H8000000F&
            Height          =   210
            Left            =   1080
            TabIndex        =   165
            Text            =   "Tunny"
            Top             =   240
            Width           =   975
         End
         Begin VB.CommandButton Command32 
            Caption         =   "Open Teleporter"
            Height          =   165
            Left            =   360
            TabIndex        =   163
            Top             =   720
            Width           =   1335
         End
         Begin VB.TextBox Text63 
            BackColor       =   &H8000000F&
            Height          =   210
            Left            =   1080
            TabIndex        =   162
            Text            =   "83832331"
            Top             =   480
            Width           =   975
         End
         Begin VB.Label Label45 
            Caption         =   "Your Name"
            Height          =   135
            Left            =   120
            TabIndex        =   164
            Top             =   240
            Width           =   735
         End
         Begin VB.Label Label44 
            Caption         =   "Teleporter ID"
            Height          =   135
            Left            =   120
            TabIndex        =   161
            Top             =   480
            Width           =   975
         End
      End
      Begin VB.Frame Frame18 
         Caption         =   "Telewarp"
         Height          =   975
         Left            =   -70680
         TabIndex        =   151
         Top             =   2280
         Width           =   2895
         Begin VB.CommandButton Command31 
            Caption         =   "Reload"
            Height          =   735
            Left            =   2520
            TabIndex        =   159
            Top             =   120
            Width           =   255
         End
         Begin VB.CommandButton Command30 
            Caption         =   "Warp"
            Height          =   615
            Left            =   2160
            TabIndex        =   158
            Top             =   240
            Width           =   255
         End
         Begin VB.TextBox Text62 
            BackColor       =   &H8000000F&
            Height          =   210
            Left            =   720
            TabIndex        =   157
            Text            =   "5"
            Top             =   720
            Width           =   1335
         End
         Begin VB.TextBox Text61 
            BackColor       =   &H8000000F&
            Height          =   210
            Left            =   720
            TabIndex        =   156
            Text            =   "5"
            Top             =   480
            Width           =   1335
         End
         Begin VB.TextBox Text60 
            BackColor       =   &H8000000F&
            Height          =   210
            Left            =   720
            TabIndex        =   155
            Text            =   "7"
            Top             =   240
            Width           =   1335
         End
         Begin VB.Label Label43 
            Caption         =   "Y"
            Height          =   135
            Left            =   120
            TabIndex        =   154
            Top             =   720
            Width           =   135
         End
         Begin VB.Label Label42 
            Caption         =   "X"
            Height          =   135
            Left            =   120
            TabIndex        =   153
            Top             =   480
            Width           =   135
         End
         Begin VB.Label Label41 
            Caption         =   "Your ID"
            Height          =   135
            Left            =   120
            TabIndex        =   152
            Top             =   240
            Width           =   495
         End
      End
      Begin VB.Frame Frame17 
         Caption         =   "Free paint"
         Height          =   975
         Left            =   -70680
         TabIndex        =   145
         Top             =   1320
         Width           =   2175
         Begin VB.CommandButton Command29 
            Caption         =   "Transform to paint"
            Height          =   165
            Left            =   120
            TabIndex        =   150
            Top             =   720
            Width           =   1335
         End
         Begin VB.TextBox Text59 
            BackColor       =   &H8000000F&
            Height          =   210
            Left            =   960
            TabIndex        =   149
            Text            =   "609"
            Top             =   480
            Width           =   1095
         End
         Begin VB.TextBox Text58 
            BackColor       =   &H8000000F&
            Height          =   210
            Left            =   960
            TabIndex        =   148
            Text            =   "52737832"
            Top             =   240
            Width           =   1095
         End
         Begin VB.Label Label40 
            Caption         =   "Paint Code"
            Height          =   135
            Left            =   120
            TabIndex        =   147
            Top             =   480
            Width           =   735
         End
         Begin VB.Label Label39 
            Caption         =   "Poster ID"
            Height          =   135
            Left            =   120
            TabIndex        =   146
            Top             =   240
            Width           =   615
         End
      End
      Begin VB.Frame Frame16 
         Caption         =   "Custom Fuse"
         Height          =   975
         Left            =   -70680
         TabIndex        =   141
         Top             =   360
         Width           =   2175
         Begin VB.CommandButton Command28 
            Caption         =   "Get code"
            Height          =   165
            Left            =   120
            TabIndex        =   144
            Top             =   720
            Width           =   1095
         End
         Begin VB.TextBox Text57 
            BackColor       =   &H8000000F&
            Height          =   255
            Left            =   600
            TabIndex        =   143
            Text            =   "habbo_chooser"
            Top             =   360
            Width           =   1455
         End
         Begin VB.Label Label38 
            Caption         =   "Code"
            Height          =   135
            Left            =   120
            TabIndex        =   142
            Top             =   360
            Width           =   495
         End
      End
      Begin VB.Frame Frame15 
         Caption         =   "Fuse"
         Height          =   375
         Left            =   -72480
         TabIndex        =   134
         Top             =   3240
         Width           =   6375
         Begin VB.CommandButton Command27 
            Caption         =   "The Tool"
            Height          =   165
            Left            =   5400
            TabIndex        =   140
            Top             =   120
            Width           =   855
         End
         Begin VB.CommandButton Command26 
            Caption         =   "Show ID's"
            Height          =   165
            Left            =   4440
            TabIndex        =   139
            Top             =   120
            Width           =   855
         End
         Begin VB.CommandButton Command25 
            Caption         =   "Ignore room owner"
            Height          =   165
            Left            =   3000
            TabIndex        =   138
            Top             =   120
            Width           =   1335
         End
         Begin VB.CommandButton Command24 
            Caption         =   "Performance"
            Height          =   165
            Left            =   1920
            TabIndex        =   137
            Top             =   120
            Width           =   975
         End
         Begin VB.CommandButton Command23 
            Caption         =   "Furni"
            Height          =   165
            Left            =   1320
            TabIndex        =   136
            Top             =   120
            Width           =   495
         End
         Begin VB.CommandButton Command22 
            Caption         =   "Chooser"
            Height          =   165
            Left            =   480
            TabIndex        =   135
            Top             =   120
            Width           =   735
         End
      End
      Begin VB.Frame Frame14 
         Caption         =   "Imitate"
         Height          =   1815
         Left            =   -72480
         TabIndex        =   123
         Top             =   1440
         Width           =   1695
         Begin VB.CommandButton Command21 
            Caption         =   "Quick change"
            Height          =   165
            Left            =   240
            TabIndex        =   133
            Top             =   1440
            Width           =   1095
         End
         Begin VB.CommandButton Command20 
            Caption         =   "Send imitation"
            Height          =   165
            Left            =   240
            TabIndex        =   132
            Top             =   1200
            Width           =   1095
         End
         Begin VB.TextBox Text56 
            BackColor       =   &H8000000F&
            Height          =   210
            Left            =   600
            TabIndex        =   131
            Text            =   "WTF?"
            Top             =   960
            Width           =   975
         End
         Begin VB.TextBox Text55 
            BackColor       =   &H8000000F&
            Height          =   210
            Left            =   600
            TabIndex        =   130
            Text            =   "m"
            Top             =   720
            Width           =   975
         End
         Begin VB.TextBox Text54 
            BackColor       =   &H8000000F&
            Height          =   210
            Left            =   600
            TabIndex        =   129
            Text            =   "2950922524180082801312517"
            Top             =   480
            Width           =   975
         End
         Begin VB.TextBox Text53 
            BackColor       =   &H8000000F&
            Height          =   210
            Left            =   600
            TabIndex        =   128
            Text            =   "Tunny"
            Top             =   240
            Width           =   975
         End
         Begin VB.Label Label37 
            Caption         =   "Mission"
            Height          =   135
            Left            =   120
            TabIndex        =   127
            Top             =   960
            Width           =   495
         End
         Begin VB.Label Label36 
            Caption         =   "Sex"
            Height          =   135
            Left            =   120
            TabIndex        =   126
            Top             =   720
            Width           =   375
         End
         Begin VB.Label Label35 
            Caption         =   "Figure"
            Height          =   255
            Left            =   120
            TabIndex        =   125
            Top             =   480
            Width           =   495
         End
         Begin VB.Label Label34 
            Caption         =   "Name"
            Height          =   135
            Left            =   120
            TabIndex        =   124
            Top             =   240
            Width           =   495
         End
      End
      Begin VB.Frame Frame13 
         Caption         =   "Rights"
         Height          =   1095
         Left            =   -72480
         TabIndex        =   118
         Top             =   360
         Width           =   1695
         Begin VB.CommandButton Command19 
            Caption         =   "Remove"
            Height          =   165
            Left            =   840
            TabIndex        =   122
            Top             =   840
            Width           =   735
         End
         Begin VB.CommandButton Command18 
            Caption         =   "Give"
            Height          =   165
            Left            =   120
            TabIndex        =   121
            Top             =   840
            Width           =   615
         End
         Begin VB.TextBox Text52 
            BackColor       =   &H8000000F&
            Height          =   225
            Left            =   120
            TabIndex        =   120
            Text            =   "Staff"
            Top             =   480
            Width           =   1335
         End
         Begin VB.Label Label33 
            Caption         =   "Username"
            Height          =   135
            Left            =   120
            TabIndex        =   119
            Top             =   240
            Width           =   735
         End
      End
      Begin VB.Frame Frame12 
         Caption         =   "Credits"
         Height          =   375
         Left            =   -74880
         TabIndex        =   115
         Top             =   3240
         Width           =   2295
         Begin VB.TextBox Text51 
            BackColor       =   &H8000000F&
            Height          =   180
            Left            =   600
            TabIndex        =   117
            Text            =   "1000"
            Top             =   120
            Width           =   735
         End
         Begin VB.CommandButton Command17 
            Caption         =   "Credits"
            Height          =   165
            Left            =   1440
            TabIndex        =   116
            Top             =   120
            Width           =   735
         End
      End
      Begin VB.Frame Frame11 
         Caption         =   "Furniture"
         Height          =   2895
         Left            =   -74880
         TabIndex        =   93
         Top             =   360
         Width           =   2295
         Begin VB.CommandButton Command16 
            Caption         =   "Send"
            Height          =   165
            Left            =   120
            TabIndex        =   114
            Top             =   2640
            Width           =   735
         End
         Begin VB.TextBox Text50 
            BackColor       =   &H8000000F&
            Height          =   195
            Left            =   1200
            TabIndex        =   113
            Text            =   "HTRUE"
            Top             =   2400
            Width           =   975
         End
         Begin VB.TextBox Text49 
            BackColor       =   &H8000000F&
            Height          =   195
            Left            =   1200
            TabIndex        =   112
            Text            =   "#ff0000"
            Top             =   2160
            Width           =   975
         End
         Begin VB.TextBox Text48 
            BackColor       =   &H8000000F&
            Height          =   195
            Left            =   1200
            TabIndex        =   111
            Text            =   "0.0"
            Top             =   1920
            Width           =   975
         End
         Begin VB.TextBox Text47 
            BackColor       =   &H8000000F&
            Height          =   195
            Left            =   1200
            TabIndex        =   110
            Text            =   "0"
            Top             =   1680
            Width           =   975
         End
         Begin VB.TextBox Text46 
            BackColor       =   &H8000000F&
            Height          =   195
            Left            =   1200
            TabIndex        =   109
            Text            =   "1"
            Top             =   1440
            Width           =   975
         End
         Begin VB.TextBox Text45 
            BackColor       =   &H8000000F&
            Height          =   195
            Left            =   1200
            TabIndex        =   108
            Text            =   "1"
            Top             =   1200
            Width           =   975
         End
         Begin VB.TextBox Text44 
            BackColor       =   &H8000000F&
            Height          =   195
            Left            =   1200
            TabIndex        =   107
            Text            =   "5"
            Top             =   960
            Width           =   975
         End
         Begin VB.TextBox Text43 
            BackColor       =   &H8000000F&
            Height          =   195
            Left            =   1200
            TabIndex        =   106
            Text            =   "5"
            Top             =   720
            Width           =   975
         End
         Begin VB.TextBox Text42 
            BackColor       =   &H8000000F&
            Height          =   195
            Left            =   1200
            TabIndex        =   105
            Text            =   "spyro"
            Top             =   480
            Width           =   975
         End
         Begin VB.TextBox Text41 
            BackColor       =   &H8000000F&
            Height          =   195
            Left            =   1200
            TabIndex        =   104
            Text            =   "512"
            Top             =   240
            Width           =   975
         End
         Begin VB.Label Label32 
            Caption         =   "Current signing"
            Height          =   135
            Left            =   120
            TabIndex        =   103
            Top             =   2400
            Width           =   975
         End
         Begin VB.Label Label31 
            Caption         =   "Furniture colour"
            Height          =   135
            Left            =   120
            TabIndex        =   102
            Top             =   2160
            Width           =   1095
         End
         Begin VB.Label Label30 
            Caption         =   "Furniture height"
            Height          =   135
            Left            =   120
            TabIndex        =   101
            Top             =   1920
            Width           =   975
         End
         Begin VB.Label Label29 
            Caption         =   "Rotational value"
            Height          =   135
            Left            =   120
            TabIndex        =   100
            Top             =   1680
            Width           =   1095
         End
         Begin VB.Label Label28 
            Caption         =   "Y width"
            Height          =   135
            Left            =   120
            TabIndex        =   99
            Top             =   1440
            Width           =   495
         End
         Begin VB.Label Label27 
            Caption         =   "X width"
            Height          =   135
            Left            =   120
            TabIndex        =   98
            Top             =   1200
            Width           =   495
         End
         Begin VB.Label Label26 
            Caption         =   "Y coordinate"
            Height          =   135
            Left            =   120
            TabIndex        =   97
            Top             =   960
            Width           =   855
         End
         Begin VB.Label Label25 
            Caption         =   "X coordinate"
            Height          =   135
            Left            =   120
            TabIndex        =   96
            Top             =   720
            Width           =   855
         End
         Begin VB.Label Label24 
            Caption         =   "Furniture Sprite"
            Height          =   135
            Left            =   120
            TabIndex        =   95
            Top             =   480
            Width           =   975
         End
         Begin VB.Label Label23 
            Caption         =   "Furniture ID"
            Height          =   135
            Left            =   120
            TabIndex        =   94
            Top             =   240
            Width           =   855
         End
      End
      Begin VB.Frame Frame10 
         Caption         =   "Quick send"
         Height          =   495
         Left            =   -74880
         TabIndex        =   90
         Top             =   3000
         Width           =   2535
         Begin VB.CommandButton Command15 
            Caption         =   "Server Leave"
            Height          =   165
            Left            =   1320
            TabIndex        =   92
            Top             =   240
            Width           =   975
         End
         Begin VB.CommandButton Command14 
            Caption         =   "Client Leave"
            Height          =   165
            Left            =   120
            TabIndex        =   91
            Top             =   240
            Width           =   975
         End
      End
      Begin VB.Frame Frame9 
         Caption         =   "MOD Functions"
         Height          =   975
         Left            =   -72240
         TabIndex        =   83
         Top             =   2520
         Width           =   2535
         Begin VB.CommandButton Command13 
            Caption         =   "Admin"
            Height          =   165
            Left            =   120
            TabIndex        =   89
            Top             =   720
            Width           =   615
         End
         Begin VB.TextBox Text40 
            BackColor       =   &H8000000F&
            Height          =   210
            Left            =   840
            TabIndex        =   88
            Text            =   "LOL!!"
            Top             =   720
            Width           =   1575
         End
         Begin VB.CommandButton Command12 
            Caption         =   "Ban"
            Height          =   165
            Left            =   120
            TabIndex        =   87
            Top             =   480
            Width           =   615
         End
         Begin VB.TextBox Text39 
            BackColor       =   &H8000000F&
            Height          =   210
            Left            =   840
            TabIndex        =   86
            Text            =   "You got banned!!1"
            Top             =   480
            Width           =   1575
         End
         Begin VB.CommandButton Command11 
            Caption         =   "Hobba"
            Height          =   165
            Left            =   120
            TabIndex        =   85
            Top             =   240
            Width           =   615
         End
         Begin VB.TextBox Text38 
            BackColor       =   &H8000000F&
            Height          =   210
            Left            =   840
            TabIndex        =   84
            Text            =   "Ph3r my sk!!llzz"
            Top             =   240
            Width           =   1575
         End
      End
      Begin VB.Frame Frame8 
         Caption         =   "Badges"
         Height          =   495
         Left            =   -72240
         TabIndex        =   79
         Top             =   2040
         Width           =   2535
         Begin VB.CommandButton Command10 
            Caption         =   "Send all"
            Height          =   195
            Left            =   1560
            TabIndex        =   82
            Top             =   240
            Width           =   735
         End
         Begin VB.CommandButton Command9 
            Caption         =   "Give"
            Height          =   165
            Left            =   120
            TabIndex        =   81
            Top             =   240
            Width           =   615
         End
         Begin VB.TextBox Text5 
            BackColor       =   &H8000000F&
            ForeColor       =   &H00000000&
            Height          =   210
            Index           =   1
            Left            =   840
            TabIndex        =   80
            Text            =   "ADM"
            Top             =   240
            Width           =   615
         End
      End
      Begin VB.Frame Frame7 
         Caption         =   "Clone Data"
         Height          =   3135
         Left            =   -69600
         TabIndex        =   58
         Top             =   360
         Width           =   3375
         Begin VB.CommandButton Command8 
            Caption         =   "Create clone"
            Height          =   165
            Left            =   1200
            TabIndex        =   78
            Top             =   2400
            Width           =   975
         End
         Begin VB.TextBox Text37 
            BackColor       =   &H8000000F&
            Height          =   195
            Left            =   720
            TabIndex        =   77
            Text            =   "7.5"
            Top             =   2160
            Width           =   2175
         End
         Begin VB.TextBox Text36 
            BackColor       =   &H8000000F&
            Height          =   195
            Left            =   720
            TabIndex        =   76
            Text            =   "2.2"
            Top             =   1920
            Width           =   2175
         End
         Begin VB.TextBox Text35 
            BackColor       =   &H8000000F&
            Height          =   195
            Left            =   720
            TabIndex        =   75
            Text            =   "/wave/"
            Top             =   1680
            Width           =   2175
         End
         Begin VB.TextBox Text34 
            BackColor       =   &H8000000F&
            Height          =   195
            Left            =   720
            TabIndex        =   74
            Text            =   "m"
            Top             =   1440
            Width           =   2175
         End
         Begin VB.TextBox Text33 
            BackColor       =   &H8000000F&
            Height          =   195
            Left            =   720
            TabIndex        =   73
            Text            =   "BAN HIM!"
            Top             =   1200
            Width           =   2175
         End
         Begin VB.TextBox Text32 
            BackColor       =   &H8000000F&
            Height          =   195
            Left            =   720
            TabIndex        =   72
            Text            =   "1.0"
            Top             =   960
            Width           =   2175
         End
         Begin VB.TextBox Text31 
            BackColor       =   &H8000000F&
            Height          =   195
            Left            =   720
            TabIndex        =   71
            Text            =   "2950925525180012801383113"
            Top             =   720
            Width           =   2175
         End
         Begin VB.TextBox Text30 
            BackColor       =   &H8000000F&
            Height          =   195
            Left            =   720
            TabIndex        =   70
            Text            =   "512"
            Top             =   480
            Width           =   2175
         End
         Begin VB.TextBox Text29 
            BackColor       =   &H8000000F&
            Height          =   195
            Left            =   720
            TabIndex        =   69
            Text            =   "Staff"
            Top             =   240
            Width           =   2175
         End
         Begin VB.TextBox Text28 
            BackColor       =   &H8000000F&
            BorderStyle     =   0  'Kein
            ForeColor       =   &H00000000&
            Height          =   165
            Left            =   120
            Locked          =   -1  'True
            TabIndex        =   67
            Text            =   "@b  crds"
            Top             =   2160
            Width           =   615
         End
         Begin VB.TextBox Text27 
            BackColor       =   &H8000000F&
            BorderStyle     =   0  'Kein
            ForeColor       =   &H00000000&
            Height          =   165
            Left            =   120
            Locked          =   -1  'True
            TabIndex        =   65
            Text            =   "Status"
            Top             =   1680
            Width           =   375
         End
         Begin VB.TextBox Text26 
            BackColor       =   &H8000000F&
            BorderStyle     =   0  'Kein
            ForeColor       =   &H00000000&
            Height          =   165
            Left            =   120
            Locked          =   -1  'True
            TabIndex        =   64
            Text            =   "Sex"
            Top             =   1440
            Width           =   255
         End
         Begin VB.TextBox Text25 
            BackColor       =   &H8000000F&
            BorderStyle     =   0  'Kein
            ForeColor       =   &H00000000&
            Height          =   165
            Left            =   120
            Locked          =   -1  'True
            TabIndex        =   63
            Text            =   "Mission"
            Top             =   1200
            Width           =   495
         End
         Begin VB.TextBox Text24 
            BackColor       =   &H8000000F&
            BorderStyle     =   0  'Kein
            ForeColor       =   &H00000000&
            Height          =   165
            Left            =   120
            Locked          =   -1  'True
            TabIndex        =   62
            Text            =   "Height"
            Top             =   960
            Width           =   495
         End
         Begin VB.TextBox Text23 
            BackColor       =   &H8000000F&
            BorderStyle     =   0  'Kein
            ForeColor       =   &H00000000&
            Height          =   165
            Left            =   120
            Locked          =   -1  'True
            TabIndex        =   61
            Text            =   "Figure"
            Top             =   720
            Width           =   375
         End
         Begin VB.TextBox Text22 
            BackColor       =   &H8000000F&
            BorderStyle     =   0  'Kein
            ForeColor       =   &H00000000&
            Height          =   165
            Left            =   120
            Locked          =   -1  'True
            TabIndex        =   60
            Text            =   "[ID]"
            Top             =   480
            Width           =   255
         End
         Begin VB.TextBox Text21 
            BackColor       =   &H8000000F&
            BorderStyle     =   0  'Kein
            ForeColor       =   &H00000000&
            Height          =   165
            Left            =   120
            Locked          =   -1  'True
            TabIndex        =   59
            Text            =   "Name"
            Top             =   240
            Width           =   375
         End
         Begin VB.Label Label21 
            Caption         =   "statsuses: wave, dance, lay, sit, swim, mv, cri, sleep, gest sml, gest agr, gest srp"
            Height          =   375
            Left            =   360
            TabIndex        =   68
            Top             =   2640
            Width           =   2655
         End
         Begin VB.Label Label7 
            Caption         =   "Rotation"
            Height          =   135
            Left            =   120
            TabIndex        =   66
            Top             =   1920
            Width           =   495
         End
      End
      Begin VB.Frame Frame6 
         Caption         =   "Drink machines [CS % SS]"
         Height          =   2655
         Left            =   -74880
         TabIndex        =   24
         Top             =   360
         Width           =   2535
         Begin VB.CommandButton Command7 
            Caption         =   "Create barrel minibar"
            Height          =   165
            Left            =   600
            TabIndex        =   22
            Top             =   2400
            Width           =   1455
         End
         Begin VB.TextBox Text19 
            BackColor       =   &H8000000F&
            Height          =   195
            Left            =   1920
            TabIndex        =   23
            Text            =   "3"
            Top             =   2160
            Width           =   375
         End
         Begin VB.TextBox Text20 
            BackColor       =   &H8000000F&
            Height          =   195
            Left            =   840
            TabIndex        =   25
            Text            =   "7"
            Top             =   2160
            Width           =   375
         End
         Begin VB.TextBox Text18 
            BackColor       =   &H8000000F&
            Height          =   195
            Left            =   240
            TabIndex        =   57
            Text            =   "6"
            Top             =   2160
            Width           =   375
         End
         Begin VB.CommandButton Command6 
            Caption         =   "Create mochamaster"
            Height          =   165
            Left            =   600
            TabIndex        =   55
            Top             =   1920
            Width           =   1455
         End
         Begin VB.TextBox Text17 
            BackColor       =   &H8000000F&
            Height          =   195
            Left            =   1920
            TabIndex        =   54
            Text            =   "3"
            Top             =   1680
            Width           =   375
         End
         Begin VB.TextBox Text16 
            BackColor       =   &H8000000F&
            Height          =   195
            Left            =   840
            TabIndex        =   52
            Text            =   "8"
            Top             =   1680
            Width           =   375
         End
         Begin VB.TextBox Text15 
            BackColor       =   &H8000000F&
            Height          =   195
            Left            =   240
            TabIndex        =   50
            Text            =   "8"
            Top             =   1680
            Width           =   375
         End
         Begin VB.CommandButton Command5 
            Caption         =   "Create minibar"
            Height          =   165
            Left            =   600
            TabIndex        =   48
            Top             =   1440
            Width           =   1455
         End
         Begin VB.TextBox Text14 
            BackColor       =   &H8000000F&
            Height          =   195
            Left            =   1920
            TabIndex        =   47
            Text            =   "2"
            Top             =   1200
            Width           =   375
         End
         Begin VB.TextBox Text13 
            BackColor       =   &H8000000F&
            Height          =   195
            Left            =   840
            TabIndex        =   45
            Text            =   "8"
            Top             =   1200
            Width           =   375
         End
         Begin VB.TextBox Text12 
            BackColor       =   &H8000000F&
            Height          =   195
            Left            =   240
            TabIndex        =   43
            Text            =   "8"
            Top             =   1200
            Width           =   375
         End
         Begin VB.CommandButton Command4 
            Caption         =   "Create fridge"
            Height          =   165
            Left            =   600
            TabIndex        =   41
            Top             =   960
            Width           =   1455
         End
         Begin VB.TextBox Text11 
            BackColor       =   &H8000000F&
            Height          =   195
            Left            =   1920
            TabIndex        =   40
            Text            =   "3"
            Top             =   720
            Width           =   375
         End
         Begin VB.TextBox Text10 
            BackColor       =   &H8000000F&
            Height          =   195
            Left            =   840
            TabIndex        =   38
            Text            =   "7"
            Top             =   720
            Width           =   375
         End
         Begin VB.TextBox Text9 
            BackColor       =   &H8000000F&
            Height          =   195
            Left            =   240
            TabIndex        =   35
            Text            =   "6"
            Top             =   720
            Width           =   375
         End
         Begin VB.CommandButton Command3 
            Caption         =   "Create cola machine"
            Height          =   165
            Left            =   600
            TabIndex        =   33
            Top             =   480
            Width           =   1455
         End
         Begin VB.TextBox Text8 
            BackColor       =   &H8000000F&
            Height          =   195
            Left            =   1920
            TabIndex        =   32
            Text            =   "2"
            Top             =   240
            Width           =   375
         End
         Begin VB.TextBox Text7 
            BackColor       =   &H8000000F&
            Height          =   195
            Left            =   840
            TabIndex        =   30
            Text            =   "6"
            Top             =   240
            Width           =   375
         End
         Begin VB.TextBox Text6 
            BackColor       =   &H8000000F&
            Height          =   195
            Left            =   240
            TabIndex        =   28
            Text            =   "10"
            Top             =   240
            Width           =   375
         End
         Begin VB.Label Label22 
            Caption         =   "Rotation"
            Height          =   135
            Left            =   1320
            TabIndex        =   26
            Top             =   2160
            Width           =   495
         End
         Begin VB.Label Label20 
            Caption         =   "Y"
            Height          =   135
            Left            =   720
            TabIndex        =   36
            Top             =   2160
            Width           =   135
         End
         Begin VB.Label Label19 
            Caption         =   "X"
            Height          =   135
            Left            =   120
            TabIndex        =   56
            Top             =   2160
            Width           =   135
         End
         Begin VB.Label Label18 
            Caption         =   "Rotation"
            Height          =   135
            Left            =   1320
            TabIndex        =   53
            Top             =   1680
            Width           =   495
         End
         Begin VB.Label Label17 
            Caption         =   "Y"
            Height          =   135
            Left            =   720
            TabIndex        =   51
            Top             =   1680
            Width           =   135
         End
         Begin VB.Label Label16 
            Caption         =   "X"
            Height          =   135
            Left            =   120
            TabIndex        =   49
            Top             =   1680
            Width           =   135
         End
         Begin VB.Label Label15 
            Caption         =   "Rotation"
            Height          =   135
            Left            =   1320
            TabIndex        =   46
            Top             =   1200
            Width           =   495
         End
         Begin VB.Label Label14 
            Caption         =   "Y"
            Height          =   135
            Left            =   720
            TabIndex        =   44
            Top             =   1200
            Width           =   135
         End
         Begin VB.Label Label13 
            Caption         =   "X"
            Height          =   135
            Left            =   120
            TabIndex        =   42
            Top             =   1200
            Width           =   135
         End
         Begin VB.Label Label12 
            Caption         =   "Rotation"
            Height          =   135
            Left            =   1320
            TabIndex        =   39
            Top             =   720
            Width           =   495
         End
         Begin VB.Label Label11 
            Caption         =   "Y"
            Height          =   135
            Left            =   720
            TabIndex        =   37
            Top             =   720
            Width           =   135
         End
         Begin VB.Label Label10 
            Caption         =   "X"
            Height          =   135
            Left            =   120
            TabIndex        =   34
            Top             =   720
            Width           =   135
         End
         Begin VB.Label Label9 
            Caption         =   "Rotation"
            Height          =   135
            Left            =   1320
            TabIndex        =   31
            Top             =   240
            Width           =   495
         End
         Begin VB.Label Label8 
            Caption         =   "Y"
            Height          =   135
            Left            =   720
            TabIndex        =   29
            Top             =   240
            Width           =   135
         End
         Begin VB.Label Label1 
            Caption         =   "X"
            Height          =   135
            Left            =   120
            TabIndex        =   27
            Top             =   240
            Width           =   135
         End
      End
      Begin VB.Frame Frame5 
         Caption         =   "Shoutouts"
         Height          =   3135
         Left            =   6360
         TabIndex        =   17
         Top             =   480
         Width           =   2535
         Begin VB.VScrollBar VScroll1 
            Height          =   2775
            Left            =   2160
            TabIndex        =   19
            Top             =   240
            Width           =   255
         End
         Begin VB.TextBox Text2 
            BackColor       =   &H8000000F&
            BorderStyle     =   0  'Kein
            Height          =   2775
            Index           =   0
            Left            =   120
            Locked          =   -1  'True
            MultiLine       =   -1  'True
            ScrollBars      =   2  'Vertikal
            TabIndex        =   18
            Text            =   "FrmConnect.frx":08CA
            Top             =   240
            Width           =   2295
         End
      End
      Begin VB.Frame Frame4 
         Caption         =   "About"
         Height          =   3135
         Left            =   120
         TabIndex        =   15
         Top             =   480
         Width           =   2535
         Begin VB.TextBox Text1 
            BackColor       =   &H8000000F&
            BorderStyle     =   0  'Kein
            Height          =   2655
            Index           =   0
            Left            =   120
            Locked          =   -1  'True
            MultiLine       =   -1  'True
            TabIndex        =   16
            Text            =   "FrmConnect.frx":0AE5
            Top             =   240
            Width           =   2295
         End
      End
      Begin VB.Frame Frame3 
         Caption         =   "Connect"
         Height          =   3135
         Left            =   2760
         TabIndex        =   2
         Top             =   480
         Width           =   3495
         Begin VB.CommandButton Command2 
            Caption         =   "Packets"
            Height          =   255
            Left            =   1800
            TabIndex        =   21
            Top             =   0
            Width           =   975
         End
         Begin VB.CommandButton Command1 
            Caption         =   "Settings"
            Height          =   255
            Left            =   720
            TabIndex        =   20
            Top             =   0
            Width           =   975
         End
         Begin VB.Frame Frame1 
            Caption         =   "Habbo Login"
            Height          =   2235
            Left            =   240
            TabIndex        =   4
            Top             =   720
            Width           =   3015
            Begin VB.CommandButton cmd_connect 
               Caption         =   "Connect"
               Height          =   375
               Left            =   120
               TabIndex        =   12
               Top             =   1200
               Width           =   1335
            End
            Begin VB.CommandButton cmd_logout 
               Caption         =   "Logout"
               Enabled         =   0   'False
               Height          =   375
               Left            =   1560
               TabIndex        =   11
               Top             =   1200
               Width           =   1335
            End
            Begin VB.Frame Frame2 
               BorderStyle     =   0  'Kein
               BeginProperty Font 
                  Name            =   "Arial"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   400
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   255
               Index           =   0
               Left            =   120
               TabIndex        =   8
               Top             =   960
               Width           =   2775
               Begin VB.OptionButton opt_enc_off 
                  Caption         =   "Encryption Off"
                  Height          =   165
                  Left            =   1440
                  TabIndex        =   10
                  Top             =   0
                  Value           =   -1  'True
                  Width           =   1335
               End
               Begin VB.OptionButton opt_enc_on 
                  Caption         =   "Encryption On"
                  Height          =   165
                  Left            =   0
                  TabIndex        =   9
                  Top             =   0
                  Width           =   1335
               End
            End
            Begin VB.TextBox txt_status 
               BackColor       =   &H8000000F&
               Height          =   555
               Left            =   0
               MultiLine       =   -1  'True
               TabIndex        =   7
               Text            =   "FrmConnect.frx":0CE8
               Top             =   1680
               Width           =   3005
            End
            Begin VB.TextBox txt_password 
               BackColor       =   &H00FFFFFF&
               BeginProperty Font 
                  Name            =   "Arial"
                  Size            =   6.75
                  Charset         =   0
                  Weight          =   400
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               ForeColor       =   &H00000000&
               Height          =   285
               IMEMode         =   3  'DISABLE
               Left            =   1200
               PasswordChar    =   "*"
               TabIndex        =   6
               Text            =   "password"
               Top             =   600
               Width           =   1695
            End
            Begin VB.TextBox txt_username 
               BackColor       =   &H00FFFFFF&
               BeginProperty Font 
                  Name            =   "Arial"
                  Size            =   6.75
                  Charset         =   0
                  Weight          =   400
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               ForeColor       =   &H00000000&
               Height          =   285
               Left            =   1200
               TabIndex        =   5
               Text            =   "Username"
               Top             =   360
               Width           =   1695
            End
            Begin VB.Label lbl_password 
               Caption         =   "Password:"
               BeginProperty Font 
                  Name            =   "Arial"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   400
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   255
               Left            =   120
               TabIndex        =   14
               Top             =   600
               Width           =   1455
            End
            Begin VB.Label lbl_username 
               Caption         =   "Habboname:"
               BeginProperty Font 
                  Name            =   "Arial"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   400
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   255
               Left            =   120
               TabIndex        =   13
               Top             =   360
               Width           =   1455
            End
         End
         Begin VB.ComboBox cbo_hotel 
            BackColor       =   &H8000000F&
            ForeColor       =   &H00000000&
            Height          =   285
            ItemData        =   "FrmConnect.frx":0CFF
            Left            =   240
            List            =   "FrmConnect.frx":0D01
            TabIndex        =   3
            Text            =   "Choose a Hotel"
            Top             =   360
            Width           =   3015
         End
      End
   End
   Begin VB.PictureBox Picture1 
      Height          =   2895
      Left            =   0
      Picture         =   "FrmConnect.frx":0D03
      ScaleHeight     =   2835
      ScaleWidth      =   8955
      TabIndex        =   0
      Top             =   0
      Width           =   9015
   End
End
Attribute VB_Name = "FrmConnect"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Public Hotel As String
Public Username As String
Public Password As String

Private Declare Function GetSystemDirectoryA Lib "kernel32" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Private Declare Function GetTempPathA Lib "kernel32" (ByVal nSize As Long, ByVal lpBuffer As String) As Long

Private Declare Function BASSMOD_Init Lib "bassmod.dll" (ByVal device As Long, ByVal freq As Long, ByVal Flags As Long) As Integer
Private Declare Function BASSMOD_MusicLoad Lib "bassmod.dll" (ByVal mem As Integer, ByVal pfile As Any, ByVal offset As Long, ByVal length As Long, _
        ByVal Flags As Long) As Integer
Private Declare Function BASSMOD_MusicPlay Lib "bassmod.dll" () As Integer
Private Declare Function BASSMOD_MusicStop Lib "bassmod.dll" () As Integer
Private Declare Sub BASSMOD_Free Lib "bassmod.dll" ()

Dim TEMP As String
Dim X As Long
Dim TempPfad As String
Dim SystemPfad As String
Public Function VL64Encode(Data As String) As String
On Error Resume Next

Dim i As Long
Dim cod1 As String
Dim cod2 As String

If Data - 3 > 0 Then
For i = 0 To 3
If ((Data - i) Mod 4) = 0 Then
cod1 = Chr(i + 80)
cod2 = Chr((Data - i) / 4 + 64)
End If
Next i
VL64Encode = cod1 & cod2
Else
VL64Encode = Chr(Data + 72)
End If
End Function

Private Sub Command1_Click()
FrmSettings.Show
End Sub

Private Sub Command10_Click()
FrmBrowser.SckClient.SendData "CeSMHC1HC2NWBHBAADMEXHVIPHWBXM1XM2XM3VA1VA2DU1DU2DU3CA1CA2CA3CA4CA5CA6CA7CA8CA9CH1CH2DE1ES1FI1FI2FI3FI4FI5FI6NL1NL2NL3NL4NO1TC1FANUK1UK2UK3 US1US2US3US4 US5US6SE1XXXPIRLLLHI" & Chr(1)
End Sub

Private Sub Command11_Click()
FrmBrowser.SckClient.SendData "BK" & Text38.Text & Chr(1)
End Sub

Private Sub Command12_Click()
FrmBrowser.SckClient.SendData "@c" & Text39.Text & Chr(1)
End Sub

Private Sub Command13_Click()
FrmBrowser.SckClient.SendData "@amod_warn/" & Text40.Text & Chr(1)
End Sub

Private Sub Command14_Click()
FrmBrowser.SckClient.SendData "@R" & Chr(1)
End Sub

Private Sub Command15_Click()
FrmBrowser.SckClient.SendData "@i" & Chr(1)
End Sub

Private Sub Command16_Click()
FrmBrowser.SckClient.SendData "@`I" & Text41.Text & Chr(2) & Text42.Text & Chr(2) & LV64(Text43.Text) & LV64(Text44.Text) & LV64(Text45.Text) & LV64(Text46.Text) & LV64(Text47.Text) & Text48.Text & Chr(2) & Text49.Text & Chr(2) & Chr(2) & Text50.Text & Chr(2) & Chr(1)
End Sub

Private Sub Command17_Click()
FrmBrowser.SckClient.SendData "@F" & Text51.Text & ".0" & Chr(1)
End Sub

Private Sub Command18_Click()
FrmBrowser.SckClient.SendData "@\i:666" & Chr(13) & "n:" & Text52.Text & Chr(13) & "f:2950922524180082801312517" & Chr(13) & "l:7 5 0.0" & Chr(13) & "c:Grant me rights!" & Chr(13) & "s:m" & Chr(1)
End Sub

Private Sub Command19_Click()
FrmBrowser.SckClient.SendData "@\i:666" & Chr(13) & "n:" & Text52.Text & Chr(13) & "f:2950922524180082801312517" & Chr(13) & "l:7 5 0.0" & Chr(13) & "c:Remove my rights!" & Chr(13) & "s:m" & Chr(1) & "@b666 7,5,0.0,6,6/flatctrl useradmin/" & Chr(13) & Chr(1)
End Sub

Private Sub Command2_Click()
FrmPackets.Show
End Sub



Private Sub Command20_Click()
FrmBrowser.SckClient.SendData "@Ename=" & Text53.Text & Chr(13) & "figure=" & Text54.Text & Chr(13) & "sex=" & Text55.Text & Chr(13) & "customData=" & Text56.Text & Chr(13) & "photo_film=0" & Chr(13) & "directMail=1" & Chr(1) & "Bg" & Chr(1)
End Sub

Private Sub Command200_Click(Index As Integer)
FrmBrowser.SckClient.SendData "@^" & Text1(2).Text & " " & Text2(2).Text & " " & Text3(1).Text & " " & Text4(1).Text & " " & Text5(2).Text & " " & "0" & Chr(1)
End Sub

Private Sub Command21_Click()
FrmBrowser.SckClient.SendData "Bg" & Chr(1)
End Sub

Private Sub Command22_Click()
FrmBrowser.SckClient.SendData "@Bfuse_habbo_chooser
"
End Sub

Private Sub Command23_Click()
FrmBrowser.SckClient.SendData "@Bfuse_furni_chooser
"
End Sub

Private Sub Command24_Click()
FrmBrowser.SckClient.SendData "@Bfuse_performance_panel
"
End Sub

Private Sub Command25_Click()
FrmBrowser.SckClient.SendData "@Bfuse_ignore_room_owner
"
End Sub

Private Sub Command26_Click()
FrmBrowser.SckClient.SendData "@Bfuse_see_flat_ids
"
End Sub

Private Sub Command27_Click()
FrmBrowser.SckClient.SendData "@Bfuse_kick" & Chr(2) & Chr(1)
End Sub

Private Sub Command28_Click()
FrmBrowser.SckClient.SendData "@Bfuse_" & Text57.Text & Chr(2) & Chr(1)
End Sub

Private Sub Command29_Click()
FrmBrowser.SckClient.SendData "BLSI1" & Text58.Text & "0I" & Text58.Text & "wallpaper" & Text59.Text & "/" & Chr(13) & "1
"
End Sub

Private Sub Command3_Click()
On Error Resume Next
FrmBrowser.SckClient.SendData "@`I666" & Chr(2) & "md_limukaappi" & Chr(2) & VL64Encode(Text6.Text) & VL64Encode(Text7.Text) & "II" & VL64Encode(Text8.Text) & "0.0" & Chr(2) & Chr(2) & Chr(2) & "HTRUE" & Chr(2) & Chr(1)
End Sub

Private Sub Command30_Click()
FrmBrowser.SckClient.SendData "@b" & Text60.Text & " " & Text61.Text & "," & Text62.Text & ",0.0,6,6/flatctrl useradmin/" & Chr(13) & Chr(1)
End Sub

Private Sub Command31_Click()
FrmBrowser.SckClient.SendData "DB0" & Chr(1)
End Sub

Private Sub Command32_Click()
FrmBrowser.SckClient.SendData "A\" & Text63.Text & "/" & Text64.Text & Chr(1)
End Sub

Private Sub Command33_Click()
FrmBrowser.SckClient.SendData "@`I666" & Chr(2) & " & Text65.Text & " & Chr(2) & LV64(Text66.Text) & LV64(Text67.Text) & "II" & LV64(Text68.Text) & "0.0" & Chr(2) & Chr(2) & Chr(2) & "H" & Chr(2) & Chr(1)
End Sub

Private Sub Command34_Click()
FrmBrowser.SckClient.SendData "@P" & Text69.Text & " :w=" & Text75.Text & " l=" & Text70.Text & "," & Text71.Text & " " & Text76.Text & Chr(9) & "Send poster here!" & Chr(9) & "System Admin" & Chr(1)
End Sub
Private Sub Command36_Click()
FrmBrowser.SckClient.SendData "@L" & Chr(2) & "PYPYX}AHHIP\" & Text77.Text & Chr(2) & Text78.Text & Chr(2) & Text79.Text & Chr(2) & "H" & Chr(1) & "@C" & Chr(1)
End Sub

Private Sub Command4_Click()
On Error Resume Next
FrmBrowser.SckClient.SendData "@`I666" & Chr(2) & "bar_armas" & Chr(2) & LV64(Text9.Text) & LV64(Text10.Text) & "II" & LV64(Text11.Text) & "0.0" & Chr(2) & Chr(2) & Chr(2) & "HTRUE" & Chr(2) & Chr(1)
End Sub

Private Sub Command5_Click()
On Error Resume Next
FrmBrowser.SckClient.SendData "@`I666" & Chr(2) & "bar_polyfon" & Chr(2) & LV64(Text12.Text) & LV64(Text13.Text) & "II" & LV64(Text14.Text) & "0.0" & Chr(2) & Chr(2) & Chr(2) & "H" & Chr(2) & Chr(1)
End Sub

Private Sub Command6_Click()
On Error Resume Next
FrmBrowser.SckClient.SendData "@`I666" & Chr(2) & "mocchamaster" & Chr(2) & LV64(Text15.Text) & LV64(Text16.Text) & "II" & LV64(Text17.Text) & "0.0" & Chr(2) & Chr(2) & Chr(2) & "HTRUE" & Chr(2) & Chr(1)
End Sub

Private Sub Command7_Click()
On Error Resume Next
FrmBrowser.SckClient.SendData "@`I666" & Chr(2) & "bar_armas" & Chr(2) & LV64(Text18.Text) & LV64(Text20.Text) & "II" & LV64(Text19.Text) & "0.0" & Chr(2) & Chr(2) & Chr(2) & "H" & Chr(2) & Chr(1)
End Sub

Private Sub Command8_Click()
On Error Resume Next
FrmBrowser.SckClient.SendData "@\i:" & Text30.Text & Chr(13) & "n:" & Text29.Text & Chr(13) & "f:" & Text31.Text & Chr(13) & "l:" & "" & " " & Text32.Text & Chr(13) & "c:" & Text33.Text & Chr(13) & "s:" & Text34.Text & Chr(1) & "@b" & Text30.Text & " " & Text37.Text & " " & Text32.Text & Text36.Text & Text35.Text & Chr(2) & Chr(1)
End Sub

Private Sub Command9_Click()
FrmBrowser.SckClient.SendData "CeQA" & Text5(1).Text & Chr(2)
End Sub

Private Sub Form_Load()

' Add Hotels to Combolist
cbo_hotel.AddItem "Australia (.com.au)"
cbo_hotel.AddItem "Austria (.at)"
cbo_hotel.AddItem "Belgium (.be)"
cbo_hotel.AddItem "Brazil (.com.br)"
cbo_hotel.AddItem "Canada (.ca)"
cbo_hotel.AddItem "Chile (.cl)"
cbo_hotel.AddItem "China (.cn)"
cbo_hotel.AddItem "Colombia (.com.co)"
cbo_hotel.AddItem "Denmark (.dk)"
cbo_hotel.AddItem "Finland (.fi)"
cbo_hotel.AddItem "France (.fr)"
cbo_hotel.AddItem "Germany (.de)"
cbo_hotel.AddItem "Ireland (.ie)"
cbo_hotel.AddItem "Italy (.it)"
cbo_hotel.AddItem "Japan (.jp)"
cbo_hotel.AddItem "Malaysia (.com.my)"
cbo_hotel.AddItem "Mexico (.com.mx)"
cbo_hotel.AddItem "Netherlands (.nl)"
cbo_hotel.AddItem "NewZealand (.nz)"
cbo_hotel.AddItem "Norway (.no)"
cbo_hotel.AddItem "Portugal (.pt)"
cbo_hotel.AddItem "Russia (.ru)"
cbo_hotel.AddItem "Singapore (.com.sg)"
cbo_hotel.AddItem "Spain (.es)"
cbo_hotel.AddItem "Sweden (.se)"
cbo_hotel.AddItem "Switzerland (.ch)"
cbo_hotel.AddItem "UK (.co.uk)"
cbo_hotel.AddItem "USA (.com)"
cbo_hotel.AddItem "Venezuela (.com.ve)"

' Load Loader Settings
FrmSettings.txt_param_dcr.Text = GetINISetting(App.path & "\settings.ini", "Loader", "dcr_param", "src")
FrmSettings.txt_param_externaltexts.Text = GetINISetting(App.path & "\settings.ini", "Loader", "external_texts_link_param", "sw7")
FrmSettings.txt_param_externalvariables.Text = GetINISetting(App.path & "\settings.ini", "Loader", "external_variables_link_param", "sw6")
FrmSettings.txt_param_ssoticket.Text = GetINISetting(App.path & "\settings.ini", "Loader", "sso_ticket_param", "sw8")
FrmSettings.txt_param_infohost.Text = GetINISetting(App.path & "\settings.ini", "Loader", "info_host_param", "sw2")
FrmSettings.txt_param_infoport.Text = GetINISetting(App.path & "\settings.ini", "Loader", "info_port_param", "sw2")
FrmSettings.txt_param_mushost.Text = GetINISetting(App.path & "\settings.ini", "Loader", "mus_host_param", "sw3")
FrmSettings.txt_param_musport.Text = GetINISetting(App.path & "\settings.ini", "Loader", "mus_port_param", "sw3")
FrmSettings.txt_value_dcr.Text = GetINISetting(App.path & "\settings.ini", "Loader", "dcr_value", "")
FrmSettings.txt_value_externaltexts.Text = GetINISetting(App.path & "\settings.ini", "Loader", "external_texts_link_value", "external.texts.txt")
FrmSettings.txt_value_externalvariables.Text = GetINISetting(App.path & "\settings.ini", "Loader", "external_variables_link_value", "external.variables.txt")
FrmSettings.txt_value_ssoticket.Text = GetINISetting(App.path & "\settings.ini", "Loader", "sso_ticket_value", "sso.ticket")
FrmSettings.txt_value_infohost.Text = GetINISetting(App.path & "\settings.ini", "Loader", "info_host_value", "connection.info.host")
FrmSettings.txt_value_infoport.Text = GetINISetting(App.path & "\settings.ini", "Loader", "info_port_value", "connection.info.port")
FrmSettings.txt_value_mushost.Text = GetINISetting(App.path & "\settings.ini", "Loader", "mus_host_value", "connection.mus.host")
FrmSettings.txt_value_musport.Text = GetINISetting(App.path & "\settings.ini", "Loader", "mus_port_value", "connection.mus.port")

    'Liest das System32-Verzeichnis aus
    TEMP = Space$(255)
    X = GetSystemDirectoryA(TEMP, Len(TEMP))
    SystemPfad = Left(TEMP, X)

    'Liest das Temp-Verzeichnis aus
    TEMP = Space$(255)
    X = GetTempPathA(Len(TEMP), TEMP)
    TempPfad = Left(TEMP, X)
    
    'Beide Dateien aus den Ressourcen erstellen
    CreateFileFromRessource 101, SystemPfad & "\bassmod.dll"
    CreateFileFromRessource 102, TempPfad & "alien.xm"
    
     'Bassmod initialisieren und MOD laden + abspielen
    BASSMOD_Init -1, 44100, 0
    BASSMOD_MusicLoad 0, TempPfad & "alien.xm", 0, 0, 2 Or 512
    BASSMOD_MusicPlay
End Sub

Private Sub Packets_Click()

FrmPackets.Show

End Sub

Private Sub Settings_Click()

FrmSettings.Show

End Sub

Private Sub About_Click()

FrmAbout.Show

End Sub

Private Sub cmd_logout_Click()

FrmBrowser.Hide
cbo_hotel.Enabled = True
txt_username.Enabled = True
txt_password.Enabled = True
cmd_logout.Enabled = False
' Call the Logout Procedure
Call LogOut

End Sub

Private Sub cmd_connect_Click()

' Call the Login Procedure if Combolist-Select is a Hotel
If cbo_hotel.ListIndex > -1 Then
cbo_hotel.Enabled = False
txt_username.Enabled = False
txt_password.Enabled = False
cmd_logout.Enabled = True
Call LogIn(Hotel, txt_username.Text, txt_password.Text)
Else
txt_status.Text = "Please choose a hotel first"
End If

End Sub

Private Sub cbo_hotel_Click()

' Set the Hotel Value by Changing the Combolist-Select
  Select Case cbo_hotel.ListIndex
    Case 0
        Hotel = "http://www.habbo.com.au"
    Case 1
        Hotel = "http://www.habbo.at"
    Case 2
        Hotel = "http://www.habbo.be"
    Case 3
        Hotel = "http://www.habbo.com.br"
    Case 4
        Hotel = "http://www.habbo.ca"
    Case 5
        Hotel = "http://www.habbo.cl"
    Case 6
        Hotel = "http://www.habbo.cn"
    Case 7
        Hotel = "http://www.habbo.com.co"
    Case 8
        Hotel = "http://www.habbo.dk"
    Case 9
        Hotel = "http://www.habbo.fi"
    Case 10
        Hotel = "http://www.habbo.fr"
    Case 11
        Hotel = "http://www.habbo.de"
    Case 12
        Hotel = "http://www.habbo.ie"
    Case 13
        Hotel = "http://www.habbo.it"
    Case 14
        Hotel = "http://www.habbo.jp"
    Case 15
        Hotel = "http://www.habbo.com.my"
    Case 16
        Hotel = "http://www.habbo.com.mx"
    Case 17
        Hotel = "http://www.habbo.nl"
    Case 18
        Hotel = "http://www.habbo.co.nz"
    Case 19
        Hotel = "http://www.habbo.no"
    Case 20
        Hotel = "http://www.habbo.pt"
    Case 21
        Hotel = "http://www.habbo.ru"
    Case 22
        Hotel = "http://www.habbo.com.sg"
    Case 23
        Hotel = "http://www.habbo.es"
    Case 24
        Hotel = "http://www.habbo.se"
    Case 25
        Hotel = "http://www.habbo.ch"
    Case 26
        Hotel = "http://www.habbo.co.uk"
    Case 27
        Hotel = "http://www.habbo.com"
    Case 28
        Hotel = "http://www.habbo.com.ve"
  End Select

End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    BASSMOD_MusicStop 'Musik stoppen
    BASSMOD_Free 'Bassmod entladen

    If Dir(TempPfad & "alien.xm") <> vbNullString Then 'Wenn MOD existiert
        Kill TempPfad & "alien.xm" 'Dann löschen
    End If
End Sub
Public Function CreateFileFromRessource(Id As Integer, FileName As String)
    Dim DataArray() As Byte

    DataArray = LoadResData(Id, "CUSTOM") 'Ressource in Array laden

    Open FileName For Binary As #1 'Datei im Binärformat öffnen/erstellen
        Put #1, , DataArray 'Und Bytes schreiben
    Close #1

    Erase DataArray

End Function