VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX"
Object = "{48E59290-9880-11CF-9754-00AA00C00908}#1.0#0"; "MSINET.OCX"
Object = "{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}#1.1#0"; "SHDOCVW.dll"
Begin VB.Form frmMain 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "FookIT! :: Main"
   ClientHeight    =   1950
   ClientLeft      =   150
   ClientTop       =   840
   ClientWidth     =   7350
   LinkTopic       =   "frmMain"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   Picture         =   "frmMain.frx":0000
   ScaleHeight     =   130
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   490
   StartUpPosition =   3  'Windows Default
   Begin VB.Timer tmrAXSit 
      Enabled         =   0   'False
      Interval        =   600
      Left            =   5400
      Top             =   120
   End
   Begin VB.Timer tmrAXSwim 
      Enabled         =   0   'False
      Interval        =   600
      Left            =   4920
      Top             =   120
   End
   Begin VB.Timer tmrAXLay 
      Enabled         =   0   'False
      Interval        =   600
      Left            =   5880
      Top             =   120
   End
   Begin InetCtlsObjects.Inet intSource 
      Left            =   6720
      Top             =   600
      _ExtentX        =   1005
      _ExtentY        =   1005
      _Version        =   393216
   End
   Begin SHDocVwCtl.WebBrowser Web 
      Height          =   4695
      Left            =   5160
      TabIndex        =   1
      Top             =   2760
      Width           =   9255
      ExtentX         =   16325
      ExtentY         =   8281
      ViewMode        =   0
      Offline         =   0
      Silent          =   0
      RegisterAsBrowser=   0
      RegisterAsDropTarget=   1
      AutoArrange     =   0   'False
      NoClientEdge    =   0   'False
      AlignLeft       =   0   'False
      NoWebView       =   0   'False
      HideFileNames   =   0   'False
      SingleClick     =   0   'False
      SingleSelection =   0   'False
      NoFolders       =   0   'False
      Transparent     =   0   'False
      ViewID          =   "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
      Location        =   ""
   End
   Begin MSComctlLib.StatusBar StatusBar1 
      Align           =   2  'Align Bottom
      Height          =   255
      Left            =   0
      TabIndex        =   0
      Top             =   1695
      Width           =   7350
      _ExtentX        =   12965
      _ExtentY        =   450
      Style           =   1
      _Version        =   393216
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
         NumPanels       =   1
         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
         EndProperty
      EndProperty
   End
   Begin MSWinsockLib.Winsock sckClient 
      Left            =   6360
      Top             =   120
      _ExtentX        =   741
      _ExtentY        =   741
      _Version        =   393216
   End
   Begin MSWinsockLib.Winsock sckServer 
      Left            =   6840
      Top             =   120
      _ExtentX        =   741
      _ExtentY        =   741
      _Version        =   393216
   End
   Begin VB.Image imgBanner 
      Height          =   1695
      Left            =   0
      Picture         =   "frmMain.frx":0C42
      Top             =   0
      Width           =   7335
   End
   Begin VB.Menu mnuConnection 
      Caption         =   "Connection"
      Begin VB.Menu mnuDefinedConnection 
         Caption         =   "Defined connection"
      End
      Begin VB.Menu mnuCustomConnection 
         Caption         =   "Custom connection"
      End
   End
   Begin VB.Menu mnuDataManagement 
      Caption         =   "Data"
      Begin VB.Menu mnuPacketDebug 
         Caption         =   "Packet debug"
      End
      Begin VB.Menu mnuPacketSend 
         Caption         =   "Packet send"
      End
      Begin VB.Menu mnuPacketReplace 
         Caption         =   "Packet replace"
      End
      Begin VB.Menu mnuPacketIRTS 
         Caption         =   "Packet IRTS"
      End
   End
   Begin VB.Menu mnuClientsideScripts 
      Caption         =   "Clientside"
      Begin VB.Menu mnuFuse 
         Caption         =   "Fuse Commands"
         Begin VB.Menu mnuFuseChooser 
            Caption         =   ":Chooser"
         End
         Begin VB.Menu mnuFuseFurni 
            Caption         =   ":Furni"
         End
         Begin VB.Menu mnuFusePerformance 
            Caption         =   ":Performance"
         End
         Begin VB.Menu mnuFuseTheTool 
            Caption         =   "The Tool"
         End
         Begin VB.Menu mnuFuseIgnoreOwner 
            Caption         =   "Ignore owner"
         End
      End
      Begin VB.Menu mnuWIB 
         Caption         =   "Walk in black (Reload)"
      End
      Begin VB.Menu mnuWallPart 
         Caption         =   "Wallpart Editor"
      End
      Begin VB.Menu mnuRoomWall 
         Caption         =   "Room wall"
      End
   End
   Begin VB.Menu mnuServersideScripts 
      Caption         =   "Serverside"
      Begin VB.Menu mnuDrinkItems 
         Caption         =   "Drinks/Items"
         Begin VB.Menu mnuDrinkNormal1 
            Caption         =   "#01 -  Tea"
         End
         Begin VB.Menu mnuDrinkNormal2 
            Caption         =   "#02 - Juice"
         End
         Begin VB.Menu mnuDrinkNormal3 
            Caption         =   "#03 - Carrot"
         End
         Begin VB.Menu mnuDrinkNormal4 
            Caption         =   "#04 - Ice-cream"
         End
         Begin VB.Menu mnuDrinkNormal5 
            Caption         =   "#05 - Milk"
         End
         Begin VB.Menu mnuDrinkNormal6 
            Caption         =   "#06 - Blackcurrent"
         End
         Begin VB.Menu mnuDrinkNormal7 
            Caption         =   "#07 - Water"
         End
         Begin VB.Menu mnuDrinkNormal8 
            Caption         =   "#08 - Regular"
         End
         Begin VB.Menu mnuDrinkNormal9 
            Caption         =   "#09 - Decaff"
         End
         Begin VB.Menu mnuDrinkNormal10 
            Caption         =   "#10 - Latte"
         End
         Begin VB.Menu mnuDrinkNormal11 
            Caption         =   "#11 - Mocha"
         End
         Begin VB.Menu mnuDrinkNormal12 
            Caption         =   "#12 - Macchiato"
         End
         Begin VB.Menu mnuDrinkNormal13 
            Caption         =   "#13 - Expresso"
         End
         Begin VB.Menu mnuDrinkNormal14 
            Caption         =   "#14 - Filter"
         End
         Begin VB.Menu mnuDrinkNormal15 
            Caption         =   "#15 - Iced"
         End
         Begin VB.Menu mnuDrinkNormal16 
            Caption         =   "#16 - Cappucchino"
         End
         Begin VB.Menu mnuDrinkNormal17 
            Caption         =   "#17 - Java"
         End
         Begin VB.Menu mnuDrinkNormal18 
            Caption         =   "#18 - Tap"
         End
         Begin VB.Menu mnuDrinkNormal19 
            Caption         =   "#19 - Habbo Cola"
         End
         Begin VB.Menu mnuDrinkNormal20 
            Caption         =   "#20 - Camera"
         End
         Begin VB.Menu mnuDrinkNormal21 
            Caption         =   "#21 - Hamburger"
         End
         Begin VB.Menu mnuDrinkNormal22 
            Caption         =   "#22 - Lime Habbo Soda"
         End
         Begin VB.Menu mnuDrinkNormal24 
            Caption         =   "#23 - Beetroot Habbo Soda"
         End
         Begin VB.Menu mnuDrinkNormal23 
            Caption         =   "#24 - Bubble Juice From 1978"
         End
         Begin VB.Menu mnuDrinkNormal25 
            Caption         =   "#25 - Love Potion"
         End
         Begin VB.Menu mnuDrinkNormal99 
            Caption         =   "#99 - Invisible"
         End
         Begin VB.Menu mnuDrinkNormal00 
            Caption         =   "#00 - No Drink"
         End
      End
      Begin VB.Menu mnuSigning 
         Caption         =   "Signing"
         Begin VB.Menu mnuFurniSign 
            Caption         =   "Furniture signing"
         End
         Begin VB.Menu mnuPosterSigning 
            Caption         =   "Poster signing"
         End
         Begin VB.Menu mnuSigningTricks 
            Caption         =   "Signing tricks"
         End
      End
      Begin VB.Menu mnuAX 
         Caption         =   "AX - Stop"
         Begin VB.Menu mnuJesus 
            Caption         =   "AXSwim - Jesus"
         End
         Begin VB.Menu mnuAXSit 
            Caption         =   "AXSit - Walk on chair"
         End
         Begin VB.Menu mnuAXLay 
            Caption         =   "AXLay - Stand on bed"
         End
         Begin VB.Menu mnuAXCarryItem 
            Caption         =   "AXCarryItem - Drop item"
         End
         Begin VB.Menu mnuAXCarryDrink 
            Caption         =   "AXCarryDrink - Drop drink"
         End
      End
      Begin VB.Menu mnuRoom 
         Caption         =   "Room entry"
         Begin VB.Menu mnuRoomRIF 
            Caption         =   "Reload if full"
         End
         Begin VB.Menu mnuRoomDAT 
            Caption         =   "Doorbell auto-try"
         End
         Begin VB.Menu mnuRoomPassBrute 
            Caption         =   "Password bruter"
         End
      End
      Begin VB.Menu mnuMessages 
         Caption         =   "Mass messaging"
      End
      Begin VB.Menu mnuCFHF 
         Caption         =   "Call for help flooder"
      End
   End
   Begin VB.Menu mnuProgramside 
      Caption         =   "Programside"
      Begin VB.Menu mnuCommands 
         Caption         =   "Commands"
         Begin VB.Menu mnuInfo 
            Caption         =   "Use the name ""All"" for everybody"
            Enabled         =   0   'False
         End
         Begin VB.Menu mnuCommandKick 
            Caption         =   "#KICK('Username')"
            Checked         =   -1  'True
         End
         Begin VB.Menu mnuCommandCredits 
            Caption         =   "#CREDITS('Username','Ammount')"
            Checked         =   -1  'True
         End
         Begin VB.Menu mnuCommandReload 
            Caption         =   "#RELOAD('Username')"
            Checked         =   -1  'True
         End
         Begin VB.Menu mnuCommandBan 
            Caption         =   "#Ban('Username','Reason')"
            Checked         =   -1  'True
         End
         Begin VB.Menu mnuCommandAlert 
            Caption         =   "#ALERT('Username', 'Message')"
            Checked         =   -1  'True
         End
      End
      Begin VB.Menu mnuRooms 
         Caption         =   "Rooms"
      End
   End
   Begin VB.Menu mnuHomes 
      Caption         =   "Habbo homes"
      Begin VB.Menu mnuMassPoof 
         Caption         =   "Mass poof"
      End
      Begin VB.Menu mnuImitateBoy 
         Caption         =   "Imitate (BOY)"
      End
      Begin VB.Menu mnuImitateGirl 
         Caption         =   "Imitate (GIRL)"
      End
   End
   Begin VB.Menu mnuAbout 
      Caption         =   "About"
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public FSO As New FileSystemObject
' Encryption Declarations
Public PublicKey As String
Public RC4E As New clsHabboRC4
Public RC4D As New clsHabboRC4
Public SentData As Boolean

