ROOM	
	ID 200
	NOCYBORGS
	NAME "Gridlock"
	PICT "gridlock.gif"
	ARTIST "Foxy & Tandika"
	PICTURE ID 1 NAME "bn.gif" TRANSCOLOR 0 ENDPICTURE
	PICTURE ID 2 NAME "wn.gif" TRANSCOLOR 0 ENDPICTURE
	SPOT
		ID 1
		DONTMOVEHERE
		OUTLINE 31,145  70,145  70,186  31,185
		LOC 51,165
		PICTS 1,0,0 2,0,0 ENDPICTS
		SCRIPT
ON SELECT{sel GLOBAL ME sel = 26 SELECT}
		ENDSCRIPT
		ENDSPOT
	SPOT
		ID 2
		DONTMOVEHERE
		OUTLINE 74,144  113,144  114,183  74,183
		LOC 94,163
		PICTS 1,0,0 2,0,0 ENDPICTS
		SCRIPT
ON SELECT{sel GLOBAL ME sel = 26 SELECT}
		ENDSCRIPT
		ENDSPOT
	SPOT
		ID 3
		DONTMOVEHERE
		OUTLINE 116,143  154,143  156,184  116,183
		LOC 137,164
		PICTS 1,0,0 2,0,0 ENDPICTS
		SCRIPT
ON SELECT{sel GLOBAL ME sel = 26 SELECT}
		ENDSCRIPT
		ENDSPOT
	SPOT
		ID 4
		DONTMOVEHERE
		OUTLINE 158,144  201,145  199,184  158,181
		LOC 178,162
		PICTS 1,0,0 2,0,0 ENDPICTS
		SCRIPT
ON SELECT{sel GLOBAL ME sel = 26 SELECT}
		ENDSCRIPT
		ENDSPOT
	SPOT
		ID 5
		DONTMOVEHERE
		OUTLINE 202,144  244,144  245,185  202,184
		LOC 223,164
		PICTS 1,0,0 2,0,0 ENDPICTS
		SCRIPT
ON SELECT{sel GLOBAL ME sel = 26 SELECT}
		ENDSCRIPT
		ENDSPOT
	SPOT
		ID 6
		DONTMOVEHERE
		OUTLINE 29,185  71,185  70,224  31,224
		LOC 50,204
		PICTS 1,0,0 2,0,0 ENDPICTS
		SCRIPT
ON SELECT{sel GLOBAL ME sel = 26 SELECT}
		ENDSCRIPT
		ENDSPOT
	SPOT
		ID 7
		DONTMOVEHERE
		OUTLINE 71,185  112,184  112,225  72,225
		LOC 92,204
		PICTS 1,0,0 2,0,0 ENDPICTS
		SCRIPT
ON SELECT{sel GLOBAL ME sel = 26 SELECT}
		ENDSCRIPT
		ENDSPOT
	SPOT
		ID 8
		DONTMOVEHERE
		OUTLINE 115,185  155,184  154,224  116,224
		LOC 137,204
		PICTS 1,0,0 2,0,0 ENDPICTS
		SCRIPT
ON SELECT{sel GLOBAL ME sel = 26 SELECT}
		ENDSCRIPT
		ENDSPOT
	SPOT
		ID 9
		DONTMOVEHERE
		OUTLINE 158,184  196,182  198,222  158,224
		LOC 177,204
		PICTS 1,0,0 2,0,0 ENDPICTS
		SCRIPT
ON SELECT{sel GLOBAL ME sel = 26 SELECT}
		ENDSCRIPT
		ENDSPOT
	SPOT
		ID 10
		DONTMOVEHERE
		OUTLINE 201,184  244,184  243,224  200,223
		LOC 223,204
		PICTS 1,0,0 2,0,0 ENDPICTS
		SCRIPT
ON SELECT{sel GLOBAL ME sel = 26 SELECT}
		ENDSCRIPT
		ENDSPOT
	SPOT
		ID 11
		DONTMOVEHERE
		OUTLINE 30,225  71,225  70,267  29,267
		LOC 50,244
		PICTS 1,0,0 2,0,0 ENDPICTS
		SCRIPT
ON SELECT{sel GLOBAL ME sel = 26 SELECT}
		ENDSCRIPT
		ENDSPOT
	SPOT
		ID 12
		DONTMOVEHERE
		OUTLINE 73,226  110,226  111,264  71,263
		LOC 90,244
		PICTS 1,0,0 2,0,0 ENDPICTS
		SCRIPT
ON SELECT{sel GLOBAL ME sel = 26 SELECT}
		ENDSCRIPT
		ENDSPOT
	SPOT
		ID 13
		DONTMOVEHERE
		OUTLINE 114,227  154,226  154,265  116,264
		LOC 135,245
		PICTS 1,0,0 2,0,0 ENDPICTS
		SCRIPT
ON SELECT{sel GLOBAL ME sel = 26 SELECT}
		ENDSCRIPT
		ENDSPOT
	SPOT
		ID 14
		DONTMOVEHERE
		OUTLINE 159,226  199,226  198,266  159,264
		LOC 179,245
		PICTS 1,0,0 2,0,0 ENDPICTS
		SCRIPT
ON SELECT{sel GLOBAL ME sel = 26 SELECT}
		ENDSCRIPT
		ENDSPOT
	SPOT
		ID 15
		DONTMOVEHERE
		OUTLINE 201,227  240,225  244,265  201,264
		LOC 222,245
		PICTS 1,0,0 2,0,0 ENDPICTS
		SCRIPT
