ROOM
	ID 1999
	NOCYBORGS
	HIDDEN
	NAME "Message Room"
	PICT "clouds.gif"
	SPOT
		ID 1
		OUTLINE 10,30  20,30  20,40  10,40
		LOC 15,35
		SCRIPT
;
; (c) Blue Lady <noname@virtual.dyc.edu>, 1999
; All Rights Reserved.  No part of this document can be copied in
; part or in whole without the expressed permission of the author
; in writing.
;
ON ENTER {
   "To record a message say: rec <your message>" LOCALMSG
   "To play back a message say: play" LOCALMSG
}
;
ON OUTCHAT {
;
; Recording
;
   {
      "$1" GREPSUB LOWERCASE "  " & lowchat =
      "Recording: " lowchat & LOCALMSG
;
      [ "a" "b" "c" "d" "e" "f" "g" "h" "i" "j" "k" "l" "m" "n" "o" "p"
        "q" "r" "s" "t" "u" "v" "w" "x" "y" "z" " " "." "," "!" "?" ";"] letarray =	
;
      1 thespot = { 0 thespot SETSPOTSTATE thespot++ }{ 0 thespot GETSPOTSTATE == NOT } WHILE
;
      1 thespot =
      {
         "$1" GREPSUB "$2" GREPSUB & "$3" GREPSUB & lets =
         "$4" GREPSUB lowchat =
;
         1 j =
         0 crypt =
         {
            "$1" GREPSUB let =
            "$2" GREPSUB lets =
            { 0 i = { i++ }{ letarray i GET let == NOT } WHILE } let "[a-z .,!?;]" GREPSTR IF
            i 1 + j * crypt + crypt =
            32 j * j =
         }{ lets "^(.)(.*)$" GREPSTR } WHILE
;
         crypt thespot SETSPOTSTATE
         thespot++
;
      }{ lowchat "(.)(.)(.)(.*)" GREPSTR } WHILE
;
      "" CHATSTR =
;
   } CHATSTR "^rec (.*)$" GREPSTR IF
;
; Playback
;
   {
;
      [ "a" "b" "c" "d" "e" "f" "g" "h" "i" "j" "k" "l" "m" "n" "o" "p"
        "q" "r" "s" "t" "u" "v" "w" "x" "y" "z" " " "." "," "!" "?" ";"] letarray =	
;
      1 thespot =
      "" lowchat =
;
      {
         thespot GETSPOTSTATE i =
;
         1024 j =
         "" lets =
         {
            i j / k =
            { letarray k 1 - GET lets & lets = } 0 k < 33 k > AND IF
            i j % i =
            j 32 / j =
         }{ 1 j <= } WHILE
;
         lowchat lets & lowchat =
;
         thespot++
;
      }{ 0 thespot GETSPOTSTATE == NOT } WHILE
;
      lowchat ROOMMSG
;
      "" CHATSTR =
;
   } CHATSTR "play" == IF
;
}
		ENDSCRIPT
		ENDSPOT
	SPOT
		ID 2
		OUTLINE 20,30  30,30  30,40  20,40
		LOC 25,35
		ENDSPOT
	SPOT
		ID 3
		OUTLINE 30,30  40,30  40,40  30,40
		LOC 35,35
		ENDSPOT
	SPOT
		ID 4
		OUTLINE 40,30  50,30  50,40  40,40
		LOC 45,35
		ENDSPOT
	SPOT
		ID 5
		OUTLINE 50,30  60,30  60,40  50,40
		LOC 55,35
		ENDSPOT
	SPOT
		ID 6
		OUTLINE 60,30  70,30  70,40  60,40
		LOC 65,35
		ENDSPOT
	SPOT
		ID 7
		OUTLINE 70,30  80,30  80,40  70,40
		LOC 75,35
		ENDSPOT
	SPOT
		ID 8
		OUTLINE 80,30  90,30  90,40  80,40
		LOC 85,35
		ENDSPOT
	SPOT
		ID 9
		OUTLINE 90,30  100,30  100,40  90,40
		LOC 95,35
		ENDSPOT
	SPOT
		ID 10
		OUTLINE 100,30  110,30  110,40  100,40
		LOC 105,35
		ENDSPOT
	SPOT
		ID 11
		OUTLINE 110,30  120,30  120,40  110,40
		LOC 115,35
		ENDSPOT
	SPOT
		ID 12
		OUTLINE 120,30  130,30  130,40  120,40
		LOC 125,35
		ENDSPOT
	SPOT
		ID 13
		OUTLINE 140,30  150,30  150,40  140,40
		LOC 145,35
		ENDSPOT
	SPOT
		ID 14
		OUTLINE 150,30  160,30  160,40  150,40
		LOC 155,35
		ENDSPOT
	SPOT
		ID 15
		OUTLINE 160,30  170,30  170,40  160,40
		LOC 165,35
		ENDSPOT
	SPOT
		ID 16
		OUTLINE 170,30  180,30  180,40  170,40
		LOC 175,35
		ENDSPOT
	SPOT
		ID 17
		OUTLINE 180,30  190,30  190,40  180,40
		LOC 185,35
		ENDSPOT
	SPOT
		ID 18
		OUTLINE 190,30  200,30  200,40  190,40
		LOC 195,35
		ENDSPOT
	SPOT
		ID 19
		OUTLINE 200,30  210,30  210,40  200,40
		LOC 205,35
		ENDSPOT
	SPOT
		ID 20
		OUTLINE 210,30  220,30  220,40  210,40
		LOC 215,35
		ENDSPOT
	SPOT
		ID 21
		OUTLINE 220,30  230,30  230,40  220,40
		LOC 225,35
		ENDSPOT
	SPOT
		ID 22
		OUTLINE 230,30  240,30  240,40  230,40
		LOC 235,35
		ENDSPOT
	SPOT
		ID 23
		OUTLINE 240,30  250,30  250,40  240,40
		LOC 245,35
		ENDSPOT
	SPOT
		ID 24
		OUTLINE 250,30  260,30  260,40  250,40
		LOC 255,35
		ENDSPOT
	SPOT
		ID 25
		OUTLINE 260,30  270,30  270,40  260,40
		LOC 265,35
		ENDSPOT
	SPOT
		ID 26
		OUTLINE 270,30  280,30  280,40  270,40
		LOC 275,35
		ENDSPOT
	SPOT
		ID 27
		OUTLINE 280,30  290,30  290,40  280,40
		LOC 285,35
		ENDSPOT
	SPOT
		ID 28
		OUTLINE 290,30  300,30  300,40  290,40
		LOC 295,35
		ENDSPOT
	SPOT
		ID 29
		OUTLINE 300,30  310,30  310,40  300,40
		LOC 305,35
		ENDSPOT
	SPOT
		ID 30
		OUTLINE 310,30  320,30  320,40  310,40
		LOC 315,35
		ENDSPOT
	SPOT
		ID 31
		OUTLINE 320,30  330,30  330,40  320,40
		LOC 325,35
		ENDSPOT
	SPOT
		ID 32
		OUTLINE 330,30  340,30  340,40  330,40
		LOC 335,35
		ENDSPOT
	SPOT
		ID 33
		OUTLINE 340,30  350,30  350,40  340,40
		LOC 345,35
		ENDSPOT
	SPOT
		ID 34
		OUTLINE 350,30  360,30  360,40  350,40
		LOC 355,35
		ENDSPOT
	SPOT
		ID 35
		OUTLINE 360,30  370,30  370,40  360,40
		LOC 365,35
		ENDSPOT
	SPOT
		ID 36
		OUTLINE 370,30  380,30  380,40  370,40
		LOC 375,35
		ENDSPOT
	SPOT
		ID 37
		OUTLINE 380,30  390,30  390,40  380,40
		LOC 385,35
		ENDSPOT
	SPOT
		ID 38
		OUTLINE 390,30  400,30  400,40  390,40
		LOC 395,35
		ENDSPOT
	SPOT
		ID 39
		OUTLINE 400,30  410,30  410,40  400,40
		LOC 405,35
		ENDSPOT
	SPOT
		ID 40
		OUTLINE 410,30  420,30  420,40  410,40
		LOC 415,35
		ENDSPOT
	ENDROOM