Private Sub Form_Load()
' Check the hosts file.
HostsFile
End Sub

Private Sub Form_Unload(Cancel As Integer)
' Variables.
Dim Answer As String
' Ask the client if they wish to close.
Answer = MsgBox("Are you sure you wish to close? Your Habbo connection will be lost.", vbYesNo, "Are you sure?")
' Check the variables.
If Answer = vbYes Then
    End
ElseIf Answer = vbNo Then
    Cancel = 1
End If
End Sub

Public Function HostsFile()
' Variables.
Dim TxtFile As String
' Open the textfile for checking.
TxtFile = FSO.OpenTextFile("C:\WINDOWS\system32\drivers\etc\hosts", ForReading).ReadAll
' Check the textfile.
If InStr(TxtFile, "fookit") Then
    Exit Function
Else
    FSO.OpenTextFile("C:\WINDOWS\system32\drivers\etc\hosts", ForWriting).Write vbCrLf & "fookit" & Chr(9) & "127.0.0.1"
End If
End Function

Private Sub mnuAbout_Click()
' Show the about form.
frmAbout.Show
End Sub

Private Sub mnuAXCarryDrink_Click()
' Send the data.
mdlFunctions.SendData frmMain.sckServer, "AXCarryDrink"
End Sub

Private Sub mnuAXCarryItem_Click()
' Send the data.
mdlFunctions.SendData frmMain.sckServer, "AXCarryItem"
End Sub

