ROOM	
	ID 144
	NOPAINTING
	NAME "Backwards Talk"
	PICT "lsascriptt.gif"
	ARTIST "Jester-   mojo1@airmail.net"
	PICTURE ID 1 NAME "arrowl.gif" TRANSCOLOR 56 ENDPICTURE
	PICTURE ID 2 NAME "arrowr.gif" TRANSCOLOR 56 ENDPICTURE
	DOOR
		ID 1
		DONTMOVEHERE
		OUTLINE 75,108  266,108  266,130  75,130
		LOC 203,204
		SCRIPT
ON ENTER {
"Instructions in log" STATUSMSG
"Welcome to Backwards Speak" LOGMSG
"Type 'back on' to turn Back Speak on" LOGMSG
"Type 'back off' to turn Back Speak off" LOGMSG
}
ON OUTCHAT {
back GLOBAL
{ 1 back - back = "" CHATSTR = } CHATSTR "^back o[nf]f*$" GREPSTR IF
{ "" bck =
{ { CHATSTR "^(.*)(.)$" GREPSTR POP
"$1" GREPSUB CHATSTR = bck "$2" GREPSUB + bck = }
{ bck CHATSTR + bck = "" CHATSTR = } CHATSTR ".." GREPSTR IFELSE
} { CHATSTR "." GREPSTR } WHILE
bck CHATSTR =
} back IF
}
;ABOVE
ON SELECT { "palace://apartments.toto.net:9998" NETGOTO }
		ENDSCRIPT
		ENDDOOR
	DOOR
		ID 2
		DONTMOVEHERE
		OUTLINE 199,327  256,327  256,350  199,350
		LOC 327,254
		SCRIPT
ON SELECT { "~Look in your log~" STATUSMSG
"===Script By Jester/ICQ-15143049===
You can talk backwards with this script, whatever you say comes out the other way!
It is a really fun type of thing to play around with..." LOGMSG
" " LOGMSG }
ON LEAVE {
{ CLEARLOOSEPROPS PAINTCLEAR } NBRROOMUSERS 2 < IF
}
		ENDSCRIPT
		ENDDOOR
	DOOR
		ID 3
		DONTMOVEHERE
		OUTLINE 190,353  236,353  236,375  190,375
		LOC 318,279
		SCRIPT
ON SELECT { "~Look in your log~" STATUSMSG
"===Script By Jester/ICQ-15143049===
To use this script type \"Back On\" or \"Back Off\" to turn the script on and off..." LOGMSG
" " LOGMSG }
		ENDSCRIPT
		ENDDOOR
	DOOR
		ID 4
		DEST 700
		OUTLINE 5,3  57,3  57,31  5,31
		LOC 31,17
		PICTS 1,0,0 ENDPICTS
		ENDDOOR
	DOOR
		ID 5
		DEST 149
		OUTLINE 454,5  508,5  508,33  454,33
		LOC 481,19
		PICTS 2,0,0 ENDPICTS
		ENDDOOR
	ENDROOM