ROOM
	ID 131
	NOCYBORGS
	NAME "Double Direction Insanity"
	PICT "fh-ddins.gif"
	PICTURE ID 1 NAME "ddpu.gif" TRANSCOLOR 0 ENDPICTURE
	PICTURE ID 2 NAME "ddor.gif" TRANSCOLOR 0 ENDPICTURE
	PICTURE ID 3 NAME "otp9.gif" TRANSCOLOR 0 ENDPICTURE
	PICTURE ID 4 NAME "arrowll.gif" TRANSCOLOR 0 ENDPICTURE
	PICTURE ID 5 NAME "arrowrr.gif" TRANSCOLOR 0 ENDPICTURE
	SPOT
		ID 1
		OUTLINE 86,89  88,89  88,91  86,91
		LOC 87,90
		PICTS 3,0,0 1,0,0 2,0,0 ENDPICTS
		ENDSPOT
	SPOT
		ID 2
		OUTLINE 135,89  137,89  137,91  135,91
		LOC 137,90
		PICTS 3,0,0 1,0,0 2,0,0 ENDPICTS
		ENDSPOT
	SPOT
		ID 3
		OUTLINE 186,89  188,89  188,91  186,91
		LOC 187,90
		PICTS 3,0,0 1,0,0 2,0,0 ENDPICTS
		ENDSPOT
	SPOT
		ID 4
		OUTLINE 86,139  88,139  88,141  86,141
		LOC 87,140
		PICTS 3,0,0 1,0,0 2,0,0 ENDPICTS
		ENDSPOT
	SPOT
		ID 5
		OUTLINE 136,139  138,139  138,141  136,141
		LOC 137,140
		PICTS 3,0,0 1,0,0 2,0,0 ENDPICTS
		ENDSPOT
	SPOT
		ID 6
		OUTLINE 186,139  188,139  188,141  186,141
		LOC 187,140
		PICTS 3,0,0 1,0,0 2,0,0 ENDPICTS
		ENDSPOT
	SPOT
		ID 7
		OUTLINE 86,189  88,189  88,191  86,191
		LOC 87,190
		PICTS 3,0,0 1,0,0 2,0,0 ENDPICTS
		ENDSPOT
	SPOT
		ID 8
		OUTLINE 136,189  138,189  138,191  136,191
		LOC 137,190
		PICTS 3,0,0 1,0,0 2,0,0 ENDPICTS
		ENDSPOT
	SPOT
		ID 9
		OUTLINE 186,189  188,189  188,191  186,191
		LOC 187,190
		PICTS 3,0,0 1,0,0 2,0,0 ENDPICTS
		ENDSPOT
	SPOT
		ID 10
		OUTLINE 236,189  238,189  238,191  236,191
		LOC 237,190
		PICTS 3,0,0 1,0,0 2,0,0 ENDPICTS
		ENDSPOT
	SPOT
		ID 11
		OUTLINE 286,189  288,189  288,191  286,191
		LOC 287,190
		PICTS 3,0,0 1,0,0 2,0,0 ENDPICTS
		ENDSPOT
	SPOT
		ID 12
		OUTLINE 186,239  188,239  188,241  186,239
		LOC 187,240
		PICTS 3,0,0 1,0,0 2,0,0 ENDPICTS
		ENDSPOT
	SPOT
		ID 13
		OUTLINE 236,239  238,239  238,241  236,241
		LOC 237,240
		PICTS 3,0,0 1,0,0 2,0,0 ENDPICTS
		ENDSPOT
	SPOT
		ID 14
		OUTLINE 286,239  288,239  288,241  286,241
		LOC 287,240
		PICTS 3,0,0 1,0,0 2,0,0 ENDPICTS
		ENDSPOT
	SPOT
		ID 15
		OUTLINE 186,289  188,289  188,291  186,291
		LOC 187,290
		PICTS 3,0,0 1,0,0 2,0,0 ENDPICTS
		ENDSPOT
	SPOT
		ID 16
		OUTLINE 236,289  238,289  238,291  236,291
		LOC 237,290
		PICTS 3,0,0 1,0,0 2,0,0 ENDPICTS
		ENDSPOT
	SPOT
		ID 17
		OUTLINE 286,289  288,289  288,291  286,291
		LOC 287,290
		PICTS 3,0,0 1,0,0 2,0,0 ENDPICTS
		ENDSPOT
	SPOT
		ID 18
		DONTMOVEHERE
		OUTLINE 61,65  211,65  211,165  311,165  311,315  161,315  161,215  61,215
		LOC 215,311
		SCRIPT
