ROOM
	ID 244
	NAME "Spin the Bottle"
	PICT "bottback.gif"
	PICTURE ID 3 NAME "bottle12.gif" TRANSCOLOR 0 ENDPICTURE
	PICTURE ID 4 NAME "bottle1.gif" TRANSCOLOR 0 ENDPICTURE
	PICTURE ID 5 NAME "bottle2.gif" TRANSCOLOR 0 ENDPICTURE
	PICTURE ID 6 NAME "bottle3.gif" TRANSCOLOR 0 ENDPICTURE
	PICTURE ID 7 NAME "bottle4.gif" TRANSCOLOR 0 ENDPICTURE
	PICTURE ID 8 NAME "bottle5.gif" TRANSCOLOR 0 ENDPICTURE
	PICTURE ID 9 NAME "bottle6.gif" TRANSCOLOR 0 ENDPICTURE
	PICTURE ID 10 NAME "bottle7.gif" TRANSCOLOR 0 ENDPICTURE
	PICTURE ID 11 NAME "bottle8.gif" TRANSCOLOR 0 ENDPICTURE
	PICTURE ID 12 NAME "bottle9.gif" TRANSCOLOR 0 ENDPICTURE
	PICTURE ID 13 NAME "bottle10.gif" TRANSCOLOR 0 ENDPICTURE
	PICTURE ID 14 NAME "bottle11.gif" TRANSCOLOR 0 ENDPICTURE
	PICTURE ID 15 NAME "nada.gif" TRANSCOLOR 0 ENDPICTURE
	PICTURE ID 16 NAME "arrowll.gif" TRANSCOLOR 0 ENDPICTURE
	PICTURE ID 17 NAME "arrowrr.gif" TRANSCOLOR 0 ENDPICTURE
	SPOT
		ID 1
		OUTLINE 230,163  276,163  275,220  230,220
		LOC 256,192
		PICTS 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 14,0,0 ENDPICTS
		SCRIPT
ON ENTER { "Say \x22spin\x22 to spin the bottle!" LOCALMSG
"Script by Foxy, ©2000" STATUSMSG
"For free distribution only!" LOGMSG
}
ON OUTCHAT { trgt GLOBAL spn GLOBAL
{
{ "@512,0 Sorry, the bottle is still spinning" LOCALMSG }
{ NBRROOMUSERS RANDOM ROOMUSER trgt = 12 spn =
USERNAME " spins the bottle..." & ROOMMSG
WHOME 2 SETSPOTSTATE
1 ME SETALARM
} 2 GETSPOTSTATE WHONAME "." GREPSTR IFELSE
} CHATSTR "spin" == IF
}
ON ALARM { trgt GLOBAL spn GLOBAL
{ ME GETSPOTSTATE 1 + DUP 12 / 12 * - ME SETSPOTSTATE
45 ME SETALARM spn --
}
{ { NBRROOMUSERS RANDOM ROOMUSER trgt =
} trgt WHONAME "." GREPSTR NOT IF
trgt WHOPOS y = x =
x 256 - dx = y 192 - dy = -1 ns =
{  dx 0 < 6 * 3 + ns =   } dx dy / 4 >= dx dy / -4 <= OR IF
{  dy 0 > 6 * ns =   } dy dx / 4 >= dy dx / -4 <= OR IF
{ [ [ 4 5 ] [ 2 1 ] [ 8 7 ] [ 10 11 ]
] dx 0 < 2 * dy 0 < + GET dx dx * dy dy * < GET ns =
} ns -1 == IF
{ "The bottle has selected " trgt WHONAME & "!" & ROOMMSG
0 2 SETSPOTSTATE
}
{  ME GETSPOTSTATE 1 + DUP 12 / 12 * - ME SETSPOTSTATE
45 ME SETALARM
} ns ME GETSPOTSTATE == IFELSE
} spn IFELSE
}
		ENDSCRIPT
		ENDSPOT
	SPOT
		ID 2
		OUTLINE 971,977  1001,981  997,1013  961,1019
		LOC 1000,1000
		PICTS 15,0,0 15,0,0 15,0,0 15,0,0 15,0,0 15,0,0 15,0,0 15,0,0 15,0,0 15,0,0 15,0,0 15,0,0 15,0,0 15,0,0 15,0,0 15,0,0 ENDPICTS
		ENDSPOT
	DOOR
		ID 3
		DONTMOVEHERE
		DEST 305
		OUTLINE 4,354  62,354  62,380  4,380
		LOC 33,366
		PICTS 16,0,0 ENDPICTS
		ENDDOOR
	DOOR
		ID 4
		DONTMOVEHERE
		DEST 117
		OUTLINE 448,354  508,354  508,379  448,379
		LOC 480,368
		PICTS 17,0,0 ENDPICTS
		SCRIPT
ON INCHAT { nDoIt GLOBAL nDoIt EXEC }
ON ENTER { { CLEARLOOSEPROPS PAINTCLEAR } NBRROOMUSERS 2 < IF }
		ENDSCRIPT
		ENDDOOR
	ENDROOM