ROOM	
	ID 206
	NOPAINTING
	NOCYBORGS
	NAME "Hangman"
	PICT "hngman2.gif"
	ARTIST "Script by Kalina"
	PICTURE ID 9 NAME "hang5.gif" TRANSCOLOR 0 ENDPICTURE
	PICTURE ID 10 NAME "hangm3.gif" TRANSCOLOR 0 ENDPICTURE
	PICTURE ID 11 NAME "hangm2.gif" TRANSCOLOR 0 ENDPICTURE
	PICTURE ID 12 NAME "hangm1.gif" TRANSCOLOR 0 ENDPICTURE
	PICTURE ID 13 NAME "hangm.gif" TRANSCOLOR 0 ENDPICTURE
	PICTURE ID 14 NAME "hangm6.gif" TRANSCOLOR 0 ENDPICTURE
	PICTURE ID 16 NAME "hangm8.gif" TRANSCOLOR 0 ENDPICTURE
	PICTURE ID 17 NAME "blank.gif" TRANSCOLOR 0 ENDPICTURE
	PICTURE ID 18 NAME "hangm9.gif" TRANSCOLOR 0 ENDPICTURE
	PICTURE ID 19 NAME "hangm10.gif" TRANSCOLOR 0 ENDPICTURE
	SPOT
		ID 1
		OUTLINE 400,73  442,73  442,102  400,102
		LOC 448,99
		PICTS 17,0,0 13,0,0 12,0,0 11,0,0 10,0,0 9,0,0 14,0,0 16,0,0 18,0,0 19,0,0 ENDPICTS
		ENDSPOT
	SPOT
		ID 3
		NAME "Hang Me"
		DONTMOVEHERE
		OUTLINE 6,88  107,89  108,113  6,113
		LOC 46,89
		SCRIPT
ON ENTER { pics GLOBAL
10 pics = ;pics is number of pics in your slideshow, change to fit
}
ON SELECT { pics GLOBAL
1 GETSPOTSTATE cs =
cs 1 + DUP pics / pics * - 1 SETSPOTSTATE
10 ME SETALARM
}
		ENDSCRIPT
		ENDSPOT
	SPOT
		ID 6
		NAME "instruction"
		DONTMOVEHERE
		OUTLINE 7,54  121,54  122,77  7,78
		LOC 48,60
		SCRIPT
ON SELECT
{"@32,50 Instructions are in your log" ROOMMSG
"Welcome to Props & Mores version of Hangman. To begin play please type reset. The alpabet and underscores will appear.  If more underscores are needed please type letter bl" LOGMSG
"If u have selected a word less than this,  please delete the extras now.  The person guessing the word chooses a letter by typing letter a or letter s .. or what every letter he is picking." LOGMSG
"The person who has thought of the word  deletes that letter from the alphabet and either deletes it from beside the guessor or places it in appropriate spot." LOGMSG
"If there is more than one of the chosen letter in the word please type letter with the appropriate letter needed after it.  eg. letter e."  LOGMSG
"If the person has to delete the letter because there wasnt one in the word,  the guesser will then press Hang Me ONCE!!"  LOGMSG
"You get 9 guesses before you crash thru the floor and are hung.  Good Luck!! & ENJOY!!"  LOGMSG
}
ON ENTER {
{ CLEARLOOSEPROPS PAINTCLEAR } NBRROOMUSERS 2 < IF
}
		ENDSCRIPT
		ENDSPOT
	DOOR
		ID 7
		OUTLINE 43,8  63,8  63,29  43,29
		LOC 171,104
		SCRIPT