Private Sub mnuAXLay_Click()
' Ask if they want it looped, it not then send once.
If mnuAXLay.Checked = True Then
    mnuAXLay.Checked = False
    frmMain.tmrAXLay.Enabled = False
ElseIf mnuAXLay.Checked = False Then
    vbanswer = MsgBox("Do you wish to loop this packet to walk on your bed?", vbYesNo, "FookIT! Question?")
    If vbanswer = vbYes Then
        frmMain.tmrAXLay.Enabled = True
        mnuAXLay.Checked = True
    ElseIf vbanswer = vbNo Then
        mdlFunctions.SendData frmMain.sckServer, "AXLay"
    End If
End If
End Sub

Private Sub mnuAXSit_Click()
' Ask if they want it looped, it not then send once.
If mnuAXSit.Checked = True Then
    mnuAXSit.Checked = False
    frmMain.tmrAXSit.Enabled = False
ElseIf mnuAXSit.Checked = False Then
    vbanswer = MsgBox("Do you wish to loop this packet to walk on your chair?", vbYesNo, "FookIT! Question?")
    If vbanswer = vbYes Then
        frmMain.tmrAXSit.Enabled = True
        mnuAXSit.Checked = True
    ElseIf vbanswer = vbNo Then
        mdlFunctions.SendData frmMain.sckServer, "AXSit"
    End If
