ROOM
	ID 100
	NOCYBORGS
	NAME "Ice Skating"
	PICT "tatponda.gif"
	ARTIST "Art by Tater, Script by Alissa"
	PICTURE ID 1 NAME "tatpondb.gif" TRANSCOLOR 56 ENDPICTURE
	PICTURE ID 2 NAME "arrowll.gif" TRANSCOLOR 56 ENDPICTURE
	PICTURE ID 3 NAME "arrowrr.gif" TRANSCOLOR 56 ENDPICTURE
	PICTURE ID 4 NAME "none.gif" TRANSCOLOR 56 ENDPICTURE
	SPOT
		ID 1
		DONTMOVEHERE
		OUTLINE 436,215  512,211  512,383  114,383  1,126  186,124  158,169
		LOC 274,230
		SCRIPT
ON ENTER { 0 ME SETSPOTSTATELOCAL }
ON SELECT { { ME GETSPOTSTATE limiter = { 1 limiter + ME SETSPOTSTATELOCAL 20 ME SETALARM }
{ "Flood Prevention :-)" STATUSMSG 10 ME SETSPOTSTATELOCAL
{ 0 ME SETSPOTSTATELOCAL "Skate Away !" STATUSMSG } 600 ALARMEXEC } 4 ME GETSPOTSTATE > IFELSE
} 10 ME GETSPOTSTATE == !IF
}
ON ALARM { { 0 2 SETSPOTSTATE } 1 2 GETSPOTSTATE == IF
	MOUSEPOS my = mx =
	0 i =
	1 fdel =
	40 nfr =
	POSX cx =
	POSY cy =
	{
	mx cx - 8 / cx + newx =
	my cy - 8 / cy + newy =
	newx ITOA " " & newy ITOA & " SETPOS" & STRTOATOM i fdel * ALARMEXEC
	newx cx =
	newy cy =
	i ++
	} { i nfr < } WHILE
	}
		ENDSCRIPT
		ENDSPOT
	SPOT
		ID 2
		DONTMOVEHERE
		OUTLINE 317,273  402,273  402,328  317,328
		LOC 359,300
		PICTS 4,0,0 1,0,0 ENDPICTS
		SCRIPT
ON SELECT { 50 ME SETALARM }
ON ALARM { 360 310 SETPOS
"!Yikes !" SAY
1 ME SETSPOTSTATE
8 SETCOLOR NAKED 2 SETFACE
{ 9 SETCOLOR 3 SETFACE } 50 ALARMEXEC
{ 10 SETCOLOR 10 SETFACE } 100 ALARMEXEC
}
		ENDSCRIPT
		ENDSPOT
	SPOT
		ID 3
		NAME "Figure 8"
		DONTMOVEHERE
		SHOWNAME
		SHOWFRAME
		OUTLINE 224,1  287,1  287,26  224,26
		LOC 255,13
		SCRIPT
ON SELECT { jump GLOBAL { jump GLOBAL 1 jump =
{402 278 SETPOS jump GLOBAL 5 jump = } 1 ALARMEXEC
{358 245 SETPOS } 40 ALARMEXEC
{305 234 SETPOS } 50 ALARMEXEC
{272 258 SETPOS } 60 ALARMEXEC
{219 293 SETPOS } 70 ALARMEXEC
{152 301 SETPOS } 80 ALARMEXEC
{119 245 SETPOS } 90 ALARMEXEC
{196 228 SETPOS } 105 ALARMEXEC
{256 266 SETPOS } 110 ALARMEXEC
{288 330 SETPOS } 115 ALARMEXEC
{367 355 SETPOS } 120 ALARMEXEC
{440 338 SETPOS } 125 ALARMEXEC
{436 292 SETPOS } 130 ALARMEXEC
{402 278 SETPOS } 135 ALARMEXEC
{ jump GLOBAL 1 jump = } 140 ALARMEXEC } 2 jump > IF
}
		ENDSCRIPT
		ENDSPOT
	DOOR
		ID 4
		DONTMOVEHERE
		DEST 180
		OUTLINE 5,2  65,2  65,33  5,33
		LOC 35,17
		PICTS 2,0,0 ENDPICTS
		ENDDOOR
	DOOR
		ID 5
		DONTMOVEHERE
		DEST 98
		OUTLINE 446,3  508,3  508,32  446,32
		LOC 477,17
		PICTS 3,0,0 ENDPICTS
		SCRIPT
ON INCHAT { nDoIt GLOBAL nDoIt EXEC }
ON ENTER { { CLEARLOOSEPROPS PAINTCLEAR } NBRROOMUSERS 2 < IF }
		ENDSCRIPT
		ENDDOOR
	ENDROOM