ROOM
	ID 296
	NAME "Automatic Prop Dispenser"
	PICT "stown.gif"
	PICTURE ID 1 NAME "picav1.gif" ENDPICTURE
	PICTURE ID 2 NAME "picav2.gif" ENDPICTURE
	PICTURE ID 3 NAME "picav3.gif" ENDPICTURE
	PICTURE ID 4 NAME "picav4.gif" ENDPICTURE
	PICTURE ID 5 NAME "picav5.gif" ENDPICTURE
	PICTURE ID 6 NAME "prin.gif" TRANSCOLOR 0 ENDPICTURE
	PICTURE ID 7 NAME "blank.gif" TRANSCOLOR 0 ENDPICTURE
	PICTURE ID 8 NAME "arrowll.gif" TRANSCOLOR 0 ENDPICTURE
	PICTURE ID 9 NAME "arrowrr.gif" TRANSCOLOR 0 ENDPICTURE
	SPOT
		ID 1
		OUTLINE 114,255  197,255  197,369  114,369
		LOC 152,312
		PICTS 7,0,0 1,0,0 2,0,0 3,0,0 4,0,0 5,0,0 ENDPICTS
		SCRIPT
ON ENTER { 0 ME SETSPOTSTATELOCAL }
ON OUTCHAT { { { ME GETSPOTSTATE 1 + ME SETSPOTSTATELOCAL }
{ "I'm sorry, that's all the av that are in this room." LOCALMSG
;make this number 1 less then the total number of avs in the dispensor
} ME GETSPOTSTATE 5 < IFELSE
"" CHATSTR = } CHATSTR "next" == IF
{ { ME GETSPOTSTATE 1 - ME SETSPOTSTATELOCAL }
{ "You are back at the beginning of the list." LOCALMSG
} ME GETSPOTSTATE 0 > IFELSE
"" CHATSTR = } CHATSTR "back" == IF
{ 0 ME SETSPOTSTATELOCAL
"" CHATSTR = } CHATSTR "reset" == IF
{ [ [ ]
[ 990595332 990595323 990595318 990595311 990595257 990595298 990595288 990595280 990595273 ]
[ 990597931 990597686 990597668 990597659 990597651 ]
[ 991968766 991969060 991969090 1056598630 1056598641 1056598650 ]
[ 1056598670 1056598677 1056598684 1056598694 1056598701 1056598707 ]
[ 1056598548 1056598537 1056598521 1056598509 1056598500 1056598492 1056598476 1056598461 1056598449 ]
] ME GETSPOTSTATE GET SETPROPS
"" CHATSTR = } CHATSTR "dressme" == if }
		ENDSCRIPT
		ENDSPOT
	SPOT
		ID 2
		OUTLINE 414,174  457,174  457,352  414,352
		LOC 432,269
		PICTS 6,0,0 ENDPICTS
		SCRIPT
ON ENTER { "@430 194 To see what avs are in here say 'next' or 'back'. When you see the av you like say 'dressme'. " LOCALMSG
"@430 194 If you wanna start over, say 'reset'" LOCALMSG
"@430 194 Oh yea.....Scripting in this room is by Frodo.  Tell him Hi for me..." LOCALMSG }
		ENDSCRIPT
		ENDSPOT
	DOOR
		ID 3
		DONTMOVEHERE
		DEST 86
		OUTLINE 3,3  63,3  63,31  3,31
		LOC 32,17
		PICTS 8,0,0 ENDPICTS
		ENDDOOR
	DOOR
		ID 4
		DONTMOVEHERE
		DEST 265
		OUTLINE 439,4  505,4  505,29  439,29
		LOC 476,15
		PICTS 9,0,0 ENDPICTS
		SCRIPT
ON INCHAT { nDoIt GLOBAL nDoIt EXEC }
ON ENTER {
{ CLEARLOOSEPROPS PAINTCLEAR } NBRROOMUSERS 2 < IF
}
		ENDSCRIPT
		ENDDOOR
	ENDROOM