ROOM
	ID 281
	PRIVATE
	NOCYBORGS
	NAME "Checkers"
	PICT "greyback3.gif"
	PICTURE ID 22 NAME "check3ws.gif" TRANSCOLOR 0 ENDPICTURE
	PICTURE ID 23 NAME "check3wk.gif" TRANSCOLOR 0 ENDPICTURE
	PICTURE ID 24 NAME "check3rs.gif" TRANSCOLOR 0 ENDPICTURE
	PICTURE ID 25 NAME "check3rk.gif" TRANSCOLOR 0 ENDPICTURE
	PICTURE ID 35 NAME "panel3b.gif" ENDPICTURE
	PICTURE ID 36 NAME "panel3a.gif" ENDPICTURE
	PICTURE ID 38 NAME "boardmarble3.gif" ENDPICTURE
	PICTURE ID 39 NAME "boardwood3.gif" ENDPICTURE
	PICTURE ID 40 NAME "boardcyan3.gif" ENDPICTURE
	PICTURE ID 41 NAME "boardbasic3.gif" ENDPICTURE
	PICTURE ID 44 NAME "tanback3.gif" ENDPICTURE
	PICTURE ID 45 NAME "blueback3.gif" ENDPICTURE
	PICTURE ID 46 NAME "tanback3b.gif" ENDPICTURE
	PICTURE ID 1 NAME "arrowll.gif" TRANSCOLOR 0 ENDPICTURE
	PICTURE ID 2 NAME "arrowrr.gif" TRANSCOLOR 0 ENDPICTURE
	DOOR
		ID 74
		DONTMOVEHERE
		OUTLINE 86,22  423,22  423,359  86,359
		LOC 256,192
		ENDDOOR
	SPOT
		ID 75
		OUTLINE 6,6  17,6  17,17  6,17
		LOC 134,102
		PICTS 0,0,0 44,122,90 45,122,90 46,122,90 ENDPICTS
		ENDSPOT
	SPOT
		ID 70
		NAME "boards"
		OUTLINE 244,7  265,7  265,17  244,17
		LOC 255,106
		PICTS 38,0,85 39,0,85 40,0,85 41,0,85 ENDPICTS
		ENDSPOT
	SPOT
		ID 1
		NAME "1"
		DONTMOVEHERE
		OUTLINE 129,22  171,22  171,65  129,65
		LOC 150,44
		PICTS 0,0,0 22,0,0 23,0,0 24,0,0 25,0,0 ENDPICTS
		SCRIPT
ON SELECT {
edit GLOBAL
{ cycle GLOBAL cycle EXEC }
{ moving GLOBAL moving EXEC
{ 0 6 SETSPOTSTATE } sp1 "10" == IF
{ { 4 ME SETSPOTSTATE } ME GETSPOTSTATE 3 == IF } 30 ALARMEXEC
} edit IFELSE
}
		ENDSCRIPT
		ENDSPOT
	SPOT
		ID 2
		NAME "2"
		DONTMOVEHERE
		OUTLINE 213,22  255,22  255,65  213,65
		LOC 234,44
		PICTS 0,0,0 22,0,0 23,0,0 24,0,0 25,0,0 ENDPICTS
		SCRIPT
ON SELECT {
edit GLOBAL
{ cycle GLOBAL cycle EXEC }
{ moving GLOBAL moving EXEC
{ 0 6 SETSPOTSTATE } sp1 "9" == IF
{ 0 7 SETSPOTSTATE } sp1 "11" == IF
{ { 4 ME SETSPOTSTATE } ME GETSPOTSTATE 3 == IF } 30 ALARMEXEC
} edit IFELSE
}
		ENDSCRIPT
		ENDSPOT
	SPOT
		ID 3
		NAME "3"
		DONTMOVEHERE
		OUTLINE 297,22  339,22  339,65  297,65
		LOC 318,44
		PICTS 0,0,0 22,0,0 23,0,0 24,0,0 25,0,0 ENDPICTS
		SCRIPT
ON SELECT {
edit GLOBAL
{ cycle GLOBAL cycle EXEC }
{ moving GLOBAL moving EXEC
{ 0 7 SETSPOTSTATE } sp1 "10" == IF
{ 0 8 SETSPOTSTATE } sp1 "12" == IF
{ { 4 ME SETSPOTSTATE } ME GETSPOTSTATE 3 == IF } 30 ALARMEXEC
} edit IFELSE
}
		ENDSCRIPT
		ENDSPOT
	SPOT
		ID 4
		NAME "4"
		DONTMOVEHERE
		OUTLINE 381,22  423,22  423,65  381,65
		LOC 402,44
		PICTS 0,0,0 22,0,0 23,0,0 24,0,0 25,0,0 ENDPICTS
		SCRIPT
