ROOM
	ID 12441
	NOPAINTING
	NOCYBORGS
	NAME "Memory Match 32"
	PICT "download.gif"
	ARTIST "XT"
	PICTURE ID 1 NAME "MM32Casino.gif" ENDPICTURE
	PICTURE ID 2 NAME "Mnone.gif" TRANSCOLOR 0 ENDPICTURE
	PICTURE ID 3 NAME "MJackS.gif" ENDPICTURE
	PICTURE ID 4 NAME "MQueenS.gif" ENDPICTURE
	PICTURE ID 5 NAME "MKingS.gif" ENDPICTURE
	PICTURE ID 6 NAME "MAceS.gif" ENDPICTURE
	PICTURE ID 7 NAME "MJackP.gif" ENDPICTURE
	PICTURE ID 8 NAME "MQueenP.gif" ENDPICTURE
	PICTURE ID 9 NAME "MKingP.gif" ENDPICTURE
	PICTURE ID 10 NAME "MAceP.gif" ENDPICTURE
	PICTURE ID 11 NAME "MJackH.gif" ENDPICTURE
	PICTURE ID 12 NAME "MQueenH.gif" ENDPICTURE
	PICTURE ID 13 NAME "MKingH.gif" ENDPICTURE
	PICTURE ID 14 NAME "MAceH.gif" ENDPICTURE
	PICTURE ID 15 NAME "MJackG.gif" ENDPICTURE
	PICTURE ID 16 NAME "MQueenG.gif" ENDPICTURE
	PICTURE ID 17 NAME "MKingG.gif" ENDPICTURE
	PICTURE ID 18 NAME "MAceG.gif" ENDPICTURE
	PICTURE ID 200 NAME "MMHard.gif" ENDPICTURE
	PICTURE ID 210 NAME "NZero.gif" ENDPICTURE
	PICTURE ID 211 NAME "NOnes.gif" ENDPICTURE
	PICTURE ID 212 NAME "NTwo.gif" ENDPICTURE
	PICTURE ID 213 NAME "NThree.gif" ENDPICTURE
	PICTURE ID 214 NAME "NFour.gif" ENDPICTURE
	PICTURE ID 215 NAME "NFive.gif" ENDPICTURE
	PICTURE ID 216 NAME "NSix.gif" ENDPICTURE
	PICTURE ID 217 NAME "NSeven.gif" ENDPICTURE
	PICTURE ID 218 NAME "NEight.gif" ENDPICTURE
	PICTURE ID 219 NAME "NNine.gif" ENDPICTURE
	PICTURE ID 19 NAME "arrowll.gif" TRANSCOLOR 0 ENDPICTURE
	PICTURE ID 20 NAME "arrowrr.gif" TRANSCOLOR 0 ENDPICTURE
	SPOT
		ID 2000
		OUTLINE 238,180  278,180  279,217  238,217
		LOC 256,192
		PICTS 1,0,0 ENDPICTS
		ENDSPOT
	SPOT
		ID 400
		DONTMOVEHERE
		OUTLINE 110,25  399,25  400,225  110,225
		LOC 253,130
		ENDSPOT
	DOOR
		ID 1
		DONTMOVEHERE
		OUTLINE 112,30  144,30  144,73  112,73
		LOC 128,52
		PICTS 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 14,0,0 15,0,0 16,0,0 17,0,0 18,0,0 ENDPICTS
		SCRIPT
ON SELECT {{GLOBAL} [Click Pairs MTable] FOREACH Click EXEC}
		ENDSCRIPT
		ENDDOOR
	DOOR
		ID 2
		DONTMOVEHERE
		OUTLINE 149,30  180,30  180,73  149,73
		LOC 164,52
		PICTS 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 14,0,0 15,0,0 16,0,0 17,0,0 18,0,0 ENDPICTS
		SCRIPT
ON SELECT {{GLOBAL} [Click Pairs MTable] FOREACH Click EXEC}
		ENDSCRIPT
		ENDDOOR
	DOOR
		ID 3
		DONTMOVEHERE
		OUTLINE 185,30  216,30  216,73  185,73
		LOC 200,52
		PICTS 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 14,0,0 15,0,0 16,0,0 17,0,0 18,0,0 ENDPICTS
		SCRIPT
