ROOM
	ID 289
	NAME "=Make A Room Copy="
	PICT "scriptmem.gif"
	PICTURE ID 11 NAME "yes22.gif" TRANSCOLOR 0 ENDPICTURE
	PICTURE ID 12 NAME "no22.gif" TRANSCOLOR 0 ENDPICTURE
	PICTURE ID 13 NAME "pal41sm.gif" ENDPICTURE
	PICTURE ID 14 NAME "pal56sm.gif" ENDPICTURE
	PICTURE ID 15 NAME "pal25sm.gif" ENDPICTURE
	PICTURE ID 16 NAME "pal26sm.gif" ENDPICTURE
	PICTURE ID 17 NAME "arrowll.gif" TRANSCOLOR 0 ENDPICTURE
	PICTURE ID 18 NAME "arrowrr.gif" TRANSCOLOR 0 ENDPICTURE
	SPOT
		ID 5
		NAME "Scripts"
		DONTMOVEHERE
		OUTLINE 39,135  88,135  88,163  39,163
		LOC 64,155
		PICTS 11,0,0 12,0,0 ENDPICTS
		SCRIPT
ON SELECT {
picsas GLOBAL
5 GETSPOTSTATE cs =
cs 5 + DUP picsas / picsas * - 5 SETSPOTSTATE
10 ME SETALARM
}
ON ENTER { picsas GLOBAL
2 picsas =
}
ON INCHAT { nDoIt GLOBAL nDoIt EXEC }
		ENDSCRIPT
		ENDSPOT
	SPOT
		ID 2
		NAME "New Room"
		OUTLINE 140,346  363,346  363,373  140,373
		LOC 234,356
		SCRIPT
ON SELECT {thepw GLOBAL thename GLOBAL "'newroom" SAY{ "'rscripts" SAY }
1 GETSPOTSTATE 0 == IF
{ "'rscripts off" SAY } 5 GETSPOTSTATE 1 == IF
{ "`rpainting off" SAY }  3 GETSPOTSTATE 1 == IF
{ "`rpainting" SAY } 3 GETSPOTSTATE 0 == IF
{ "`rpicture pal41.gif" SAY } 1 GETSPOTSTATE 0 == IF
{ "`rpicture pal56.gif" SAY } 1 GETSPOTSTATE 1 == IF
{ "`rpicture pal25.gif" SAY } 1 GETSPOTSTATE 2 == IF
{ "`rpicture pal26.gif" SAY } 1 GETSPOTSTATE 3 == IF
{ "`rhide" SAY } 7 GETSPOTSTATE 0 == IF
{ "'runhide" SAY } 7 GETSPOTSTATE 1 == IF
{ "'rpassword " thepw & SAY } 9 GETSPOTSTATE 0 == IF
{ "'rname " thename & SAY } 11 GETSPOTSTATE 0 == IF
{"@511,0 say / ROOMID ITOA  SAY  to get your room number" SAY }
7 GETSPOTSTATE 0 == IF
}
ON ENTER {ad GLOBAL "" ad =
{"Script by Twi†ch" STATUSMSG} 50 ALARMEXEC "This is a member making room. Its is NOT like others where the rooms are already made. This room will make you a new room on the server while you are signed on! If you need help on how to set this room up on  your server type 'help'." LOCALMSG
}
		ENDSCRIPT
		ENDSPOT
	SPOT
		ID 3
		NAME "Painting"
		DONTMOVEHERE
		OUTLINE 39,206  90,206  90,236  39,236
		LOC 65,226
		PICTS 11,0,0 12,0,0 ENDPICTS
		SCRIPT
ON SELECT {
picsa GLOBAL
3 GETSPOTSTATE cs =
cs 3 + DUP picsa / picsa * - 3 SETSPOTSTATE
10 ME SETALARM
}
ON ENTER { picsa GLOBAL
2 picsa = }
		ENDSCRIPT
		ENDSPOT
	SPOT
		ID 11
		DONTMOVEHERE
		OUTLINE 41,269  86,269  86,298  41,298
		LOC 64,287
		PICTS 11,0,0 12,0,0 ENDPICTS
		SCRIPT
ON SELECT {
myname GLOBAL
{ "Enter your room name:" STATUSMSG
1 myname = }
{ "" STATUSMSG 0 myname = } ME GETSPOTSTATE 1 == IFELSE
11 picw GLOBAL
 GETSPOTSTATE cs =
cs 11 + DUP picw / picw * - 11 SETSPOTSTATE
10 ME SETALARM
}
ON ENTER { picw GLOBAL
2 picw = }
ON OUTCHAT {
myname GLOBAL thename GLOBAL
{ { 0 myname = "$1" GREPSUB thename =
"The room name is: " thename & STATUSMSG "" CHATSTR =
} CHATSTR "(.*)$" GREPSTR IF } myname 1 == IF
}
		ENDSCRIPT
		ENDSPOT
	SPOT
		ID 9
		DONTMOVEHERE
		OUTLINE 412,214  462,214  462,240  412,240
		LOC 439,227
		PICTS 11,0,0 12,0,0 ENDPICTS
		SCRIPT