ON SELECT {
edit GLOBAL
{ cycle GLOBAL cycle EXEC }
{ moving GLOBAL moving EXEC
{ 0 8 SETSPOTSTATE } sp1 "11" == IF
{ { 4 ME SETSPOTSTATE } ME GETSPOTSTATE 3 == IF } 30 ALARMEXEC
} edit IFELSE
}
		ENDSCRIPT
		ENDSPOT
	SPOT
		ID 5
		NAME "5"
		DONTMOVEHERE
		OUTLINE 86,65  129,65  129,106  86,106
		LOC 108,86
		PICTS 0,0,0 22,0,0 23,0,0 24,0,0 25,0,0 ENDPICTS
		SCRIPT
ON SELECT {
edit GLOBAL
{ cycle GLOBAL cycle EXEC }
{ moving GLOBAL moving EXEC
{ 0 9 SETSPOTSTATE } sp1 "14" == IF
} edit IFELSE
}
		ENDSCRIPT
		ENDSPOT
	SPOT
		ID 6
		NAME "6"
		DONTMOVEHERE
		OUTLINE 171,65  213,65  213,106  171,106
		LOC 192,86
		PICTS 0,0,0 22,0,0 23,0,0 24,0,0 25,0,0 ENDPICTS
		SCRIPT
ON SELECT {
edit GLOBAL
{ cycle GLOBAL cycle EXEC }
{ moving GLOBAL moving EXEC
{ 0 9 SETSPOTSTATE } sp1 "13" == IF
{ 0 10 SETSPOTSTATE } sp1 "15" == IF
} edit IFELSE
}
		ENDSCRIPT
		ENDSPOT
	SPOT
		ID 7
		NAME "7"
		DONTMOVEHERE
		OUTLINE 255,65  297,65  297,106  255,106
		LOC 275,86
		PICTS 0,0,0 22,0,0 23,0,0 24,0,0 25,0,0 ENDPICTS
		SCRIPT
ON SELECT {
edit GLOBAL
{ cycle GLOBAL cycle EXEC }
{ moving GLOBAL moving EXEC
{ 0 10 SETSPOTSTATE } sp1 "14" == IF
{ 0 11 SETSPOTSTATE } sp1 "16" == IF
} edit IFELSE
}
		ENDSCRIPT
		ENDSPOT
	SPOT
		ID 8
		NAME "8"
		DONTMOVEHERE
		OUTLINE 339,65  381,65  381,106  339,106
		LOC 360,86
		PICTS 0,0,0 22,0,0 23,0,0 24,0,0 25,0,0 ENDPICTS
		SCRIPT
ON SELECT {
edit GLOBAL
{ cycle GLOBAL cycle EXEC }
{ moving GLOBAL moving EXEC
{ 0 11 SETSPOTSTATE } sp1 "15" == IF
} edit IFELSE
}
		ENDSCRIPT
		ENDSPOT
	SPOT
		ID 9
		NAME "9"
		DONTMOVEHERE
		OUTLINE 129,106  171,106  171,149  129,149
		LOC 150,128
		PICTS 0,0,0 22,0,0 23,0,0 24,0,0 25,0,0 ENDPICTS
		SCRIPT
ON SELECT {
edit GLOBAL
{ cycle GLOBAL cycle EXEC }
{ moving GLOBAL moving EXEC
{ 0 6 SETSPOTSTATE } sp1 "2" == IF
{ 0 14 SETSPOTSTATE } sp1 "18" == IF
} edit IFELSE
}
		ENDSCRIPT
		ENDSPOT
	SPOT
		ID 10
		NAME "10"
		DONTMOVEHERE
		OUTLINE 213,106  255,106  255,149  213,149
		LOC 234,128
		PICTS 0,0,0 22,0,0 23,0,0 24,0,0 25,0,0 ENDPICTS
		SCRIPT