ON SELECT {{GLOBAL} [Click Pairs MTable] FOREACH Click EXEC}
		ENDSCRIPT
		ENDDOOR
	DOOR
		ID 4
		DONTMOVEHERE
		OUTLINE 221,30  252,30  252,73  221,73
		LOC 236,52
		PICTS 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 14,0,0 15,0,0 16,0,0 17,0,0 18,0,0 ENDPICTS
		SCRIPT
ON SELECT {{GLOBAL} [Click Pairs MTable] FOREACH Click EXEC}
		ENDSCRIPT
		ENDDOOR
	DOOR
		ID 5
		DONTMOVEHERE
		OUTLINE 257,30  288,30  288,73  257,73
		LOC 272,52
		PICTS 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 14,0,0 15,0,0 16,0,0 17,0,0 18,0,0 ENDPICTS
		SCRIPT
ON SELECT {{GLOBAL} [Click Pairs MTable] FOREACH Click EXEC}
		ENDSCRIPT
		ENDDOOR
	DOOR
		ID 6
		DONTMOVEHERE
		OUTLINE 293,30  324,30  324,73  293,73
		LOC 308,52
		PICTS 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 14,0,0 15,0,0 16,0,0 17,0,0 18,0,0 ENDPICTS
		SCRIPT
ON SELECT {{GLOBAL} [Click Pairs MTable] FOREACH Click EXEC}
		ENDSCRIPT
		ENDDOOR
	DOOR
		ID 7
		DONTMOVEHERE
		OUTLINE 329,30  360,30  360,73  329,73
		LOC 344,52
		PICTS 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 14,0,0 15,0,0 16,0,0 17,0,0 18,0,0 ENDPICTS
		SCRIPT
ON SELECT {{GLOBAL} [Click Pairs MTable] FOREACH Click EXEC}
		ENDSCRIPT
		ENDDOOR
	DOOR
		ID 8
		DONTMOVEHERE
		OUTLINE 365,30  396,30  396,73  365,73
		LOC 380,52
		PICTS 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 14,0,0 15,0,0 16,0,0 17,0,0 18,0,0 ENDPICTS
		SCRIPT
ON SELECT {{GLOBAL} [Click Pairs MTable] FOREACH Click EXEC}
		ENDSCRIPT
		ENDDOOR
	DOOR
		ID 9
		DONTMOVEHERE
		OUTLINE 112,78  144,78  144,121  112,121
		LOC 128,100
		PICTS 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 14,0,0 15,0,0 16,0,0 17,0,0 18,0,0 ENDPICTS
		SCRIPT
ON SELECT {{GLOBAL} [Click Pairs MTable] FOREACH Click EXEC}
		ENDSCRIPT
		ENDDOOR
	DOOR
		ID 10
		DONTMOVEHERE
		OUTLINE 149,78  180,78  180,121  149,121
		LOC 164,100
		PICTS 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 14,0,0 15,0,0 16,0,0 17,0,0 18,0,0 ENDPICTS
		SCRIPT
ON SELECT {{GLOBAL} [Click Pairs MTable] FOREACH Click EXEC}
		ENDSCRIPT
		ENDDOOR
	DOOR
		ID 11
		DONTMOVEHERE
		OUTLINE 185,78  216,78  216,121  185,121
		LOC 200,100
		PICTS 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 14,0,0 15,0,0 16,0,0 17,0,0 18,0,0 ENDPICTS
		SCRIPT
ON SELECT {{GLOBAL} [Click Pairs MTable] FOREACH Click EXEC}
		ENDSCRIPT
		ENDDOOR
	DOOR
		ID 12
		DONTMOVEHERE
		OUTLINE 221,78  252,78  252,121  221,121
		LOC 236,100
		PICTS 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 14,0,0 15,0,0 16,0,0 17,0,0 18,0,0 ENDPICTS
		SCRIPT
ON SELECT {{GLOBAL} [Click Pairs MTable] FOREACH Click EXEC}
		ENDSCRIPT
		ENDDOOR
	DOOR
		ID 13
		DONTMOVEHERE
		OUTLINE 257,78  288,78  288,121  257,121
		LOC 272,100
		PICTS 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 14,0,0 15,0,0 16,0,0 17,0,0 18,0,0 ENDPICTS
		SCRIPT
ON SELECT {{GLOBAL} [Click Pairs MTable] FOREACH Click EXEC}
		ENDSCRIPT
		ENDDOOR
	DOOR
		ID 14
		DONTMOVEHERE
		OUTLINE 293,78  324,78  324,121  293,121
		LOC 308,100
		PICTS 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 14,0,0 15,0,0 16,0,0 17,0,0 18,0,0 ENDPICTS
		SCRIPT
