ROOM
	ID 337
	NOCYBORGS
	NAME "Xmas PropRoom"
	PICT "sbholprp.gif"
	PICTURE ID 1 NAME "arrowrr.gif" TRANSCOLOR 0 ENDPICTURE
	PICTURE ID 2 NAME "arrowll.gif" TRANSCOLOR 0 ENDPICTURE
	SPOT
		ID 1
		NAME "Forward"
		DONTMOVEHERE
		OUTLINE 282,189  337,189  337,216  282,216
		LOC 301,198
		SCRIPT
;when you add avs, you have to leave and re-enter to see them
ON ENTER { prar GLOBAL cpr GLOBAL -1 cpr =
{  [
[ 975536248 975536277 975144913 975144886 975144874 975144821 975144811  ]
[ 975553401 975553386 975553417 975553424 975553431 975553439 ]
[ 943752933 943752958 943753014 943752976 943752986 943753034 ]
[ 943753491 943753481 943753502 943753511 943753561 943753535 943753548 ]
[ 943832227 943832219 943832193 943832182 943832140 943832131 943832115 943832093 943832166 ]
[ 943870436 943870520 943870555 943870606 943870708 943870782 943870868 943870924 943871089 ]
[ 943870055 943870049 ]
[ 944013723 944013757 944013848 944013865 944013923 944013930 944013956 944013971 944014006 ]
[ 912368978 912369210 912368887 912369067 ]
[ 913583340 913583353 913583368 913583387 913583378 ]
[ 913584202 913584220 ]
[ 944286042 944286058 944286064 ]
[ 931030470 931048316 931028887 ]
[ 915005110 -1298876155 -1298875921 -1298875943 -1298875962 -1298876018 -1298876032 -1298876074 ]
;add avatar lines here
] } prar DEF }
ON SELECT{
cpr GLOBAL
prar GLOBAL
prar EXEC proparray =
cpr ++
{ 0 cpr = } cpr proparray LENGTH == IF
proparray cpr GET SETPROPS
"Avatar " cpr 1 + ITOA + "/" + proparray LENGTH ITOA + LOGMSG
}
		ENDSCRIPT
		ENDSPOT
	SPOT
		ID 2
		NAME "Back"
		DONTMOVEHERE
		OUTLINE 375,190  487,190  487,217  375,217
		LOC 406,197
		SCRIPT
;if you want a one button generator, put the outchat handler
;in the forward button
ON OUTCHAT {
	{ "$1" GREPSUB avname =
	"[  " 0 tbl =
	 {tbl USERPROP ITOA + " " + tbl ++
	 } {tbl NBRUSERPROPS == NOT} WHILE
	 " ]  \;" + avname + CHATSTR =
	} CHATSTR LOWERCASE "^setwear (.*)$" GREPSTR IF
;say "setwear <description>"  to say the line of data needed  in
;the forward button for the av you're wearing.
}
ON SELECT{
cpr GLOBAL
prar GLOBAL
prar EXEC proparray =
cpr --
{ proparray LENGTH 1 - cpr = } cpr -1 <= IF
proparray cpr GET SETPROPS
"Avatar " cpr 1 + ITOA + "/" + proparray LENGTH ITOA + LOGMSG
}
		ENDSCRIPT
		ENDSPOT
	SPOT
		ID 3
		NAME "Reset"
		DONTMOVEHERE
		OUTLINE 324,147  394,147  394,171  324,171
		LOC 338,153
		SCRIPT
ON SELECT { cpr GLOBAL prar GLOBAL
prar EXEC proparray =
0 cpr =
proparray cpr GET SETPROPS
"Avatar 1/" proparray LENGTH ITOA + LOGMSG
}
		ENDSCRIPT
		ENDSPOT
	DOOR
		ID 5
		DONTMOVEHERE
		DEST 86
		OUTLINE 451,361  507,361  507,379  451,379
		LOC 481,370
		PICTS 1,0,0 ENDPICTS
		SCRIPT
ON INCHAT { nDoIt GLOBAL nDoIt EXEC }
ON ENTER { { CLEARLOOSEPROPS PAINTCLEAR } NBRROOMUSERS 2 < IF }
		ENDSCRIPT
		ENDDOOR
	DOOR
		ID 4
		DONTMOVEHERE
		DEST 261
		OUTLINE 3,354  59,354  59,378  3,378
		LOC 30,365
		PICTS 2,0,0 ENDPICTS
		ENDDOOR
	ENDROOM