[REL]Codes For Your Server[REL]

What Can I Say · Dec 2, 2007

Here Are Some Helpful Codes You Can Place In Your Habbo Server Or Any Other Server Development Program!!

Made By Me:

Welcome Message Changer

Code:

Dim kl As String
kl = InputBox("What Is Your Welcome Message?", "Welcome Message")
WriteINI "config", "welcome_message", "1," & kl, SettingIni

Gives All Users Admin Catalouge

Code:

WriteINI "config", "cata_all", "1," SettingIni

This One Is A Easy Code

Made By Mark_0606:

Rare Page Maker

Code:

Dim lay As String, kk As Integer
itemid = InputBox("What item is going in? (Furni ID, EG: habbowood_chair", "Rare Page")
item = InputBox("What item is going in? (Furni Name, EG: Habbowood Chair", "Rare Page")
Cost = InputBox("How much will it be worth (Credits, EG: 25)", "Rare Page")
desc1 = InputBox("What is the 1st description?", "Rare Page")
desc2 = InputBox("What is the 2nd description", "Rare Page")
start2 = "s:h:s:h:"
startpage = "i:Rare" & " n: Rares" & "l: ctlg_productpage1" & start2
pagepart2 = "g: catalog_rares_headline1t1:"""
anotherpart = "w:e:p:"
thisptherpart = "       s   "
otherzz = " 0,0,0"
Kill (DBP & "catalogue\Rare\page.txt")
layout = startpage & desc1 & pagepart2 & desc2 & anotherpart & item & "    " & item & " " & Cost & " " & thisotherpart & itemid & "    0   1,1 a9 " & itemid & otherzz & ""
kk = FreeFile
lay = layout
Open (DBP & "catalogue\Rare\page.txt") For Output As #X
Print #kk, lay
Close #kk
MsgBox "Rare page was made!"

Loader Maker

Code:

Dim lay As String, kk As Integer
YourIp = InputBox("What is your IP?", "Loader Maker")
YourPort = InputBox("What is your Port?", "Loader Maker")
YourHotelName = InputBox("What is your hotel name?", "Loader Maker")
Version = InputBox("What Version? (EG: 15,14,13,12?)", "Loader Maker")
loadr = InputBox("What would you like to call your loader?(EG: my_client (.html is added by itself))", "Loader Maker")
URL = InputBox("What is the url to your loader? (EG: [URL]http://yoursite.com/main/client.html[/URL])", "Loader Maker")
load1 = "<div>"
load2 = "</head>"
load3 = "<html xmlns='http://www.w3.org/1999/xhtml'><head><meta http-equiv='Content-Type' content='text/html; charset=utf-8' /><title>"
load4 = YourHotelName
load5 = "</title></head><body bgcolor='black' leftmargin='0' topmargin='0' marginwidth='0' marginheight='0'><div align='center'><object classid='clsid:166B1BCA-3F9C-11CF-8075-444553540000' codebase='http://download.macromedia.com/pub/shockwave/cabs/director/sw.cab#version=10,8,5,1,0' id='habbo' width='720' height='540'>"
load6 = "<param name='src' value='http://images.habbohotel.nl/dcr/release"
load7 = Version
load8 = ".2_b"
load9 = Version
load10 = "b/habbo.dcr'><param name='swRemote' value='swSaveEnabled='true' swVolume='true' swRestart='false' swPausePlay='false' swFastForward='false' swTitle='Habbo Hotel' swContextMenu='true' '><param name='swStretchStyle' value='none'><param name='swText' value=''><param name='bgColor' value='#000000'>"
load11 = "<param name='sw6' value='external.texts.txt=http://freewebs.com/ehabbh/external_texts.txt'><param name='sw2' value='connection.info.host="
load12 = YourIp
load13 = ";connection.info.port="
load14 = YourPort
load15 = "'<param name='sw4' val"
load16 = "ue='connection.mus.host=game.habbohotel.co.uk;c onnection.mus.port=30001'>"
load17 = "<param name='sw3' value='client.reload.url="
load18 = URL
load19 = "'><param name='sw1' value='site.url=http://www.habbo.ch;url.prefix=http://www.habbo.ch'><param name='sw5' value='external.variables.txt=http://freewebs.com/ehabbh/external_variables.txt'><embed src='http://images.habbohotel.nl/dcr/release"
load20 = Version
load21 = ".2_b"
load22 = Version
load23 = "b/habbo.dcr' bgColor='#000000' width='720' height='540' swRemote='swSaveEnabled='true' swVolume='true' swRestart='false' swPausePlay='false' swFastForward='false' swTitle='Habbo Hotel' swContextMenu='true'' swStretchStyle='none' swText='' type='application/x-director' pluginspage='http://www.macromedia.com/shockwave/download/'sw6='external.texts.txt=http://freewebs.com/ehabbh/external_texts.txt'sw2='connection.info.host="
load24 = YourIp
load25 = ";connection.info.port="
load26 = YourPort
load27 = "'sw4='connection.mus.host=game.habbohotel.co.uk;co n nection.mus.port=30001'sw3='client.reload.url="
load28 = URL
load29 = "'sw1='site.url=http://www.habbo.ch;url.prefix=http://www.habbo.co.uk'sw5='external.variables.txt=http://freewebs.com/ehabbh/external_variables.txt'></embed></object>"
load30 = "</div>"
kk = FreeFile
newL = load1 & load2 & load3 & load4 & load5 & load6 & load7 & load8 & load9 & load10 & load11 & load12 & load13 & load14 & load15 & load16 & load17 & load18 & load19 & load20 & load19 & load20 & load21 & load22 & load23 & load24 & load25 & load26 & load27 & load28 & load29 & load30
Open (DBP & loadr & ".html") For Output As #kk
Print #kk, newL
Close #kk
MsgBox "Your loader is done!"