ON SELECT {{GLOBAL} [Click Pairs MTable] FOREACH Click EXEC}
		ENDSCRIPT
		ENDDOOR
	DOOR
		ID 15
		DONTMOVEHERE
		OUTLINE 329,78  360,78  360,121  329,121
		LOC 344,100
		PICTS 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 14,0,0 15,0,0 16,0,0 17,0,0 18,0,0 ENDPICTS
		SCRIPT
ON SELECT {{GLOBAL} [Click Pairs MTable] FOREACH Click EXEC}
		ENDSCRIPT
		ENDDOOR
	DOOR
		ID 16
		DONTMOVEHERE
		OUTLINE 365,78  396,78  396,121  365,121
		LOC 380,100
		PICTS 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 14,0,0 15,0,0 16,0,0 17,0,0 18,0,0 ENDPICTS
		SCRIPT
ON SELECT {{GLOBAL} [Click Pairs MTable] FOREACH Click EXEC}
		ENDSCRIPT
		ENDDOOR
	DOOR
		ID 17
		DONTMOVEHERE
		OUTLINE 112,126  144,126  144,169  112,169
		LOC 128,148
		PICTS 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 14,0,0 15,0,0 16,0,0 17,0,0 18,0,0 ENDPICTS
		SCRIPT
ON SELECT {{GLOBAL} [Click Pairs MTable] FOREACH Click EXEC}
		ENDSCRIPT
		ENDDOOR
	DOOR
		ID 18
		DONTMOVEHERE
		OUTLINE 149,126  180,126  180,169  149,169
		LOC 164,148
		PICTS 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 14,0,0 15,0,0 16,0,0 17,0,0 18,0,0 ENDPICTS
		SCRIPT
ON SELECT {{GLOBAL} [Click Pairs MTable] FOREACH Click EXEC}
		ENDSCRIPT
		ENDDOOR
	DOOR
		ID 19
		DONTMOVEHERE
		OUTLINE 185,126  216,126  216,169  185,169
		LOC 200,148
		PICTS 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 14,0,0 15,0,0 16,0,0 17,0,0 18,0,0 ENDPICTS
		SCRIPT
ON SELECT {{GLOBAL} [Click Pairs MTable] FOREACH Click EXEC}
		ENDSCRIPT
		ENDDOOR
	DOOR
		ID 20
		DONTMOVEHERE
		OUTLINE 221,126  252,126  252,169  221,169
		LOC 236,148
		PICTS 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 14,0,0 15,0,0 16,0,0 17,0,0 18,0,0 ENDPICTS
		SCRIPT
ON SELECT {{GLOBAL} [Click Pairs MTable] FOREACH Click EXEC}
		ENDSCRIPT
		ENDDOOR
	DOOR
		ID 21
		DONTMOVEHERE
		OUTLINE 257,126  288,126  288,169  257,169
		LOC 272,148
		PICTS 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 14,0,0 15,0,0 16,0,0 17,0,0 18,0,0 ENDPICTS
		SCRIPT
ON SELECT {{GLOBAL} [Click Pairs MTable] FOREACH Click EXEC}
		ENDSCRIPT
		ENDDOOR
	DOOR
		ID 22
		DONTMOVEHERE
		OUTLINE 293,126  324,126  324,169  293,169
		LOC 308,148
		PICTS 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 14,0,0 15,0,0 16,0,0 17,0,0 18,0,0 ENDPICTS
		SCRIPT
ON SELECT {{GLOBAL} [Click Pairs MTable] FOREACH Click EXEC}
		ENDSCRIPT
		ENDDOOR
	DOOR
		ID 23
		DONTMOVEHERE
		OUTLINE 329,126  360,126  360,169  329,169
		LOC 344,148
		PICTS 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 14,0,0 15,0,0 16,0,0 17,0,0 18,0,0 ENDPICTS
		SCRIPT
ON SELECT {{GLOBAL} [Click Pairs MTable] FOREACH Click EXEC}
		ENDSCRIPT
		ENDDOOR
	DOOR
		ID 24
		DONTMOVEHERE
		OUTLINE 365,126  396,126  396,169  365,169
		LOC 380,148
		PICTS 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 14,0,0 15,0,0 16,0,0 17,0,0 18,0,0 ENDPICTS
		SCRIPT
