ThyElite Forums - Scripts.

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.