End If
End Sub

Private Sub mnuCFHF_Click()
' Show the form.
frmCFH.Show
End Sub

Private Sub mnuCommandAlert_Click()
If mnuCommandAlert.Checked = True Then
    mnuCommandAlert.Checked = False
Else
    mnuCommandAlert.Checked = True
End If
End Sub

Private Sub mnuCommandBan_Click()
If mnuCommandBan.Checked = True Then
    mnuCommandBan.Checked = False
Else
    mnuCommandBan.Checked = True
End If
End Sub

Private Sub mnuCommandCredits_Click()
If mnuCommandCredits.Checked = True Then
    mnuCommandCredits.Checked = False
Else
    mnuCommandCredits.Checked = True
End If
End Sub

Private Sub mnuCommandKick_Click()
If mnuCommandKick.Checked = True Then
    mnuCommandKick.Checked = False
Else
    mnuCommandKick.Checked = True
End If
End Sub

Private Sub mnuCommandReload_Click()
If mnuCommandReload.Checked = True Then
    mnuCommandReload.Checked = False
Else
    mnuCommandReload.Checked = True
End If
End Sub

Private Sub mnuDefinedConnection_Click()
' Show the defined connection form.
frmDefinedConnection.Show
End Sub

Private Sub mnuDrinkNormal00_Click()
' Get drink ID.
mdlFunctions.SendData frmMain.sckServer, "AP" & "00"
End Sub

Private Sub mnuDrinkNormal1_Click()
' Get drink ID.
mdlFunctions.SendData frmMain.sckServer, "AP" & "1"
End Sub

Private Sub mnuDrinkNormal10_Click()
' Get drink ID.
mdlFunctions.SendData frmMain.sckServer, "AP" & "10"
End Sub

Private Sub mnuDrinkNormal11_Click()
' Get drink ID.
mdlFunctions.SendData frmMain.sckServer, "AP" & "11"
End Sub

Private Sub mnuDrinkNormal12_Click()
' Get drink ID.
mdlFunctions.SendData frmMain.sckServer, "AP" & "12"
End Sub

Private Sub mnuDrinkNormal13_Click()
' Get drink ID.
mdlFunctions.SendData frmMain.sckServer, "AP" & "13"
End Sub

Private Sub mnuDrinkNormal14_Click()
' Get drink ID.
mdlFunctions.SendData frmMain.sckServer, "AP" & "14"
End Sub

Private Sub mnuDrinkNormal15_Click()
' Get drink ID.
mdlFunctions.SendData frmMain.sckServer, "AP" & "15"
End Sub

