Attribute VB_Name = "ModSockFuncts"
Public SckBuffer As String
Public Indentify As String
Public Packet As String
Public AccountName As String '
Public Email As String
Public LastAccess As String
Public Access As String
Public Figure As String
Public IP As String
Public PHTickets As Integer
Public Birthday As String
Public AccessCount As Integer
Public Film As Integer
Public sdata As String
Public Client As Boolean
Public WaveHabbo As Boolean
Public FlickerHabbo As Boolean
Public DanceHabbo As Boolean
Public Ping As Boolean
Public Tile As String
Public Chat As String
Public PeopleRights As String
Public DetermineRights As String
Public ServerPort As Single
Public ServerHost As String
Public ClientHost As String
Public ClientPort As Single
Public UnloadPage As Boolean
'This is the sub used to send packets and recieve packets
Public Sub UpdateStatus(PacketStatus As String)
On Error Resume Next
If PacketStatus = "@@" Then
    frmMain.lblStatus = "Getting Data"
  'Message on Habbo Telling we are in
    frmMain.sckClient.SendData "@amod_warn/         Connection Established" & vbCrLf & "- OscarMedina [OscarMedina.Tk] -
"
    DesblockearFunciones
ElseIf PacketStatus = "@A" Then
    frmMain.lblStatus = "Id Key recived"
    Packet = Split(SckBuffer, "@A")(1)
    Packet = Split(Packet, "
")(0)
    frmMain.lblClientID.Text = Packet
ElseIf PacketStatus = "@B" Then
        Packet = Mid$(SckBuffer, 11, 9)
    
    'Not well implemented - Ban
    If Packet = "can_trade" Then
        frmMain.lblBan.Caption = "No"
    Else
        frmMain.lblBan.Caption = "Yes"
    End If
frmMain.lblStatus = "Banned Before?"
ElseIf PacketStatus = "@E" Then
    frmMain.lblStatus = "Writing Info."
    Packet = Split(SckBuffer, "name=")(1)
    Packet = Split(Packet, "email=")(0)
    Packet = Split(Packet, Chr(13))(0)
    AccountName = Packet
    frmMain.lblName.Caption = AccountName
    Packet = Split(SckBuffer, "email=")(1)
    Packet = Split(Packet, "figure=")(0)
    Email = Packet
    frmMain.lblEmail.Caption = Email
    Packet = Split(SckBuffer, "figure=")(1)
    Packet = Split(Packet, "sex=")(0)
    Figure = Packet
    frmMain.lblFigureNum.Text = Figure
    
    Packet = Split(SckBuffer, "last_ip=")(1)
    Packet = Split(Packet, "ph_tickets=0")(0)
    IP = Packet
    frmMain.lblIP.Caption = IP
    Packet = Split(SckBuffer, "ph_tickets=")(1)
    Packet = Split(Packet, "birthday=")(0)
    PHTickets = Packet
    frmMain.lblTickets.Caption = PHTickets
    Packet = Split(SckBuffer, "birthday=")(1)
    Packet = Split(Packet, "photo_film=")(0)
    Birthday = Packet
    frmMain.lblBirth.Caption = Birthday
    Packet = Split(SckBuffer, "access_count=")(1)
    Packet = Split(Packet, "has_special_rights=")(0)
    AccessCount = Packet
    frmMain.lblAccess.Caption = AccessCount
    Packet = Split(SckBuffer, "photo_film=")(1)
    Packet = Split(Packet, "
")(0)
    Film = Packet
    frmMain.lblFilm.Caption = Film
    frmMain.lblStatus.Caption = "[Connected]"
End If
End Sub
Public Sub GetTile()
On Error Resume Next
If Left(SckBuffer, 2) = "@b" Then
    Tile = Split(SckBuffer, "@b")(1)
    AccountName = Split(Tile, " ")(0)
    Tile = Split(Tile, " ")(1)
    Tile = Split(Tile, "/")(0)
    frmMain.lblTile.Caption = Tile
End If
End Sub
Public Sub GetChat(PacketStatus As String)
'Checks for chat, i spent lots of time making this and it eint compleate yet...
On Error Resume Next
If PacketStatus = "@Y" Then
If frmMain.prueba.Text = "0" Then
frmMain.prueba.Text = "1"
Else
frmMain.prueba.Text = "0"
GoTo Sig:
End If
    
    Packet = Split(SckBuffer, "@Y")(1)
    Packet = Right$(Packet, Len(Packet) - 1)
    Packet = Mid(Packet, 1, InStr(1, Packet, "
") - 2)
    
ChecaPakete
    
    frmMain.lstChatLog.AddItem (Packet)
    
Sig:
End If
If PacketStatus = "@Z" Then
    Packet = Split(SckBuffer, "@Z")(1)
    Packet = Right$(Packet, Len(Packet) - 1)
    Packet = Mid(Packet, 1, InStr(1, Packet, "
") - 2)
    
ChecaPakete
    
    frmMain.lstChatLog.AddItem (Packet)
End If
If PacketStatus = "@X" Then
    Packet = Split(SckBuffer, "@X")(1)
    Packet = Right$(Packet, Len(Packet) - 1)
    Packet = Mid(Packet, 1, InStr(1, Packet, "
") - 2)
    
ChecaPakete
    
    frmMain.lstChatLog.AddItem (Packet)
End If
End Sub

Public Sub DesblockearFunciones()
frmMain.cmdShowLogs.Enabled = True
frmMain.cmdShowRoom.Enabled = True
frmMain.imgLogo.Enabled = True
frmMain.Image4.Enabled = True
frmMain.Label7.Enabled = True
End Sub

Public Sub BlockearFunciones()
frmMain.cmdShowLogs.Enabled = False
frmMain.cmdShowRoom.Enabled = False
frmMain.imgLogo.Enabled = False
frmMain.Image4.Enabled = False
frmMain.Label7.Enabled = False
End Sub
Public Sub ChecaPakete()
Letra = Left(Packet, 1)
Select Case Letra
Case "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z"
Letra = ""
End Select
Frase = Right$(Packet, Len(Packet) - 1)
Packet = Letra + Frase
End Sub