[Addon] TRAX!! RELEASE [Trax Release]

[Lars.l.]

Nice work =D

[Cyborgmatt]

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.

[supajman]

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

[danidomen]

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.

[MJG]

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

[danidomen]

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.

[Nillus]

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.

[grongere]

Oke , Thank you :D Questions? PM me

[Nillus]

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

[Cw94]

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

[Coolister]

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

[LetMeHaveAName]

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

[muertet]

Resume

Search in Main.frm:

Case "@D" 'login
Hab_AtD NewInfo, Index

And down of this paste this 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

[Josh2k44]

it works. thankyou.

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

[LetMeHaveAName]

That doesn't work >.>