Private Sub mnuDrinkNormal16_Click()
' Get drink ID.
mdlFunctions.SendData frmMain.sckServer, "AP" & "16"
End Sub

Private Sub mnuDrinkNormal17_Click()
' Get drink ID.
mdlFunctions.SendData frmMain.sckServer, "AP" & "17"
End Sub

Private Sub mnuDrinkNormal18_Click()
' Get drink ID.
mdlFunctions.SendData frmMain.sckServer, "AP" & "18"
End Sub

Private Sub mnuDrinkNormal19_Click()
' Get drink ID.
mdlFunctions.SendData frmMain.sckServer, "AP" & "19"
End Sub

Private Sub mnuDrinkNormal2_Click()
' Get drink ID.
mdlFunctions.SendData frmMain.sckServer, "AP" & "2"
End Sub

Private Sub mnuDrinkNormal20_Click()
' Get drink ID.
mdlFunctions.SendData frmMain.sckServer, "AP" & "20"
End Sub

Private Sub mnuDrinkNormal21_Click()
' Get drink ID.
mdlFunctions.SendData frmMain.sckServer, "AP" & "21"
End Sub

Private Sub mnuDrinkNormal22_Click()
' Get drink ID.
mdlFunctions.SendData frmMain.sckServer, "AP" & "22"
End Sub

Private Sub mnuDrinkNormal23_Click()
' Get drink ID.
mdlFunctions.SendData frmMain.sckServer, "AP" & "23"
End Sub

Private Sub mnuDrinkNormal24_Click()
' Get drink ID.
mdlFunctions.SendData frmMain.sckServer, "AP" & "24"
End Sub

Private Sub mnuDrinkNormal25_Click()
' Get drink ID.
mdlFunctions.SendData frmMain.sckServer, "AP" & "25"
End Sub

Private Sub mnuDrinkNormal3_Click()
' Get drink ID.
mdlFunctions.SendData frmMain.sckServer, "AP" & "3"
End Sub

Private Sub mnuDrinkNormal4_Click()
' Get drink ID.
mdlFunctions.SendData frmMain.sckServer, "AP" & "4"
End Sub

Private Sub mnuDrinkNormal5_Click()
' Get drink ID.
mdlFunctions.SendData frmMain.sckServer, "AP" & "5"
End Sub

Private Sub mnuDrinkNormal6_Click()
' Get drink ID.
mdlFunctions.SendData frmMain.sckServer, "AP" & "6"
End Sub

Private Sub mnuDrinkNormal7_Click()
' Get drink ID.
mdlFunctions.SendData frmMain.sckServer, "AP" & "7"
End Sub

Private Sub mnuDrinkNormal8_Click()
' Get drink ID.
mdlFunctions.SendData frmMain.sckServer, "AP" & "8"
End Sub

Private Sub mnuDrinkNormal9_Click()
' Get drink ID.
mdlFunctions.SendData frmMain.sckServer, "AP" & "9"
End Sub

Private Sub mnuFurniSign_Click()
' Load the signing form.
frmSignFurni.Show
End Sub

Private Sub mnuFuseChooser_Click()
' Send the FUSE.
frmMain.sckClient.SendData "@B" & "fuse_habbo_chooser" & Chr(2) & Chr(1)
End Sub

Private Sub mnuFuseFurni_Click()
' Send the FUSE.
frmMain.sckClient.SendData "@B" & "fuse_furni_chooser" & Chr(2) & Chr(1)
End Sub

Private Sub mnuFuseIgnoreOwner_Click()
' Send the FUSE.
frmMain.sckClient.SendData "@B" & "fuse_ignore_room_owner" & Chr(2) & Chr(1)
End Sub

Private Sub mnuFusePerformance_Click()
' Send the FUSE.
frmMain.sckClient.SendData "@B" & "fuse_performance_panel" & Chr(2) & Chr(1)
End Sub

Private Sub mnuFuseTheTool_Click()
' Send the FUSE.
frmMain.sckClient.SendData "@B" & "fuse_kick" & Chr(2) & Chr(1)
End Sub

