[Addon] TRAX!! RELEASE [Trax Release]

I have made a code for trax:
Next workt:

- Save trax
- Play Trax Songs
- Delete Trax Songs
- More Then 1 Song in your Hotel

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

'Made by grongere
'Begin Trax

Case "CZ" 'Trax Opslaan
Dim VoucherC As String
VoucherC = (Mid(NewInfo, 5, 10000))
FSO.OpenTextFile(DBP & "privaterooms\" & Client(Index).InRoom & "\trax.txt", ForWriting).Write VoucherC
trax = FSO.OpenTextFile(DBP & "privaterooms\" & Client(Index).InRoom & "\trax.txt", ForReading).ReadAll
Send Index, "DmPAPAIKQBSDPEQERESEPFQFRFSFJQAQBQIRISIPJQJRJSJPKQKKIQBIJKPAQARASAPBQBPARAQBRKSKPLQLRLSLPMQMRMDl" & trax & "H" & Chr(1)
trax = FSO.OpenTextFile(DBP & "privaterooms\" & Client(Index).InRoom & "\trax.txt", ForReading).ReadAll
sendAll "Dl" & trax & "H" & Chr(1), (Client(Index).InRoom)
Case "C]" 'Muziek Draaien
trax = FSO.OpenTextFile(DBP & "privaterooms\" & Client(Index).InRoom & "\trax.txt", ForReading).ReadAll
Send Index, "Dl" & trax & "H" & Chr(1)
Case "CY" 'Muziek List open in de editor
If FSO.FileExists(DBP & "privaterooms\" & Client(Index).InRoom & "\trax.txt") = False Then
FSO.CreateTextFile DBP & "privaterooms\" & Client(Index).InRoom & "\trax.txt"
End If
trax = FSO.OpenTextFile(DBP & "privaterooms\" & Client(Index).InRoom & "\trax.txt", ForReading).ReadAll
Send Index, "DmPAPAIKQBSDPEQERESEPFQFRFSFJQAQBQIRISIPJQJRJSJPKQKKIQBIJKPAQARASAPBQBPARAQBRKSKPLQLRLSLPMQMRMDl" & trax & Chr(1)"
'Eind Trax
'Made by grongere

------------------------------------------------------------------------------------------------------
Copy this text and Add it to your frmMain.frm by Case
and trax workt...

- grongere

:o Very usefull thx

no thanks :)

thx but where have I to put this codes?

In your frmMain.frm under this script:

Case "@D" 'login
Hab_AtD NewInfo, Index

what's frmMain.frm?

a form?

u have to have the source code and VB 6

WoWW!! Ty! But, Where do i fint the form? :S

EDIT:

Ty... PLEASE SOMEONE EDIT THE SOURCE CODES! ;D

Speak you netherlands? of english i speak self netherlands

you have to add the script in your VB script.. so you can only make it working if you got a source like USA's.. open the frmMain.frm put it in, and save it? i think :P not sure ^^

make a little source and rel it or a test server

Good :)

ANEWAREA , Me Test server is 90 % now , I Release it the next week i think up Sunday
There workt:

- Infobus 100 % + queue_tile's
- Trax
- Lido + diving + queue titel's
- And more :P sorry i have not time now :(

goed gedaan good work

You cane see it up:

~ Leet Hotel ~ - Versie 14

Works:

- Lido II
- 126 Public rooms
- 70/80 Bots
- Lido II queue titels
- Lido II diving + swim
- Trax 100 %
- Full NL catalogue
- Console
- Recycler 80 % (Only Mode cane you Recycle)
- And more

Come you to leethotel?
And we have a own Infobus :)


~ Hamachi info ~

Link : ~ Leet Hotel ~ - Versie 14
Network name: leethotel
password: test

Can't you get a full description with where you need to place it?
-------- ENG/NL
Kan je geen Descriptie geven van waar je het moet plaatsen??

In dutch is even better :)

grongore your loader of test is not working...

Quote:

---

Originally Posted by grongere

I have made a code for trax:
Next workt:

- Save trax
- Play Trax Songs
- Delete Trax Songs
- More Then 1 Song in your Hotel

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

'Made by grongere
'Begin Trax

Case "CZ" 'Trax Opslaan
Dim VoucherC As String
VoucherC = (Mid(NewInfo, 5, 10000))
FSO.OpenTextFile(DBP & "privaterooms\" & Client(Index).InRoom & "\trax.txt", ForWriting).Write VoucherC
trax = FSO.OpenTextFile(DBP & "privaterooms\" & Client(Index).InRoom & "\trax.txt", ForReading).ReadAll
Send Index, "DmPAPAIKQBSDPEQERESEPFQFRFSFJQAQBQIRISIPJQJRJSJPKQKKIQBIJKPAQARASAPBQBPARAQBRKSKPLQLRLSLPMQMRMDl" & trax & "H" & Chr(1)
trax = FSO.OpenTextFile(DBP & "privaterooms\" & Client(Index).InRoom & "\trax.txt", ForReading).ReadAll
sendAll "Dl" & trax & "H" & Chr(1), (Client(Index).InRoom)
Case "C]" 'Muziek Draaien
trax = FSO.OpenTextFile(DBP & "privaterooms\" & Client(Index).InRoom & "\trax.txt", ForReading).ReadAll
Send Index, "Dl" & trax & "H" & Chr(1)
Case "CY" 'Muziek List open in de editor
If FSO.FileExists(DBP & "privaterooms\" & Client(Index).InRoom & "\trax.txt") = False Then
FSO.CreateTextFile DBP & "privaterooms\" & Client(Index).InRoom & "\trax.txt"
End If
trax = FSO.OpenTextFile(DBP & "privaterooms\" & Client(Index).InRoom & "\trax.txt", ForReading).ReadAll
Send Index, "DmPAPAIKQBSDPEQERESEPFQFRFSFJQAQBQIRISIPJQJRJSJPKQKKIQBIJKPAQARASAPBQBPARAQBRKSKPLQLRLSLPMQMRMDl" & trax & Chr(1)"
'Eind Trax
'Made by grongere

------------------------------------------------------------------------------------------------------
Copy this text and Add it to your frmMain.frm by Case
and trax workt...

- grongere

---

What to write in traxt.txt..?

Is it Hamachi??

The Network is full >.<

yes Hamachi

Quote:

---

Originally Posted by grongere

I have made a code for trax:
Next workt:

- Save trax
- Play Trax Songs
- Delete Trax Songs
- More Then 1 Song in your Hotel

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

'Made by grongere
'Begin Trax

Case "CZ" 'Trax Opslaan
Dim VoucherC As String
VoucherC = (Mid(NewInfo, 5, 10000))
FSO.OpenTextFile(DBP & "privaterooms\" & Client(Index).InRoom & "\trax.txt", ForWriting).Write VoucherC
trax = FSO.OpenTextFile(DBP & "privaterooms\" & Client(Index).InRoom & "\trax.txt", ForReading).ReadAll
Send Index, "DmPAPAIKQBSDPEQERESEPFQFRFSFJQAQBQIRISIPJQJRJSJPKQKKIQBIJKPAQARASAPBQBPARAQBRKSKPLQLRLSLPMQMRMDl" & trax & "H" & Chr(1)
trax = FSO.OpenTextFile(DBP & "privaterooms\" & Client(Index).InRoom & "\trax.txt", ForReading).ReadAll
sendAll "Dl" & trax & "H" & Chr(1), (Client(Index).InRoom)
Case "C]" 'Muziek Draaien
trax = FSO.OpenTextFile(DBP & "privaterooms\" & Client(Index).InRoom & "\trax.txt", ForReading).ReadAll
Send Index, "Dl" & trax & "H" & Chr(1)
Case "CY" 'Muziek List open in de editor
If FSO.FileExists(DBP & "privaterooms\" & Client(Index).InRoom & "\trax.txt") = False Then
FSO.CreateTextFile DBP & "privaterooms\" & Client(Index).InRoom & "\trax.txt"
End If
trax = FSO.OpenTextFile(DBP & "privaterooms\" & Client(Index).InRoom & "\trax.txt", ForReading).ReadAll
Send Index, "DmPAPAIKQBSDPEQERESEPFQFRFSFJQAQBQIRISIPJQJRJSJPKQKKIQBIJKPAQARASAPBQBPARAQBRKSKPLQLRLSLPMQMRMDl" & trax & Chr(1)"
'Eind Trax
'Made by grongere

------------------------------------------------------------------------------------------------------
Copy this text and Add it to your frmMain.frm by Case
and trax workt...

- grongere

---

I dont understand, i'm dutch xD
Please help me add msn or pm me xD
I don't knwo were i can find
frmMain.frm.

My MSN= RadioMC@live.nl

See now :) I delete People :P

yeah me too..
finally.

Hamachi Network still full :(

Owh Sorry network is full :D
Join witch me new network:

~ Hamachi info: ~
Network name: leethotel1
Network Pass: test
Link: ~ Leet Hotel ~ - Versie 14

lol its full -.-

Yeah where is frmMain.frm is.. Also, i have Debbo Project, is that USA111's source?

Loader not work :)

LeetHotel.com is closed...

You Should Release Server Files

But what wwe doing with you code ? (And haven't release --')

In your retro we can't edit the song

Mitchelll waarom post je dat nou :P ik ben daniel :$

So, what we must write in trax.txt?

Thanks Mitchell :p

Nice Post i have test all in his Hotel "leet Hotel" it work great i have cant edit / add trax but a few others in his server can :oD

Everyone can set the Trax on or off, even I you don't have rigths?

Nice work grongroe :D

---

Mooi gedaan grongroe!

My songs aren't actually showing up in the song editor >.>

What is the original source code that you use? Because in my code, the line:

Send Index, "DmPAPAIKQBSDPEQERESEPFQFRFSFJQAQBQIRISIPJQJRJSJPK QKKIQBIJKPAQARASAPBQBPARAQBRKSKPLQLRLSLPMQMRMDl" & trax & Chr(1)"

Have a Syntasis error.

Can you help me? ^^

Where do i need to put that text? i'm using Hebbo & Nero server.

Please help!:busted_co

I,m resolving the sintasis error, but in habbo the Trax-Machine not work, not load the tracks...

Yeah it appears to not load the music into the sound editor, and if you manually input the code into the trax.txt file it'll display music in the sound editor, but it doesn't seem to play them out loud after you save..

ALL U PEOPLE ARE n00bs You have to have the server source and VB 6 After THat u open the frmmain i think and put in that text ~.~

Yes, we know that, and we've done that, I've put that exact source in, in the exact right place, and it doesn't function properly.. You should think about calling people noobs before coming out with, "I think"..

Quote:

---

Originally Posted by LetMeHaveAName

Yeah it appears to not load the music into the sound editor, and if you manually input the code into the trax.txt file it'll display music in the sound editor, but it doesn't seem to play them out loud after you save..

---

Yes, now i have the same error. If edit the trax.txt the Trax Machine have tracks to edit the song, but in the moment to save, all song is deleted :S

Yeah, it seems to be an unfinished code, either that or we're doing something wrong lol.. I'd try packet log it on the real Habbo see if anything is missing, but I don't have enough creds and I don't buy creds >.>

Well, I hope that grongere released his fixed Server soon. If his features are real, i think this can be the best Server Modification ;)

We can only hope lol, I wish I could get a damn sound machine to look the packets up myself >.>

Very nice.... it works, too.

Lol.. urgh, did you just copy the exact code and paste it in where he said and it just.. worked?

people, you have been waiting for trax to work for ages

don't you think you should be a little more... excited LOL

Yeah hope its going to work fully ;)
----
Ja hoop dat het 100 % gaat werken :D

----------

Hamachi leethotel Full and leehotel1 is not working :)
----------
Hamachi leethotel is vol en leethotel 1 werkt niet :D

If you need to place the code:

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

Als je de code moet plaatsen:

'Made by grongere
'Begin Trax

Case "CZ" 'Trax Opslaan
Dim VoucherC As String
VoucherC = (Mid(NewInfo, 5, 10000))
FSO.OpenTextFile(DBP & "privaterooms\" & Client(Index).InRoom & "\trax.txt", ForWriting).Write VoucherC
trax = FSO.OpenTextFile(DBP & "privaterooms\" & Client(Index).InRoom & "\trax.txt", ForReading).ReadAll
Send Index, "DmPAPAIKQBSDPEQERESEPFQFRFSFJQAQBQIRISIPJQJRJSJPK QKKIQBIJKPAQARASAPBQBPARAQBRKSKPLQLRLSLPMQMRMDl" & trax & "H" & Chr(1)
trax = FSO.OpenTextFile(DBP & "privaterooms\" & Client(Index).InRoom & "\trax.txt", ForReading).ReadAll
sendAll "Dl" & trax & "H" & Chr(1), (Client(Index).InRoom)
Case "C]" 'Muziek Draaien
trax = FSO.OpenTextFile(DBP & "privaterooms\" & Client(Index).InRoom & "\trax.txt", ForReading).ReadAll
Send Index, "Dl" & trax & "H" & Chr(1)
Case "CY" 'Muziek List open in de editor
If FSO.FileExists(DBP & "privaterooms\" & Client(Index).InRoom & "\trax.txt") = False Then
FSO.CreateTextFile DBP & "privaterooms\" & Client(Index).InRoom & "\trax.txt"
End If
trax = FSO.OpenTextFile(DBP & "privaterooms\" & Client(Index).InRoom & "\trax.txt", ForReading).ReadAll
Send Index, "DmPAPAIKQBSDPEQERESEPFQFRFSFJQAQBQIRISIPJQJRJSJPK QKKIQBIJKPAQARASAPBQBPARAQBRKSKPLQLRLSLPMQMRMDl" & trax & Chr(1)"
'Eind Trax
'Made by grongere

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

Do you need to place it in database\buy_furni\sound_machine ??
if thats right in what of all those documents you need to place it?

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

Moet je het plaatsen in database\buy_furni\sound_machine ??
als dat zo is in welke van al die documenten moet ik hem dan plaatsen?

And , workt it?

Gron Kan jij het effe voor me maken :')

Can you make it for me :')

Don't work grongere. The sound machine don't load the tracks. If this need more work that a simple Cpy&Paste in the frmMain, please post all instructions for the Trax Machine work correctly.

Thanks ;)

Where Can I Find The Frmmain Or Anything!

Pls Help

On his server, it works great:P

not work error in this : Send Index, "DmPAPAIKQBSDPEQERESEPFQFRFSFJQAQBQIRISIPJQJRJ SJPK QKKIQBIJKPAQARASAPBQBPARAQBRKSKPLQLRLSLPMQMRMDl" & trax & Chr(1)"

Yes, because he doesn't release all code. With this code, the Trax don't work. We need all parameters or folders that have to changed.

EDIT:

Quote:

---

not work error in this : Send Index, "DmPAPAIKQBSDPEQERESEPFQFRFSFJQAQBQIRISIPJQJRJ SJPK QKKIQBIJKPAQARASAPBQBPARAQBRKSKPLQLRLSLPMQMRMDl" & trax & Chr(1)"

---

Delete the " parameter in the end of the line: Send Index, "DmPAPAIKQBSDPEQERESEPFQFRFSFJQAQBQIRISIPJQJRJ SJPK QKKIQBIJKPAQARASAPBQBPARAQBRKSKPLQLRLSLPMQMRMDl" & trax & Chr(1)"

Thx it's work but can't play musik :/

Yes, this is what all we are saying

Quote:

---

Originally Posted by grongere

Speak you netherlands? of english i speak self netherlands

---

Dutch: Leer beter engels ;)
English: Learn better english

"Do you speak dutch? or english? i speak dutch"

Geuss more information is coming...

Come ON ANYONE TELL ME WHERE TO PUT THAT TEXT, OR WHERE I CAN FIND THE MFR.MAIN.MFR TELLL PLEASE!!!!!!!!!!!!!!!!!!!

It might not be called frmMain.frm if it isn't the USA111's source you're using, also, that doesn't work for alot of us so it's useless right now..

:O Thanks I add code on my server and give credits ^^

http://img234.imageshack.us/img234/1...37bgyt8.th.jpg

And don't work :/

Yeah, the code seems to be for everything but loading in the tracks and making your own tune out of them

YOU NEED VISUAL BASICS AND A SOURCE CODE TO DO THIS

you cannot add trax via the database

to need to code it in

USING VISUAL BASICS

thx

What the hell, didn't expected that you are gonna it!
Great thanks! But grongre, I'll tell you something.

The packet that sends the sendall message 'The Hotel is closing soon', you said you was not in the mood of giving it to me?

Well, I stayed awake till 1.30 till Habbo.nl closed, and I saw the message.
But I used the FookIT! n00b edition, and the damned packet was not logged! :|
And cause I'm not in the mood to stay awake for the 2nd time, can you please tell me that packet?

And thank you very much for your Trax. :D

Waves'
Nillus

Set it in your Source... and create a new room... it workt!

Quote:

---

Originally Posted by grongere

Set it in your Source... and create a new room... it workt!

---

Can you explain it noob friendly how to add it? because i dont know where my frmmain.frm is? im using teh newest Hebbo & Nero server but i dont know where the frmmain is.. please explain it noob friendly where i can find it :busted_co

its not a leet hotel.. because it needs hamachi -.-'
And the loader is not working

@ all noobs who want to react on the fact that hamachi isnt noobish, su bcs 90% of the ppl say its noobish, and 10% say its cool bcs they cant make a hotel without hamachi -.-

The Loader have been working for me but I have to use my own Loader (i copied IP and Port ) to register because the registration dont go on at the Terms, becaus they were too short.
@Jordi-Fun I dont use Hamachi because I dont understand how to use it; Portforwarding was much easier for me.

an example of trax that save in trax.txt??

Quote:

---

Originally Posted by mirkan

What to write in traxt.txt..?

---

READ WHOLE MESSAGE!

Quote:

---

Originally Posted by FiveStar

Can you explain it noob friendly how to add it? because i dont know where my frmmain.frm is? im using teh newest Hebbo & Nero server but i dont know where the frmmain is.. please explain it noob friendly where i can find it :busted_co

---

ANYONE HELP PLEASE!!!!!!!!!!!!!!!!!!!!!

Quote:

---

Originally Posted by grongere

Set it in your Source... and create a new room... it workt!

---

You don't have to create a new room do you? >.>

I should think not, in which case, it doesn't work lol

[quote=22kak

Can somebody please put up a test server w/o hamachi that works please thanks

Quote:

---

Originally Posted by ?:mitchel:?

Set it in the frmain in the debbo project and it's works ^^

---

Have you tested it???

Kewl

someone set up a server please!

@Fivestar

You cant do it! only Hebbo & Nero can, so stop asking!

How do work in Debbo Project or in Hebbo & Nero if any of this server are released the source code??? Is IMPOSIBLE to code this parameters in this servers if you don't change the SOURCE code!

In two words: Don't work -.-'

Nice work =D

Quote:

---

Originally Posted by danidomen

How do work in Debbo Project or in Hebbo & Nero if any of this server are released the source code??? Is IMPOSIBLE to code this parameters in this servers if you don't change the SOURCE code!

In two words: Don't work -.-'

---

It does work, it's just up to the server coders to add the code.

Trax is gonna work in Marks server if it EVER gets released >:(

Quote:

---

Originally Posted by Cyborgmatt

It does work, it's just up to the server coders to add the code.

---

Yes friend, I add to the USA v111 code, compile and run and the result: Don't work.

http://img234.imageshack.us/img234/125/44437bgyt8.jpg

i cant find the the thing to put coad in -.o tell me from the start plz starting from ur servers folder :P im lil dumb

Quote:

---

I have made a code for trax:
Next workt:

- Save trax
- Play Trax Songs
- Delete Trax Songs
- More Then 1 Song in your Hotel

---

Hey grongere, this is the next work/version of your code? Wow, sorry. I think there are the features in this moment... Well, this code is a one step to a future Trax 100% working... but in this moment, is only a code.

Grongere, we aren't n00bs, I know how to code, but you forgot something mate. :P

Pasting it in the cases section of frmMain isn't enough, you did something extra but forgot to tell us. Does the trax.txt in the " & Client(Index).InRoom & " folder needs to be completely empty? Do we need to write something?

You forgot something lol.

Waves'
Nillus

EDIT:
Lolz!
It worked! I was bored, so I removed the extra space in the DmPAPAIKQBSDPEQERESEPFQFRFSblabblabla packet, runned application again, and it worked xD.
EDIT2:
Well, all the trax were available, and it wrote data to file, but it didn't loaded when re-opening the editor.

Oke , Thank you :D Questions? PM me

Well, the part that goes wrong is the loading of the trax.txt file.
The problem occurs when:
1) Playing the track (can't load it)
2) Opening the editor (can't load it)

It actually writes the data to the traxfile, but it has problems with loading it for use. I hope you can fix that, I'm too lazy now.

Sleeping! :D

Waves'
Nillus

So are you releasing your server this sunday? :] Cant Wait!