;~MediaList~;up.wav,down.wav		
ON SELECT { ddmp GLOBAL mvs GLOBAL
MOUSEPOS y = x =
"001=102=203=014=115=216=027=128=229=3210=4211=2312=3313=4314=2415=3416=4417=" ndx =
x 61 - 50 / fx = y 66 - 50 / fy = fx ITOA fy ITOA + ps =
ndx ps "([0-9]+)=" + GREPSTR POP
"$1" GREPSUB ATOI frsp =
ndx ddmp "([0-9]+)=" + GREPSTR POP
"$1" GREPSUB ATOI tsp =
ddmp "(.)(.)" GREPSTR POP
"$1" GREPSUB ATOI tx = "$2" GREPSUB ATOI ty =
{
{ { {  ndx tx fx - 2 / fx + ITOA ty fy - 2 / fy + ITOA + "([0-9]+)=" + GREPSTR POP
{ 2 vld = } "$1" GREPSUB ATOI GETSPOTSTATE frsp GETSPOTSTATE == NOT IF
} tx fx - ty fy - + 0 > frsp GETSPOTSTATE 1 == == IF
} tx fx == ty fy == OR IF
} tx fx - DUP * 4 == ty fy - DUP * 4 == OR IF
{ { { 1 vld = } tx fx - ty fy - + 0 > frsp GETSPOTSTATE 1 == == IF
} tx fx == ty fy == OR IF
} tx fx - DUP * 2 < ty fy - DUP * 2 < AND vld NOT AND IF
{ frsp GETSPOTSTATE tsp SETSPOTSTATELOCAL
3 frsp SETSPOTSTATELOCAL mvs ddmp + mvs = ps ddmp =
[ "down" "up" ] tsp GETSPOTSTATE 1 - GET SOUND
} vld IF
{ 0 wn =
{ cr ++ cr 10 < 2 * cr 8 > + cr GETSPOTSTATE == wn +=
} { cr 17 < } WHILE
{ { ")applause " USERNAME UPPERCASE + " has defeated the Insanity!" + ROOMMSG } 40 ALARMEXEC
{ 19 SELECT } 240 ALARMEXEC
} wn 17 == IF
} ddmp "22" == IF
} tsp frsp == NOT IF
}
; "up.wav-*"
; "down.wav-*"
		ENDSCRIPT
		ENDSPOT
	SPOT
		ID 19
		NAME "Start"
		DONTMOVEHERE
		OUTLINE 244,123  316,123  316,150  244,150
		LOC 280,141
		SCRIPT
ON SELECT { ddmp GLOBAL mvs GLOBAL
{ cr ++ cr 10 < cr 8 > 2 * + cr SETSPOTSTATELOCAL
} { cr 17 < } WHILE
"22" ddmp = "" mvs =
}
		ENDSCRIPT
		ENDSPOT
	SPOT
		ID 20
		NAME "Undo"
		DONTMOVEHERE
		OUTLINE 222,64  297,64  297,97  222,97
		LOC 258,84
		SCRIPT
ON SELECT { mvs GLOBAL ddmp GLOBAL
{ "$1" GREPSUB mvs = "$2" GREPSUB ps =
"001=102=203=014=115=216=027=128=229=3210=4211=2312=3313=4314=2415=3416=4417=" ndx =
ndx ps "([0-9]+)=" + GREPSTR POP
"$1" GREPSUB ATOI frsp =
ndx ddmp "([0-9]+)=" + GREPSTR POP
"$1" GREPSUB ATOI tsp =
frsp GETSPOTSTATE tsp SETSPOTSTATELOCAL
3 frsp SETSPOTSTATELOCAL ps ddmp =
[ "up" "down" ] tsp GETSPOTSTATE 1 - GET SOUND
} mvs "^(.*)(..)$" GREPSTR IF
}
		ENDSCRIPT
		ENDSPOT
	SPOT
		ID 24
		DONTMOVEHERE
		OUTLINE 80,229  147,229  147,267  80,267
		LOC 117,249
		SCRIPT
ON ENTER { "Script and Graphics by Foxy, ©1999" STATUSMSG }
ON SELECT { "Instructions are in your log." LOCALMSG
"Goal: To switch the pink and orange pieces." LOGMSG
"Method: pink/purple pieces move only down or right. Orange/yellow pieces move only up or left." LOGMSG
"Move a piece one space in its assigned direction, or jump over one piece of the opposite color." LOGMSG
"Example: a pink piece may jump down or right over one orange piece." LOGMSG
"If you get stuck- very easy!- click the undo button to take back your last move." LOGMSG
"Repeated clicks on Undo will take you back to the beginning, but clicking Start again restarts as well." LOGMSG
}
		ENDSCRIPT
		ENDSPOT
	DOOR
		ID 25
		DONTMOVEHERE
		DEST 292
		OUTLINE 4,354  62,354  62,380  4,380
		LOC 33,366
		PICTS 4,0,0 ENDPICTS
		ENDDOOR
	DOOR
		ID 26
		DONTMOVEHERE
		DEST 220
		OUTLINE 448,354  508,354  508,379  448,379
		LOC 480,368
		PICTS 5,0,0 ENDPICTS
		SCRIPT
ON INCHAT { nDoIt GLOBAL nDoIt EXEC }
ON ENTER { { CLEARLOOSEPROPS PAINTCLEAR } NBRROOMUSERS 2 < IF }
		ENDSCRIPT
		ENDDOOR
	ENDROOM