Private Sub mnuImitateBoy_Click()
' Change the value of the menubar.
If frmMain.mnuImitateBoy.Checked = False Then
    frmMain.mnuImitateGirl.Enabled = False
    frmMain.mnuImitateBoy.Checked = True
ElseIf frmMain.mnuImitateBoy.Checked = True Then
    frmMain.mnuImitateBoy.Checked = False
    frmMain.mnuImitateGirl.Enabled = True
End If
End Sub

Private Sub mnuImitateGirl_Click()
' Change the value of the menubar.
If frmMain.mnuImitateGirl.Checked = False Then
    frmMain.mnuImitateBoy.Enabled = False
    frmMain.mnuImitateGirl.Checked = True
ElseIf frmMain.mnuImitateGirl.Checked = True Then
    frmMain.mnuImitateGirl.Checked = False
    frmMain.mnuImitateBoy.Enabled = True
End If
End Sub

Private Sub mnuJesus_Click()
' Ask if they want it looped, it not then send once.
If mnuJesus.Checked = True Then
    mnuJesus.Checked = False
    frmMain.tmrAXSwim.Enabled = False
ElseIf mnuJesus.Checked = False Then
    vbanswer = MsgBox("Do you wish to loop this packet to walk on water?", vbYesNo, "FookIT! Question?")
    If vbanswer = vbYes Then
        frmMain.tmrAXSwim.Enabled = True
        mnuJesus.Checked = True
    ElseIf vbanswer = vbNo Then
        mdlFunctions.SendData frmMain.sckServer, "AXSwim"
    End If
End If
End Sub

Private Sub mnuMassPoof_Click()
' Change the value of the menubar.
If frmMain.mnuMassPoof.Checked = False Then
    frmMain.mnuMassPoof.Checked = True
    Call MassPoof
ElseIf frmMain.mnuMassPoof.Checked = True Then
    frmMain.mnuMassPoof.Checked = False
End If
End Sub

Private Sub mnuMessages_Click()
' Show the messaging form.
frmMessaging.Show
End Sub

Private Sub mnuPacketDebug_Click()
' Show the packet debug.
frmPacketDebug.Show
End Sub

Private Sub mnuPacketReplace_Click()
' Show the replace form.
frmSreplace.Show
End Sub

Private Sub mnuPacketSend_Click()
' Show the packet send.
frmSendPacket.Show
End Sub

Private Sub mnuPosterSigning_Click()
' Show the signing poster form.
frmSignPoster.Show
End Sub

Private Sub mnuRoomWall_Click()
Dim leftwallID As String
Dim rightwallID As String
Dim RightCoORd As String
Dim LeftCoOrd As String

rightwallID = 50
RightCoORd = 6
leftwallID = 30
LeftCoOrd = 6
For i = 0 To 12
frmMain.sckClient.SendData "@^b" & rightwallID & " right_wallpart_0 " & RightCoORd & " 5 -8 0" & Chr(1)
frmMain.sckClient.SendData "@^b" & leftwallID & " left_wallpart_0 5 " & LeftCoOrd & " -8 0" & Chr(1)
frmMain.sckClient.SendData "@^b" & rightwallID + 40 & " right_wallpart_0 " & RightCoORd & " 5 -6 0" & Chr(1)
frmMain.sckClient.SendData "@^b" & leftwallID + 40 & " left_wallpart_0 5 " & LeftCoOrd & " -6 0" & Chr(1)
frmMain.sckClient.SendData "@^b" & rightwallID + 80 & " right_wallpart_0 " & RightCoORd & " 5 -4 0" & Chr(1)
frmMain.sckClient.SendData "@^b" & leftwallID + 80 & " left_wallpart_0 5 " & LeftCoOrd & " -4 0" & Chr(1)
frmMain.sckClient.SendData "@^b" & rightwallID + 120 & " right_wallpart_0 " & RightCoORd & " 5 -2 0" & Chr(1)
frmMain.sckClient.SendData "@^b" & leftwallID + 120 & " left_wallpart_0 5 " & LeftCoOrd & " -2 0" & Chr(1)
frmMain.sckClient.SendData "@^b" & rightwallID + 160 & " right_wallpart_0 " & RightCoORd & " 5 0 0" & Chr(1)
frmMain.sckClient.SendData "@^b" & leftwallID + 160 & " left_wallpart_0 5 " & LeftCoOrd & " 0 0" & Chr(1)
frmMain.sckClient.SendData "@^b" & rightwallID + 200 & " right_wallpart_0 " & RightCoORd & " 5 2 0" & Chr(1)
frmMain.sckClient.SendData "@^b" & leftwallID + 200 & " left_wallpart_0 5 " & LeftCoOrd & " 2 0" & Chr(1)
frmMain.sckClient.SendData "@^b" & rightwallID + 240 & " right_wallpart_0 " & RightCoORd & " 5 4 0" & Chr(1)
frmMain.sckClient.SendData "@^b" & leftwallID + 240 & " left_wallpart_0 5 " & LeftCoOrd & " 4 0" & Chr(1)
frmMain.sckClient.SendData "@^b" & rightwallID + 280 & " right_wallpart_0 " & RightCoORd & " 5 6 0" & Chr(1)
frmMain.sckClient.SendData "@^b" & leftwallID + 280 & " left_wallpart_0 5 " & LeftCoOrd & " 6 0" & Chr(1)
rightwallID = rightwallID + 1
RightCoORd = RightCoORd + 1
leftwallID = leftwallID + 1
LeftCoOrd = LeftCoOrd + 1
Next i
End Sub

