Attribute VB_Name = "modFunctions"
'
' > SOURCE INFORMATION
'    Name:        Habbo Winsock 2.0
'    Author:      Hakavelli Pliz
'    TOC:         2:13 AM / Tue 28 june
'
' > INFORMATION
'    Website(s):       Hakavelli.info, Jayz0r.net, Soleil.maplehost.co.uk
'    MSN Messenger:    Hakavelli@hotmail.co.uk
'    Habbo Hotel UK:   Hakavelli
'
' > UPDATES
'    It now loads 3 different hotels (UK, CA and USA)
'    A more friendly UI(User interface)
'    Cleaned up the code
'    More functions
'
Public Enum DebugType
    Server_Type
    Client_Type
    Error_Type
    Habbo_Winsock_Type
End Enum

Public sPacket As String
Public pName As String
Public pEmail As String
Public pMission As String
Public pSex As String
Public pFigure As String
Public pBirthday As String
Public pCamera As String
Public pPHTickets As String
Public pPHFigure As String
Public pDirectMail As String

Public Sub GetInformation(sData As String)
'Name
sPacket = Split(sData, "name=")(1)
sPacket = Split(sPacket, "email=")(0)
sPacket = Split(sPacket, Chr(13))(0)
pName = sPacket

'Email
sPacket = Split(sData, "email=")(1)
sPacket = Split(sPacket, "figure=")(0)
sPacket = Split(sPacket, Chr(13))(0)
pEmail = sPacket

'Mission
sPacket = Split(sData, "customData=")(1)
sPacket = Split(sPacket, "ph_tickets=")(0)
sPacket = Split(sPacket, Chr(13))(0)
pMission = sPacket

'Sex
sPacket = Split(sData, "sex=")(1)
sPacket = Split(sPacket, "customData=")(0)
sPacket = Split(sPacket, Chr(13))(0)
pSex = sPacket

'Figure ID
sPacket = Split(sData, "figure=")(1)
sPacket = Split(sPacket, "sex=")(0)
sPacket = Split(sPacket, Chr(13))(0)
pFigure = sPacket

'Birthday
sPacket = Split(sData, "birthday=")(1)
sPacket = Split(sPacket, "photo_film=")(0)
sPacket = Split(sPacket, Chr(13))(0)
pBirthday = sPacket

'Camera Film
sPacket = Split(sData, "photo_film=")(1)
sPacket = Split(sPacket, "directMail=")(0)
sPacket = Split(sPacket, Chr(13))(0)
pCamera = sPacket

'Direct Mail
sPacket = Split(sData, "directMail=")(1)
sPacket = Split(sPacket, "
")(0)
sPacket = Split(sPacket, Chr(13))(0)
pDirectMail = sPacket

'PH Tickets
sPacket = Split(sData, "ph_tickets=")(1)
sPacket = Split(sPacket, "ph_fiigure")(0)
sPacket = Split(sPacket, Chr(13))(0)
pPHTickets = sPacket

'PH Figures
sPacket = Split(sData, "ph_figure=")(1)
sPacket = Split(sPacket, "birthday=")(0)
sPacket = Split(sPacket, Chr(13))(0)
pPHFigure = sPacket

Form1.Caption = "Habbo Winsock 2.0 // Logged in as: " & pName
DataAll = ""

'Set the Text
frmInformation.txtName = pName
frmInformation.txtEmail = pEmail
frmInformation.txtMission = pMission
frmInformation.txtSex = pSex
frmInformation.txtFigure = pFigure
frmInformation.txtBirthday = pBirthday
frmInformation.txtCamera = pCamera
frmInformation.txtDMail = pDirectMail
frmInformation.txtPHTickets = pPHTickets
frmInformation.txtPHFigure = pPHFigure
End Sub

Public Sub DebugUpdate(ByVal DebugData As String, ByVal DebugType As DebugType)

Select Case DebugType
 Case Server_Type
   Form1.Text1.SelColor = &H8000&
 Case Client_Type
   Form1.Text1.SelColor = &H800000
 Case Error_Type
   Form1.Text1.SelColor = &HFF&
 Case Habbo_Winsock_Type
   Form1.Text1.SelColor = &H80FF&
 End Select

Form1.Text1.SelText = DebugData & vbCrLf
Form1.Text1.SelStart = Len(Form1.Text1.Text)

End Sub

Public Sub LoadUK()
Form1.sckClient.Close
Form1.sckServer.Close
Form1.sckClient.LocalPort = "30000"
Form1.sckClient.RemotePort = "30000"
Form1.sckClient.RemoteHost = "game.habbohotel.co.uk"
Form1.sckServer.RemotePort = "30000"
Form1.sckServer.RemoteHost = "game.habbohotel.co.uk"
Form1.sckClient.Listen
Form1.Habbo.Navigate2 App.Path & "\habbouk.html"
End Sub

Public Sub LoadUSA()
Form1.sckClient.Close
Form1.sckServer.Close
Form1.sckClient.LocalPort = "38101"
Form1.sckClient.RemotePort = "38101"
Form1.sckClient.RemoteHost = "www.habbohotel.com"
Form1.sckServer.RemotePort = "38101"
Form1.sckServer.RemoteHost = "www.habbohotel.com"
Form1.sckClient.Listen
Form1.Habbo.Navigate2 App.Path & "\habbousa.html"
End Sub

Public Sub LoadCA()
Form1.sckClient.Close
Form1.sckServer.Close
Form1.sckClient.LocalPort = "38001"
Form1.sckClient.RemotePort = "38001"
Form1.sckClient.RemoteHost = "habbo.habbohotel.ca"
Form1.sckServer.RemotePort = "38001"
Form1.sckServer.RemoteHost = "habbo.habbohotel.ca"
Form1.sckClient.Listen
Form1.Habbo.Navigate2 App.Path & "\habboca.html"
End Sub