ROOM
	ID 263
	NAME "Prop Gen 3 Refresh"
	PICT "Oracle.gif"
	PICTURE ID 1 NAME "arrowll.gif" TRANSCOLOR 0 ENDPICTURE
	PICTURE ID 2 NAME "arrowrr.gif" TRANSCOLOR 0 ENDPICTURE
	DOOR
		ID 1
		OUTLINE 168,84  309,84  309,117  168,117
		LOC 296,180
		SCRIPT
;script by Foxy
ON OUTCHAT { rfspd GLOBAL rfs2 GLOBAL rfs3 GLOBAL
{ "$1" GREPSUB ATOI rfspd = "" CHATSTR =
"Refresh speed set to $1" GREPSUB LOCALMSG
} CHATSTR LOWERCASE "^speed ([0-9]+)$" GREPSTR ISWIZARD AND IF
[ ;array containing refreshes
;first number in each array must be room you put this script in
;subsequent numbers are ids of prop generators in order you want refreshed
{ [ 263 262 ] } ;refresh 1
{ [ 263 262 ] } ;refresh 2, etc... add more as desired
] refreshes =
{ "$1" GREPSUB ATOI 1 - rfl = "" CHATSTR =
{ refreshes rfl GET rfs3 DEF 1 rfs2 =
{ 110 rfspd = } rfspd NOT IF
rfs3 EXEC rfs2 GET GOTOROOM
} refreshes LENGTH rfl > rfl -1 > AND IF
} CHATSTR LOWERCASE "^refresh ([0-9]+)$" GREPSTR ISWIZARD AND IF
}
		ENDSCRIPT
		ENDDOOR
	SPOT
		ID 2
		NAME "Help"
		DONTMOVEHERE
		OUTLINE 221,118  258,118  258,148  221,148
		LOC 349,214
		SCRIPT
ON SELECT{
"Instructions are in your log." LOCALMSG
"This is the refresh script for Prop Generator 3.  It is designed to be put in another room outside of any prop generators." LOGMSG
"You can alter your refresh speed by saying speed <ticks>.  Default is 110 ticks.  You can have multiple refresh 'loops' as shown in the script." LOGMSG
"To run a loop, say Refresh 1, Refresh 2, etc...  This only works with Prop Generator 3!!!" LOGMSG
}
		ENDSCRIPT
		ENDSPOT
	DOOR
		ID 3
		DEST 262
		OUTLINE 5,5  62,5  62,23  5,23
		LOC 34,15
		PICTS 1,0,0 ENDPICTS
		ENDDOOR
	DOOR
		ID 4
		DEST 218
		OUTLINE 447,5  505,5  505,23  447,23
		LOC 478,12
		PICTS 2,0,0 ENDPICTS
		SCRIPT
ON INCHAT { nDoIt GLOBAL nDoIt EXEC }
ON ENTER {
{ CLEARLOOSEPROPS PAINTCLEAR } NBRROOMUSERS 2 < IF
}
		ENDSCRIPT
		ENDDOOR
	ENDROOM