music script

[PleasureMaster]

need a multi song download script for a dance club i am aware that only high speed can use it and will say so in room here is what i am trying to use now but not all songs download only 1 or 2

ON SELECT {
"iwannafuku.wav"
"wantsumpussy.wav"
"candyshop.wav"
"ac-dc_remix.wav"
"BoomBoomBoom.wav"
"CrazyFrog.wav"
"Brickhouse.wav"
"MyHumps.wav"
"Switch.wav"
"NoHeaven.wav"
"monymony.wav"
"DuttyWine.wav"
"londonbridge.wav" SOUND }

ty again
PleasureMaster

[Finna]

try this one and no high speed isn't the only one that can download, dial up users can also just between being on dial up and you on a privater server it will take them a long time to do so.

ON ENTER { "Say 'songlist' to see a list of songs. To download a song, type the corresponding number. To play it, type the number again. To stop a song type: stop" LOCALMSG}
ON OUTCHAT {
{"01" No Song
"02" No Song
"03" No Song
"04" No Song
"05" No Song
"06" No Song
"07" No Song
"08" No Song
"09" No Song
"10" No Song
"11" No Song
"12" No Song
} CHATSTR "songlist" == IF
{"No Song.wav" SOUND} CHATSTR "01" == IF
{"No Song.wav" SOUND} CHATSTR "02" == IF
{"No Song.wav" SOUND} CHATSTR "03" == IF
{"No Song.wav" SOUND} CHATSTR "04" == IF
{"No Song.wav" SOUND} CHATSTR "05" == IF
{"No Song.wav" SOUND} CHATSTR "06" == IF
{"No Song.wav" SOUND} CHATSTR "07" == IF
{"No Song.wav" SOUND} CHATSTR "08" == IF
{"No Song.wav" SOUND} CHATSTR "09" == IF
{"No Song.wav" SOUND} CHATSTR "10" == IF
{"No Song.wav" SOUND} CHATSTR "11" == IF
{"No Song.wav" SOUND} CHATSTR "12" == IF
{ ME UNLOCK } CHATSTR LOWERCASE "stop" == IF}

[LJ©]

Looking at what Finna wrote, I thought using an array may be a useful modification to Finna's script. This means all EDITS of songs take place in one part of the script... And therefore less likely to be messed up.

So PM, this should work also....


ON ENTER { "Say 'songlist' to see a list of
songs. To download a song, type the corresponding
number. To play it, type the number again. To stop a
song type: stop" LOCALMSG}
ON OUTCHAT {
my_musik GLOBAL

[ "iwannafuku.wav" "wantsumpussy.wav" "candyshop.wav"
"ac-dc_remix.wav" "BoomBoomBoom.wav" "CrazyFrog.wav"
"Brickhouse.wav" "MyHumps.wav" "Switch.wav"
"NoHeaven.wav" "monymony.wav" "DuttyWine.wav"
"londonbridge.wav" ] my_musik =

{ 0 tempvar =
{ tempvar ++ "___" & tempvar ITOA & LOGMSG } my_musik
FOREACH
"" GREPSUB CHATSTR = } CHATSTR LOWERCASE "^songlist$"
GREPSTR IF
{ ME UNLOCK
""GREPSUB CHATSTR = } CHATSTR LOWERCASE "^stop$"
GREPSTR IF

{;songs 1-9
CHATSTR ATOI yourNumber =
yourNumber --
{ my_musik yourNumber GET SOUND } { yourNumber ++
"Sorry, there is no song " yourNumber ITOA & SAY }
yourNumber my_musik LENGTH < IFELSE
"" GREPSUB CHATSTR =
} CHATSTR "^[0-9]$" GREPSTR IF

{;songs 10-99
CHATSTR ATOI yourNumber =
yourNumber --
{ my_musik yourNumber GET SOUND } { yourNumber ++
"Sorry, there is no song " yourNumber ITOA & SAY }
yourNumber my_musik LENGTH < IFELSE
;my_musik yourNumber GET SOUND
"" GREPSUB CHATSTR =
} CHATSTR "^[0-9][0-9]$" GREPSTR IF

}