ON OUTCHAT {
{ "$1" GREPSUB mnitem = 0 didit =
{ WHOTARGET WHOPOS y = x = }
{ WHOME WHOPOS y = x = } WHOTARGET IFELSE
{ x 67 + x = }
{ x 67 - x = } x 256 < IFELSE
{ bzy =
{ bzy 1 GET x y ADDLOOSEPROP 1 didit =
{ "@" x ITOA + "," + y ITOA + WHOME WHONAME + " gave you a " + mnitem +
"!" + WHOTARGET PRIVATEMSG }
{ "@" x ITOA + "," + y ITOA + USERNAME + " asks: Is there a letter " + mnitem + "? "
+ ROOMMSG
} WHOTARGET IFELSE
} mnitem bzy 0 GET == IF
} [
[ "a"  961187154 ] [ "b"  961187149 ]
[ "c"  961187144 ] [ "d" 961187138 ]
[ "e" 962802635 ] [ "f" 961187120]
[ "g" 961187114 ] [ "h" 961187108 ]
[ "i" 961187103 ] [ "j" 961187098 ]
[ "k" 961187092 ] [ "l" 961187086 ]
[ "m" 961187081 ] [ "n" 961187076 ]
[ "o" 961187070 ] [ "p" 961187065 ]
[ "q" 961187058 ] [ "r" 961187052]
[ "s" 961187049 ] [ "t" 961187034 ]
[ "u" 961187027 ] [ "v" 961187020]
[ "w" 961187015] [ "x" 961187009]
[ "y" 961192337] [ "z" 961186995]
[ "bl" 961885386]
] FOREACH
{ "@" POSX itoa + "," + POSY itoa + systr =
systr "Sorry Retry using a letter -> " + "$1" GREPSUB + " <- please!\x0a" + systr =
systr LOCALMSG
} 0 didit == IF
"" CHATSTR =
} CHATSTR "^letter (.*)$" GREPSTR IF
		ENDSCRIPT
		ENDDOOR
	DOOR
		ID 8
		OUTLINE 13,11  30,11  30,27  13,27
		LOC 141,107
		SCRIPT
ON OUTCHAT {
{
{ i= 0 i SETSPOTSTATE }
[ 1 ] FOREACH
{ CLEARPAINT CLEARLOOSEPROPS } 10 ALARMEXEC
{961187154 6 295 ADDLOOSEPROP  } 10 ALARMEXEC
{961187149 46 295 ADDLOOSEPROP } 10 ALARMEXEC
{961187144  86 295  ADDLOOSEPROP  } 10 ALARMEXEC
{961187138 126 295 ADDLOOSEPROP } 10 ALARMEXEC
{961884269  166 295  ADDLOOSEPROP } 10 ALARMEXEC
{961187120 206 295  ADDLOOSEPROP  } 10 ALARMEXEC
{961187114  246 295 ADDLOOSEPROP } 10 ALARMEXEC
{961187108 286 295  ADDLOOSEPROP } 10 ALARMEXEC
{961187103 326 295  ADDLOOSEPROP } 10 ALARMEXEC
{961187098 366 295  ADDLOOSEPROP } 10 ALARMEXEC
{961187092 406 295  ADDLOOSEPROP } 10 ALARMEXEC
{961187086 446 295  ADDLOOSEPROP  } 10 ALARMEXEC
{961187081 -2 330  ADDLOOSEPROP  } 10 ALARMEXEC
{961187076 34 330  ADDLOOSEPROP } 10 ALARMEXEC
{961864608  70 330  ADDLOOSEPROP  } 10 ALARMEXEC
{961864611 106 330  ADDLOOSEPROP } 10 ALARMEXEC
{961187058 136 330  ADDLOOSEPROP  } 10 ALARMEXEC
{961187052 172 330  ADDLOOSEPROP  } 10 ALARMEXEC
{961187049 208 330  ADDLOOSEPROP   } 10 ALARMEXEC
{961187034  244 330  ADDLOOSEPROP  } 10 ALARMEXEC
{961187027 280 330  ADDLOOSEPROP  } 10 ALARMEXEC
{961187020 316 330 ADDLOOSEPROP } 10 ALARMEXEC
{961187015 352 330  ADDLOOSEPROP  } 10 ALARMEXEC
{961187009 388 330  ADDLOOSEPROP } 10 ALARMEXEC
{961192337 424 330  ADDLOOSEPROP  } 10 ALARMEXEC
{961186995 460 330  ADDLOOSEPROP } 10 ALARMEXEC
{961885386 50 220 ADDLOOSEPROP  } 10 ALARMEXEC
{961885386 100 220 ADDLOOSEPROP } 10 ALARMEXEC
{961885386 150 220 ADDLOOSEPROP } 10 ALARMEXEC
{961885386 200 220 ADDLOOSEPROP  } 10 ALARMEXEC
{961885386  250 220  ADDLOOSEPROP  } 10 ALARMEXEC
{961885386 300 220  ADDLOOSEPROP } 10 ALARMEXEC
{961885386  350 220 ADDLOOSEPROP } 10 ALARMEXEC
} CHATSTR "reset" == IF
}
		ENDSCRIPT
		ENDDOOR
	ENDROOM