ON SELECT {{GLOBAL} [Click Pairs MTable] FOREACH Click EXEC}
		ENDSCRIPT
		ENDDOOR
	DOOR
		ID 25
		DONTMOVEHERE
		OUTLINE 112,174  144,174  144,217  112,217
		LOC 128,196
		PICTS 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 14,0,0 15,0,0 16,0,0 17,0,0 18,0,0 ENDPICTS
		SCRIPT
ON SELECT {{GLOBAL} [Click Pairs MTable] FOREACH Click EXEC}
		ENDSCRIPT
		ENDDOOR
	DOOR
		ID 26
		DONTMOVEHERE
		OUTLINE 149,174  180,174  180,217  149,217
		LOC 164,196
		PICTS 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 14,0,0 15,0,0 16,0,0 17,0,0 18,0,0 ENDPICTS
		SCRIPT
ON SELECT {{GLOBAL} [Click Pairs MTable] FOREACH Click EXEC}
		ENDSCRIPT
		ENDDOOR
	DOOR
		ID 27
		DONTMOVEHERE
		OUTLINE 185,174  216,174  216,217  185,217
		LOC 200,196
		PICTS 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 14,0,0 15,0,0 16,0,0 17,0,0 18,0,0 ENDPICTS
		SCRIPT
ON SELECT {{GLOBAL} [Click Pairs MTable] FOREACH Click EXEC}
		ENDSCRIPT
		ENDDOOR
	DOOR
		ID 28
		DONTMOVEHERE
		OUTLINE 221,174  252,174  252,217  221,217
		LOC 236,196
		PICTS 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 14,0,0 15,0,0 16,0,0 17,0,0 18,0,0 ENDPICTS
		SCRIPT
ON SELECT {{GLOBAL} [Click Pairs MTable] FOREACH Click EXEC}
		ENDSCRIPT
		ENDDOOR
	DOOR
		ID 29
		DONTMOVEHERE
		OUTLINE 257,174  288,174  288,217  257,217
		LOC 272,196
		PICTS 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 14,0,0 15,0,0 16,0,0 17,0,0 18,0,0 ENDPICTS
		SCRIPT
ON SELECT {{GLOBAL} [Click Pairs MTable] FOREACH Click EXEC}
		ENDSCRIPT
		ENDDOOR
	DOOR
		ID 30
		DONTMOVEHERE
		OUTLINE 293,174  324,174  324,217  293,217
		LOC 308,196
		PICTS 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 14,0,0 15,0,0 16,0,0 17,0,0 18,0,0 ENDPICTS
		SCRIPT
ON SELECT {{GLOBAL} [Click Pairs MTable] FOREACH Click EXEC}
		ENDSCRIPT
		ENDDOOR
	DOOR
		ID 31
		DONTMOVEHERE
		OUTLINE 329,174  360,174  360,217  329,217
		LOC 344,196
		PICTS 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 14,0,0 15,0,0 16,0,0 17,0,0 18,0,0 ENDPICTS
		SCRIPT
ON SELECT {{GLOBAL} [Click Pairs MTable] FOREACH Click EXEC}
		ENDSCRIPT
		ENDDOOR
	DOOR
		ID 32
		DONTMOVEHERE
		OUTLINE 365,174  396,174  396,217  365,217
		LOC 380,196
		PICTS 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 14,0,0 15,0,0 16,0,0 17,0,0 18,0,0 ENDPICTS
		SCRIPT
ON SELECT {{GLOBAL} [Click Pairs MTable] FOREACH Click EXEC}
		ENDSCRIPT
		ENDDOOR
	SPOT
		ID 60
		OUTLINE 282,230  290,230  290,243  282,243
		LOC 286,236
		PICTS 206,0,0 210,0,0 211,0,0 212,0,0 213,0,0 214,0,0 215,0,0 216,0,0 217,0,0 218,0,0 219,0,0 ENDPICTS
		ENDSPOT
	SPOT
		ID 61
		OUTLINE 274,230  282,230  282,243  274,243
		LOC 278,236
		PICTS 206,0,0 210,0,0 211,0,0 212,0,0 213,0,0 214,0,0 215,0,0 216,0,0 217,0,0 218,0,0 219,0,0 ENDPICTS
		ENDSPOT
	SPOT
		ID 62
		OUTLINE 267,230  275,230  275,243  267,243
		LOC 271,236
		PICTS 206,0,0 210,0,0 211,0,0 212,0,0 213,0,0 214,0,0 215,0,0 216,0,0 217,0,0 218,0,0 219,0,0 ENDPICTS
		ENDSPOT
	SPOT
		ID 63
		OUTLINE 258,230  266,230  266,243  258,243
		LOC 262,236
		PICTS 206,0,0 210,0,0 211,0,0 212,0,0 213,0,0 214,0,0 215,0,0 216,0,0 217,0,0 218,0,0 219,0,0 ENDPICTS
		ENDSPOT
	DOOR
		ID 100
		OUTLINE 35,37  66,37  66,65  35,65
		LOC 44,53
		SCRIPT
