[Rel] Battleball Codes

[SpOnGiBoB]

Fonte: Ragezone
___________________________________________________________________
Non Ho capito bene di cosa si tratta cmq lo posto,spero sia utile.
___________________________________________________________________

these are not finished obviously but this is how far i have got check the codes out if you wish
Battleball
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
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
Room codes packetlogged off france

[21:46:08] - Client to Server:
43E260044794D58E12FCAF5F7BFC3C10798EADD9
----------------------------------------------------------
[21:46:08] - Server to Client:
C\HZHAHBattle Ball pour tous !RBPrQS[HAIBattle Ball pour tousHRLZHAbb_lobby_free_0[FtHhh_game_bb,hh_game_bb_room,hh_game_bb_ui,hh_gam esysHIXIAIBattle Ball pour tous 2HRLZHAbb_lobby_free_1XGtHhh_game_bb,hh_game_bb_ room,hh_game_bb_ui,hh_gamesysHIYIAIBattle Ball pour tous 3RBRLZHAbb_lobby_free_2YGtHhh_game_bb,hh_game_bb _room,hh_game_bb_ui,hh_gamesysHIZIAIBattle Ball pour tous 4HRLZHAbb_lobby_free_3ZGtHhh_game_bb,hh_game_bb_ room,hh_game_bb_ui,hh_gamesysHI

----------------------------------------------------------
[21:46:08] - Server to Client:
C\HZHAHBattle Ball pour tous !RBPrQS[HAIBattle Ball pour tousHRLZHAbb_lobby_free_0[FtHhh_game_bb,hh_game_bb_room,hh_game_bb_ui,hh_gam esysHIXIAIBattle Ball pour tous 2HRLZHAbb_lobby_free_1XGtHhh_game_bb,hh_game_bb_ room,hh_game_bb_ui,hh_gamesysHIYIAIBattle Ball pour tous 3RBRLZHAbb_lobby_free_2YGtHhh_game_bb,hh_game_bb _room,hh_game_bb_ui,hh_gamesysHIZIAIBattle Ball pour tous 4HRLZHAbb_lobby_free_3ZGtHhh_game_bb,hh_game_bb_ room,hh_game_bb_ui,hh_gamesysHI

----------------------------------------------------------
[21:46:12] - Client to Server:
8F3360D27F
----------------------------------------------------------
[21:46:12] - Server to Client:
ChHHPBHperle50QAI..-BoCaToR-ThE-KiNg-JK .:othm@ne.:QARBwilemssonwilemssonISB viki47PAPCvenez ici

-Chtit3-lov3-63-IQCmoi et cece

TheKing33IRCwilemssonwilemssonI

----------------------------------------------------------
[21:47:06] - Server to Client:
CkPDfieldTypeHJIIIIQAmaximumSimultaneousPowerups HIPAIIIRBpowerupCreateChanceHIRLIIIPYnumTeamsHJJ IJIPAcoloringForOpponentTimePulsesHISCIIIPYgameLe ngthSecondsHIPmIHHallowedPowerupsIJ1,2,3,4,5,6,7 ,8,9HcleaningTilesTimePulsesHISCIIIPYpowerupCrea teFirstTimePulsesHIHIHIPYsecondsUntilRestartHIRG IHHpowerupTimeToLivePulsesHIPOIQAIPYpowerupCreate IntervalPulsesHIPEIQAIPYstunTimePulsesHIRBIIIPYh ighJumpsTimePulsesHISCIIIPYnameIJHsecondsUntilS tartHISCIHH


enjoy im not french but i was on the hotel randomly lol ;] anyway if anyone could add to this it would be great

 

[ElGrandepeppe]

Sono i packet's del battle...ma nn sn completi....

 

[amus]

io avevo trovato i cct che andavano!

 

[Samuelubellill]

[OT]mizzeca alle 6 vicino al pc °_°[/OT]
Cmq grazie ma non sono completi :-(

 

[Magio95]

ma in che linguaggio sono? se sono in un linguaggio xD

 

[Ketto93]

Magio sono in VB6.

Comunque come ha detto Peppe il codice è incompleto.

 

[gianni]

nn sn completi 1 volta li ho messi nel mio hotel nn funzionavano

 

[Samuelubellill]

questi codici servono se devi codare un tuo server in visual basic e ribadisco che non sono completi

 

[ElGrandepeppe]

io avevo trovato i cct che andavano!

Non esistono cct che vanno e cct che nn vanno....Bisogna prima codarli nel server ^^



Il battle Completo si ha in Spagna , e qualche altro server in giro per il mondo.

 

[Samuelubellill]

[OT]peppe pure il tuo ha il batlle ball funzionante (non che io ce l'abbia ma l'avevi scritto in firma)[/OT]

 

[ElGrandepeppe]

Uff......Xkè dovete fare la spia lol cmq..nn andiamo OT

p.S un ultimissimo ot...... Grazie ad uno spagnolo ci sn riuscito O_o

 

[Samuelubellill]

So che non comando ai mod ma chiederei chiusura del topic visto codice vb non completo

 

[.SaSy.]

Chiusura di che? Può essere ke qualcuno dei bravi riesca a modificare e aggiustare



hahahahhaa che scimità xD

 

[Ketto93]

.Sasy se uno dei bravi lo coda se lo tiene per se il codice.

 

[Bomberste]

infatti.... comunque potrebbero essere utili!

 

[Ketto93]

Questi codici forse sono quelli dell'Hablux Server.

 

[DarkVegeta]

Se come dice ketto93 e IlGrandePeppe questi codici sono incompleti faresti meglio a trovarne migliori da postare per il bene dei prossimi server che useranno questi codici. Grazie.

 

[SpOnGiBoB]

Se come dice ketto93 e IlGrandePeppe questi codici sono incompleti faresti meglio a trovarne migliori da postare per il bene dei prossimi server che useranno questi codici. Grazie.

-.- pensa la prossima volta prima di scrivere ca**te,secondo te no,se c'erano quelli completi nn li postavo? bohh,a volte vedo scritte cose fuori dalla normalità.

 

[Samuelubellill]

1 calmo..
2 ha fatto bene a postarli perchè ha trovato questi codici su ragezone e non sapeva che erano incompleti
3 peppe aiutaci tu xD

 

[MikeTux]

Rinomino!!