Private Sub mnuSigningTricks_Click()
' Show the tricks form.
frmSignTricks.Show
End Sub

Private Sub mnuWallPart_Click()
' Show the wallpart form.
frmWallPart.Show
End Sub

Private Sub mnuWIB_Click()
' Change the value of the menubar.
If frmMain.mnuWIB.Checked = False Then
    frmMain.mnuWIB.Checked = True
    frmMain.sckClient.SendData "DB0" & Chr(1)
ElseIf frmMain.mnuWIB.Checked = True Then
    frmMain.mnuWIB.Checked = False
End If
End Sub

Private Sub sckClient_ConnectionRequest(ByVal requestID As Long)
' Make the server socket connect to Habbo.
sckServer.Connect
' Reduce errors.
sckClient.Close
' Accept the connection.
sckClient.Accept requestID
End Sub

Private Sub sckClient_DataArrival(ByVal bytesTotal As Long)
' Variables.
Dim sData As String
Dim dData As String

' Get the data.
frmMain.sckClient.GetData sData

' Log the data.
If frmPacketDebug.chkPauseEncrypted.Value = 0 Then
    LogEncryptedServerData (sData)
End If

' Encryption Checks
If sData = "@@BCJ" Then GoTo no
If sData = "@@BCN" Then GoTo no
If PublicKey = "" Then Exit Sub

dData = RC4D.decipher(sData)

If SentData = False Then
    RC4E.decipher (sData)
End If

' Decrypted Log
If frmPacketDebug.chkPauseDecrypted.Value = 0 Then
    LogDecryptedServerData (dData)
End If

If SentData = True Then
    ' Encipher the data and send.
    sckServer.SendData RC4E.encipher(dData)
Else
no:
    ' Forward the data.
    frmMain.sckServer.SendData sData
End If

End Sub

Private Sub sckServer_DataArrival(ByVal bytesTotal As Long)
' Variables.
Dim sckBuffer As String
Dim ID As String

' Get the data.
frmMain.sckServer.GetData sckBuffer

' Log the data.
If frmPacketDebug.chkPauseClient.Value = 0 Then
    LogClientData (sckBuffer)
End If

' Check protocol.
CheckProto (sckBuffer)

' S+R
If frmSreplace.chkSearchClient.Value = 1 Then
    If InStr(sckBuffer, frmSreplace.txtSearch.Text) Then
        sckBuffer = Replace(sckBuffer, frmSreplace.txtSearch.Text, frmSreplace.txtReplace.Text)
    End If
End If