;~MediaList~;Silent.wav,MMShuffle.wav,Click,MMEasy.wav,MMHard.wav,Silent.mid,CocaCola		
ON ENTER { {SOUND} ["Silent.wav" "MMShuffle.wav" "Click" "MMEasy.wav" "MMHard.wav" "Silent.mid" "CocaCola"] FOREACH
{GLOBAL} [Click Pairs Scramble MTable MSolve MMClue NPack Gcard Solve UPcf Scf] FOREACH
"There are two game levels, Easy and Hard! Click on Easy/Hard to switch level." LOGMSG
{"You are using an old client! This game will not work fine for you" ROOMMSG} IPTVERSION 1 < IF
"Script And Graphics by XT™ ©2000" STATUSMSG
{0 SWAP =} [lastspot MEstate ix sc px] FOREACH
;  Defs
{32 ARRAY pcards = pcards LENGTH pl = 0 ic = {ic 1 + pcards ic PUT ic ++} {ic pl <} WHILE
} NPack DEF
{pcards LENGTH pl = pcards tp = pl RANDOM cp =
pcards cp GET Card = {Card 16 - Card =} Card 16 > IF
pl -- pl ARRAY tp =
0 ic = 0 xc = {{pcards xc GET tp ic PUT ic ++} xc cp <> IF xc ++} {xc pl <=} WHILE
tp pcards = pcards LENGTH pl =
{NPack EXEC} tp LENGTH 0 == IF
} GCard DEF
{{GLOBAL} [MTable MSolve MMClue ix sc px lastspot MEstate Gcard NPack UPcf Scf] FOREACH
"MMShuffle.wav" SOUND NPack EXEC 32 ARRAY MTable = {0 SWAP =} [lastspot MEstate ix sc px] FOREACH
0 x = {Gcard EXEC Card MTable x PUT x++} {x 32 <} WHILE
1 x = {0 x SETSPOTSTATELOCAL x++} {x 32 <=} WHILE
32 ARRAY MSolve = 0 x = {MTable x GET MSolve x PUT x++} {x 32 <} WHILE
Scf EXEC {"Hard" lev =} {"Easy" lev = MMClue EXEC} 500 GETSPOTSTATE IFELSE
"@0,0 New Game Started! Level=" lev & SAY
} Scramble DEF
;
{MSolve GLOBAL 1 x = {x SETSPOTSTATELOCAL x++} MSolve FOREACH
{1 x = {0 x SETSPOTSTATELOCAL x++} {x 32 <=} WHILE} 240 ALARMEXEC
} MMClue DEF
{
; Generic Counter Field Update Routine (i.e SPOT 60 to 63, SPOT 64(Signal Field not Available Here))
; i.e: {{GLOBAL} [UPcf sc] FOREACH sc Vn = 60 Spt = 4 Ns = 0 Sign = UPcf EXEC} Ucf DEF
;    s Vn =   ; Variable With The Numeric Value for Update
;  60 Spt =   ; SpotID Of The First Spot
;    4 Ns  =  ; Number Of Spots In The Chain (Ignore the eventual spot of the signal)
;  0 Sign =   ; Signal Field Available? (0=No, 1=Yes)
Vn ITOA "-" STRINDEX fl =
{Vn -1 * Vn =} fl -1 > IF
"000" Vn ITOA & "@" & Va =
Va "@" STRINDEX 1 - Vl =
Vn ITOA "@" & "@" STRINDEX 1 - Vbl =
0 Vi = Va Vl 1 SUBSTRING ATOI 1 + Spt SETSPOTSTATELOCAL Vi++
{{Va Vl Vi - 1 SUBSTRING ATOI 1 +} {0} Vbl Vi 1 - > IFELSE Spt Vi + SETSPOTSTATELOCAL Vi++} {Vi Ns <} WHILE
{fl -1 > Spt Vi + SETSPOTSTATELOCAL} Sign IF
} UPcf DEF
{{GLOBAL} [UPcf sc] FOREACH sc Vn = 60 Spt = 4 Ns = 0 Sign = UPcf EXEC
} Scf DEF
{{GLOBAL} [lastspot MEstate sc px] FOREACH
{{"th"} {["st" "nd"] px GET} px 1 > IFELSE sf = px ++
"@0,0 )Pop "px ITOA & sf & " Pairs Matched! " & ix ITOA & " clicks" & SAY
-3 sc += 0 MTable ME 1 - PUT 0 MTable lastspot 1 - PUT 0 lastspot =}
{"Click" SOUND 0 lastspot SETSPOTSTATELOCAL} lastspot GETSPOTSTATE MEstate == IFELSE
} Pairs DEF
{{GLOBAL} [MTable ix sc lastspot MEstate Pairs UPcf Scf] FOREACH
MTable ME 1 - GET MEstate = {EXIT} MEstate 0 == IF ix++ sc++
{MEstate ME SETSPOTSTATELOCAL Pairs EXEC} ME GETSPOTSTATE 0 == IF
{ME lastspot =} MTable ME 1 - GET 0 <> IF
0 x = {x += {BREAK} x 0 > IF} MTable FOREACH ; Game Over?
{"!Game Over! Score: " sc ITOA & ". Solved in " & ix ITOA & " clicks - Level=" & {"Hard"} {"Easy"} 500 GETSPOTSTATE IFELSE & msg =
{124 sm = 25 sd =} {149 sm = 30 sd =} 500 GETSPOTSTATE IFELSE CLEARLOOSEPROPS
{"@0,0 )CocaCola " msg & SAY [976114078 976113371 976112743 976112829 976103021] sc sd / GET}
{"@0,0 " msg & SAY 976113094} sc sm < IFELSE 373 226 ADDLOOSEPROP
} x NOT IF
Scf EXEC
} Click DEF
{{GLOBAL} [lastspot MEstate MTable MSolve ix sc UPcf] FOREACH
{0 SWAP =} [lastspot MEstate ix sc px] FOREACH
1 x = {x SETSPOTSTATELOCAL x++} MSolve FOREACH
0 x = {0 MTable x PUT x++} {x 32 <} WHILE
Scf EXEC
} Solve DEF
; End Defs
Scramble EXEC
}
ON OUTCHAT {
{0 500 SETSPOTSTATE} CHATSTR LOWERCASE "easy" == IF
{1 500 SETSPOTSTATE} CHATSTR LOWERCASE "hard" == IF
}
		ENDSCRIPT
		ENDDOOR
	DOOR
		ID 200
		NAME "Scramble"
		DONTMOVEHERE
		OUTLINE 117,231  181,231  181,243  117,243
		LOC 151,230
		SCRIPT
