[Release] The (uncomplete) battleball codes

[jetgod]

I shall assume you already have the battleball arena in your server. Let's begin, shall we?

If Client(Index).Publicnum = 9 Then
Dim AmFolders As Integer
Open DBP & "battleball\gamecount.txt" For Input As #1
Input #1, AmFolders
Close #1
arenaname = FSO.OpenTextFile(DBP & "battleball\arenaname.txt", ForReading).ReadAll
Minimum = FSO.OpenTextFile(DBP & "battleball\minimum.txt", ForReading).ReadAll
Maximum = FSO.OpenTextFile(DBP & "battleball\maximum.txt", ForReading).ReadAll
pagecount = FSO.OpenTextFile(DBP & "battleball\pagecount.txt", ForReading).ReadAll
gamecount = FSO.OpenTextFile(DBP & "battleball\gamecount.txt", ForReading).ReadAll
For X = 1 To AmFolders
GameName = FSO.OpenTextFile(DBP & "battleball\" & X & "\gamename.txt", ForReading).ReadAll
gameowner = FSO.OpenTextFile(DBP & "battleball\" & X & "\gameowner.txt", ForReading).ReadAll
GameNumber = FSO.OpenTextFile(DBP & "battleball\" & X & "\gamenumber.txt", ForReading).ReadAll
GameData = GameData & GameName & "" & VL64encode(GameNumber) & gameowner & ""
 Send Index, "CgH" & arenaname & "" & VL64encode(Minimum) & VL64encode(Maximum) & Chr(1)
    Send Index, "Ch" & VL64encode(gamecount) & VL64encode(pagecount) & GameData & ""
    Next X
End If

Now for some other small titbits I found on the real habbo.

Created Game
CiHHTesting?RVAmobarbitalHJHH
-----------------------------------------
Auto Join Red Team
CiHHTesting?RVAmobarbitalHJIRVAmobarbitalH
-----------------------------------------
Join Blue Team
CiHHTesting?RVAmobarbitalHJHIRVAmobarbital
-----------------------------------------
View Who's Playing ( Already Started Game )
CiIH IdfkPAKNotesLittleWoodsIdfkIPeezoIPoliceCarI2
-----------------------------------------
CiHI SI-StukyHJISI-StukyH 
CiHI SI-StukyHJISI-StukyIPKAmobarbital

--------------------------------------------

FSO.OpenTextFile(DBP & "habbos\" & LCase(Client(Index).Name) & "\hand.txt", ForAppending).Write ";" & TheCount

kamerFurni = FSO.OpenTextFile(DBP & "habbos\" & Client(Index).Name & "\hand.txt", ForReading).ReadAll
kamerFurni = Replace(kamerFurni & ";" & FurniID, ";;", ";")
FSO.OpenTextFile(DBP & "habbos\" & Client(Index).Name & "\hand.txt", ForWriting).Write kamerFurni

Server creators, we must all work together on making this work!

[MentaL]

[Nillus]

Thanks for sharing! :D
I finished the swimming and diving for my server, if I can help you guys with something, PM. :P

Waves'
Nillus

[jetgod]

Thanks for sharing! :D
I finished the swimming and diving for my server, if I can help you guys with something, PM. :P

Waves'
Nillus

Yeh, you may be able to help in my future (MySQL!) server. As of yet though, all I intend to release is this codes. Until i finish my real server, that is.

EDIT:
Unzip this into your database folder: RapidShare: 1-Click Webhosting
EDIT2: Moar:
For the create game thing, when server recvies 'Bb', send:

YpowerupCreateIntervalPulses.HIPEIQAIPYstunTimePulses.HIRBIIIPYhighJumpsTimePulses.HISCIIIPYname.IJ.HsecondsUntilStart.HISCIHH.

[reomatrix]

Already had but nice release tho
flaws with my battleball:
no music or timer so no game
no bouncing
but create game join game start game all working
can anyone help with the game start packet??
iv got no idea wot it is
btw the game end packet worrks i type a command and it comes up :P
PM me

[jetgod]

Already had but nice release tho
flaws with my battleball:
no music or timer so no game
no bouncing
but create game join game start game all working
can anyone help with the game start packet??
iv got no idea wot it is
btw the game end packet worrks i type a command and it comes up :P
PM me

Send me your server source and I'll try and add it....

[reomatrix]

sure jetgod
add my msn and i send it:
reomatrix@hotmail.co.uk
Just In Case ill send an older version of the sourcebunt dont worry its got the bb rooms
cuz my code is completly different too
btw goto ur user cp and change ur user title u can do that now
btw the newer versions that i havent released are based on goldenshox

[php]

My signature says it al!!

[y0da]

Great post mate, thanks

[-RubberDuckie-]

Very Nice Post But try And Keep Up many Servers Have Battle Ball Such As Debbo project but It Is Buggy

Is This Code Only For The Room Or For The Game To?

If Its For The Game To Then VERY Nice.

[Altmaniac]

what do you think if y post a BB room (soucre)And BB ARea (soucre) but no Game in the area you can only Walk No playing :D

Php... I agree with your signature. That's what I've always wondered.

[Markish]

Erm,
Credit to Aaron, They are his codes.. they are the exact same as his.


Anyways.. You haven't got his newest one ey?

Now for some other small titbits I found on the real habbo.
^^^^^
That bit, as you say.. You did? Pfft! You did not, Aarons friend did.

Created Game

CiHHTesting?RVAmobarbitalHJHH

-----------------------------------------

Auto Join Red Team

CiHHTesting?RVAmobarbitalHJIRVAmobarbitalH

-----------------------------------------

Join Blue Team

CiHHTesting?RVAmobarbitalHJHIRVAmobarbital

-----------------------------------------

View Who's Playing ( Already Started Game )

CiIH IdfkPAKNotesLittleWoodsIdfkIPeezoIPoliceCarI2

-----------------------------------------

CiHI SI-StukyHJISI-StukyH

CiHI SI-StukyHJISI-StukyIPKAmobarbital



--------------------------------------------



FSO.OpenTextFile(DBP & "habbos\" & LCase(Client(Index).Name) & "\hand.txt", ForAppending).Write ";" & TheCount



kamerFurni = FSO.OpenTextFile(DBP & "habbos\" & Client(Index).Name & "\hand.txt", ForReading).ReadAll

kamerFurni = Replace(kamerFurni & ";" & FurniID, ";;", ";")

FSO.OpenTextFile(DBP & "habbos\" & Client(Index).Name & "\hand.txt", ForWriting).Write kamerFurni



[/code]

Server creators, we must all work together on making this work!

::
kamerFurni = FSO.OpenTextFile(DBP & "habbos\" & Client(Index).Name & "\hand.txt", ForReading).ReadAll

kamerFurni = Replace(kamerFurni & ";" & FurniID, ";;", ";")

FSO.OpenTextFile(DBP & "habbos\" & Client(Index).Name & "\hand.txt", ForWriting).Write kamerFurni
::
That bit above also spoils it, its in his code! You are saying you made? When you did not.

[azzimi]

where do you put this code?

[jetgod]

of course I don't buy otaku
And azzimi, I'm pretty sure some of it goes in timer_date or whatever it's called.

[Rooney9]

lol nice

[mytam]

goodluck !!

[?:mitchel:?]

Thanks for sharing

[Markish]

-.-' This should not be used with credit to Arron! Jeez!

[pirate-jake]

Steal, but nice.

[super1kid]

Lol pitare steal from where?

[ellmondo]

incomplete not uncomplete :P

[super1kid]

XD you roght lol.. i continued it a litte the code lol

[ralazo]

thanks for sharing! :) youre right we mabby can make all togheter battle ball to work

[SuPLiNK]

dude do u have the codes for ADDING the battle ball rooms to ur server cause... i kno it soundz stupid but i cant add the rooms to my server for some reason :*(

Ty
SupLiNK

[<3Hacker<3]

Great Rel ;)
I want to learn about coding a server ;[ But no tuts.
I'll search google.
If that aint got none
I'm asking ;)

Keep up the good work

Ryan ;0

[fabianthebest]

Nice shared! X]]