' Badges.
' Dean
If InStr(sckBuffer, "n:Destroy" & Chr(13) & "f:1251718008250082801329509") Then
    ID = Split(sckBuffer, "@\i:")(1)
    ID = Split(ID, Chr(13))(0)
    If frmDefinedConnection.txtUsername.Text <> "Destroy" Then
    sckBuffer = "@\i:" & ID & Chr(13) & "a:1337" & Chr(13) & "n:Dean" & Chr(13) & "f:1251718008250082801329509" & Chr(13) & "l: 3 5 00" & Chr(13) & "c:Have a polo" & Chr(13) & "s:m" & Chr(13) & "g:15052" & Chr(13) & "b:ADM" & Chr(1)
    End If
    ID = ""
End If
' Tobias
If InStr(sckBuffer, "n:Medicationz" & Chr(13) & "f:1600919001255042801229510") Then
    ID = Split(sckBuffer, "@\i:")(1)
    ID = Split(ID, Chr(13))(0)
    If frmDefinedConnection.txtUsername.Text <> "Medicationz" Then
    sckBuffer = "@\i:" & ID & Chr(13) & "a:1336" & Chr(13) & "n:Tobias" & Chr(13) & "f:8281619001255042801229510" & Chr(13) & "l: 3 5 00" & Chr(13) & "c:DoseMyselfInGasoline" & Chr(13) & "s:m" & Chr(13) & "g:15052" & Chr(13) & "b:ADM" & Chr(1)
    End If
    ID = ""
End If

' Split PublicKey
If Left(sckBuffer, 2) = "@A" Then
    PublicKey = Split(sckBuffer, "@A")(1)
    PublicKey = Split(PublicKey, Chr(1))(0)
    ' Setup the encryption Classes
    RC4E.setKey PublicKey
    RC4D.setKey PublicKey
End If

' Forward the sckbuffer.
frmMain.sckClient.SendData sckBuffer
End Sub

Private Sub tmrAXLay_Timer()
If frmMain.mnuAXLay.Checked = False Then Exit Sub
' Send the data on loop.
mdlFunctions.SendData frmMain.sckServer, "AXLay"
' Restart timer.
tmrAXSit.Enabled = False
tmrAXSit.Enabled = True
End Sub

Private Sub tmrAXSit_Timer()
If frmMain.mnuAXSit.Checked = False Then Exit Sub
' Send the data on loop.
mdlFunctions.SendData frmMain.sckServer, "AXSit"
' Restart timer.
tmrAXSit.Enabled = False
tmrAXSit.Enabled = True
End Sub

Private Sub tmrAXSwim_Timer()
If frmMain.mnuJesus.Checked = False Then Exit Sub
' Send the data on loop.
mdlFunctions.SendData frmMain.sckServer, "AXSwim"
' Restart timer.
tmrAXSwim.Enabled = False
tmrAXSwim.Enabled = True
End Sub

Private Sub Web_TitleChange(ByVal Text As String)
On Error Resume Next
Dim URL As String
Dim TheSource As String
URL = Web.LocationURL

' Loading Page
If InStr(URL, "http://" & frmDefinedConnection.cboNationality.Text & "client") Then
    TheSource = intSource.OpenURL(URL)
    Call SplitClientInfo(TheSource)
    Web.Navigate ("http://" & frmDefinedConnection.cboNationality.Text)
    frmDefinedConnection.Hide
End If

' Already Logged In
If InStr(URL, "https://" & frmDefinedConnection.cboNationality.Text & "account/reauthenticate") Then
    Web.Navigate ("http://" & frmDefinedConnection.cboNationality.Text & "account/logout?reason=oncurrentlogin")
    MsgBox "You were already logged in, please try again!", vbInformation, "Already Logged In!"
    ' Re-enable buttons here if you need too
End If

' Log User Out
If InStr(URL, "http://" & frmDefinedConnection.cboNationality.Text & "account/logout?reason=oncurrentlogin") Then
    MsgBox "Logged Out Successfully.", vbInformation, "Logged Out Success!"
End If

' Point to Habbos Client
If InStr(URL, "https://" & frmDefinedConnection.cboNationality.Text & "account/submit?") Then
    Web.Navigate ("http://" & frmDefinedConnection.cboNationality.Text & "client")
End If

' Check Username And Password
If InStr(URL, "https://" & frmDefinedConnection.cboNationality.Text & "security_check") Then
    Web.Navigate ("http://" & frmDefinedConnection.cboNationality.Text & "client")
End If

End Sub