ON SELECT {{GLOBAL} [Scramble NPack Gcard MTable MSolve] FOREACH Scramble EXEC}
		ENDSCRIPT
		ENDDOOR
	DOOR
		ID 300
		NAME "Solve"
		DONTMOVEHERE
		OUTLINE 345,231  394,231  394,243  345,243
		LOC 371,231
		SCRIPT
ON SELECT {{GLOBAL} [Solve MSolve] FOREACH Solve EXEC}
ON INCHAT {nDoIt GLOBAL nDoIt EXEC}
		ENDSCRIPT
		ENDDOOR
	DOOR
		ID 500
		DONTMOVEHERE
		OUTLINE 297,229  333,229  333,245  297,245
		LOC 315,237
		PICTS 2,0,0 200,0,0 ENDPICTS
		SCRIPT
ON SELECT {ME GETSPOTSTATE NOT DUP ME SETSPOTSTATE ["MMEasy.wav" "MMHard.wav"] SWAP GET SOUND}
		ENDSCRIPT
		ENDDOOR
	DOOR
		ID 501
		DONTMOVEHERE
		DEST 1093
		OUTLINE 4,354  62,354  62,380  4,380
		LOC 33,366
		PICTS 19,0,0 ENDPICTS
		ENDDOOR
	DOOR
		ID 502
		DONTMOVEHERE
		DEST 600
		OUTLINE 448,354  508,354  508,379  448,379
		LOC 480,368
		PICTS 20,0,0 ENDPICTS
		SCRIPT
ON INCHAT { nDoIt GLOBAL nDoIt EXEC }
ON ENTER { { CLEARLOOSEPROPS PAINTCLEAR } NBRROOMUSERS 2 < IF }
		ENDSCRIPT
		ENDDOOR
	ENDROOM