ON SELECT {
edit GLOBAL
{ cycle GLOBAL cycle EXEC }
{ moving GLOBAL moving EXEC
{ 0 6 SETSPOTSTATE } sp1 "1" == IF
{ 0 7 SETSPOTSTATE } sp1 "3" == IF
{ 0 14 SETSPOTSTATE } sp1 "17" == IF
{ 0 15 SETSPOTSTATE } sp1 "19" == IF
} edit IFELSE
}
		ENDSCRIPT
		ENDSPOT
	SPOT
		ID 11
		NAME "11"
		DONTMOVEHERE
		OUTLINE 297,106  339,106  339,149  297,149
		LOC 317,128
		PICTS 0,0,0 22,0,0 23,0,0 24,0,0 25,0,0 ENDPICTS
		SCRIPT
ON SELECT {
edit GLOBAL
{ cycle GLOBAL cycle EXEC }
{ moving GLOBAL moving EXEC
{ 0 7 SETSPOTSTATE } sp1 "2" == IF
{ 0 8 SETSPOTSTATE } sp1 "4" == IF
{ 0 15 SETSPOTSTATE } sp1 "18" == IF
{ 0 16 SETSPOTSTATE } sp1 "20" == IF
} edit IFELSE
}
		ENDSCRIPT
		ENDSPOT
	SPOT
		ID 12
		NAME "12"
		DONTMOVEHERE
		OUTLINE 381,106  423,106  423,149  381,149
		LOC 402,128
		PICTS 0,0,0 22,0,0 23,0,0 24,0,0 25,0,0 ENDPICTS
		SCRIPT
ON SELECT {
edit GLOBAL
{ cycle GLOBAL cycle EXEC }
{ moving GLOBAL moving EXEC
{ 0 8 SETSPOTSTATE } sp1 "3" == IF
{ 0 16 SETSPOTSTATE } sp1 "19" == IF
} edit IFELSE
}
		ENDSCRIPT
		ENDSPOT
	SPOT
		ID 13
		NAME "13"
		DONTMOVEHERE
		OUTLINE 86,149  129,149  129,191  86,191
		LOC 107,170
		PICTS 0,0,0 22,0,0 23,0,0 24,0,0 25,0,0 ENDPICTS
		SCRIPT
ON SELECT {
edit GLOBAL
{ cycle GLOBAL cycle EXEC }
{ moving GLOBAL moving EXEC
{ 0 9 SETSPOTSTATE } sp1 "6" == IF
{ 0 17 SETSPOTSTATE } sp1 "22" == IF
} edit IFELSE
}
		ENDSCRIPT
		ENDSPOT
	SPOT
		ID 14
		NAME "14"
		DONTMOVEHERE
		OUTLINE 171,149  213,149  213,191  171,191
		LOC 192,170
		PICTS 0,0,0 22,0,0 23,0,0 24,0,0 25,0,0 ENDPICTS
		SCRIPT
ON SELECT {
edit GLOBAL
{ cycle GLOBAL cycle EXEC }
{ moving GLOBAL moving EXEC
{ 0 9 SETSPOTSTATE } sp1 "5" == IF
{ 0 10 SETSPOTSTATE } sp1 "7" == IF
{ 0 17 SETSPOTSTATE } sp1 "21" == IF
{ 0 18 SETSPOTSTATE } sp1 "23" == IF
} edit IFELSE
}
		ENDSCRIPT
		ENDSPOT
	SPOT
		ID 15
		NAME "15"
		DONTMOVEHERE
		OUTLINE 255,149  297,149  297,191  255,191
		LOC 275,170
		PICTS 0,0,0 22,0,0 23,0,0 24,0,0 25,0,0 ENDPICTS
		SCRIPT
ON SELECT {
edit GLOBAL
{ cycle GLOBAL cycle EXEC }
{ moving GLOBAL moving EXEC
{ 0 10 SETSPOTSTATE } sp1 "6" == IF
{ 0 11 SETSPOTSTATE } sp1 "8" == IF
{ 0 18 SETSPOTSTATE } sp1 "22" == IF
{ 0 19 SETSPOTSTATE } sp1 "24" == IF
} edit IFELSE
}
		ENDSCRIPT
		ENDSPOT
	SPOT
		ID 16
		NAME "16"
		DONTMOVEHERE
		OUTLINE 339,149  381,149  381,191  339,191
		LOC 360,170
		PICTS 0,0,0 22,0,0 23,0,0 24,0,0 25,0,0 ENDPICTS
		SCRIPT
