PalaceChat RBScript Compendium

Script Name:	Jukebox
Author:	Marius_Th & Pa\/\/n
Sections:	ENTER, INCHAT, OUTCHAT, ALARM,
Attachments:	jukeboximages.zip

Change linktofilename.mp3 to a filename/mp3 on your server or a streamed audio file.
Type playlist to see the playlist, type play ## to play the song at number.
Add the images above to the door to finish it off.

;START_ONENTER

	localmsg "@70,213 This room has a selection of mp3 streams to choose from.  Type PLAYLIST to see what is available to play."
	setalarm 0,spotid 

;END_ONENTER

;START_ONINCHAT
dim s() as string
dim index as integer

s=array(_
"linktofilename01.mp3",_
"linktofilename02.mp3",_
"linktofilename03.mp3")

if instr(chatstr,"play ")=1 then
	index=val(replace(chatstr,"play ",""))-1
	if index>-1 and ubound(s)>=index then playsound(s(index))
end if

if chatstr="play random" then
	index=(rnd*ubound(s)) - 1
	if index>-1 and ubound(s)>=index then playsound(s(index))
	chatstr="play "+str(index + 1)
end if

if chatstr="stop" then
	stopsound
end if

;END_ONINCHAT


;START_ONOUTCHAT


if chatstr="playlist" then
logmsg "Jukebox Playlist:",&ca000F0
logmsg "-------------------------"
listsong "file title"
listsong "file title"
listsong "etc.."

logmsg "Type PLAY and the corresponding number to play a video of your choice.",&c23A000
logmsg "Type STOP to stop the video at any time.",&c23A000
logmsg "Or type PLAY RANDOM to play a random song from the list.",&c23A000
logmsg "If the video pauses at any time it is probably still downloading, you can wait a moment then double click the screen to start playing again..",&ca02300
chatstr=""
end if

Module JukeBoxThings
	Sub ListSong(song as string)
		dim j as integer
		j=getinteger("autoincrement")
		j=j+1
		setinteger("autoincrement",j)
		logmsg str(j)+". "+song
	End Sub
End Module

setinteger("autoincrement",0)

;END_ONOUTCHAT


;START_ONALARM 

	dim nbrpictures,displaytime as integer 
	nbrpictures=4
	displaytime=600 

	if spotstate(spotid)+1>=nbrpictures then 
		setspotstatelocal spotid,0 
	else 
		setspotstatelocal spotid,spotstate(spotid)+1 
	end if 

	setalarm displaytime,spotid 

;END_ONALARM