- Joined
- Jun 16, 2006
- Messages
- 208
- Reaction score
- 18
Easy,1 minute of work,GIVE ME CREDIT!!!!
May not work if you dont edit it abit,but it works mostly
ModPacketcheck.bas
May not work if you dont edit it abit,but it works mostly
ModPacketcheck.bas
Code:
'-----------------------------------------------------------------------
' ______ _ _ _____ _ _ '
' | ___ \ | | | | / __ \ | | | '
' | |_/ /_ _ ___| | _____| |_ | / \/ |__ ___ ___| | __ '
' | __/ _` |/ __| |/ / _ \ __| | | | '_ \ / _ \/ __| |/ / '
' | | | (_| | (__| < __/ |_ | \__/\ | | | __/ (__| < '
' \_| \__,_|\___|_|\_\___|\__| \____/_| |_|\___|\___|_|\_\ '
' '
'-----------------------------------------------------------------------
Public Function DeterminePacket(Incdata As String, index As Integer)
Dim PacketHeader As String
Dim PacketRest As String
PacketHeader = Mid(Incdata, 4, 2)
PacketRest = Mid(Incdata, 6)
Select Case PacketHeader
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' _ _ _____ '
'| | (_) / ___| | | '
'| | ___ __ _ _ _ __ \ `--. _ _ ___| |_ ___ _ __ ___ '
'| | / _ \ / _` | | '_ \ `--. \ | | / __| __/ _ \ '_ ` _ \ '
'| |___| (_) | (_| | | | | | /\__/ / |_| \__ \ || __/ | | | | | '
'\_____/\___/ \__, |_|_| |_| \____/ \__, |___/\__\___|_| |_| |_| '
' __/ | __/ | '
' |___/ |___/ '
' '
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Case "CN"
Call SendData(index, "DUIH" & Chr(1))
Case "CJ"
Call SendData(index, "DAQBHIIIKHJIPAIQAdd-MM-yyyyRAHSAHPBhttp://hotel-uk" & Chr(2) & Chr(1))
Case "CL"
Dim SSO_USERNAME As String
SSO_TICKET = Mid(PacketRest, 3)
SSO_USERNAME = Split(SSO_TICKET, "+")(0)
SSO_PASSWORD = Split(SSO_TICKET, "+")(1)
If GetData("Password", SSO_USERNAME) = SSO_PASSWORD Then
HabboUsername(index) = SSO_USERNAME
Dim Socket As String
Socket = index
Call HabboSocket(SSO_USERNAME, index)
Call UpdateAccountID(HabboID(index), "LastLogin", Date & " " & Time)
Call UpdateAccountID(HabboID(index), "LastIP", FrmMain.SckCon(index).RemoteHostIP)
Call SendData(index, "@E19299095" & Chr(2) & SSO_USERNAME & Chr(2) & GetData("Apperance", SSO_USERNAME) & "mOh my lifeHch=s02/253,146,160HI")
Call SendData(index, "@Gclub_habbo" & Chr(2) & "HHHI" & Chr(1))
Call SendData(index, "@F0.0")
Call SendData(index, "BK" & FULLPCSPEC & Chr(1))
Call UpdateAccount(HabboUsername(index), "Online", "1")
Call SendData(index, "@Bfuse_room_queue_defaultfuse_buy_creditsfuse_logindefaultfuse_trade")
Call SendData(index, "DbIH@C" & Chr(13))
Else
Call SendData(index, "BK" & "Sorry! Username / Password Is Wrong." & Chr(1))
AddActivity "] Client [" & index & "] Bad Login!"
End If
Case "BV"
Call SendData(index, "@L")
DoEvents
Call SendData(index, PublicList)
Case "Bv"
Call SendData(index, "@L")
FrmMain.SckCon(index).SendData ("DB0")
Case "@}"
Case "@B"
Dim Room As String
RoomID(index) = Mid(PacketRest, 2)
Room = GETNAVINUM(RoomID(index))
CurrentRoomID(index) = Room
RoomID(index) = NAVIROOMS2(Room, "Room_Title")
CUR = NAVIROOMS2(GetROOMID(RoomID(index)), "Current_Population")
Max = NAVIROOMS2(GetROOMID(RoomID(index)), "Max_Population")
If CUR = Max Then
Call SendData(index, "@r" & Chr(1))
Call SendData(index, "BKRoom Full" & Chr(1))
Exit Function
End If
Call SendData(index, "@S")
Call SendData(index, "Bfhttp://hotel-uk/client.pub." & GetPublicRoomData(GetROOMODELID(RoomID(index)), "Code1") & ".0" & Chr(1) & "AE" & GetPublicRoomData(GetROOMODELID(RoomID(index)), "Code2"))
Case "@u"
Call SendToRoom(index, "@]" & index & "")
Call UpdateAccountID(HabboID(index), "Room", "0")
Case "As"
Call SendToRoom(index, "@]" & index & "")
Call SendData(index, "@R" & Chr(1))
Case "A~"
Call SendData(index, "@_" & GetMap(GetROOMODELID(RoomID(index))) & Chr(1))
Call UpdateAccountID(GetData("ID", HabboUsername(index)), "Room", GetROOMID(RoomID(index)))
'Call SendToRoom(index, "@\i:" & index & Chr(13) & "a:" & "19299095" & Chr(13) & "n:" & HabboUsername(index) & Chr(13) & "f:" & CurrentFigure(HabboUsername(index)) & Chr(13) & "l:" & GetPublicRoomData(GetROOMODELID(RoomID(index)), "StartingPoss") & " 0.0" & Chr(13) & "c:ffff" & Chr(13) & "s: " & CurrentGender(HabboUsername(index)) & Chr(1))
Call SendData(index, "@^" & GetFur(GetROOMODELID(RoomID(index))) & Chr(13) & Chr(1))
DoEvents
Call SendData(index, "@`H")
Case "@~"
'Call UpdateAccountID(GetData("ID", HabboUsername(index)), "Room", GetROOMID(RoomID(index)))
Dim x As String
Dim Y As String
Dim a As String
a = GetPublicNAVRoomData(CurrentRoomID(index), "Room_Code")
x = Split(GetPublicRoomData(a, "StartingPoss"), " ")(0)
Y = Split(GetPublicRoomData(a, "StartingPoss"), " ")(1)
Call UpdateAccountID(index, "Posx", x)
Call UpdateAccountID(index, "Posy", Y)
Call SendDudes(index, CurrentRoomID(index))
Case "@t"
Dim saocket As String
saocket = index
Call SendToRoom(index, "@X" & VL64Encode(saocket) & Mid(PacketRest, 3) & Chr(2) & Chr(1))
Case "@w"
saocket = index
Call SendToRoom(index, "@Z" & VL64Encode(saocket) & Mid(PacketRest, 3) & Chr(2) & Chr(1))
Case "@x"
saocket = index
Call SendToRoom(index, "@Y" & VL64Encode(saocket) & Mid(PacketRest, 3) & Chr(2) & Chr(1))
Case "AK"
Dim wantingx As String
Dim wantingy As String
wantingx = DecodeB64(Mid(PacketRest, 1, 2))
wantingy = DecodeB64(Mid(PacketRest, 3, 2))
Call SendToRoom(index, "@b" & index & " " & wantingx & "," & wantingy & ",0.0,5,6/" & Chr(13) & Chr(1))
Call UpdateAccountID(GetData("ID", HabboUsername(index)), "Posx", wantingx)
Call UpdateAccountID(index, "Posy", wantingy)
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
End Select
End Function