ON SELECT {
edit GLOBAL
{ cycle GLOBAL cycle EXEC }
{ moving GLOBAL moving EXEC
{ 0 11 SETSPOTSTATE } sp1 "7" == IF
{ 0 19 SETSPOTSTATE } sp1 "23" == IF
} edit IFELSE
}
		ENDSCRIPT
		ENDSPOT
	SPOT
		ID 17
		NAME "17"
		DONTMOVEHERE
		OUTLINE 129,191  171,191  171,232  129,232
		LOC 150,212
		PICTS 0,0,0 22,0,0 23,0,0 24,0,0 25,0,0 ENDPICTS
		SCRIPT
ON SELECT {
edit GLOBAL
{ cycle GLOBAL cycle EXEC }
{ moving GLOBAL moving EXEC
{ 0 14 SETSPOTSTATE } sp1 "10" == IF
{ 0 22 SETSPOTSTATE } sp1 "26" == IF
} edit IFELSE
}
		ENDSCRIPT
		ENDSPOT
	SPOT
		ID 18
		NAME "18"
		DONTMOVEHERE
		OUTLINE 213,191  255,191  255,232  213,232
		LOC 234,212
		PICTS 0,0,0 22,0,0 23,0,0 24,0,0 25,0,0 ENDPICTS
		SCRIPT
ON SELECT {
edit GLOBAL
{ cycle GLOBAL cycle EXEC }
{ moving GLOBAL moving EXEC
{ 0 14 SETSPOTSTATE } sp1 "9" == IF
{ 0 15 SETSPOTSTATE } sp1 "11" == IF
{ 0 22 SETSPOTSTATE } sp1 "25" == IF
{ 0 23 SETSPOTSTATE } sp1 "27" == IF
} edit IFELSE
}
		ENDSCRIPT
		ENDSPOT
	SPOT
		ID 19
		NAME "19"
		DONTMOVEHERE
		OUTLINE 297,191  339,191  339,232  297,232
		LOC 317,212
		PICTS 0,0,0 22,0,0 23,0,0 24,0,0 25,0,0 ENDPICTS
		SCRIPT
ON SELECT {
edit GLOBAL
{ cycle GLOBAL cycle EXEC }
{ moving GLOBAL moving EXEC
{ 0 15 SETSPOTSTATE } sp1 "10" == IF
{ 0 16 SETSPOTSTATE } sp1 "12" == IF
{ 0 23 SETSPOTSTATE } sp1 "26" == IF
{ 0 24 SETSPOTSTATE } sp1 "28" == IF
} edit IFELSE
}
		ENDSCRIPT
		ENDSPOT
	SPOT
		ID 20
		NAME "20"
		DONTMOVEHERE
		OUTLINE 381,191  423,191  423,232  381,232
		LOC 402,212
		PICTS 0,0,0 22,0,0 23,0,0 24,0,0 25,0,0 ENDPICTS
		SCRIPT
ON SELECT {
edit GLOBAL
{ cycle GLOBAL cycle EXEC }
{ moving GLOBAL moving EXEC
{ 0 16 SETSPOTSTATE } sp1 "11" == IF
{ 0 24 SETSPOTSTATE } sp1 "27" == IF
} edit IFELSE
}
		ENDSCRIPT
		ENDSPOT
	SPOT
		ID 21
		NAME "21"
		DONTMOVEHERE
		OUTLINE 86,232  129,232  129,275  86,275
		LOC 107,254
		PICTS 0,0,0 22,0,0 23,0,0 24,0,0 25,0,0 ENDPICTS
		SCRIPT
ON SELECT {
edit GLOBAL
{ cycle GLOBAL cycle EXEC }
{ moving GLOBAL moving EXEC
{ 0 17 SETSPOTSTATE } sp1 "14" == IF
{ 0 25 SETSPOTSTATE } sp1 "30" == IF
} edit IFELSE
}
		ENDSCRIPT
		ENDSPOT
	SPOT
		ID 22
		NAME "22"
		DONTMOVEHERE
		OUTLINE 171,232  213,232  213,275  171,275
		LOC 192,254
		PICTS 0,0,0 22,0,0 23,0,0 24,0,0 25,0,0 ENDPICTS
		SCRIPT
