Alot of you know shit about programming scripting applications for habbo.
I will post a tut on that soon but if you alredy know the basics, I'll list some scripts.
CP Photos
Create the target user. Basicly a habbo so you can target him through the rumble screen
Code:
On Error Resume Next
Form1.sckClient.SendData "@\i:666" & Chr(13) & "n:CameraTarget" & Chr(13) & "f:3000680402190132801584103" & Chr(13) & "l:666 666 0.0" & Chr(13) & "c:Cdrapcat" & Chr(13) & "b:ADM" & Chr(1)
Where it says "c:Cdrapcat" change cdrapcat to what you want the habbos mission to be where it says "b:ADM" thats the badge ADM Is Admin HBA Is hobba ect. Where it says "f:3000680402190132801584103" Thats the habbos figure inorder to get your figure Search yourself on console and look through packets for a bunch of numbers like that.
Sending the photo
Basicly it sends the photo. It takes the text from Text1.Text and adds CP to the front then Puts a tab then puts the link in again then adds a special symbol to the end. Then sends it to client.
Code:
On Error Resume Next
Form1.sckClient.SendData "CP" & Text1.Text & Chr(9) & Text1.Text & Chr(1)
That finished that xD
Hobba Alerts
What the code I put below does is puts BK wich is the packet for a hobba alert and then takes the text from the textbox and adds special symbols then sends to client
Code:
On Error Resume Next
Form1.sckClient.SendData "BK" & Text1.Text & Chr(1)
Sending Custom Client Call For Help
What this does is inserts the pakcet for cfh infront of the text from a textbox then adds special symbolds then sends to client
Code:
On Error Resume Next
Form1.sckClient.SendData "BT" & Chr(2) & " " & Text1.Text & Chr(2) & Text2.Text & Chr(2) & Text3.Text & Chr(2) & Chr(1)
Also Text1 is who sent cfh Text2 is the room hes in and text3 is the message
Ban Message
What this does is inserts the packet for ban then inserts the text from text1.text then sends to client
Code:
On Error Resume Next
Form1.sckClient.SendData "@c" & Text1.Text & Chr(1)
Upon Request I put Custom Mod figures
What this does is Searches then replaces basicly
to do this you must click your sckServer winsock control and go to sckServer's Data Arrival and Type
Code:
Dim Sckbuffer As String
Now that that declaration is in place we go on to the figures
Code:
Sckbuffer = Replace(Sckbuffer, "n:HabboName" & Chr(13), "n:MOD-Yatwice" & Chr(13) & "f:2951080443190132801580043" & Chr(13) & "l:666 666 0.0" & Chr(13) & "c:Use The Ignore Button • [On Duty]" & Chr(13) & "s:m" & Chr(13) & "b:ADM" & Chr(1))
Thats MOD-Yatwice Now below is Kedo
Code:
Sckbuffer = Replace(Sckbuffer, "n:HabboNamer" & Chr(13), "n:Kedo" & Chr(13) & "f:3000580546180092801585105" & Chr(13) & "l:666 666 0.0" & Chr(13) & "c:Use The Ignore Button •" & Chr(13) & "s:m" & Chr(13) & "b:ADM" & Chr(1))
Okay now If you just wanted a hobba badge for your guy you need to know your figure. If you want to look the same here is the code fill in the blanks xD
Code:
Sckbuffer = Replace(Sckbuffer, "n:HabboName" & Chr(13), "n:HabboName" & Chr(13) & "f:Your Figure Here" & Chr(13) & "l:666 666 0.0" & Chr(13) & "c:Your Mish here" & Chr(13) & "s:f" & Chr(13) & "b:HBA" & Chr(1))
Now alot of people want the whole ava type command thing go into sckServer data arrival and type the code below for !HBA: to be changed into a command when saying !HBA:Message or something
Code:
Sckbuffer = Replace(Sckbuffer, "!HBA:", Chr(1) & "BK")
Quick change is
Code:
Sckbuffer = Replace(Sckbuffer, "!CHANGE", Chr(1) & "Bg" & Chr(1))
Reload is
Code:
Sckbuffer = Replace(Sckbuffer, "!RELOAD", Chr(1) & "DB0" & Chr(1))
Leave is
Code:
Sckbuffer = Replace(Sckbuffer, "!LEAVE", Chr(1) & "@i" & Chr(1))
Tut for actully connecting through winsock is comming soon got any script requests feel free to ask.
Scripts. -
08-16-2006, 10:19 PM
Well thanks for the scripts 
been looking for things like these.
Linear Mode
