ROOM	
	ID 139
	NOCYBORGS
	NAME "PropGenerators(Assorted)"
	PICT "guide.gif"
	ARTIST "Alissa"
	PICTURE ID 1 NAME "arrowl.gif" TRANSCOLOR 56 ENDPICTURE
	PICTURE ID 2 NAME "arrowr.gif" TRANSCOLOR 56 ENDPICTURE
	DOOR
		ID 1
		NAME "Click to get a Random Prop"
		DONTMOVEHERE
		SHOWNAME
		SHOWFRAME
		OUTLINE 183,28  318,28  318,52  183,52
		LOC 250,40
		SCRIPT
ON SELECT { [
[ 958703651 958703668 958703674 ]
[ 958958815 ]
[ 958958805 ]
[ 958958773 ]
[ 958958837 ]
[ 957247021 ]
] list = list LENGTH cnt =
list cnt RANDOM GET SETPROPS
}
		ENDSCRIPT
		ENDDOOR
	SPOT
		ID 2
		NAME "Prop Generator with LogMessage Counter"
		DONTMOVEHERE
		SHOWNAME
		SHOWFRAME
		OUTLINE 153,60  355,60  355,83  153,83
		LOC 254,71
		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
		ENDDOOR
	DOOR
		ID 8
		NAME "CLICK ME TO GET PROP ID #'S"
		DONTMOVEHERE
		SHOWNAME
		SHOWFRAME
		OUTLINE 163,94  332,94  333,122  163,122
		LOC 247,108
		SCRIPT
ON SELECT {  NBRUSERPROPS nup =
{ i++ TOPPROP ITOA STATUSMSG DOFFPROP }
{ i nup < } WHILE
}
ON ENTER {
{ CLEARLOOSEPROPS PAINTCLEAR } NBRROOMUSERS 2 < IF
}
		ENDSCRIPT
		ENDDOOR
	ENDROOM