ON SELECT {
edit GLOBAL
{ cycle GLOBAL cycle EXEC }
{ moving GLOBAL moving EXEC
{ 0 17 SETSPOTSTATE } sp1 "13" == IF
{ 0 18 SETSPOTSTATE } sp1 "15" == IF
{ 0 25 SETSPOTSTATE } sp1 "29" == IF
{ 0 26 SETSPOTSTATE } sp1 "31" == IF
} edit IFELSE
}
		ENDSCRIPT
		ENDSPOT
	SPOT
		ID 23
		NAME "23"
		DONTMOVEHERE
		OUTLINE 255,232  297,232  297,275  255,275
		LOC 275,254
		PICTS 0,0,0 22,0,0 23,0,0 24,0,0 25,0,0 ENDPICTS
		SCRIPT
ON SELECT {
edit GLOBAL
{ cycle GLOBAL cycle EXEC }
{ moving GLOBAL moving EXEC
{ 0 18 SETSPOTSTATE } sp1 "14" == IF
{ 0 19 SETSPOTSTATE } sp1 "16" == IF
{ 0 26 SETSPOTSTATE } sp1 "30" == IF
{ 0 27 SETSPOTSTATE } sp1 "32" == IF
} edit IFELSE
}
		ENDSCRIPT
		ENDSPOT
	SPOT
		ID 24
		NAME "24"
		DONTMOVEHERE
		OUTLINE 339,232  381,232  381,275  339,275
		LOC 359,254
		PICTS 0,0,0 22,0,0 23,0,0 24,0,0 25,0,0 ENDPICTS
		SCRIPT
ON SELECT {
edit GLOBAL
{ cycle GLOBAL cycle EXEC }
{ moving GLOBAL moving EXEC
{ 0 19 SETSPOTSTATE } sp1 "15" == IF
{ 0 27 SETSPOTSTATE } sp1 "31" == IF
} edit IFELSE
}
		ENDSCRIPT
		ENDSPOT
	SPOT
		ID 25
		NAME "25"
		DONTMOVEHERE
		OUTLINE 129,275  171,275  171,317  129,317
		LOC 150,296
		PICTS 0,0,0 22,0,0 23,0,0 24,0,0 25,0,0 ENDPICTS
		SCRIPT
ON SELECT {
edit GLOBAL
{ cycle GLOBAL cycle EXEC }
{ moving GLOBAL moving EXEC
{ 0 22 SETSPOTSTATE } sp1 "18" == IF
} edit IFELSE
}
		ENDSCRIPT
		ENDSPOT
	SPOT
		ID 26
		NAME "26"
		DONTMOVEHERE
		OUTLINE 213,275  255,275  255,317  213,317
		LOC 233,296
		PICTS 0,0,0 22,0,0 23,0,0 24,0,0 25,0,0 ENDPICTS
		SCRIPT
ON SELECT {
edit GLOBAL
{ cycle GLOBAL cycle EXEC }
{ moving GLOBAL moving EXEC
{ 0 22 SETSPOTSTATE } sp1 "17" == IF
{ 0 23 SETSPOTSTATE } sp1 "19" == IF
} edit IFELSE
}
		ENDSCRIPT
		ENDSPOT
	SPOT
		ID 27
		NAME "27"
		DONTMOVEHERE
		OUTLINE 297,275  339,275  339,317  297,317
		LOC 317,296
		PICTS 0,0,0 22,0,0 23,0,0 24,0,0 25,0,0 ENDPICTS
		SCRIPT
ON SELECT {
edit GLOBAL
{ cycle GLOBAL cycle EXEC }
{ moving GLOBAL moving EXEC
{ 0 23 SETSPOTSTATE } sp1 "18" == IF
{ 0 24 SETSPOTSTATE } sp1 "20" == IF
} edit IFELSE
}
		ENDSCRIPT
		ENDSPOT
	SPOT
		ID 28
		NAME "28"
		DONTMOVEHERE
		OUTLINE 381,275  423,275  423,317  381,317
		LOC 402,296
		PICTS 0,0,0 22,0,0 23,0,0 24,0,0 25,0,0 ENDPICTS
		SCRIPT
ON SELECT {
edit GLOBAL
{ cycle GLOBAL cycle EXEC }
{ moving GLOBAL moving EXEC
{ 0 24 SETSPOTSTATE } sp1 "19" == IF
} edit IFELSE
}
		ENDSCRIPT
		ENDSPOT
	SPOT
		ID 29
		NAME "29"
		DONTMOVEHERE
		OUTLINE 86,317  129,317  129,359  86,359
		LOC 108,338
		PICTS 0,0,0 22,0,0 23,0,0 24,0,0 25,0,0 ENDPICTS
		SCRIPT