ON SELECT {
mypw GLOBAL
{ "Enter your password:" STATUSMSG
1 mypw = }
{ "" STATUSMSG 0 mypw = } ME GETSPOTSTATE 1 == IFELSE
pice GLOBAL
9 GETSPOTSTATE cs =
cs 9 + DUP pice / pice * - 9 SETSPOTSTATE
10 ME SETALARM
}
ON ENTER { pice GLOBAL
2 pice = }
ON OUTCHAT {
mypw GLOBAL thepw GLOBAL
{ { 0 mypw = "$1" GREPSUB thepw =
"The password is: " thepw & STATUSMSG "" CHATSTR =
} CHATSTR "(.*)$" GREPSTR IF } mypw 1 == IF
}
		ENDSCRIPT
		ENDSPOT
	SPOT
		ID 10
		DONTMOVEHERE
		OUTLINE 6,70  139,70  139,98  6,98
		LOC 134,166
		SCRIPT
ON SELECT { pics GLOBAL
1 GETSPOTSTATE 1 - cs =
cs cs -1 == PICS * + 1 SETSPOTSTATELOCAL
}
		ENDSCRIPT
		ENDSPOT
	SPOT
		ID 12
		DONTMOVEHERE
		OUTLINE 347,66  509,66  509,97  347,97
		LOC 381,163
		SCRIPT
ON SELECT {pics GLOBAL 1 GETSPOTSTATE cs =
cs 1 + DUP pics / pics * - 1 SETSPOTSTATE
10 ME SETALARM}
ON ENTER { pics GLOBAL 4 pics = }
		ENDSCRIPT
		ENDSPOT
	SPOT
		ID 1
		OUTLINE 244,214  277,214  277,244  244,244
		LOC 247,200
		PICTS 13,0,0 14,0,0 16,0,0 15,0,0 ENDPICTS
		ENDSPOT
	SPOT
		ID 13
		OUTLINE 117,18  150,18  150,41  117,41
		LOC 245,114
		SCRIPT
ON OUTCHAT {
 { "For your Palace You will need to replace these pictures and some of this script to match the rooms you would like your guest to be able to make into guest rooms.
`rpicture pal41.gif  SAY  5 GETSPOTSTATE 0 == IF
`rpicture pal56.gif  SAY  5 GETSPOTSTATE 1 == IF" LOCALMSG
 "And so on the gif name will need to be replaced with your gif names. Not the little pictures you put in this room but the large ones on your server."  LOCALMSG}  CHATSTR "help" == IF
}
		ENDSCRIPT
		ENDSPOT
	SPOT
		ID 14
		OUTLINE 368,295  505,295  505,340  368,340
		LOC 377,244
		SCRIPT
ON SELECT {
 "Say a room number to go there" LOCALMSG
}
ON OUTCHAT {
 {
   CHATSTR ATOI GOTOROOM
 } CHATSTR "^[0-9]+$" GREPSTR IF
}
		ENDSCRIPT
		ENDSPOT
	SPOT
		ID 25
		DONTMOVEHERE
		OUTLINE 413,134  485,134  485,165  413,165
		LOC 445,153
		PICTS 11,0,0 12,0,0 ENDPICTS
		SCRIPT
ON SELECT {
picsa GLOBAL
25 GETSPOTSTATE cs =
cs 25 + DUP picsa / picsa * - 25 SETSPOTSTATE
10 ME SETALARM
}
ON ENTER { picsa GLOBAL
2 picsa =
}
		ENDSCRIPT
		ENDSPOT
	DOOR
		ID 15
		DONTMOVEHERE
		DEST 92
		OUTLINE 4,356  64,356  64,378  4,378
		LOC 33,367
		PICTS 17,0,0 ENDPICTS
		ENDDOOR
	DOOR
		ID 16
		DONTMOVEHERE
		DEST 177
		OUTLINE 449,358  506,358  506,379  449,379
		LOC 479,368
		PICTS 18,0,0 ENDPICTS
		SCRIPT
ON INCHAT { nDoIt GLOBAL nDoIt EXEC }
ON ENTER { { CLEARLOOSEPROPS PAINTCLEAR } NBRROOMUSERS 2 < IF }
		ENDSCRIPT
		ENDDOOR
	ENDROOM