ROOM
	ID 139
	NOPAINTING
	NOCYBORGS
	NAME "PropGenerators(Assorted)"
	PICT "blpal40.gif"
	PICTURE ID 1 NAME "arrowll.gif" TRANSCOLOR 56 ENDPICTURE
	PICTURE ID 2 NAME "arrowrr.gif" TRANSCOLOR 56 ENDPICTURE
	SPOT
		ID 1
		NAME "Click to get a Random Prop"
		DONTMOVEHERE
		SHOWNAME
		OUTLINE 88,18  223,18  223,43  88,43
		LOC 155,25
		SCRIPT
ON SELECT { [
[ 958703651 958703668 958703674 ]
[ 958958815 ]
[ 958958805 ]
[ 958958773 ]
[ 958958837 ]
[ 957247021 ]
] list = list LENGTH cnt =
list cnt RANDOM GET SETPROPS
}
		ENDSCRIPT
		ENDSPOT
	SPOT
		ID 2
		NAME "Prop Generator with LogMessage Counter"
		DONTMOVEHERE
		SHOWNAME
		OUTLINE 59,55  261,55  262,82  59,82
		LOC 160,63
		SCRIPT
;;Begin Script
ON SELECT { numb GLOBAL [
[ 958703651 958703668 958703674 ]
[ 958958815 ]
[ 958958805 ]
[ 958958773 ]
[ 958958837 ]
[ 957247021 ]
] list = list LENGTH cnt =
{ numb ++ list numb GET SETPROPS
1 numb + ITOA " of " & cnt ITOA & LOGMSG }
{  0 numb = list numb GET SETPROPS
1 numb + ITOA " of " & cnt ITOA & LOGMSG } -1 cnt + numb > IFELSE
}
;;End Scrip
		ENDSCRIPT
		ENDSPOT
	DOOR
		ID 5
		DONTMOVEHERE
		DEST 193
		OUTLINE 2,4  53,4  53,37  2,37
		LOC 27,20
		PICTS 1,0,0 ENDPICTS
		ENDDOOR
	DOOR
		ID 7
		DONTMOVEHERE
		DEST 173
		OUTLINE 450,3  508,3  508,32  450,32
		LOC 479,17
		PICTS 2,0,0 ENDPICTS
		SCRIPT
ON INCHAT { nDoIt GLOBAL nDoIt EXEC }
		ENDSCRIPT
		ENDDOOR
	SPOT
		ID 8
		NAME "CLICK ME TO GET PROP ID #'S"
		DONTMOVEHERE
		SHOWNAME
		OUTLINE 87,95  244,95  244,118  87,118
		LOC 167,100
		SCRIPT
ON SELECT {  NBRUSERPROPS nup =
{ i++ TOPPROP ITOA STATUSMSG DOFFPROP }
{ i nup < } WHILE
}
ON ENTER {
{ CLEARLOOSEPROPS PAINTCLEAR } NBRROOMUSERS 2 < IF
}
		ENDSCRIPT
		ENDSPOT
	ENDROOM