ON SELECT {
edit GLOBAL
{ cycle GLOBAL cycle EXEC }
{ moving GLOBAL moving EXEC
{ 0 25 SETSPOTSTATE } sp1 "22" == IF
{ { 2 ME SETSPOTSTATE } ME GETSPOTSTATE 1 == IF } 30 ALARMEXEC
} edit IFELSE
}
		ENDSCRIPT
		ENDSPOT
	SPOT
		ID 30
		NAME "30"
		DONTMOVEHERE
		OUTLINE 171,317  213,317  213,359  171,359
		LOC 192,338
		PICTS 0,0,0 22,0,0 23,0,0 24,0,0 25,0,0 ENDPICTS
		SCRIPT
ON SELECT {
edit GLOBAL
{ cycle GLOBAL cycle EXEC }
{ moving GLOBAL moving EXEC
{ 0 25 SETSPOTSTATE } sp1 "21" == IF
{ 0 26 SETSPOTSTATE } sp1 "23" == IF
{ { 2 ME SETSPOTSTATE } ME GETSPOTSTATE 1 == IF } 30 ALARMEXEC
} edit IFELSE
}
		ENDSCRIPT
		ENDSPOT
	SPOT
		ID 31
		NAME "31"
		DONTMOVEHERE
		OUTLINE 255,317  297,317  297,359  255,359
		LOC 275,338
		PICTS 0,0,0 22,0,0 23,0,0 24,0,0 25,0,0 ENDPICTS
		SCRIPT
ON SELECT {
edit GLOBAL
{ cycle GLOBAL cycle EXEC }
{ moving GLOBAL moving EXEC
{ 0 26 SETSPOTSTATE } sp1 "22" == IF
{ 0 27 SETSPOTSTATE } sp1 "24" == IF
{ { 2 ME SETSPOTSTATE } ME GETSPOTSTATE 1 == IF } 30 ALARMEXEC
} edit IFELSE
}
		ENDSCRIPT
		ENDSPOT
	SPOT
		ID 32
		NAME "32"
		DONTMOVEHERE
		OUTLINE 339,317  381,317  381,359  339,359
		LOC 360,338
		PICTS 0,0,0 22,0,0 23,0,0 24,0,0 25,0,0 ENDPICTS
		SCRIPT
ON SELECT {
edit GLOBAL
{ cycle GLOBAL cycle EXEC }
{ moving GLOBAL moving EXEC
{ 0 27 SETSPOTSTATE } sp1 "23" == IF
{ { 2 ME SETSPOTSTATE } ME GETSPOTSTATE 1 == IF } 30 ALARMEXEC
} edit IFELSE
}
		ENDSCRIPT
		ENDSPOT
	SPOT
		ID 98
		OUTLINE 446,4  461,4  461,18  446,18
		LOC 333,100
		SCRIPT