ON SELECT{sel GLOBAL ME sel = 26 SELECT}
		ENDSCRIPT
		ENDSPOT
	SPOT
		ID 16
		DONTMOVEHERE
		OUTLINE 30,267  69,265  68,304  30,305
		LOC 49,286
		PICTS 1,0,0 2,0,0 ENDPICTS
		SCRIPT
ON SELECT{sel GLOBAL ME sel = 26 SELECT}
		ENDSCRIPT
		ENDSPOT
	SPOT
		ID 17
		DONTMOVEHERE
		OUTLINE 75,269  114,268  113,305  75,305
		LOC 93,286
		PICTS 1,0,0 2,0,0 ENDPICTS
		SCRIPT
ON SELECT{sel GLOBAL ME sel = 26 SELECT}
		ENDSCRIPT
		ENDSPOT
	SPOT
		ID 18
		DONTMOVEHERE
		OUTLINE 117,265  154,265  154,307  117,306
		LOC 137,286
		PICTS 1,0,0 2,0,0 ENDPICTS
		SCRIPT
ON SELECT{sel GLOBAL ME sel = 26 SELECT}
		ENDSCRIPT
		ENDSPOT
	SPOT
		ID 20
		DONTMOVEHERE
		OUTLINE 201,267  240,263  239,304  205,303
		LOC 222,284
		PICTS 1,0,0 2,0,0 ENDPICTS
		SCRIPT
ON SELECT{sel GLOBAL ME sel = 26 SELECT}
		ENDSCRIPT
		ENDSPOT
	SPOT
		ID 21
		DONTMOVEHERE
		OUTLINE 29,308  69,306  69,347  30,347
		LOC 48,326
		PICTS 1,0,0 2,0,0 ENDPICTS
		SCRIPT
ON SELECT{sel GLOBAL ME sel = 26 SELECT}
		ENDSCRIPT
		ENDSPOT
	SPOT
		ID 22
		DONTMOVEHERE
		OUTLINE 73,306  112,303  114,347  72,347
		LOC 93,326
		PICTS 1,0,0 2,0,0 ENDPICTS
		SCRIPT
ON SELECT{sel GLOBAL ME sel = 26 SELECT}
		ENDSCRIPT
		ENDSPOT
	SPOT
		ID 23
		DONTMOVEHERE
		OUTLINE 118,307  156,307  155,346  118,346
		LOC 137,327
		PICTS 1,0,0 2,0,0 ENDPICTS
		SCRIPT
ON SELECT{sel GLOBAL ME sel = 26 SELECT}
		ENDSCRIPT
		ENDSPOT
	SPOT
		ID 24
		DONTMOVEHERE
		OUTLINE 159,309  199,306  196,349  160,347
		LOC 178,327
		PICTS 1,0,0 2,0,0 ENDPICTS
		SCRIPT
ON SELECT{sel GLOBAL ME sel = 26 SELECT}
		ENDSCRIPT
		ENDSPOT
	SPOT
		ID 25
		DONTMOVEHERE
		OUTLINE 202,307  239,306  240,349  202,349
		LOC 220,327
		PICTS 1,0,0 2,0,0 ENDPICTS
		SCRIPT
ON SELECT{sel GLOBAL ME sel = 26 SELECT}
		ENDSCRIPT
		ENDSPOT
	SPOT
		ID 19
		DONTMOVEHERE
		OUTLINE 158,266  198,265  199,305  161,305
		LOC 179,286
		PICTS 1,0,0 2,0,0 ENDPICTS
		SCRIPT
ON SELECT{sel GLOBAL ME sel = 26 SELECT}
		ENDSCRIPT
		ENDSPOT
	SPOT
		ID 26
		OUTLINE 8,39  25,39  27,56  8,56
		LOC 17,47
		SCRIPT
ON ENTER {cur GLOBAL 13 cur =
0 ME SETSPOTSTATELOCAL
{cr ++ cr SETSPOTSTATELOCAL}
[1 1 1 1 1 1 1 1 1 0 1 1 2 0 0 1 0 0 0 0 0 0 0 0 0] FOREACH
"Welcome to Gridlock! Script by Foxy, picture by Tandika Star (copyright
1997)" LOCALMSG
}
ON SELECT{sel GLOBAL cur GLOBAL
{sel a = cur b =
{b c = a b = c a = } b a < IF
a 1 - 5 / 5 * su = su a -= su b -=
{a -- b -- } {a 1 == NOT b 6 == NOT AND b 11 == NOT AND} WHILE
{sel GETSPOTSTATE cur SETSPOTSTATELOCAL
ME GETSPOTSTATE 1 + ME SETSPOTSTATELOCAL
2 sel SETSPOTSTATELOCAL sel cur =
{0 win =
{GETSPOTSTATE win +=
}[1 2 3 4 5 6 7 8 9 11 12 16] FOREACH
{ "!)applause " USERNAME + " has solved the Gridlock in " +
ME GETSPOTSTATE ITOA + " moves!" + ROOMMSG
0 ME SETSPOTSTATELOCAL 0 cr =
{cr ++ cr SETSPOTSTATELOCAL}
[1 1 1 1 1 1 1 1 1 0 1 1 2 0 0 1 0 0 0 0 0 0 0 0 0] FOREACH
} 0 win == IF
} 13 cur == IF
}a 1 == b 8 == b 12 == OR AND
a 2 == b 11 == AND OR
a 3 == b 6 == AND OR
IF
}cur sel == NOT IF}
ON LEAVE {
{ CLEARLOOSEPROPS PAINTCLEAR } NBRROOMUSERS 2 < IF
}
		ENDSCRIPT
		ENDSPOT
	ENDROOM