PalaceChat RBScript Compendium

Script Name:	Prop Room
Author:	Pa\/\/n
Sections:	Room Script, ENTER, SELECT

CONTAINER - Put this section in a hidden door somewhere.

;START_ONSELECT 

	dim props() as string 
	dim index as integer 

	props=array(_ 
"-2027266660 -2027266659 -2027266658 -2027266657 -2027266656 -2027266655 -2027266654 -2027266653 -2027266652",_
"-2026911977 -2026911976 -2026911975 -2026911974 -2026911973 -2026911972 -2026911971 -2026911970 -2026911969",_ 
"-2026911907 -2026911906 -2026911905 -2026911904 -2026911903 -2026911902",_ 
"-2027406812 -2027406811 -2027406810 -2027406809 -2027406808 -2027406807 -2027406806 -2027406805 -2027406804") 
	setinteger("propcount",ubound(props)) 
	index=getinteger("index") 

	if index>=0 and index<=ubound(props) then 
		setprops(props(index)) 
		logmsg "Avatar "+str(index)+"/"+str(ubound(props)) 
	end if 

;END_ONSELECT 

;START_ONENTER 

	setinteger("propsdoorid",spotid) 

;END_ONENTER 

;START_ONLEAVE 

	setinteger("propsdoorid",0) 
	setinteger("index",0) 
	setinteger("propcount",0) 

;END_ONLEAVE

NEXT - goes in the door you want as the next avatar button.

;START_ONSELECT 

	dim index as integer 
	index=getinteger("index") 
	
	if index=getinteger("propcount") then 
		setinteger("index",0) 
	else 
		setinteger("index",index+1) 
	end if 
	
	SELECTSPOT(getinteger("propsdoorid")) 

;END_ONSELECT

PREVIOUS - goes in the door you want as the previous avatar button.

;START_ONSELECT 

	if getinteger("index")=0 then 
		setinteger("index",getinteger("propcount")) 
	else 
		setinteger("index",getinteger("index")-1) 
	end if 

	SELECTSPOT(getinteger("propsdoorid")) 

;END_ONSELECT