Hope These Help Abit More And I Will Be Making More Soon!

soki2 · Dec 2, 2007

very nice re-release :]

What Can I Say · Dec 2, 2007

Thanks

I Hope To Add Loads Of Codes Here

And Some Of Myne Aswell!!

soki2 · Dec 2, 2007

that would help out many coders...you should really release more :]

Parker · Dec 2, 2007

What's the point of re-releasing these again?.
Nothing wrong with:

Code:

If Split(ReadINI("config", "welcome_message", SettingIni), ",")(0) = "1" Then
    Send Index, "BK" & Split(ReadINI("config", "welcome_message", SettingIni), ",", 2)(1) & Chr(1)
End If

@Chamillionaire · Dec 2, 2007

Yea There Should be A Sticky That like people Can just post Codes And like Ever Week people Check if They Work Then They put on Main post For vb6 Beginners

:.:Bob1:.: · Dec 2, 2007

@Chamillionaire said:
Yea There Should be A Sticky That like people Can just post Codes And like Ever Week people Check if They Work Then They put on Main post For vb6 Beginners

I was going to say and suggest that, great mind's think alike :wink_5:
Thanks for your share.

Parker · Dec 2, 2007

Let me remind you that we do have the coders' paradise section.

AlexyGalaxy · Dec 2, 2007

And Parker, let me remind you that if people like What Can I Say don't release these good code snippets, you won't have any decent server releases what-so-ever. So for once stop critisizing everyone, and be grateful that someone is actually contributing.

Regards,
Alex

PixelPro · Dec 2, 2007

Thanks, its helpful

You forgot the one when you click command1 it goes to form2.
I think its:
form1.hide
form2.show
or something like that

What Can I Say · Dec 2, 2007

PixelPro123 said:
Thanks, its helpful
You forgot the one when you click command1 it goes to form2.
I think its:
form1.hide
form2.show
or something like that

Pixel I Didnt Add That One Cause Nearly EVERYONE Knows That Code Lol

Thanks For Posting It Anyway:wink_5:

Edit: If You Want A Useful Code For You
Post It Here And I Will Try My Best To Make It =]

MannaZ · Dec 2, 2007

Very nice man!

Me likey the avatar lol

username · Dec 2, 2007

YAY!!!!!!!!!!!!!!!!! Loader maker code!!! Ty!!!

Hebbo · Dec 2, 2007

Few Commands ;P (made quickly by me, but these are bad xD)

'masskick (with alert)
If InStr(ToSay, ":masskick") = 1 And Client(Index).rank = "admin" Then
Stuur = 0
For a = 1 To frmMain.SockI
If frmMain.socket(a).State = sckConnected Then
frmMain.socket(a).SendData "@R" & Chr(1) & "@amod_warn" & "The Moderator " & Client(Index).Name & " made a Masskick. (Masskick coded by Hebbo)" & Chr(1)
Client(a).InRoom = "0"
Client(a).Publicnum = "0"
sendAll "@]" & Client(a).Num & Chr(1), (Client(a).InRoom)
End If
Next a
End If
'masskick

'masskick (without alert)
If InStr(ToSay, ":masskick") = 1 And Client(Index).rank = "admin" Then
Stuur = 0
For a = 1 To frmMain.SockI
If frmMain.socket(a).State = sckConnected Then
frmMain.socket(a).SendData "@R" & Chr(1)
Client(a).InRoom = "0"
Client(a).Publicnum = "0"
sendAll "@]" & Client(a).Num & Chr(1), (Client(a).InRoom)
End If
Next a
End If
'masskick

'masswarn (warns all)
If InStr(ToSay, ":masswarn") = 1 And Client(Index).rank = "admin" Then
Stuur = 0
For a = 1 To frmMain.SockI
If frmMain.socket(a).State = sckConnected Then
frmMain.socket(a).SendData "@amod_warn" & "You got warned (Warning coded by Hebbo)" & Chr(1)
End If
Next a
End If
'masswarn

'iamascripter (I'm a Scripter -> l

PixelPro · Dec 2, 2007

Yeah but newbs dont know that code, like beginners.

Kesus · Dec 2, 2007

pretty nice release

Extreme · Dec 3, 2007

cool release xD

AnthoreX · Dec 3, 2007

Wow, Hebbo that code is amazing, and fancy that, a noob like me can understand what it says lol!

AnthoreX · Dec 3, 2007

username said:
YAY!!!!!!!!!!!!!!!!! Loader maker code!!! Ty!!!

Dude, NGangsta released this ages ago, no need get chuffed -.-

2-Lukey-2 · Dec 28, 2007

Nice, alot of help - lol.

[REL]Codes For Your Server[REL]

The G.O.A.T

Newbie Spellweaver

The G.O.A.T

Newbie Spellweaver

pork pork

Experienced Elementalist

Ima Xplicit Gamer

pork pork

Moar skilled than befoar.

The World Is Yours

The G.O.A.T

Newbie Spellweaver

Instanthost.org

Experienced Elementalist

The World Is Yours

beAwesome();

Go Do 1... Mate !!

Junior Spellweaver

Junior Spellweaver

Newbie Spellweaver

RaGEZONE Sponsor

About RaGEZONE

Forum Statistics

RaGEZONE Partners