ROOM ID 206 PRIVATE 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 PICTURE ID 20 NAME "arrowll.gif" TRANSCOLOR 0 ENDPICTURE PICTURE ID 21 NAME "arrowrr.gif" TRANSCOLOR 0 ENDPICTURE PICTURE ID 22 NAME "chessunl.gif" TRANSCOLOR 0 ENDPICTURE PICTURE ID 23 NAME "chesslck.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 } ENDSCRIPT ENDSPOT SPOT 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 ENDSPOT SPOT ID 8 OUTLINE 13,11 30,11 30,27 13,27 LOC 141,107 SCRIPT ON OUTCHAT { { CLEARPAINT CLEARLOOSEPROPS 961187154 1 294 ADDLOOSEPROP 961187149 41 294 ADDLOOSEPROP 961187144 81 294 ADDLOOSEPROP 961187138 118 293 ADDLOOSEPROP 961884269 157 292 ADDLOOSEPROP 961187120 196 293 ADDLOOSEPROP 961187114 236 296 ADDLOOSEPROP 961187108 276 293 ADDLOOSEPROP 961187103 316 297 ADDLOOSEPROP 961187098 356 294 ADDLOOSEPROP 961187092 398 294 ADDLOOSEPROP 961187086 437 293 ADDLOOSEPROP 961187081 471 291 ADDLOOSEPROP 961187076 0 331 ADDLOOSEPROP 961864608 37 330 ADDLOOSEPROP 961864611 73 330 ADDLOOSEPROP 961187058 113 330 ADDLOOSEPROP 961187052 151 330 ADDLOOSEPROP 961187049 190 329 ADDLOOSEPROP 961187034 230 329 ADDLOOSEPROP 961187027 271 330 ADDLOOSEPROP 961187020 311 332 ADDLOOSEPROP 961187015 351 331 ADDLOOSEPROP 961187009 389 329 ADDLOOSEPROP 961192337 428 327 ADDLOOSEPROP 961186995 467 327 ADDLOOSEPROP 1056607831 260 241 ADDLOOSEPROP 1056607831 147 242 ADDLOOSEPROP 1056607831 205 241 ADDLOOSEPROP } CHATSTR "reset" == IF } ENDSCRIPT ENDSPOT DOOR ID 9 DONTMOVEHERE DEST 312 OUTLINE 4,352 61,352 61,380 4,380 LOC 31,365 PICTS 20,0,0 ENDPICTS ENDDOOR DOOR ID 10 DONTMOVEHERE DEST 236 OUTLINE 445,352 507,352 507,378 445,378 LOC 478,365 PICTS 21,0,0 ENDPICTS SCRIPT ON INCHAT { nDoIt GLOBAL nDoIt EXEC } ON ENTER { { CLEARLOOSEPROPS PAINTCLEAR } NBRROOMUSERS 2 < IF } ENDSCRIPT ENDDOOR DOOR LOCKABLE ID 11 DONTMOVEHERE OUTLINE 477,5 507,5 507,38 477,38 LOC 493,24 PICTS 22,0,0 23,0,0 ENDPICTS SCRIPT ON SELECT { { ME UNLOCK } { ME LOCK } ME ISLOCKED IFELSE } ENDSCRIPT ENDSPOT ENDROOM