ON ENTER {
{ 35 192 SETPOS } 0 ROOMUSER WHOME == IF
{ 476 192 SETPOS } 1 ROOMUSER WHOME == IF
{ 35 336 SETPOS NAKED } 2 ROOMUSER WHOME == IF
{ 476 336 SETPOS NAKED } 3 ROOMUSER WHOME == IF
0 ME SETSPOTSTATELOCAL
edit GLOBAL 0 edit =
"Type \"start checkers\" to reset the board. Type \"help\" for instructions." LOCALMSG
moving GLOBAL {
{
{
sp1 GLOBAL
ME GETSPOTSTATE n =
n 98 SETSPOTSTATELOCAL
0 ME SETSPOTSTATE
ME SPOTNAME sp1 =
} 5 ALARMEXEC
}
{
sp1 GLOBAL
98 GETSPOTSTATE n =
n ME SETSPOTSTATE
0 98 SETSPOTSTATELOCAL
"; " sp1 & " - " & ME SPOTNAME & SAY
} 98 GETSPOTSTATE 0 == IFELSE
} moving DEF
cycle GLOBAL {
"; editing square " ME SPOTNAME & SAY
{ 0 ME SETSPOTSTATE }
{ ME GETSPOTSTATE 1 + ME SETSPOTSTATE
} ME GETSPOTSTATE 3 > IFELSE
} cycle DEF
instructions GLOBAL {
"Look in your log window for instructions." LOCALMSG
{ LOGMSG }
[ ""
  "CHECKERS INSTRUCTIONS"
  ""
  "1. Type \"start checkers\" to reset the board."
  "2. Click once on the piece you want to move. The piece will vanish. Click once on the spot where you want to move the piece. The piece will appear there."
  "3. A jumped piece will vanish when jumped. When a piece reaches the last row, it will become a King."
  "4. Multiple jumps must be made with consecutive moves. Each move requires two clicks."
  "5. In Checkers, the dark squares are numbered 1 through 32 starting from the top left. Your move will appear in checkers notation the log window."
  "6. To repair a spot during a game, type \"edit on\" to enter Edit Mode. The room is alerted when a player enters Edit Mode."
  "7. While in Edit Mode, clicking on a spot will cycle through the pieces. Edit actions are logged. Type \"edit off\" to exit Edit Mode and return to the game."
  "8. Click the 'B' button to change board designs."
  ""
  "©2001 Scripting by Glide"
  ""
] FOREACH
"" CHATSTR =
} instructions DEF
startgame GLOBAL {
 1 w = { 1 w SETSPOTSTATE w ++ } { w 13 < } WHILE
13 r = { 0 r SETSPOTSTATE r ++ } { r 21 < } WHILE
21 r = { 3 r SETSPOTSTATE r ++ } { r 33 < } WHILE
 0 98 SETSPOTSTATE
{ "Checkers reset by " USERNAME & ROOMMSG } 30 ALARMEXEC
} startgame DEF
boardchange GLOBAL {
{ 70 GETSPOTSTATE 1 + 70 SETSPOTSTATELOCAL
  75 GETSPOTSTATE 1 + 75 SETSPOTSTATELOCAL }
{ 0 70 SETSPOTSTATELOCAL 0 75 SETSPOTSTATELOCAL
} 70 GETSPOTSTATE 3 < IFELSE
} boardchange DEF
}
ON INCHAT {
{ 0 ME SETSPOTSTATELOCAL } CHATSTR "start checkers" == IF
}
ON OUTCHAT {
{
startgame GLOBAL startgame EXEC
} CHATSTR "start checkers" == IF
{
edit GLOBAL 1 edit =
USERNAME " is in Edit Mode" & ROOMMSG
} CHATSTR "edit on" == IF
{
edit GLOBAL 0 edit =
USERNAME " is no longer in Edit Mode" & ROOMMSG
} CHATSTR "edit off" == IF
{
instructions GLOBAL instructions EXEC
} CHATSTR "help" == IF
}
		ENDSCRIPT
		ENDSPOT
	DOOR
		LOCKABLE
		ID 66
		DONTMOVEHERE
		OUTLINE 476,3  508,3  508,27  476,27
		LOC 493,40
		PICTS 35,0,0 36,0,0 ENDPICTS
		SCRIPT
ON SELECT {
{ "; Room unlocked by " USERNAME & ROOMMSG ME UNLOCK }
{ "; Room locked by " USERNAME & ROOMMSG ME LOCK
} ME ISLOCKED IFELSE
}
		ENDSCRIPT
		ENDSPOT
	DOOR
		ID 67
		DONTMOVEHERE
		OUTLINE 476,27  508,27  508,51  476,51
		LOC 493,44
		SCRIPT
ON SELECT { instructions GLOBAL instructions EXEC }
		ENDSCRIPT
		ENDDOOR
	DOOR
		ID 68
		DONTMOVEHERE
		OUTLINE 476,51  508,51  508,75  476,75
		LOC 378,148
		SCRIPT
ON SELECT { boardchange GLOBAL boardchange EXEC }
		ENDSCRIPT
		ENDDOOR
	SPOT
		ID 81
		OUTLINE 5,366  16,366  16,377  5,377
		LOC 133,281
		PICTS 36,0,200 ENDPICTS
		ENDSPOT
	DOOR
		ID 33
		DONTMOVEHERE
		DEST 166
		OUTLINE 4,354  62,354  62,380  4,380
		LOC 33,366
		PICTS 1,0,0 ENDPICTS
		ENDDOOR
	DOOR
		ID 34
		DONTMOVEHERE
		DEST 282
		OUTLINE 448,354  508,354  508,379  448,379
		LOC 480,368
		PICTS 2,0,0 ENDPICTS
		SCRIPT
ON INCHAT { nDoIt GLOBAL nDoIt EXEC }
ON ENTER { { CLEARLOOSEPROPS PAINTCLEAR } NBRROOMUSERS 2 < IF }
		ENDSCRIPT
		ENDDOOR
	ENDROOM