[Addon] TRAX!! RELEASE [Trax Release]

well i can't do it because i don't have VB 6 anymore ~.~ if i did i would try to find out the problem and fix it for ya

If you ask me, the problem is that the whole source for it isn't there ;P

Resume

Search in Main.frm:

Code:

---

Case "@D" 'login
Hab_AtD NewInfo, Index

---

And down of this paste this code:

Code:

---

'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, "DmPAPAIKQBSDPEQERESEPFQFRFSFJQAQBQIRISIPJQJRJSJPKQKKIQBIJKPAQARASAPBQBPARAQBRKSKPLQLRLSLPMQMRMDl & trax & Chr(1)
'Eind Trax
'Made by grongere

---

Now enter to a room [the room need a sound machine] and go out, go to \database\privaterroms\NUMBER OF ROOM and open trax.txt
Write in this: sound_set 1

Enter to the room clic edit and Play!

or 1:40,2;19,2;20,1;21,1;22,2;23,4;24,1;25,1;26,1;27,2:2:5,2;0,15:3:0,17:4:0,17:


Run in V13

it works. thankyou.

i will release a server patch with this in it soon.

That doesn't work >.>

Quote:

---

Originally Posted by LetMeHaveAName

That doesn't work >.>

---

WORK -.-

Only runs [for me] in V13 i'm sure you are using V14 .-.-

Okay, im using USA111's source code, with V13 DCR's but its still not working?

Wo become i the USA 111 Source ??:eek6: and DCR 13 ?

Quote:

---

Originally Posted by muertet

WORK -.-

Only runs [for me] in V13 i'm sure you are using V14 .-.-

---

I'm not, I'm using USA111's v13 source, yet it still decides to not to work, I'm not the only one having this problem either >.>

This script workt!! , Sorry for me bad english :P

Quote:

---

Originally Posted by grongere

This script workt!! , Sorry for me bad english :P

---

But i need the Source... i want TRAX i need this for my Habbo...

Quote:

---

Originally Posted by LetMeHaveAName

I'm not, I'm using USA111's v13 source, yet it still decides to not to work, I'm not the only one having this problem either >.>

---

I'm using my server and RUNS ok? .-.-.- >.> Borde de mierda.

Where is the part of if enters room then plays (A) and the list of the trax
I don't have trax :P if someone can give on habbo I packetlog and give back lol :P

Well, I think Mitchell forgot to post something, cause the thing can be opened, edited music, but when you click on save it writes, but when reading it goes wrong. I'm now trying to send it a hardcoded thing, instead of loading it from trax.txt

EDIT:
Doesn't work either, I hope I can ask mitchell on MSN lol.

Waves'
Nillus

He dont answer >.< he say he speak only netherlands no english ^^

Well, I speak Dutch, English and a bit German.
But I've him on MSN, but he isn't online... :(

Waves'
Nillus

Quote:

---

Originally Posted by ANEWAREA

He dont answer >.< he say he speak only netherlands no english ^^

---

LOL :D

Quote:

---

Originally Posted by ANEWAREA

He dont answer >.< he say he speak only netherlands no english ^^

---

Lol he does speak english i've had hours of convos with him xD he just doesnt want to talk to u :P his english isnt perfect but it's understandable

Quote:

---

Originally Posted by murdocke

Lol he does speak english i've had hours of convos with him xD he just doesnt want to talk to u :P his english isnt perfect but it's understandable

---

Lol yeah, but I prefer to speak Dutch with him. :P
By the way, is my English understandable?

Waves'
Nillus

Your English is perfect..


Also, yeah the problem seems to be playing the music, editor opens, music loads, save seems to work kinda, but it won't play it after

Yes Nillus, your English is perfect ;) (my english is worse than your english)

I'm waiting for a future update by grongere...

Quote:

---

Originally Posted by danidomen

Yes Nillus, your English is perfect ;) (my english is worse than your english)

I'm waiting for a future update by grongere...

---

My English is verry bad :P sorry
Ooh sorry I update not the week back Sunday :( bugs
I hope that i cane update up 16 june
Leethotel server:

- Trax 100 % ( all songs )
- Diving 100 %
- Recycler 100 % ( New Update: Mode, Candy , Deals and all it other stuff... :P)
- 128 Public rooms
- 80 Bots
- Habbo Times
Close Message: 1:15:00
Close: 1:30:00
Open: 6:30:00
( you cane change this times )
- Infobus 100 % + drink + walk
- :status ( Informatie from the server )
- You cane create Max. 6 Milion Stuff's
- You cane create Max. 40000 Habbo's
- Max. Online: 400 ( I do me best )
- Bus Questions Start from a room then shout / say you: :infobus open
- Bus Status ( click up the doors from the bus )
- Add Public rooms to your favourite 50 %
- Swimming 100 %
- Change your Clothes 100 %



I come back! :) Questions? PM Me

In the meantime, can you help us with the Trax code?
Just open your source and search for 'trax', I bet you've forgot something.

Waves'
Nillus

Yeah if you could help us out with the Trax code that would be great :)

Also, your server sounds like it will be good with those features, most working at 100% ^_^

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

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

'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

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

- grongere

---

I'm Italian... but It's Cool