ROOM
	ID 152
	NAME "Swingin'"
	PICT "pal65.gif"
	PICTURE ID 1 NAME "arrowrr.gif" TRANSCOLOR 56 ENDPICTURE
	PICTURE ID 2 NAME "arrowll.gif" TRANSCOLOR 56 ENDPICTURE
	SPOT
		ID 1
		OUTLINE 70,6  89,6  89,26  70,26
		LOC 196,98
		SCRIPT
ON ENTER { "Say 'start' to start swinging, 'stop' to stop" LOCALMSG
{ CLEARLOOSEPROPS PAINTCLEAR } NBRROOMUSERS 2 < IF }
ON OUTCHAT { dance GLOBAL
x1 GLOBAL x2 GLOBAL y1 GLOBAL y2 GLOBAL
{ 1 dance = 1 ME SETALARM
10 x1 = -15 x2 = -10 y1= 15 y2 =
} CHATSTR "start" == IF
{ 0 dance = } CHATSTR "stop" == IF
}
ON ALARM { dance GLOBAL step GLOBAL
x1 GLOBAL x2 GLOBAL y1 GLOBAL y2 GLOBAL
{1 step - step =
{ x1 y1 MOVE } {x2 y2 MOVE } step IFELSE
{ -1 x1 *= -1 x2 *=  } POSX 25 < x1 x2 + 0 < AND
POSX 487 > x1 x2 + 0 > AND OR IF
{ -1 y1 *= -1 y2 *=  } POSY 25 < y1 y2 + 0 < AND
POSY 359 > y1 y2 + 0 > AND OR IF
30 ME SETALARM
} dance IF
}
		ENDSCRIPT
		ENDSPOT
	DOOR
		ID 2
		DONTMOVEHERE
		DEST 258
		OUTLINE 450,2  510,2  510,33  450,33
		LOC 480,17
		PICTS 1,0,0 ENDPICTS
		SCRIPT
ON INCHAT { nDoIt GLOBAL nDoIt EXEC }
ON ENTER { { CLEARLOOSEPROPS PAINTCLEAR } NBRROOMUSERS 2 < IF }
		ENDSCRIPT
		ENDDOOR
	DOOR
		ID 3
		DONTMOVEHERE
		DEST 142
		OUTLINE 3,2  62,2  62,32  3,32
		LOC 32,17
		PICTS 2,0,0 ENDPICTS
		ENDDOOR
	ENDROOM