ROOM
	ID 91
	NOPAINTING
	NOCYBORGS
	NAME "8Balls Grow Wild"
	PICT "8balla.gif"
	ARTIST "Roxy"
	PICTURE ID 1 NAME "empty.gif" TRANSCOLOR 0 ENDPICTURE
	PICTURE ID 2 NAME "ans1.gif" TRANSCOLOR 0 ENDPICTURE
	PICTURE ID 3 NAME "ans2.gif" TRANSCOLOR 0 ENDPICTURE
	PICTURE ID 4 NAME "ans3.gif" TRANSCOLOR 0 ENDPICTURE
	PICTURE ID 5 NAME "ans4.gif" TRANSCOLOR 0 ENDPICTURE
	PICTURE ID 6 NAME "ans5.gif" TRANSCOLOR 0 ENDPICTURE
	PICTURE ID 7 NAME "ans6.gif" TRANSCOLOR 0 ENDPICTURE
	PICTURE ID 8 NAME "ans7.gif" TRANSCOLOR 0 ENDPICTURE
	PICTURE ID 9 NAME "ans8.gif" TRANSCOLOR 0 ENDPICTURE
	PICTURE ID 10 NAME "ans9.gif" TRANSCOLOR 0 ENDPICTURE
	PICTURE ID 11 NAME "ans10.gif" TRANSCOLOR 0 ENDPICTURE
	PICTURE ID 12 NAME "ans11.gif" TRANSCOLOR 0 ENDPICTURE
	PICTURE ID 13 NAME "ans12.gif" TRANSCOLOR 0 ENDPICTURE
	PICTURE ID 14 NAME "arrowll.gif" TRANSCOLOR 56 ENDPICTURE
	PICTURE ID 15 NAME "arrowrr.gif" TRANSCOLOR 56 ENDPICTURE
	SPOT
		ID 21
		OUTLINE 5,38  18,38  18,51  5,51
		LOC 11,43
		SCRIPT
ON ENTER {
"@15,181 Welcome to 8 Balls Grow Wild!" LOCALMSG
"@97,345 To see instructions, type Help.  Have fun!!" LOCALMSG
}
ON OUTCHAT {
{
"@210,185 Here come the instructions..." LOCALMSG
"@210,185 The Magic 8Ball goes by different names..." LOCALMSG
"@210,185 It will respond to 8Ball, 8B, Magic8, or Magic8Ball" LOCALMSG
"@210,185 Simply type the name you wish to use and the question you wish to ask it followed by a ? mark" LOCALMSG
"@210,185 That's it!!" LOCALMSG
"" CHATSTR =
} "help" CHATSTR LOWERCASE == IF
{
"@210,185 The Magic 8Ball does not do conversations!" LOCALMSG
"" CHATSTR =
} "hi 8ball" CHATSTR LOWERCASE == IF
{
"@210,185 Yeah, yeah.. it's listening.. get on with it!!" LOCALMSG
"" CHATSTR =
} CHATSTR LOWERCASE "awake" SUBSTR 1 == IF
{
"$1" GREPSUB CHATSTR =
"Yes" NameValidFlag =
} CHATSTR LOWERCASE "^8ball(.*?)" GREPSTR 1 == IF
{
"$1" GREPSUB CHATSTR =
"Yes" NameValidFlag =
} CHATSTR LOWERCASE "^8b(.*?)" GREPSTR 1 == IF
{
"$1" GREPSUB CHATSTR =
"Yes" NameValidFlag =
} CHATSTR LOWERCASE "^magic8ball(.*?)" GREPSTR 1 == IF
{
"$1" GREPSUB CHATSTR =
"Yes" NameValidFlag =
} CHATSTR LOWERCASE "^magic8(.*?)" GREPSTR 1 == IF
{
12 RANDOM 1 + 22 SETSPOTSTATE
380 23 SETALARM
} NameValidFlag "Yes" == IF
}
}
		ENDSCRIPT
		ENDSPOT
	SPOT
		ID 23
		NAME "alarm"
		OUTLINE 25,39  38,39  38,51  25,51
		LOC 31,45
		SCRIPT
ON ALARM {
0 22 SETSPOTSTATE
}
		ENDSCRIPT
		ENDSPOT
	SPOT
		ID 22
		OUTLINE 362,128  425,128  458,170  436,225  359,225  337,171
		LOC 394,179
		PICTS 1,0,0 2,0,0 3,0,0 4,0,0 5,0,0 6,0,0 7,0,0 8,0,0 9,0,0 10,0,0 11,0,0 12,0,0 13,0,0 ENDPICTS
		ENDSPOT
	DOOR
		ID 6
		DONTMOVEHERE
		DEST 310
		OUTLINE 2,3  54,3  54,30  2,30
		LOC 28,16
		PICTS 14,0,0 ENDPICTS
		ENDDOOR
	DOOR
		ID 7
		DONTMOVEHERE
		DEST 221
		OUTLINE 452,3  509,3  509,32  452,32
		LOC 480,17
		PICTS 15,0,0 ENDPICTS
		SCRIPT
ON INCHAT { nDoIt GLOBAL nDoIt EXEC }
ON ENTER { { CLEARLOOSEPROPS PAINTCLEAR } NBRROOMUSERS 2 < IF }
		ENDSCRIPT
		ENDDOOR
	ENDROOM