; ; Room layout ; ENTRANCE 86 ROOM ID 86 DROPZONE NAME "Gate" PICT "default_gate.jpg" ARTIST "" PICTURE ID 2 NAME "pbad.gif" ENDPICTURE DOOR ID 1 NAME "" DONTMOVEHERE OUTLINE 4,4 101,4 100,34 4,33 LOC 53,20 PICTS 2,0,0 ENDPICTS SCRIPT ON ROLLOVER { 90 0 ME SETPICOPACITY } ON ROLLOUT { 100 0 ME SETPICOPACITY } ON MOUSEDOWN { 80 0 ME SETPICOPACITY } ON MOUSEUP { 90 0 ME SETPICOPACITY } ON SELECT { "http://palacebox.com/" GOTOURL } ENDSCRIPT ENDDOOR DOOR ID 2 NAME "" DONTMOVEHERE DEST 131 OUTLINE 59,91 277,91 277,120 59,120 LOC 169,108 SCRIPT ENDSCRIPT ENDDOOR DOOR ID 3 NAME "" DONTMOVEHERE DEST 89 OUTLINE 344,90 492,90 492,118 344,118 LOC 427,107 SCRIPT ENDSCRIPT ENDDOOR DOOR ID 4 NAME "" DONTMOVEHERE DEST 88 OUTLINE 597,93 745,93 745,121 597,121 LOC 680,110 SCRIPT ENDSCRIPT ENDDOOR ENDROOM ROOM ID 130 PRIVATE NOPAINTING NOCYBORGS NOGUESTS OPERATORSONLY NAME "------------ Menu ------------" PICT "clouds.gif" ENDROOM ROOM ID 131 NOLOOSEPROPS NAME "Room Templates" PICT "default_templates.jpg" ARTIST "" PICTURE ID 3 NAME "pbad.gif" ENDPICTURE DOOR ID 6 NAME "Props" DONTMOVEHERE DEST 215 OUTLINE 510,181 664,181 664,218 510,218 LOC 586,203 SCRIPT ENDSCRIPT ENDDOOR DOOR ID 7 NAME "Checkers" DONTMOVEHERE DEST 108 OUTLINE 61,187 215,187 215,224 61,224 LOC 138,199 SCRIPT ENDSCRIPT ENDDOOR DOOR ID 10 NAME "Edit Room" DONTMOVEHERE DEST 137 OUTLINE 510,255 664,255 664,292 510,292 LOC 587,273 SCRIPT ENDSCRIPT ENDDOOR DOOR ID 11 NAME "Prop ID Room" DONTMOVEHERE DEST 214 OUTLINE 510,292 708,292 708,329 510,329 LOC 587,304 SCRIPT ENDSCRIPT ENDDOOR DOOR ID 12 NAME "Palace Links" DONTMOVEHERE DEST 212 OUTLINE 510,329 710,329 710,366 510,366 LOC 587,341 SCRIPT ENDSCRIPT ENDDOOR DOOR ID 13 NAME "Connect 4" DONTMOVEHERE DEST 109 OUTLINE 61,253 215,253 215,290 61,290 LOC 138,265 SCRIPT ENDSCRIPT ENDDOOR DOOR ID 14 NAME "XO Puzzle" DONTMOVEHERE DEST 110 OUTLINE 61,290 215,290 215,327 61,327 LOC 139,302 SCRIPT ENDSCRIPT ENDDOOR DOOR ID 15 NAME "Yahtzee" DONTMOVEHERE DEST 6010 OUTLINE 61,224 215,224 215,253 61,253 LOC 139,236 SCRIPT ENDSCRIPT ENDDOOR DOOR ID 19 NAME "Lockable" DONTMOVEHERE DEST 135 OUTLINE 510,218 664,218 664,255 510,255 LOC 588,230 SCRIPT ENDSCRIPT ENDDOOR DOOR ID 17 NAME "" DONTMOVEHERE DEST 86 OUTLINE 60,92 310,92 310,121 60,121 LOC 183,106 SCRIPT ENDSCRIPT ENDDOOR DOOR ID 18 NAME "" DONTMOVEHERE DEST 89 OUTLINE 344,91 486,91 486,120 344,120 LOC 420,107 SCRIPT ENDSCRIPT ENDDOOR DOOR ID 1 NAME "" DONTMOVEHERE DEST 88 OUTLINE 599,92 741,92 741,121 599,121 LOC 675,108 SCRIPT ENDSCRIPT ENDDOOR DOOR ID 2 NAME "" DONTMOVEHERE OUTLINE 3,3 101,3 101,34 3,34 LOC 53,20 PICTS 3,0,0 ENDPICTS SCRIPT ON ROLLOVER { 90 0 ME SETPICOPACITY } ON ROLLOUT { 100 0 ME SETPICOPACITY } ON MOUSEDOWN { 80 0 ME SETPICOPACITY } ON MOUSEUP { 90 0 ME SETPICOPACITY } ON SELECT { "http://palacebox.com/" GOTOURL } ENDSCRIPT ENDDOOR ENDROOM ROOM ID 88 NAME "Contact Us" PICT "default_contact.jpg" ARTIST "" PICTURE ID 4 NAME "pbad.gif" ENDPICTURE DOOR ID 1 NAME "" DONTMOVEHERE DEST 131 OUTLINE 57,92 313,92 313,119 57,119 LOC 173,107 SCRIPT ENDSCRIPT ENDDOOR DOOR ID 2 NAME "" DONTMOVEHERE DEST 89 OUTLINE 334,91 484,91 484,118 334,118 LOC 417,108 SCRIPT ENDSCRIPT ENDDOOR DOOR ID 3 NAME "" DONTMOVEHERE DEST 86 OUTLINE 517,92 773,92 773,119 517,119 LOC 633,107 SCRIPT ENDSCRIPT ENDDOOR DOOR ID 4 NAME "" DONTMOVEHERE OUTLINE 135,150 681,150 681,178 135,178 LOC 423,167 SCRIPT ON SELECT { "http://palacebox.com/index.php?content=contact" GOTOURL } ENDSCRIPT ENDDOOR DOOR ID 5 NAME "" DONTMOVEHERE OUTLINE 3,3 101,3 101,34 3,34 LOC 53,20 PICTS 4,0,0 ENDPICTS SCRIPT ON ROLLOVER { 90 0 ME SETPICOPACITY } ON ROLLOUT { 100 0 ME SETPICOPACITY } ON MOUSEDOWN { 80 0 ME SETPICOPACITY } ON MOUSEUP { 90 0 ME SETPICOPACITY } ON SELECT { "http://palacebox.com/" GOTOURL } ENDSCRIPT ENDDOOR ENDROOM ROOM ID 89 NAME "Resources" PICT "default_resources.jpg" ARTIST "" PICTURE ID 4 NAME "pbad.gif" ENDPICTURE DOOR ID 1 NAME "" DONTMOVEHERE DEST 131 OUTLINE 58,90 275,90 275,120 58,120 LOC 169,110 SCRIPT ENDSCRIPT ENDDOOR DOOR ID 2 NAME "" DONTMOVEHERE DEST 86 OUTLINE 311,89 567,89 567,118 311,118 LOC 438,107 SCRIPT ENDSCRIPT ENDDOOR DOOR ID 4 NAME "" DONTMOVEHERE DEST 88 OUTLINE 576,89 775,89 775,119 576,119 LOC 687,109 SCRIPT ENDSCRIPT ENDDOOR DOOR ID 5 NAME "" DONTMOVEHERE OUTLINE 98,190 354,190 354,217 98,217 LOC 182,207 SCRIPT ON SELECT { "http://palacebox.com" GOTOURL } ENDSCRIPT ENDDOOR DOOR ID 6 NAME "" DONTMOVEHERE OUTLINE 97,228 353,228 353,255 97,255 LOC 181,245 SCRIPT ON SELECT { "http://palaceplanet.net" GOTOURL } ENDSCRIPT ENDDOOR DOOR ID 7 NAME "" DONTMOVEHERE OUTLINE 97,263 353,263 353,290 97,290 LOC 181,280 SCRIPT ON SELECT { "http://thepalaceportal.com" GOTOURL } ENDSCRIPT ENDDOOR DOOR ID 8 NAME "" DONTMOVEHERE OUTLINE 98,301 354,301 354,328 98,328 LOC 182,318 SCRIPT ON SELECT { "http://palacebox.com/atjade" GOTOURL } ENDSCRIPT ENDDOOR DOOR ID 9 NAME "" DONTMOVEHERE OUTLINE 441,194 697,194 697,221 441,221 LOC 525,211 SCRIPT ON SELECT { "http://ver.rubberhouse.net/" GOTOURL } ENDSCRIPT ENDDOOR DOOR ID 10 NAME "" DONTMOVEHERE OUTLINE 441,229 697,229 697,256 441,256 LOC 525,246 SCRIPT ON SELECT { "http://www.palaceplugins.com/" GOTOURL } ENDSCRIPT ENDDOOR DOOR ID 11 NAME "" DONTMOVEHERE OUTLINE 413,265 698,265 698,292 413,292 LOC 526,282 SCRIPT ON SELECT { "http://palacechat.us" GOTOURL } ENDSCRIPT ENDDOOR DOOR ID 12 NAME "" DONTMOVEHERE OUTLINE 442,302 698,302 698,329 442,329 LOC 526,319 SCRIPT ON SELECT { "http://www.all4palace.com/" GOTOURL } ENDSCRIPT ENDDOOR DOOR ID 3 NAME "" DONTMOVEHERE OUTLINE 3,3 101,3 101,34 3,34 LOC 53,20 PICTS 4,0,0 ENDPICTS SCRIPT ON ROLLOVER { 90 0 ME SETPICOPACITY } ON ROLLOUT { 100 0 ME SETPICOPACITY } ON MOUSEDOWN { 80 0 ME SETPICOPACITY } ON MOUSEUP { 90 0 ME SETPICOPACITY } ON SELECT { "http://palacebox.com/" GOTOURL } ENDSCRIPT ENDDOOR ENDROOM ROOM ID 102 OPERATORSONLY NAME "----------- Games -----------" PICT "clouds.gif" ENDROOM ROOM ID 108 PRIVATE NOCYBORGS NOLOOSEPROPS NAME "Checkers" PICT "greyback3.gif" ARTIST "" PICTURE ID 22 NAME "check3ws.gif" TRANSCOLOR 0 ENDPICTURE PICTURE ID 23 NAME "check3wk.gif" TRANSCOLOR 0 ENDPICTURE PICTURE ID 24 NAME "check3rs.gif" TRANSCOLOR 0 ENDPICTURE PICTURE ID 25 NAME "check3rk.gif" TRANSCOLOR 0 ENDPICTURE PICTURE ID 35 NAME "panel3b.gif" ENDPICTURE PICTURE ID 36 NAME "panel3a.gif" ENDPICTURE PICTURE ID 38 NAME "boardmarble3.gif" ENDPICTURE PICTURE ID 39 NAME "boardwood3.gif" ENDPICTURE PICTURE ID 40 NAME "boardcyan3.gif" ENDPICTURE PICTURE ID 41 NAME "boardbasic3.gif" ENDPICTURE PICTURE ID 44 NAME "tanback3.gif" ENDPICTURE PICTURE ID 45 NAME "blueback3.gif" ENDPICTURE PICTURE ID 46 NAME "tanback3b.gif" ENDPICTURE PICTURE ID 4 NAME "pbad.gif" ENDPICTURE DOOR ID 74 NAME "" DONTMOVEHERE OUTLINE 86,22 423,22 423,359 86,359 LOC 256,192 SCRIPT ENDSCRIPT ENDDOOR SPOT ID 75 NAME "" OUTLINE 6,6 17,6 17,17 6,17 LOC 134,102 PICTS 0,0,0 44,122,90 45,122,90 46,122,90 ENDPICTS SCRIPT ENDSCRIPT ENDSPOT SPOT ID 70 NAME "boards" OUTLINE 244,7 265,7 265,17 244,17 LOC 255,106 PICTS 38,0,85 39,0,85 40,0,85 41,0,85 ENDPICTS SCRIPT ENDSCRIPT ENDSPOT SPOT ID 1 NAME "1" DONTMOVEHERE OUTLINE 129,22 171,22 171,65 129,65 LOC 150,44 PICTS 0,0,0 22,0,0 23,0,0 24,0,0 25,0,0 ENDPICTS SCRIPT ON SELECT { edit GLOBAL { cycle GLOBAL cycle EXEC } { moving GLOBAL moving EXEC { 0 6 SETSPOTSTATE } sp1 "10" == IF { { 4 ME SETSPOTSTATE } ME GETSPOTSTATE 3 == IF } 30 ALARMEXEC } edit IFELSE } ENDSCRIPT ENDSPOT SPOT ID 2 NAME "2" DONTMOVEHERE OUTLINE 213,22 255,22 255,65 213,65 LOC 234,44 PICTS 0,0,0 22,0,0 23,0,0 24,0,0 25,0,0 ENDPICTS SCRIPT ON SELECT { edit GLOBAL { cycle GLOBAL cycle EXEC } { moving GLOBAL moving EXEC { 0 6 SETSPOTSTATE } sp1 "9" == IF { 0 7 SETSPOTSTATE } sp1 "11" == IF { { 4 ME SETSPOTSTATE } ME GETSPOTSTATE 3 == IF } 30 ALARMEXEC } edit IFELSE } ENDSCRIPT ENDSPOT SPOT ID 3 NAME "3" DONTMOVEHERE OUTLINE 297,22 339,22 339,65 297,65 LOC 318,44 PICTS 0,0,0 22,0,0 23,0,0 24,0,0 25,0,0 ENDPICTS SCRIPT ON SELECT { edit GLOBAL { cycle GLOBAL cycle EXEC } { moving GLOBAL moving EXEC { 0 7 SETSPOTSTATE } sp1 "10" == IF { 0 8 SETSPOTSTATE } sp1 "12" == IF { { 4 ME SETSPOTSTATE } ME GETSPOTSTATE 3 == IF } 30 ALARMEXEC } edit IFELSE } ENDSCRIPT ENDSPOT SPOT ID 4 NAME "4" DONTMOVEHERE OUTLINE 381,22 423,22 423,65 381,65 LOC 402,44 PICTS 0,0,0 22,0,0 23,0,0 24,0,0 25,0,0 ENDPICTS SCRIPT ON SELECT { edit GLOBAL { cycle GLOBAL cycle EXEC } { moving GLOBAL moving EXEC { 0 8 SETSPOTSTATE } sp1 "11" == IF { { 4 ME SETSPOTSTATE } ME GETSPOTSTATE 3 == IF } 30 ALARMEXEC } edit IFELSE } ENDSCRIPT ENDSPOT SPOT ID 5 NAME "5" DONTMOVEHERE OUTLINE 86,65 129,65 129,106 86,106 LOC 108,86 PICTS 0,0,0 22,0,0 23,0,0 24,0,0 25,0,0 ENDPICTS SCRIPT ON SELECT { edit GLOBAL { cycle GLOBAL cycle EXEC } { moving GLOBAL moving EXEC { 0 9 SETSPOTSTATE } sp1 "14" == IF } edit IFELSE } ENDSCRIPT ENDSPOT SPOT ID 6 NAME "6" DONTMOVEHERE OUTLINE 171,65 213,65 213,106 171,106 LOC 192,86 PICTS 0,0,0 22,0,0 23,0,0 24,0,0 25,0,0 ENDPICTS SCRIPT ON SELECT { edit GLOBAL { cycle GLOBAL cycle EXEC } { moving GLOBAL moving EXEC { 0 9 SETSPOTSTATE } sp1 "13" == IF { 0 10 SETSPOTSTATE } sp1 "15" == IF } edit IFELSE } ENDSCRIPT ENDSPOT SPOT ID 7 NAME "7" DONTMOVEHERE OUTLINE 255,65 297,65 297,106 255,106 LOC 275,86 PICTS 0,0,0 22,0,0 23,0,0 24,0,0 25,0,0 ENDPICTS SCRIPT ON SELECT { edit GLOBAL { cycle GLOBAL cycle EXEC } { moving GLOBAL moving EXEC { 0 10 SETSPOTSTATE } sp1 "14" == IF { 0 11 SETSPOTSTATE } sp1 "16" == IF } edit IFELSE } ENDSCRIPT ENDSPOT SPOT ID 8 NAME "8" DONTMOVEHERE OUTLINE 339,65 381,65 381,106 339,106 LOC 360,86 PICTS 0,0,0 22,0,0 23,0,0 24,0,0 25,0,0 ENDPICTS SCRIPT ON SELECT { edit GLOBAL { cycle GLOBAL cycle EXEC } { moving GLOBAL moving EXEC { 0 11 SETSPOTSTATE } sp1 "15" == IF } edit IFELSE } ENDSCRIPT ENDSPOT SPOT ID 9 NAME "9" DONTMOVEHERE OUTLINE 129,106 171,106 171,149 129,149 LOC 150,128 PICTS 0,0,0 22,0,0 23,0,0 24,0,0 25,0,0 ENDPICTS SCRIPT ON SELECT { edit GLOBAL { cycle GLOBAL cycle EXEC } { moving GLOBAL moving EXEC { 0 6 SETSPOTSTATE } sp1 "2" == IF { 0 14 SETSPOTSTATE } sp1 "18" == IF } edit IFELSE } ENDSCRIPT ENDSPOT SPOT ID 10 NAME "10" DONTMOVEHERE OUTLINE 213,106 255,106 255,149 213,149 LOC 234,128 PICTS 0,0,0 22,0,0 23,0,0 24,0,0 25,0,0 ENDPICTS SCRIPT ON SELECT { edit GLOBAL { cycle GLOBAL cycle EXEC } { moving GLOBAL moving EXEC { 0 6 SETSPOTSTATE } sp1 "1" == IF { 0 7 SETSPOTSTATE } sp1 "3" == IF { 0 14 SETSPOTSTATE } sp1 "17" == IF { 0 15 SETSPOTSTATE } sp1 "19" == IF } edit IFELSE } ENDSCRIPT ENDSPOT SPOT ID 11 NAME "11" DONTMOVEHERE OUTLINE 297,106 339,106 339,149 297,149 LOC 317,128 PICTS 0,0,0 22,0,0 23,0,0 24,0,0 25,0,0 ENDPICTS SCRIPT ON SELECT { edit GLOBAL { cycle GLOBAL cycle EXEC } { moving GLOBAL moving EXEC { 0 7 SETSPOTSTATE } sp1 "2" == IF { 0 8 SETSPOTSTATE } sp1 "4" == IF { 0 15 SETSPOTSTATE } sp1 "18" == IF { 0 16 SETSPOTSTATE } sp1 "20" == IF } edit IFELSE } ENDSCRIPT ENDSPOT SPOT ID 12 NAME "12" DONTMOVEHERE OUTLINE 381,106 423,106 423,149 381,149 LOC 402,128 PICTS 0,0,0 22,0,0 23,0,0 24,0,0 25,0,0 ENDPICTS SCRIPT ON SELECT { edit GLOBAL { cycle GLOBAL cycle EXEC } { moving GLOBAL moving EXEC { 0 8 SETSPOTSTATE } sp1 "3" == IF { 0 16 SETSPOTSTATE } sp1 "19" == IF } edit IFELSE } ENDSCRIPT ENDSPOT SPOT ID 13 NAME "13" DONTMOVEHERE OUTLINE 86,149 129,149 129,191 86,191 LOC 107,170 PICTS 0,0,0 22,0,0 23,0,0 24,0,0 25,0,0 ENDPICTS SCRIPT ON SELECT { edit GLOBAL { cycle GLOBAL cycle EXEC } { moving GLOBAL moving EXEC { 0 9 SETSPOTSTATE } sp1 "6" == IF { 0 17 SETSPOTSTATE } sp1 "22" == IF } edit IFELSE } ENDSCRIPT ENDSPOT SPOT ID 14 NAME "14" DONTMOVEHERE OUTLINE 171,149 213,149 213,191 171,191 LOC 192,170 PICTS 0,0,0 22,0,0 23,0,0 24,0,0 25,0,0 ENDPICTS SCRIPT ON SELECT { edit GLOBAL { cycle GLOBAL cycle EXEC } { moving GLOBAL moving EXEC { 0 9 SETSPOTSTATE } sp1 "5" == IF { 0 10 SETSPOTSTATE } sp1 "7" == IF { 0 17 SETSPOTSTATE } sp1 "21" == IF { 0 18 SETSPOTSTATE } sp1 "23" == IF } edit IFELSE } ENDSCRIPT ENDSPOT SPOT ID 15 NAME "15" DONTMOVEHERE OUTLINE 255,149 297,149 297,191 255,191 LOC 275,170 PICTS 0,0,0 22,0,0 23,0,0 24,0,0 25,0,0 ENDPICTS SCRIPT ON SELECT { edit GLOBAL { cycle GLOBAL cycle EXEC } { moving GLOBAL moving EXEC { 0 10 SETSPOTSTATE } sp1 "6" == IF { 0 11 SETSPOTSTATE } sp1 "8" == IF { 0 18 SETSPOTSTATE } sp1 "22" == IF { 0 19 SETSPOTSTATE } sp1 "24" == IF } edit IFELSE } ENDSCRIPT ENDSPOT SPOT ID 16 NAME "16" DONTMOVEHERE OUTLINE 339,149 381,149 381,191 339,191 LOC 360,170 PICTS 0,0,0 22,0,0 23,0,0 24,0,0 25,0,0 ENDPICTS SCRIPT ON SELECT { edit GLOBAL { cycle GLOBAL cycle EXEC } { moving GLOBAL moving EXEC { 0 11 SETSPOTSTATE } sp1 "7" == IF { 0 19 SETSPOTSTATE } sp1 "23" == IF } edit IFELSE } ENDSCRIPT ENDSPOT SPOT ID 17 NAME "17" DONTMOVEHERE OUTLINE 129,191 171,191 171,232 129,232 LOC 150,212 PICTS 0,0,0 22,0,0 23,0,0 24,0,0 25,0,0 ENDPICTS SCRIPT ON SELECT { edit GLOBAL { cycle GLOBAL cycle EXEC } { moving GLOBAL moving EXEC { 0 14 SETSPOTSTATE } sp1 "10" == IF { 0 22 SETSPOTSTATE } sp1 "26" == IF } edit IFELSE } ENDSCRIPT ENDSPOT SPOT ID 18 NAME "18" DONTMOVEHERE OUTLINE 213,191 255,191 255,232 213,232 LOC 234,212 PICTS 0,0,0 22,0,0 23,0,0 24,0,0 25,0,0 ENDPICTS SCRIPT ON SELECT { edit GLOBAL { cycle GLOBAL cycle EXEC } { moving GLOBAL moving EXEC { 0 14 SETSPOTSTATE } sp1 "9" == IF { 0 15 SETSPOTSTATE } sp1 "11" == IF { 0 22 SETSPOTSTATE } sp1 "25" == IF { 0 23 SETSPOTSTATE } sp1 "27" == IF } edit IFELSE } ENDSCRIPT ENDSPOT SPOT ID 19 NAME "19" DONTMOVEHERE OUTLINE 297,191 339,191 339,232 297,232 LOC 317,212 PICTS 0,0,0 22,0,0 23,0,0 24,0,0 25,0,0 ENDPICTS SCRIPT ON SELECT { edit GLOBAL { cycle GLOBAL cycle EXEC } { moving GLOBAL moving EXEC { 0 15 SETSPOTSTATE } sp1 "10" == IF { 0 16 SETSPOTSTATE } sp1 "12" == IF { 0 23 SETSPOTSTATE } sp1 "26" == IF { 0 24 SETSPOTSTATE } sp1 "28" == IF } edit IFELSE } ENDSCRIPT ENDSPOT SPOT ID 20 NAME "20" DONTMOVEHERE OUTLINE 381,191 423,191 423,232 381,232 LOC 402,212 PICTS 0,0,0 22,0,0 23,0,0 24,0,0 25,0,0 ENDPICTS SCRIPT ON SELECT { edit GLOBAL { cycle GLOBAL cycle EXEC } { moving GLOBAL moving EXEC { 0 16 SETSPOTSTATE } sp1 "11" == IF { 0 24 SETSPOTSTATE } sp1 "27" == IF } edit IFELSE } ENDSCRIPT ENDSPOT SPOT ID 21 NAME "21" DONTMOVEHERE OUTLINE 86,232 129,232 129,275 86,275 LOC 107,254 PICTS 0,0,0 22,0,0 23,0,0 24,0,0 25,0,0 ENDPICTS SCRIPT ON SELECT { edit GLOBAL { cycle GLOBAL cycle EXEC } { moving GLOBAL moving EXEC { 0 17 SETSPOTSTATE } sp1 "14" == IF { 0 25 SETSPOTSTATE } sp1 "30" == IF } edit IFELSE } ENDSCRIPT ENDSPOT SPOT ID 22 NAME "22" DONTMOVEHERE OUTLINE 171,232 213,232 213,275 171,275 LOC 192,254 PICTS 0,0,0 22,0,0 23,0,0 24,0,0 25,0,0 ENDPICTS SCRIPT ON SELECT { edit GLOBAL { cycle GLOBAL cycle EXEC } { moving GLOBAL moving EXEC { 0 17 SETSPOTSTATE } sp1 "13" == IF { 0 18 SETSPOTSTATE } sp1 "15" == IF { 0 25 SETSPOTSTATE } sp1 "29" == IF { 0 26 SETSPOTSTATE } sp1 "31" == IF } edit IFELSE } ENDSCRIPT ENDSPOT SPOT ID 23 NAME "23" DONTMOVEHERE OUTLINE 255,232 297,232 297,275 255,275 LOC 275,254 PICTS 0,0,0 22,0,0 23,0,0 24,0,0 25,0,0 ENDPICTS SCRIPT ON SELECT { edit GLOBAL { cycle GLOBAL cycle EXEC } { moving GLOBAL moving EXEC { 0 18 SETSPOTSTATE } sp1 "14" == IF { 0 19 SETSPOTSTATE } sp1 "16" == IF { 0 26 SETSPOTSTATE } sp1 "30" == IF { 0 27 SETSPOTSTATE } sp1 "32" == IF } edit IFELSE } ENDSCRIPT ENDSPOT SPOT ID 24 NAME "24" DONTMOVEHERE OUTLINE 339,232 381,232 381,275 339,275 LOC 359,254 PICTS 0,0,0 22,0,0 23,0,0 24,0,0 25,0,0 ENDPICTS SCRIPT ON SELECT { edit GLOBAL { cycle GLOBAL cycle EXEC } { moving GLOBAL moving EXEC { 0 19 SETSPOTSTATE } sp1 "15" == IF { 0 27 SETSPOTSTATE } sp1 "31" == IF } edit IFELSE } ENDSCRIPT ENDSPOT SPOT ID 25 NAME "25" DONTMOVEHERE OUTLINE 129,275 171,275 171,317 129,317 LOC 150,296 PICTS 0,0,0 22,0,0 23,0,0 24,0,0 25,0,0 ENDPICTS SCRIPT ON SELECT { edit GLOBAL { cycle GLOBAL cycle EXEC } { moving GLOBAL moving EXEC { 0 22 SETSPOTSTATE } sp1 "18" == IF } edit IFELSE } ENDSCRIPT ENDSPOT SPOT ID 26 NAME "26" DONTMOVEHERE OUTLINE 213,275 255,275 255,317 213,317 LOC 233,296 PICTS 0,0,0 22,0,0 23,0,0 24,0,0 25,0,0 ENDPICTS SCRIPT ON SELECT { edit GLOBAL { cycle GLOBAL cycle EXEC } { moving GLOBAL moving EXEC { 0 22 SETSPOTSTATE } sp1 "17" == IF { 0 23 SETSPOTSTATE } sp1 "19" == IF } edit IFELSE } ENDSCRIPT ENDSPOT SPOT ID 27 NAME "27" DONTMOVEHERE OUTLINE 297,275 339,275 339,317 297,317 LOC 317,296 PICTS 0,0,0 22,0,0 23,0,0 24,0,0 25,0,0 ENDPICTS SCRIPT ON SELECT { edit GLOBAL { cycle GLOBAL cycle EXEC } { moving GLOBAL moving EXEC { 0 23 SETSPOTSTATE } sp1 "18" == IF { 0 24 SETSPOTSTATE } sp1 "20" == IF } edit IFELSE } ENDSCRIPT ENDSPOT SPOT ID 28 NAME "28" DONTMOVEHERE OUTLINE 381,275 423,275 423,317 381,317 LOC 402,296 PICTS 0,0,0 22,0,0 23,0,0 24,0,0 25,0,0 ENDPICTS SCRIPT ON SELECT { edit GLOBAL { cycle GLOBAL cycle EXEC } { moving GLOBAL moving EXEC { 0 24 SETSPOTSTATE } sp1 "19" == IF } edit IFELSE } ENDSCRIPT ENDSPOT SPOT ID 29 NAME "29" DONTMOVEHERE OUTLINE 86,317 129,317 129,359 86,359 LOC 108,338 PICTS 0,0,0 22,0,0 23,0,0 24,0,0 25,0,0 ENDPICTS SCRIPT ON SELECT { edit GLOBAL { cycle GLOBAL cycle EXEC } { moving GLOBAL moving EXEC { 0 25 SETSPOTSTATE } sp1 "22" == IF { { 2 ME SETSPOTSTATE } ME GETSPOTSTATE 1 == IF } 30 ALARMEXEC } edit IFELSE } ENDSCRIPT ENDSPOT SPOT ID 30 NAME "30" DONTMOVEHERE OUTLINE 171,317 213,317 213,359 171,359 LOC 192,338 PICTS 0,0,0 22,0,0 23,0,0 24,0,0 25,0,0 ENDPICTS SCRIPT ON SELECT { edit GLOBAL { cycle GLOBAL cycle EXEC } { moving GLOBAL moving EXEC { 0 25 SETSPOTSTATE } sp1 "21" == IF { 0 26 SETSPOTSTATE } sp1 "23" == IF { { 2 ME SETSPOTSTATE } ME GETSPOTSTATE 1 == IF } 30 ALARMEXEC } edit IFELSE } ENDSCRIPT ENDSPOT SPOT ID 31 NAME "31" DONTMOVEHERE OUTLINE 255,317 297,317 297,359 255,359 LOC 275,338 PICTS 0,0,0 22,0,0 23,0,0 24,0,0 25,0,0 ENDPICTS SCRIPT ON SELECT { edit GLOBAL { cycle GLOBAL cycle EXEC } { moving GLOBAL moving EXEC { 0 26 SETSPOTSTATE } sp1 "22" == IF { 0 27 SETSPOTSTATE } sp1 "24" == IF { { 2 ME SETSPOTSTATE } ME GETSPOTSTATE 1 == IF } 30 ALARMEXEC } edit IFELSE } ENDSCRIPT ENDSPOT SPOT ID 32 NAME "32" DONTMOVEHERE OUTLINE 339,317 381,317 381,359 339,359 LOC 360,338 PICTS 0,0,0 22,0,0 23,0,0 24,0,0 25,0,0 ENDPICTS SCRIPT ON SELECT { edit GLOBAL { cycle GLOBAL cycle EXEC } { moving GLOBAL moving EXEC { 0 27 SETSPOTSTATE } sp1 "23" == IF { { 2 ME SETSPOTSTATE } ME GETSPOTSTATE 1 == IF } 30 ALARMEXEC } edit IFELSE } ENDSCRIPT ENDSPOT SPOT ID 98 NAME "" OUTLINE 446,4 461,4 461,18 446,18 LOC 333,100 SCRIPT ON ENTER { { 35 192 SETPOS } 0 ROOMUSER WHOME == IF { 476 192 SETPOS } 1 ROOMUSER WHOME == IF { 35 336 SETPOS NAKED } 2 ROOMUSER WHOME == IF { 476 336 SETPOS NAKED } 3 ROOMUSER WHOME == IF 0 ME SETSPOTSTATELOCAL edit GLOBAL 0 edit = "Type \"start checkers\" to reset the board. Type \"help\" for instructions." LOCALMSG moving GLOBAL { { { sp1 GLOBAL ME GETSPOTSTATE n = n 98 SETSPOTSTATELOCAL 0 ME SETSPOTSTATE ME SPOTNAME sp1 = } 5 ALARMEXEC } { sp1 GLOBAL 98 GETSPOTSTATE n = n ME SETSPOTSTATE 0 98 SETSPOTSTATELOCAL "; " sp1 & " - " & ME SPOTNAME & SAY } 98 GETSPOTSTATE 0 == IFELSE } moving DEF cycle GLOBAL { "; editing square " ME SPOTNAME & SAY { 0 ME SETSPOTSTATE } { ME GETSPOTSTATE 1 + ME SETSPOTSTATE } ME GETSPOTSTATE 3 > IFELSE } cycle DEF instructions GLOBAL { "Look in your log window for instructions." LOCALMSG { LOGMSG } [ "" "CHECKERS INSTRUCTIONS" "" "1. Type \"start checkers\" to reset the board." "2. Click once on the piece you want to move. The piece will vanish. Click once on the spot where you want to move the piece. The piece will appear there." "3. A jumped piece will vanish when jumped. When a piece reaches the last row, it will become a King." "4. Multiple jumps must be made with consecutive moves. Each move requires two clicks." "5. In Checkers, the dark squares are numbered 1 through 32 starting from the top left. Your move will appear in checkers notation the log window." "6. To repair a spot during a game, type \"edit on\" to enter Edit Mode. The room is alerted when a player enters Edit Mode." "7. While in Edit Mode, clicking on a spot will cycle through the pieces. Edit actions are logged. Type \"edit off\" to exit Edit Mode and return to the game." "8. Click the 'B' button to change board designs." "" "©2001 Scripting by Glide" "" ] FOREACH "" CHATSTR = } instructions DEF startgame GLOBAL { 1 w = { 1 w SETSPOTSTATE w ++ } { w 13 < } WHILE 13 r = { 0 r SETSPOTSTATE r ++ } { r 21 < } WHILE 21 r = { 3 r SETSPOTSTATE r ++ } { r 33 < } WHILE 0 98 SETSPOTSTATE { "Checkers reset by " USERNAME & ROOMMSG } 30 ALARMEXEC } startgame DEF boardchange GLOBAL { { 70 GETSPOTSTATE 1 + 70 SETSPOTSTATELOCAL 75 GETSPOTSTATE 1 + 75 SETSPOTSTATELOCAL } { 0 70 SETSPOTSTATELOCAL 0 75 SETSPOTSTATELOCAL } 70 GETSPOTSTATE 3 < IFELSE } boardchange DEF } ON INCHAT { { 0 ME SETSPOTSTATELOCAL } CHATSTR "start checkers" == IF } ON OUTCHAT { { startgame GLOBAL startgame EXEC } CHATSTR "start checkers" == IF { edit GLOBAL 1 edit = USERNAME " is in Edit Mode" & ROOMMSG } CHATSTR "edit on" == IF { edit GLOBAL 0 edit = USERNAME " is no longer in Edit Mode" & ROOMMSG } CHATSTR "edit off" == IF { instructions GLOBAL instructions EXEC } CHATSTR "help" == IF } ENDSCRIPT ENDSPOT DOOR LOCKABLE ID 66 NAME "" DONTMOVEHERE OUTLINE 476,3 508,3 508,27 476,27 LOC 493,40 PICTS 35,0,0 36,0,0 ENDPICTS SCRIPT ON SELECT { { "; Room unlocked by " USERNAME & ROOMMSG ME UNLOCK } { "; Room locked by " USERNAME & ROOMMSG ME LOCK } ME ISLOCKED IFELSE } ENDSCRIPT ENDDOOR DOOR ID 67 NAME "" DONTMOVEHERE OUTLINE 476,27 508,27 508,51 476,51 LOC 493,44 SCRIPT ON SELECT { instructions GLOBAL instructions EXEC } ENDSCRIPT ENDDOOR DOOR ID 68 NAME "" DONTMOVEHERE OUTLINE 476,51 508,51 508,75 476,75 LOC 378,148 SCRIPT ON SELECT { boardchange GLOBAL boardchange EXEC } ENDSCRIPT ENDDOOR SPOT ID 81 NAME "" OUTLINE 5,366 16,366 16,377 5,377 LOC 133,281 PICTS 36,0,200 ENDPICTS SCRIPT ENDSCRIPT ENDSPOT SPOT ID 150 NAME "" OUTLINE 5,6 16,6 16,14 5,14 LOC 133,102 SCRIPT ;place this in every room ON INCHAT {allscray GLOBAL allscray EXEC} ON OUTCHAT {allscrayCmds GLOBAL allscrayCmds EXEC} ENDSCRIPT ENDSPOT DOOR ID 33 NAME "" DONTMOVEHERE OUTLINE 3,3 101,3 101,34 3,34 LOC 53,20 PICTS 4,0,0 ENDPICTS SCRIPT ON ROLLOVER { 90 0 ME SETPICOPACITY } ON ROLLOUT { 100 0 ME SETPICOPACITY } ON MOUSEDOWN { 80 0 ME SETPICOPACITY } ON MOUSEUP { 90 0 ME SETPICOPACITY } ON SELECT { "http://palacebox.com/" GOTOURL } ENDSCRIPT ENDDOOR ENDROOM ROOM ID 109 NOCYBORGS NOLOOSEPROPS NAME "Connect 4" PICT "cfour1.gif" ARTIST "" PICTURE ID 1 NAME "onep.gif" TRANSCOLOR 0 ENDPICTURE PICTURE ID 2 NAME "c4b.gif" TRANSCOLOR 0 ENDPICTURE PICTURE ID 3 NAME "c4r.gif" TRANSCOLOR 0 ENDPICTURE PICTURE ID 4 NAME "c4bb.gif" TRANSCOLOR 0 ENDPICTURE PICTURE ID 5 NAME "c4rb.gif" TRANSCOLOR 0 ENDPICTURE PICTURE ID 6 NAME "c4br.gif" TRANSCOLOR 0 ENDPICTURE PICTURE ID 8 NAME "c4rr.gif" TRANSCOLOR 0 ENDPICTURE PICTURE ID 9 NAME "c4bbb.gif" TRANSCOLOR 0 ENDPICTURE PICTURE ID 10 NAME "c4rbb.gif" TRANSCOLOR 0 ENDPICTURE PICTURE ID 11 NAME "c4brb.gif" TRANSCOLOR 0 ENDPICTURE PICTURE ID 12 NAME "c4rrb.gif" TRANSCOLOR 0 ENDPICTURE PICTURE ID 13 NAME "c4bbr.gif" TRANSCOLOR 0 ENDPICTURE PICTURE ID 14 NAME "c4rbr.gif" TRANSCOLOR 0 ENDPICTURE PICTURE ID 15 NAME "c4brr.gif" TRANSCOLOR 0 ENDPICTURE PICTURE ID 16 NAME "c4rrr.gif" TRANSCOLOR 0 ENDPICTURE PICTURE ID 17 NAME "twrarr.gif" TRANSCOLOR 0 ENDPICTURE PICTURE ID 7 NAME "pbad.gif" ENDPICTURE SPOT ID 1 NAME "" OUTLINE 161,205 163,205 163,207 161,207 LOC 162,206 PICTS 1,0,0 2,0,0 3,0,0 4,0,0 5,0,0 6,0,0 8,0,0 9,0,0 10,0,0 11,0,0 12,0,0 13,0,0 14,0,0 15,0,0 16,0,0 ENDPICTS SCRIPT ENDSCRIPT ENDSPOT SPOT ID 2 NAME "" OUTLINE 191,205 193,205 193,207 191,207 LOC 192,206 PICTS 1,0,0 2,0,0 3,0,0 4,0,0 5,0,0 6,0,0 8,0,0 9,0,0 10,0,0 11,0,0 12,0,0 13,0,0 14,0,0 15,0,0 16,0,0 ENDPICTS SCRIPT ENDSCRIPT ENDSPOT SPOT ID 3 NAME "" OUTLINE 221,205 223,205 223,207 221,207 LOC 222,206 PICTS 1,0,0 2,0,0 3,0,0 4,0,0 5,0,0 6,0,0 8,0,0 9,0,0 10,0,0 11,0,0 12,0,0 13,0,0 14,0,0 15,0,0 16,0,0 ENDPICTS SCRIPT ENDSCRIPT ENDSPOT SPOT ID 4 NAME "" OUTLINE 251,205 253,205 253,207 251,207 LOC 252,206 PICTS 1,0,0 2,0,0 3,0,0 4,0,0 5,0,0 6,0,0 8,0,0 9,0,0 10,0,0 11,0,0 12,0,0 13,0,0 14,0,0 15,0,0 16,0,0 ENDPICTS SCRIPT ENDSCRIPT ENDSPOT SPOT ID 5 NAME "" OUTLINE 281,205 283,205 283,207 281,207 LOC 282,206 PICTS 1,0,0 2,0,0 3,0,0 4,0,0 5,0,0 6,0,0 8,0,0 9,0,0 10,0,0 11,0,0 12,0,0 13,0,0 14,0,0 15,0,0 16,0,0 ENDPICTS SCRIPT ENDSCRIPT ENDSPOT SPOT ID 6 NAME "" OUTLINE 311,205 313,205 313,207 311,207 LOC 312,206 PICTS 1,0,0 2,0,0 3,0,0 4,0,0 5,0,0 6,0,0 8,0,0 9,0,0 10,0,0 11,0,0 12,0,0 13,0,0 14,0,0 15,0,0 16,0,0 ENDPICTS SCRIPT ENDSCRIPT ENDSPOT SPOT ID 7 NAME "" OUTLINE 341,205 343,205 343,207 341,207 LOC 342,206 PICTS 1,0,0 2,0,0 3,0,0 4,0,0 5,0,0 6,0,0 8,0,0 9,0,0 10,0,0 11,0,0 12,0,0 13,0,0 14,0,0 15,0,0 16,0,0 ENDPICTS SCRIPT ENDSCRIPT ENDSPOT SPOT ID 8 NAME "" OUTLINE 161,115 163,115 163,117 161,117 LOC 162,116 PICTS 1,0,0 2,0,0 3,0,0 4,0,0 5,0,0 6,0,0 8,0,0 9,0,0 10,0,0 11,0,0 12,0,0 13,0,0 14,0,0 15,0,0 16,0,0 ENDPICTS SCRIPT ENDSCRIPT ENDSPOT SPOT ID 9 NAME "" OUTLINE 191,115 193,115 193,117 191,117 LOC 192,116 PICTS 1,0,0 2,0,0 3,0,0 4,0,0 5,0,0 6,0,0 8,0,0 9,0,0 10,0,0 11,0,0 12,0,0 13,0,0 14,0,0 15,0,0 16,0,0 ENDPICTS SCRIPT ENDSCRIPT ENDSPOT SPOT ID 10 NAME "" OUTLINE 221,115 223,115 223,117 221,117 LOC 222,116 PICTS 1,0,0 2,0,0 3,0,0 4,0,0 5,0,0 6,0,0 8,0,0 9,0,0 10,0,0 11,0,0 12,0,0 13,0,0 14,0,0 15,0,0 16,0,0 ENDPICTS SCRIPT ENDSCRIPT ENDSPOT SPOT ID 11 NAME "" OUTLINE 251,115 253,115 253,117 251,117 LOC 252,116 PICTS 1,0,0 2,0,0 3,0,0 4,0,0 5,0,0 6,0,0 8,0,0 9,0,0 10,0,0 11,0,0 12,0,0 13,0,0 14,0,0 15,0,0 16,0,0 ENDPICTS SCRIPT ENDSCRIPT ENDSPOT SPOT ID 12 NAME "" OUTLINE 281,115 283,115 283,117 281,117 LOC 282,116 PICTS 1,0,0 2,0,0 3,0,0 4,0,0 5,0,0 6,0,0 8,0,0 9,0,0 10,0,0 11,0,0 12,0,0 13,0,0 14,0,0 15,0,0 16,0,0 ENDPICTS SCRIPT ENDSCRIPT ENDSPOT SPOT ID 13 NAME "" OUTLINE 311,115 313,115 313,117 311,117 LOC 312,116 PICTS 1,0,0 2,0,0 3,0,0 4,0,0 5,0,0 6,0,0 8,0,0 9,0,0 10,0,0 11,0,0 12,0,0 13,0,0 14,0,0 15,0,0 16,0,0 ENDPICTS SCRIPT ENDSCRIPT ENDSPOT SPOT ID 14 NAME "" OUTLINE 341,115 343,115 343,117 341,117 LOC 342,116 PICTS 1,0,0 2,0,0 3,0,0 4,0,0 5,0,0 6,0,0 8,0,0 9,0,0 10,0,0 11,0,0 12,0,0 13,0,0 14,0,0 15,0,0 16,0,0 ENDPICTS SCRIPT ENDSCRIPT ENDSPOT SPOT ID 15 NAME "board" DONTMOVEHERE OUTLINE 132,32 370,32 370,250 132,250 LOC 251,141 PICTS 1,0,0 17,-90,-95 17,-60,-95 17,-30,-95 17,0,-95 17,30,-95 17,60,-95 17,90,-95 ENDPICTS SCRIPT ;~MediaList~;fhclick ON INCHAT { mytrn GLOBAL { { 1 mytrn = 1 ME SETALARM } { 0 mytrn = 0 ME SETSPOTSTATELOCAL } 18 GETSPOTSTATE 15 + GETSPOTSTATE WHOME == IFELSE } CHATSTR ")fhclick" == IF } ON ALARM { mytrn GLOBAL { MOUSEPOS POP 146 - 30 / x = { 0 x = } x 0 < IF { 6 x = } x 6 > IF x 1 + ME SETSPOTSTATELOCAL 20 ME SETALARM } mytrn IF } ON ENTER { getspot GLOBAL 0 255 0 PENCOLOR 8 PENSIZE { gy = gx = gy 3 < 7 * gx + 1 + gsp = gsp GETSPOTSTATE gsv = gy 3 % gy = { 0 } { [ " 7 9 11 13 " " 3 5 7 8 11 12 " " 1 3 4 7 8 9 10 " ] gy GET " " gsv ITOA & " " & SUBSTR 1 + } gsv [ 7 3 1 ] gy GET < IFELSE } getspot DEF } ON SELECT { getspot GLOBAL mytrn GLOBAL { MOUSEPOS 71 - 30 / y = 146 - 30 / x = -1 y = 0 z = { y ++ x y getspot EXEC z = { 1 z = } y 6 == IF } { z NOT } WHILE y -- { y 3 < 7 * x + 1 + gsp = gsp GETSPOTSTATE gsv = gsv 2 * 3 18 GETSPOTSTATE - + gsp SETSPOTSTATE ;x & y are dropped checker spot 0 win = 0 stale = 18 GETSPOTSTATE colr = ;win detection { EXEC sx = sy = 0 ndl = 0 rdl = colr fcv = { ndl ++ x sx ndl * + lx = y sy ndl * + ly = { lx ly getspot EXEC fcv = } { 0 fcv = } lx 0 >= lx 7 < AND ly 0 >= ly 6 < AND AND IFELSE } { fcv colr == } WHILE ndl -- colr fcv = { rdl ++ x sx rdl * - lx = y sy rdl * - ly = { lx ly getspot EXEC fcv = } { 0 fcv = } lx 0 >= lx 7 < AND ly 0 >= ly 6 < AND AND IFELSE } { fcv colr == } WHILE rdl -- { 1 win = x 30 * 157 + y 30 * 82 + PENPOS sx -30 * rdl * sy -30 * rdl * PENTO sx 30 * rdl ndl + * sy 30 * rdl ndl + * LINETO } ndl rdl + 2 > IF } [ { -1 -1 } { -1 0 } { 1 -1 } { 0 -1 } ] FOREACH { ")applause @240,280 !" USERNAME " has won!" & & ROOMMSG mytrn GLOBAL 0 mytrn = { { cr ++ 0 cr SETSPOTSTATE } { cr 18 < } WHILE ")fhclick" SAY PAINTCLEAR } 200 ALARMEXEC } win IF ;stalemate detection { { GETSPOTSTATE 6 > stale += } [ 8 9 10 11 12 13 14 ] FOREACH stale 6 == x 8 + GETSPOTSTATE 7 < y 0 == AND AND stale 7 == OR stale = { "@240,100 !Stalemate" ROOMMSG { { cr ++ 0 cr SETSPOTSTATE } { cr 18 < } WHILE ")fhclick" SAY "@240,200 Game Over" SAY } 200 ALARMEXEC } stale IF } win NOT IF ;turn over to other player, if game is not ended-- { 3 18 GETSPOTSTATE - 18 SETSPOTSTATE 0 ME SETSPOTSTATELOCAL ")fhclick" SAY 0 mytrn = } win NOT stale NOT AND IF } y -1 > IF } mytrn IF } ; "fhclick.wav-*" ENDSCRIPT ENDSPOT SPOT ID 16 NAME "red" DONTMOVEHERE OUTLINE 133,251 189,251 189,291 133,291 LOC 257,258 SCRIPT ON SELECT { { WHOME ME SETSPOTSTATE "@155,265 " USERNAME " is playing Red." & & ROOMMSG { 1 ME SETALARM } 17 GETSPOTSTATE WHONAME "" != IF } ME GETSPOTSTATE WHONAME "" == IF } ON ALARM { 2 RANDOM pl = "@216,180 !" [ "Red" "Black" ] pl GET " goes first!" & & ROOMMSG pl 1 + 18 SETSPOTSTATE ")fhclick" SAY "fhclick" SOUND } ENDSCRIPT ENDSPOT SPOT ID 17 NAME "black" DONTMOVEHERE OUTLINE 311,251 371,251 371,291 311,291 LOC 309,235 SCRIPT ON SELECT { { WHOME ME SETSPOTSTATE "@340,265 " USERNAME " is playing Black." & & ROOMMSG { 1 16 SETALARM } 16 GETSPOTSTATE WHONAME "" != IF } ME GETSPOTSTATE WHONAME "" == IF } ENDSCRIPT ENDSPOT SPOT ID 18 NAME "" DONTMOVEHERE OUTLINE 189,251 311,251 311,291 189,291 LOC 256,195 SCRIPT ON ENTER { "Script by Foxy, background by Speck, both ©2001" STATUSMSG "For free distribution only!" LOGMSG } ON SELECT { { 16 GETSPOTSTATE WHONAME rn = 17 GETSPOTSTATE WHONAME bn = { { cr ++ 0 cr SETSPOTSTATE } { cr 18 < } WHILE ")fhclick" SAY "Game Reset" ROOMMSG } rn "" == bn "" == OR rn USERNAME == bn USERNAME == OR OR ISWIZARD OR IF } { ;help "Instructions in your log!" STATUSMSG "To start a game, click on the color of checker you want to play." LOGMSG "After both colors have been picked, you will hear one or two clicks, and an announcement as to who is first shows up." LOGMSG "When it is your turn, an arrow appears above the board, following your mouse." LOGMSG "Just move it to the column you want to drop your checker down and click on the board there." LOGMSG "That's it! Wins and stalemates are automatically detected and ended." LOGMSG "To reset the game, click the reset button." LOGMSG "This will work if 1. you are a wizard." LOGMSG "2. you are a player" LOGMSG "3. you are in the room and one or both players from the last game are gone." LOGMSG } MOUSEPOS POP 256 < IFELSE } ENDSCRIPT ENDSPOT SPOT ID 150 NAME "" OUTLINE 5,6 16,6 16,14 5,14 LOC 133,102 SCRIPT ;place this in every room ON INCHAT {allscray GLOBAL allscray EXEC} ON OUTCHAT {allscrayCmds GLOBAL allscrayCmds EXEC} ENDSCRIPT ENDSPOT DOOR ID 19 NAME "" DONTMOVEHERE OUTLINE 3,3 101,3 101,34 3,34 LOC 53,20 PICTS 7,0,0 ENDPICTS SCRIPT ON ROLLOVER { 90 0 ME SETPICOPACITY } ON ROLLOUT { 100 0 ME SETPICOPACITY } ON MOUSEDOWN { 80 0 ME SETPICOPACITY } ON MOUSEUP { 90 0 ME SETPICOPACITY } ON SELECT { "http://palacebox.com/" GOTOURL } ENDSCRIPT ENDDOOR ENDROOM ROOM ID 110 NOCYBORGS NOLOOSEPROPS NAME "XO Puzzle" PICT "foxttt.gif" ARTIST "" PICTURE ID 1 NAME "x.gif" TRANSCOLOR 0 ENDPICTURE PICTURE ID 2 NAME "o.gif" TRANSCOLOR 0 ENDPICTURE PICTURE ID 4 NAME "pbad.gif" ENDPICTURE SPOT ID 1 NAME "" DONTMOVEHERE OUTLINE 150,126 220,126 220,191 150,191 LOC 184,158 PICTS 1,0,0 2,0,0 ENDPICTS SCRIPT ON SELECT{ xos GLOBAL ME xos = 10 SELECT } ON LEAVE { { CLEARLOOSEPROPS PAINTCLEAR } NBRROOMUSERS 2 < IF } ENDSCRIPT ENDSPOT SPOT ID 2 NAME "" DONTMOVEHERE OUTLINE 223,127 289,127 289,192 223,192 LOC 256,160 PICTS 1,0,0 2,0,0 ENDPICTS SCRIPT ON SELECT{ xos GLOBAL ME xos = 10 SELECT } ENDSCRIPT ENDSPOT SPOT ID 3 NAME "" DONTMOVEHERE OUTLINE 293,127 357,127 357,191 293,191 LOC 325,158 PICTS 1,0,0 2,0,0 ENDPICTS SCRIPT ON SELECT{ xos GLOBAL ME xos = 10 SELECT } ENDSCRIPT ENDSPOT SPOT ID 4 NAME "" DONTMOVEHERE OUTLINE 150,195 219,195 219,261 150,261 LOC 185,227 PICTS 1,0,0 2,0,0 ENDPICTS SCRIPT ON SELECT{ xos GLOBAL ME xos = 10 SELECT } ENDSCRIPT ENDSPOT SPOT ID 5 NAME "" DONTMOVEHERE OUTLINE 223,195 289,195 289,262 223,262 LOC 257,229 PICTS 1,0,0 2,0,0 ENDPICTS SCRIPT ON SELECT{ xos GLOBAL ME xos = 10 SELECT } ENDSCRIPT ENDSPOT SPOT ID 6 NAME "" DONTMOVEHERE OUTLINE 293,195 357,195 357,261 293,261 LOC 327,229 PICTS 1,0,0 2,0,0 ENDPICTS SCRIPT ON SELECT{ xos GLOBAL ME xos = 10 SELECT } ENDSCRIPT ENDSPOT SPOT ID 7 NAME "" DONTMOVEHERE OUTLINE 152,265 219,265 219,332 152,332 LOC 186,298 PICTS 1,0,0 2,0,0 ENDPICTS SCRIPT ON SELECT{ xos GLOBAL ME xos = 10 SELECT } ENDSCRIPT ENDSPOT SPOT ID 8 NAME "" DONTMOVEHERE OUTLINE 223,265 289,265 289,331 223,331 LOC 257,299 PICTS 1,0,0 2,0,0 ENDPICTS SCRIPT ON SELECT{ xos GLOBAL ME xos = 10 SELECT } ENDSCRIPT ENDSPOT SPOT ID 9 NAME "" DONTMOVEHERE OUTLINE 293,265 358,265 358,331 293,331 LOC 326,301 PICTS 1,0,0 2,0,0 ENDPICTS SCRIPT ON SELECT{ xos GLOBAL ME xos = 10 SELECT } ENDSCRIPT ENDSPOT SPOT ID 10 NAME "" OUTLINE 6,9 22,9 22,25 6,25 LOC 14,17 SCRIPT ON ENTER{ act GLOBAL 1 act = { sp = sp 5 == sp SETSPOTSTATELOCAL} [ 1 2 3 4 5 6 7 8 9 ] FOREACH "This may look like Tic Tac Toe, but IT'S NOT!" LOCALMSG "Say 'help' for instructions to THIS SOLITAIRE PUZZLE" LOCALMSG } ON SELECT{ act GLOBAL { xos GLOBAL xos GETSPOTSTATE st = { [ [ 1 2 4 5 ] [ 1 2 3 ] [ 2 3 5 6 ] [ 1 4 7 ] [ 2 4 5 6 8 ] [ 3 6 9 ] [ 4 5 7 8 ] [ 7 8 9 ] [ 5 6 8 9 ] ] xos 1 - GET spt = { spo = spo GETSPOTSTATE NOT spo SETSPOTSTATELOCAL } spt FOREACH 0 win = 0 lose = { st = st GETSPOTSTATE lose += {1 win = } st GETSPOTSTATE st 5 == == IF } [1 2 3 4 5 6 7 8 9 ] FOREACH { ")applause !" USERNAME + " is a WINNER!" + ROOMMSG { sp = sp 5 == sp SETSPOTSTATELOCAL} [ 1 2 3 4 5 6 7 8 9 ] FOREACH } 0 win == IF { ")no " USERNAME + " is a LOSER!" + ROOMMSG 1 5 SETSPOTSTATELOCAL } 0 lose == IF } st IF 0 act = 10 ME SETALARM } act IF } ON ALARM {act GLOBAL 1 act = } ON OUTCHAT{ { "Goal of the game: reverse the design, so that you have one X in the middle, surrounded by O's " LOCALMSG "Method: click on any O" LOCALMSG "Each spot reverses cells next to it in a certain pattern." LOCALMSG } CHATSTR "help" == IF } ENDSCRIPT ENDSPOT SPOT ID 12 NAME "" OUTLINE 243,64 259,64 259,80 243,80 LOC 251,72 SCRIPT ENDSCRIPT ENDSPOT SPOT ID 150 NAME "" OUTLINE 5,6 16,6 16,14 5,14 LOC 133,102 SCRIPT ;place this in every room ON INCHAT {allscray GLOBAL allscray EXEC} ON OUTCHAT {allscrayCmds GLOBAL allscrayCmds EXEC} ENDSCRIPT ENDSPOT DOOR ID 11 NAME "" DONTMOVEHERE OUTLINE 3,3 101,3 101,34 3,34 LOC 53,20 PICTS 4,0,0 ENDPICTS SCRIPT ON ROLLOVER { 90 0 ME SETPICOPACITY } ON ROLLOUT { 100 0 ME SETPICOPACITY } ON MOUSEDOWN { 80 0 ME SETPICOPACITY } ON MOUSEUP { 90 0 ME SETPICOPACITY } ON SELECT { "http://palacebox.com/" GOTOURL } ENDSCRIPT ENDDOOR ENDROOM ROOM ID 111 PRIVATE NOLOOSEPROPS NAME "Yahtzee-T" PICT "yahtzeeroom.gif" ARTIST "" PICTURE ID 1 NAME "onept.gif" TRANSCOLOR 0 ENDPICTURE PICTURE ID 2 NAME "dicered1.gif" TRANSCOLOR 0 ENDPICTURE PICTURE ID 3 NAME "dicered2.gif" TRANSCOLOR 0 ENDPICTURE PICTURE ID 4 NAME "dicered3.gif" TRANSCOLOR 0 ENDPICTURE PICTURE ID 5 NAME "dicered4.gif" TRANSCOLOR 0 ENDPICTURE PICTURE ID 6 NAME "dicered5.gif" TRANSCOLOR 0 ENDPICTURE PICTURE ID 7 NAME "dicered6.gif" TRANSCOLOR 0 ENDPICTURE PICTURE ID 8 NAME "yahtholdt.gif" TRANSCOLOR 0 ENDPICTURE PICTURE ID 9 NAME "1mark.gif" TRANSCOLOR 0 ENDPICTURE PICTURE ID 10 NAME "2mark.gif" TRANSCOLOR 0 ENDPICTURE PICTURE ID 11 NAME "3mark.gif" TRANSCOLOR 0 ENDPICTURE PICTURE ID 12 NAME "3xmark.gif" TRANSCOLOR 0 ENDPICTURE PICTURE ID 13 NAME "3light.gif" TRANSCOLOR 0 ENDPICTURE PICTURE ID 14 NAME "dicer1.gif" TRANSCOLOR 0 ENDPICTURE PICTURE ID 15 NAME "dicer2.gif" TRANSCOLOR 0 ENDPICTURE PICTURE ID 16 NAME "dicer3.gif" TRANSCOLOR 0 ENDPICTURE PICTURE ID 17 NAME "unl.gif" ENDPICTURE PICTURE ID 18 NAME "lck.gif" ENDPICTURE PICTURE ID 19 NAME "pbad.gif" ENDPICTURE SPOT ID 1 NAME "" OUTLINE 25,150 55,150 55,177 25,177 LOC 40,162 PICTS 1,0,0 2,0,0 3,0,0 4,0,0 5,0,0 6,0,0 7,0,0 14,0,0 15,0,0 16,0,0 ENDPICTS SCRIPT ENDSCRIPT ENDSPOT SPOT ID 2 NAME "" OUTLINE 66,149 96,149 96,176 66,176 LOC 81,161 PICTS 1,0,0 2,0,0 3,0,0 4,0,0 5,0,0 6,0,0 7,0,0 14,0,0 15,0,0 16,0,0 ENDPICTS SCRIPT ENDSCRIPT ENDSPOT SPOT ID 3 NAME "" OUTLINE 107,150 137,150 137,177 107,177 LOC 122,162 PICTS 1,0,0 2,0,0 3,0,0 4,0,0 5,0,0 6,0,0 7,0,0 14,0,0 15,0,0 16,0,0 ENDPICTS SCRIPT ENDSCRIPT ENDSPOT SPOT ID 4 NAME "" OUTLINE 149,150 179,150 179,177 149,177 LOC 164,162 PICTS 1,0,0 2,0,0 3,0,0 4,0,0 5,0,0 6,0,0 7,0,0 14,0,0 15,0,0 16,0,0 ENDPICTS SCRIPT ENDSCRIPT ENDSPOT SPOT ID 5 NAME "" OUTLINE 190,149 220,149 220,176 190,176 LOC 205,161 PICTS 1,0,0 2,0,0 3,0,0 4,0,0 5,0,0 6,0,0 7,0,0 14,0,0 15,0,0 16,0,0 ENDPICTS SCRIPT ENDSCRIPT ENDSPOT SPOT ID 11 NAME "" DONTMOVEHERE OUTLINE 126,27 180,27 180,43 126,43 LOC 166,36 PICTS 1,0,0 9,0,0 ENDPICTS SCRIPT ON SELECT { dd GLOBAL crv GLOBAL co GLOBAL myturn GLOBAL { dd STRTOATOM EXEC 0 GET crv = ME co = "@167,34 That will give you a score of " crv ITOA & LOCALMSG } myturn ME GETSPOTSTATE NOT AND IF } ENDSCRIPT ENDSPOT SPOT ID 12 NAME "" DONTMOVEHERE OUTLINE 126,44 182,44 182,59 126,59 LOC 166,52 PICTS 1,0,0 9,0,0 ENDPICTS SCRIPT ON SELECT { dd GLOBAL crv GLOBAL co GLOBAL myturn GLOBAL { dd STRTOATOM EXEC 1 GET 2 * crv = ME co = "@167,51 That will give you a score of " crv ITOA & LOCALMSG } myturn ME GETSPOTSTATE NOT AND IF } ENDSCRIPT ENDSPOT SPOT ID 13 NAME "" DONTMOVEHERE OUTLINE 126,60 182,60 182,76 126,76 LOC 166,69 PICTS 1,0,0 9,0,0 ENDPICTS SCRIPT ON SELECT { dd GLOBAL crv GLOBAL co GLOBAL myturn GLOBAL { dd STRTOATOM EXEC 2 GET 3 * crv = ME co = "@167,66 That will give you a score of " crv ITOA & LOCALMSG } myturn ME GETSPOTSTATE NOT AND IF } ENDSCRIPT ENDSPOT SPOT ID 14 NAME "" DONTMOVEHERE OUTLINE 127,77 182,77 182,93 127,93 LOC 165,86 PICTS 1,0,0 9,0,0 ENDPICTS SCRIPT ON SELECT { dd GLOBAL crv GLOBAL co GLOBAL myturn GLOBAL { dd STRTOATOM EXEC 3 GET 4 * crv = ME co = "@167,84 That will give you a score of " crv ITOA & LOCALMSG } myturn ME GETSPOTSTATE NOT AND IF } ENDSCRIPT ENDSPOT SPOT ID 15 NAME "" DONTMOVEHERE OUTLINE 127,94 182,94 182,110 127,110 LOC 164,103 PICTS 1,0,0 9,0,0 ENDPICTS SCRIPT ON SELECT { dd GLOBAL crv GLOBAL co GLOBAL myturn GLOBAL { dd STRTOATOM EXEC 4 GET 5 * crv = ME co = "@167,100 That will give you a score of " crv ITOA & LOCALMSG } myturn ME GETSPOTSTATE NOT AND IF } ENDSCRIPT ENDSPOT SPOT ID 16 NAME "" DONTMOVEHERE OUTLINE 126,111 182,111 182,126 126,126 LOC 162,119 PICTS 1,0,0 9,0,0 ENDPICTS SCRIPT ON SELECT { dd GLOBAL crv GLOBAL co GLOBAL myturn GLOBAL { dd STRTOATOM EXEC 5 GET 6 * crv = ME co = "@167,117 That will give you a score of " crv ITOA & LOCALMSG } myturn ME GETSPOTSTATE NOT AND IF } ENDSCRIPT ENDSPOT SPOT ID 17 NAME "" DONTMOVEHERE OUTLINE 333,11 389,11 389,26 333,26 LOC 363,19 PICTS 1,0,0 9,0,0 ENDPICTS SCRIPT ON SELECT { dd GLOBAL crv GLOBAL co GLOBAL dt GLOBAL myturn GLOBAL { dd STRTOATOM EXEC ddav = 0 crv = { tdv = { dt crv = } tdv 2 > IF } ddav FOREACH ME co = "@375,18 That will give you a score of " crv ITOA & LOCALMSG } myturn ME GETSPOTSTATE NOT AND IF } ENDSCRIPT ENDSPOT SPOT ID 18 NAME "" DONTMOVEHERE OUTLINE 333,28 389,28 389,44 333,44 LOC 363,36 PICTS 1,0,0 9,0,0 ENDPICTS SCRIPT ON SELECT { dd GLOBAL crv GLOBAL co GLOBAL dt GLOBAL myturn GLOBAL { dd STRTOATOM EXEC ddav = 0 crv = { tdv = { dt crv = } tdv 3 > IF } ddav FOREACH ME co = "@375,33 That will give you a score of " crv ITOA & LOCALMSG } myturn ME GETSPOTSTATE NOT AND IF } ENDSCRIPT ENDSPOT SPOT ID 19 NAME "" DONTMOVEHERE OUTLINE 332,45 389,45 388,60 333,60 LOC 363,53 PICTS 1,0,0 9,0,0 ENDPICTS SCRIPT ON SELECT { dd GLOBAL crv GLOBAL co GLOBAL dt GLOBAL myturn GLOBAL { dd "[145]" GREPSTR NOT 25 * crv = ME co = "@375,51 That will give you a score of " crv ITOA & LOCALMSG } myturn ME GETSPOTSTATE NOT AND IF } ENDSCRIPT ENDSPOT SPOT ID 20 NAME "" DONTMOVEHERE OUTLINE 332,61 389,61 389,76 332,76 LOC 365,69 PICTS 1,0,0 9,0,0 ENDPICTS SCRIPT ON SELECT { dd GLOBAL crv GLOBAL co GLOBAL dt GLOBAL myturn GLOBAL { dd " [12] [12] [12] [12] " GREPSTR 30 * crv = ME co = "@375,67 That will give you a score of " crv ITOA & LOCALMSG } myturn ME GETSPOTSTATE NOT AND IF } ENDSCRIPT ENDSPOT SPOT ID 21 NAME "" DONTMOVEHERE OUTLINE 331,77 389,77 387,92 333,92 LOC 365,85 PICTS 1,0,0 9,0,0 ENDPICTS SCRIPT ON SELECT { dd GLOBAL crv GLOBAL co GLOBAL dt GLOBAL myturn GLOBAL { dd " 1 1 1 1 1 " GREPSTR 40 * crv = ME co = "@375,82 That will give you a score of " crv ITOA & LOCALMSG } myturn ME GETSPOTSTATE NOT AND IF } ENDSCRIPT ENDSPOT SPOT ID 22 NAME "" DONTMOVEHERE OUTLINE 334,110 388,110 388,125 334,125 LOC 363,118 PICTS 1,0,0 9,0,0 ENDPICTS SCRIPT ON SELECT { dd GLOBAL crv GLOBAL co GLOBAL dt GLOBAL myturn GLOBAL { dt crv = ME co = "@375,117 That will give you a score of " crv ITOA & LOCALMSG } myturn ME GETSPOTSTATE NOT AND IF } ENDSCRIPT ENDSPOT SPOT ID 23 NAME "" DONTMOVEHERE OUTLINE 332,93 388,93 388,108 334,108 LOC 361,101 PICTS 1,0,0 9,0,0 10,0,0 11,0,0 12,0,0 12,0,0 12,0,0 12,0,0 12,0,0 12,0,0 12,0,0 12,0,0 12,0,0 ENDPICTS SCRIPT ON SELECT { yhtz GLOBAL co GLOBAL dd GLOBAL myturn GLOBAL crv GLOBAL mysc GLOBAL btt GLOBAL { dd "5" SUBSTR yts = { { "Sorry, you zeroed out your yahtzee line earlier- you are ineligible for a bonus." LOCALMSG } yts yhtz 0 < AND IF { ")applause " USERNAME " collects a Yahtzee bonus!" & & ROOMMSG "@511,0 Joker rules-- you get to score it on a regular line as well!" LOCALMSG 100 mysc += ME GETSPOTSTATE 1 + ME SETSPOTSTATE 1 btt = yhtz ++ } yts yhtz 0 > AND btt NOT AND IF } { ;yahtzee for the first time, -1 if yts is 0, 1 if yts is 1 yts 50 * crv = ME co = "@375,101 This will score you a " crv ITOA & LOCALMSG { "!WARNING: zeroing out this box makes you ineligible for yahtzee bonuses!" LOCALMSG } crv NOT IF } yhtz IFELSE } myturn IF } ENDSCRIPT ENDSPOT SPOT ID 10 NAME "" DONTMOVEHERE OUTLINE 182,140 226,139 227,184 182,184 LOC 205,162 PICTS 1,0,0 8,0,0 ENDPICTS SCRIPT ON SELECT { myturn GLOBAL { ME GETSPOTSTATE NOT ME SETSPOTSTATE } myturn 26 GETSPOTSTATE AND IF } ENDSCRIPT ENDSPOT SPOT ID 9 NAME "" DONTMOVEHERE OUTLINE 141,141 185,140 186,185 141,185 LOC 164,162 PICTS 1,0,0 8,0,0 ENDPICTS SCRIPT ON SELECT { myturn GLOBAL { ME GETSPOTSTATE NOT ME SETSPOTSTATE } myturn 26 GETSPOTSTATE AND IF } ENDSCRIPT ENDSPOT SPOT ID 8 NAME "" DONTMOVEHERE OUTLINE 99,141 143,140 144,185 99,185 LOC 122,162 PICTS 1,0,0 8,0,0 ENDPICTS SCRIPT ON SELECT { myturn GLOBAL { ME GETSPOTSTATE NOT ME SETSPOTSTATE } myturn 26 GETSPOTSTATE AND IF } ENDSCRIPT ENDSPOT SPOT ID 7 NAME "" DONTMOVEHERE OUTLINE 58,140 102,139 103,184 58,184 LOC 81,162 PICTS 1,0,0 8,0,0 ENDPICTS SCRIPT ON SELECT { myturn GLOBAL { ME GETSPOTSTATE NOT ME SETSPOTSTATE } myturn 26 GETSPOTSTATE AND IF } ENDSCRIPT ENDSPOT SPOT ID 6 NAME "" DONTMOVEHERE OUTLINE 17,141 61,140 62,185 17,185 LOC 40,162 PICTS 1,0,0 8,0,0 ENDPICTS SCRIPT ON SELECT { myturn GLOBAL { ME GETSPOTSTATE NOT ME SETSPOTSTATE } myturn 26 GETSPOTSTATE AND IF } ENDSCRIPT ENDSPOT SPOT ID 24 NAME "Start Game" DONTMOVEHERE OUTLINE 419,10 498,10 498,45 419,45 LOC 459,27 SCRIPT ON ENTER { { "A game of yahtzee is currently being played- click play to join!" LOCALMSG } ME GETSPOTSTATE WHONAME "." GREPSTR IF { 0 ME SETSPOTSTATE } ME GETSPOTSTATE WHOME == IF { POSX 160 RANDOM 224 + SETPOS } POSY 225 < IF } ON SELECT { ref GLOBAL plyrs GLOBAL ad GLOBAL hsc GLOBAL phsc GLOBAL { { "A game is currently in session. Click play to join." LOCALMSG } { "Resetting game, click again to start a new one." LOCALMSG 0 ME SETSPOTSTATE ";Ÿ5" SAY { cr ++ 0 cr SETSPOTSTATE } { cr 23 < } WHILE } ME GETSPOTSTATE WHONAME "." GREPSTR IFELSE } { WHOME ME SETSPOTSTATE 1 ref = "" plyrs = "-" ad = 0 hsc = "" phsc = USERNAME " has started a game of Yahtzee! Click play to join!" & ROOMMSG "@511,0" USERNAME & ", click the roll button to start play after everyone joins." & LOCALMSG } ME GETSPOTSTATE IFELSE } ON INCHAT { ref GLOBAL plyrs GLOBAL phsc GLOBAL hsc GLOBAL { { DUP GLOBAL 0 SWAP = } [ ref rollt crv mysc ut yhtz plyrs ckbxs myturn co phsc hsc btt ] FOREACH "" plyrs = } CHATSTR ";Ÿ5" == IF { 0 ref = "" plyrs = "" phsc = 0 hsc = } ref WHOME ME GETSPOTSTATE <> AND IF } ON OUTCHAT { { "" CHATSTR = } CHATSTR "^;Ÿ" GREPSTR IF } ON ALARM { plyrs GLOBAL hsc GLOBAL phsc GLOBAL ref GLOBAL { { "@0,100 !Game over!" ROOMMSG { "@100,100 ..and our winner is: " ROOMMSG "@160,160 )applause !" phsc & "!!" & ROOMMSG } hsc IF 0 ref = 1 sp = { 0 sp SETSPOTSTATE sp ++ } { sp 25 < } WHILE { ";Ÿ5" SAY } 60 ALARMEXEC } plyrs "." GREPSTR NOT IF } ref IF } ENDSCRIPT ENDSPOT SPOT ID 25 NAME "PLAY" DONTMOVEHERE OUTLINE 326,139 388,139 388,188 326,188 LOC 356,163 SCRIPT ;~MediaList~;dice2 ON ENTER { ad GLOBAL "" ad = "Script by Foxy, ©2000 Graphics by Torn ©2000" STATUSMSG "For free distribution only!" LOGMSG } ON OUTCHAT { ref GLOBAL plyrs GLOBAL { "" CHATSTR = plyrs "^(.*)-[0-9+]-$" GREPSTR POP "$1" GREPSUB plyrs = 1 25 SETALARM } ref CHATSTR "remove player" == AND IF } ON SELECT { myturn GLOBAL btt GLOBAL { co GLOBAL crv GLOBAL mysc GLOBAL ut GLOBAL ckbxs GLOBAL dd GLOBAL yhtz GLOBAL { crv mysc += "I have a score of " mysc ITOA & SAY 0 btt = { crv ut += } co 17 < IF { 1 co SETSPOTSTATE } co 23 < IF { 1 co SETSPOTSTATE dd "5" SUBSTR 2 * 1 - yhtz = } co 23 == yhtz NOT AND IF 10 cs = 0 ckbxs = 1 vl = { cs ++ cs GETSPOTSTATE ckd = { 1 ckd = } cs co == IF { vl ckbxs += } ckd IF 2 vl *= } { cs 22 < } WHILE 0 myturn = { ";Ÿ3" SAY } { { 35 mysc += "@400,150 !UPPER TABLE BONUS!" LOCALMSG } ut 62 > IF ";Ÿ4" WHOME ITOA & "-" & mysc ITOA & SAY { DUP GLOBAL 0 SWAP = } [ rollt crv mysc ut yhtz ckbxs myturn co ] FOREACH } ckbxs 4095 < yhtz NOT OR IFELSE } co IF } { ";Ÿ1" SAY "dice2" SOUND } myturn IFELSE } ON INCHAT { ref GLOBAL plyrs GLOBAL ad GLOBAL mysc GLOBAL ckbxs GLOBAL ut GLOBAL yhtz GLOBAL plyrs GLOBAL hsc GLOBAL phsc GLOBAL ad "." GREPSTR stt = { "-" WHOCHAT ITOA & "-" & ad = { "You're already in the game, " WHOCHAT WHONAME & WHOCHAT PRIVATEMSG } { WHOCHAT WHONAME " has joined the game!" & ROOMMSG ";Ÿ2" WHOCHAT ITOA & WHOCHAT PRIVATEMSG plyrs ad & plyrs = } plyrs ad SUBSTR IFELSE { "" ad = } stt NOT IF } CHATSTR ";Ÿ1" == ref AND IF { ;initialize variables to play 0 mysc = 0 ckbxs = 0 ut = 0 yhtz = } CHATSTR ";Ÿ2" WHOME ITOA & == IF { 90 ME SETALARM } ";Ÿ3" CHATSTR == ref AND IF { "-$1-" GREPSUB pq = "$2" GREPSUB ATOI ps = ")applause !" "$1" GREPSUB ATOI WHONAME " has finished with a final score of " & & "$2!" GREPSUB & ROOMMSG { "@150,0 !New high score for the game!" ROOMMSG "$1" GREPSUB ATOI WHONAME phsc = ps hsc = } ps hsc > IF plyrs "^(.*)" pq & "(.*)$" & GREPSTR POP "$1$2" GREPSUB plyrs = 60 24 SETALARM 120 ME SETALARM } CHATSTR "^;Ÿ4([0-9]+)-([0-9]+)$" GREPSTR ref AND IF { { "$1$2" GREPSUB plyrs = WHOCHAT WHONAME " has left the game." & ROOMMSG { 1 ME SETALARM } "$2" GREPSUB "" == IF } plyrs "^(.*)-" WHOCHAT ITOA "-(.*)$" & & GREPSTR IF } CHATSTR ";Ÿ6" == ref AND IF } ON ALARM { plyrs GLOBAL plyrs "^-([0-9]+)-(.*)$" GREPSTR POP "$1" GREPSUB cp = "$2" GREPSUB oth = { oth GREPSUB plyrs = plyrs "^-([0-9]+)-(.*)$" GREPSTR POP "$1" GREPSUB cp = "$2" GREPSUB oth = } { cp ATOI WHONAME "." GREPSTR NOT plyrs "" == NOT AND } WHILE { "@" cp ATOI WHOPOS ITOA SWAP ITOA " " & SWAP & & cp ATOI WHONAME " is up!" & & ROOMMSG ";Ÿ3" cp & cp ATOI PRIVATEMSG oth "-" & cp & "-" & plyrs = } { 30 24 SETALARM } plyrs "" == NOT IFELSE } ON LEAVE { ";Ÿ6" SAY } ENDSCRIPT ENDSPOT SPOT ID 26 NAME "Roll" DONTMOVEHERE OUTLINE 251,139 314,139 314,187 251,187 LOC 283,163 PICTS 13,173,16 13,208,16 13,243,16 1,0,0 ENDPICTS SCRIPT ON ENTER { { DUP GLOBAL 0 SWAP = } [ ref rollt crv mysc ut yhtz plyrs ckbxs myturn co ] FOREACH } ON SELECT { ref GLOBAL ad GLOBAL rollt GLOBAL crv GLOBAL myturn GLOBAL { "" ad = 1 25 SETALARM } { { { ME GETSPOTSTATE 1 + ME SETSPOTSTATE 6 rollt = 0 crv = 1 ME SETALARM }ME GETSPOTSTATE 3 < IF } myturn IF } ref ad ".." GREPSTR AND IFELSE } ON INCHAT { mysc GLOBAL ckbxs GLOBAL ut GLOBAL yhtz GLOBAL rollt GLOBAL myturn GLOBAL co GLOBAL btt GLOBAL { { 0 SWAP SETSPOTSTATE } [ 6 7 8 9 10 ] FOREACH 1 myturn = 11 sp = ckbxs tckbxs = { tckbxs DUP 2 / 2 * - sp SETSPOTSTATE 2 tckbxs /= sp ++ } { sp 23 < } WHILE { 1 23 SETSPOTSTATE { yhtz 23 SETSPOTSTATE } yhtz 1 > IF } { 0 23 SETSPOTSTATE } yhtz IFELSE 0 ME SETSPOTSTATE 0 crv = 0 co = { 0 SWAP SETSPOTSTATE } [ 1 2 3 4 5 ] FOREACH 1 btt = } ";Ÿ3" WHOME ITOA & CHATSTR == IF } ON ALARM { rollt GLOBAL dd GLOBAL dt GLOBAL crv GLOBAL 0 crv = co GLOBAL 0 co = { ")dice2" SAY } rollt 6 == IF { 0 cr = rollt -- { cr ++ { 7 rollt cr + DUP 3 / 3 * - + cr SETSPOTSTATE } cr 5 + GETSPOTSTATE NOT IF } { cr 5 < } WHILE 30 ME SETALARM } { 1 27 SETALARM } rollt IFELSE } ENDSCRIPT ENDSPOT SPOT ID 27 NAME "Quit" DONTMOVEHERE OUTLINE 418,107 497,107 497,139 418,139 LOC 459,122 SCRIPT ON SELECT { ref GLOBAL ";Ÿ6" SAY { { DUP GLOBAL 0 SWAP = } [ rollt crv mysc ut yhtz ckbxs myturn co btt ] FOREACH } {";Ÿ5" WHOME PRIVATEMSG } ref IFELSE } ON ALARM { dt GLOBAL dd GLOBAL 0 dt = [ 0 0 0 0 0 0 ] dd = { dc = dc 5 + GETSPOTSTATE lck = { 6 RANDOM 1 + dv = dv dc SETSPOTSTATE } { dc GETSPOTSTATE dv = } lck NOT IFELSE dv dt += dd dv 1 - GET 1 + dd dv 1 - PUT } [ 1 2 3 4 5 ] FOREACH "[ " { ITOA + " " + } dd FOREACH " ]" & dd = { "@105,268 )applause !YAHTZEE!!" ROOMMSG btt GLOBAL 0 btt = } dd "5" SUBSTR IF } ENDSCRIPT ENDSPOT SPOT ID 28 NAME "Instructions" DONTMOVEHERE OUTLINE 416,58 497,58 497,91 416,91 LOC 457,75 SCRIPT ON SELECT { "Instructions are in your log" STATUSMSG "To start a Yahtzee game, one person clicks on the start game button and becomes the referee." LOGMSG "Everyone who wants to play- including the referee- clicks on the Play button to join the game." LOGMSG "When everyone has joined, the referee clicks the Roll button to start play." LOGMSG "Anyone can join at any time by clicking play." LOGMSG "Anyone who wants to quit can click the quit button to do so." LOGMSG "Anyone who leaves the room automatically quits!" LOGMSG "Referees- if the player whose turn it is is dead, not there, or for whatever reason, say \x22remove player\x22 to drop them from the game." LOGMSG "If the referee leaves the room, the game is over!" LOGMSG "Click on the start game button to reset the game if that happens." LOGMSG "When play starts, the person whose turn it is clicks roll to roll for the first time and get their dice." LOGMSG "You lock and unlock the dice by clicking on them, locked dice are marked." LOGMSG "Click on the score sheet in the lighter green box you want to score in, or click roll up to twice more." LOGMSG "When you click on the score sheet, it tells you what you'll score with that option. If you like it, click Play to score that and finish your turn." LOGMSG "Scoring YAHTZEES- you score your first yahtzee the same way you score other scores, by clicking on yahtzee and then play. Score Yahtzee bonuses automatically by first clicking on Yahtzee when you roll one." LOGMSG "When someone fills out their score card, they automatically give their final score." LOGMSG "Stick around after you're through- the referee remembers the highest score, and will announce it when everyone finishes!" LOGMSG "Players can click play to rejoin an ongoing game after they finish. In that case the game continues until everyone either quits or finishes their game." LOGMSG "NOTE: it is highly recommended that the referee have the new palace client!" LOGMSG } ENDSCRIPT ENDSPOT DOOR LOCKABLE ID 44 NAME "" DONTMOVEHERE OUTLINE 487,6 507,6 507,25 487,25 LOC 497,15 PICTS 17,0,0 18,0,0 ENDPICTS SCRIPT ON SELECT { { ME UNLOCK } { ME LOCK } ME ISLOCKED IFELSE } ENDSCRIPT ENDDOOR SPOT ID 150 NAME "" OUTLINE 5,6 16,6 16,14 5,14 LOC 133,102 SCRIPT ;place this in every room ON INCHAT {allscray GLOBAL allscray EXEC} ON OUTCHAT {allscrayCmds GLOBAL allscrayCmds EXEC} ENDSCRIPT ENDSPOT DOOR ID 30 NAME "" DONTMOVEHERE OUTLINE 0,350 98,350 98,381 0,381 LOC 50,367 PICTS 19,0,0 ENDPICTS SCRIPT ON ROLLOVER { 90 0 ME SETPICOPACITY } ON ROLLOUT { 100 0 ME SETPICOPACITY } ON MOUSEDOWN { 80 0 ME SETPICOPACITY } ON MOUSEUP { 90 0 ME SETPICOPACITY } ON SELECT { "http://palacebox.com/" GOTOURL } ENDSCRIPT ENDDOOR ENDROOM ROOM ID 6010 PRIVATE NOPAINTING NOCYBORGS NAME "Yahtzee" PICT "wheninromeyathzee.jpg" PICTURE ID 1 NAME "onept.gif" TRANSCOLOR 0 ENDPICTURE PICTURE ID 2 NAME "dicewhite1.png" TRANSCOLOR 0 ENDPICTURE PICTURE ID 3 NAME "dicewhite2.png" TRANSCOLOR 0 ENDPICTURE PICTURE ID 4 NAME "dicewhite3.png" TRANSCOLOR 0 ENDPICTURE PICTURE ID 5 NAME "dicewhite4.png" TRANSCOLOR 0 ENDPICTURE PICTURE ID 6 NAME "dicewhite5.png" TRANSCOLOR 0 ENDPICTURE PICTURE ID 7 NAME "dicewhite6.png" TRANSCOLOR 0 ENDPICTURE PICTURE ID 8 NAME "diceholdw.png" TRANSCOLOR 0 ENDPICTURE PICTURE ID 9 NAME "1pinkmark.png" TRANSCOLOR 0 ENDPICTURE PICTURE ID 10 NAME "2pinkmark.png" TRANSCOLOR 0 ENDPICTURE PICTURE ID 11 NAME "3pinkmark.png" TRANSCOLOR 0 ENDPICTURE PICTURE ID 12 NAME "3xpinkmark.png" TRANSCOLOR 0 ENDPICTURE PICTURE ID 13 NAME "pink4.png" TRANSCOLOR 0 ENDPICTURE PICTURE ID 14 NAME "rolldice1w.png" TRANSCOLOR 0 ENDPICTURE PICTURE ID 15 NAME "rolldice2w.png" TRANSCOLOR 0 ENDPICTURE PICTURE ID 16 NAME "rolldice3w.png" TRANSCOLOR 0 ENDPICTURE PICTURE ID 17 NAME "pink1.png" TRANSCOLOR 0 ENDPICTURE PICTURE ID 18 NAME "pink2.png" TRANSCOLOR 0 ENDPICTURE PICTURE ID 19 NAME "pink3.png" TRANSCOLOR 0 ENDPICTURE SPOT ID 1 NAME "" OUTLINE 702,123 732,123 732,150 702,150 LOC 717,135 PICTS 1,0,0 2,0,0 3,0,0 4,-1,1 5,0,0 6,0,0 7,-3,0 14,0,0 15,0,0 16,0,0 ENDPICTS ENDSPOT SPOT ID 2 NAME "" OUTLINE 644,124 674,124 674,151 644,151 LOC 659,136 PICTS 1,0,0 2,0,0 3,0,0 4,0,0 5,0,0 6,0,0 7,0,0 14,0,0 15,0,0 16,0,0 ENDPICTS ENDSPOT SPOT ID 3 NAME "" OUTLINE 586,124 616,124 616,151 586,151 LOC 601,136 PICTS 1,0,0 2,0,0 3,0,0 4,0,0 5,0,0 6,0,0 7,0,0 14,0,0 15,0,0 16,0,0 ENDPICTS ENDSPOT SPOT ID 4 NAME "" OUTLINE 528,124 558,124 558,151 528,151 LOC 543,136 PICTS 1,0,0 2,0,0 3,0,0 4,0,0 5,0,0 6,0,0 7,0,0 14,0,0 15,0,0 16,0,0 ENDPICTS ENDSPOT SPOT ID 5 NAME "" OUTLINE 473,125 503,125 503,152 473,152 LOC 488,137 PICTS 1,0,0 2,0,0 3,0,0 4,0,0 5,0,0 6,0,0 7,0,0 14,0,0 15,0,0 16,0,0 ENDPICTS ENDSPOT SPOT ID 6 NAME "" OUTLINE 752,122 782,122 782,149 752,149 LOC 768,134 PICTS 1,0,0 2,0,0 3,0,0 4,0,0 5,0,0 6,0,0 7,0,0 14,0,0 15,0,0 16,0,0 ENDPICTS ENDSPOT SPOT ID 13 NAME "" DONTMOVEHERE OUTLINE 42,21 191,22 191,42 42,40 LOC 117,31 PICTS 1,35,1 9,35,0 ENDPICTS SCRIPT ON SELECT { dd GLOBAL crv GLOBAL co GLOBAL myturn GLOBAL { dd STRTOATOM EXEC 0 GET crv = ME co = "@135,30 That will give you a score of " crv ITOA & LOCALMSG } myturn ME GETSPOTSTATE NOT AND IF } ENDSCRIPT ENDSPOT SPOT ID 14 NAME "" DONTMOVEHERE OUTLINE 45,43 189,44 190,61 44,61 LOC 118,52 PICTS 1,33,3 9,34,0 ENDPICTS SCRIPT ON SELECT { dd GLOBAL crv GLOBAL co GLOBAL myturn GLOBAL { dd STRTOATOM EXEC 1 GET 2 * crv = ME co = "@135,50 That will give you a score of " crv ITOA & LOCALMSG } myturn ME GETSPOTSTATE NOT AND IF } ENDSCRIPT ENDSPOT SPOT ID 15 NAME "" DONTMOVEHERE OUTLINE 44,65 189,66 189,87 44,87 LOC 116,73 PICTS 1,35,3 9,35,-1 ENDPICTS SCRIPT ON SELECT { dd GLOBAL crv GLOBAL co GLOBAL myturn GLOBAL { dd STRTOATOM EXEC 2 GET 3 * crv = ME co = "@135,75 That will give you a score of " crv ITOA & LOCALMSG } myturn ME GETSPOTSTATE NOT AND IF } ENDSCRIPT ENDSPOT SPOT ID 16 NAME "" DONTMOVEHERE OUTLINE 27,88 167,88 167,106 27,105 LOC 99,99 PICTS 1,51,-2 9,52,-6 ENDPICTS SCRIPT ON SELECT { dd GLOBAL crv GLOBAL co GLOBAL myturn GLOBAL { dd STRTOATOM EXEC 3 GET 4 * crv = ME co = "@135,95 That will give you a score of " crv ITOA & LOCALMSG } myturn ME GETSPOTSTATE NOT AND IF } ENDSCRIPT ENDSPOT SPOT ID 17 NAME "" DONTMOVEHERE OUTLINE 24,107 165,107 167,127 24,125 LOC 94,118 PICTS 1,56,-1 9,57,-3 ENDPICTS SCRIPT ON SELECT { dd GLOBAL crv GLOBAL co GLOBAL myturn GLOBAL { dd STRTOATOM EXEC 4 GET 5 * crv = ME co = "@135,115 That will give you a score of " crv ITOA & LOCALMSG } myturn ME GETSPOTSTATE NOT AND IF } ENDSCRIPT ENDSPOT SPOT ID 18 NAME "" DONTMOVEHERE OUTLINE 25,129 172,129 172,149 25,148 LOC 100,137 PICTS 1,50,3 9,51,0 ENDPICTS SCRIPT ON SELECT { dd GLOBAL crv GLOBAL co GLOBAL myturn GLOBAL { dd STRTOATOM EXEC 5 GET 6 * crv = ME co = "@135,140 That will give you a score of " crv ITOA & LOCALMSG } myturn ME GETSPOTSTATE NOT AND IF } ENDSCRIPT ENDSPOT SPOT ID 19 NAME "" DONTMOVEHERE OUTLINE 196,22 348,22 348,41 197,40 LOC 271,31 PICTS 1,29,0 9,28,-1 ENDPICTS SCRIPT ON SELECT { dd GLOBAL crv GLOBAL co GLOBAL dt GLOBAL myturn GLOBAL { dd "[3456]" GREPSTR dt * crv = ME co = "@280,30 That will give you a score of " crv ITOA & LOCALMSG } myturn ME GETSPOTSTATE NOT AND IF } ENDSCRIPT ENDSPOT SPOT ID 20 NAME "" DONTMOVEHERE OUTLINE 194,42 341,43 342,59 194,59 LOC 265,52 PICTS 1,35,0 9,34,0 ENDPICTS SCRIPT ON SELECT { dd GLOBAL crv GLOBAL co GLOBAL dt GLOBAL myturn GLOBAL { dd "[456]" GREPSTR dt * crv = ME co = "@280,50 That will give you a score of " crv ITOA & LOCALMSG } myturn ME GETSPOTSTATE NOT AND IF } ENDSCRIPT ENDSPOT SPOT ID 21 NAME "" DONTMOVEHERE OUTLINE 191,64 338,64 339,81 190,79 LOC 261,75 PICTS 1,0,0 9,38,0 ENDPICTS SCRIPT ON SELECT { dd GLOBAL crv GLOBAL co GLOBAL dt GLOBAL myturn GLOBAL { dd "[56]" GREPSTR dt * crv = ME co = "@280,70 That will give you a score of " crv ITOA & LOCALMSG } myturn ME GETSPOTSTATE NOT AND IF } ENDSCRIPT ENDSPOT SPOT ID 22 NAME "" DONTMOVEHERE OUTLINE 191,85 337,85 339,103 191,102 LOC 266,93 PICTS 1,33,2 9,32,4 ENDPICTS SCRIPT ON SELECT { dd GLOBAL crv GLOBAL co GLOBAL dt GLOBAL myturn GLOBAL { dd "3.*3" GREPSTR 35 * crv = ME co = "@280,93 That will give you a score of " crv ITOA & LOCALMSG } myturn ME GETSPOTSTATE NOT AND IF } ENDSCRIPT ENDSPOT SPOT ID 23 NAME "" DONTMOVEHERE OUTLINE 191,107 338,107 340,125 192,125 LOC 267,115 PICTS 1,31,0 9,30,3 ENDPICTS SCRIPT ON SELECT { dd GLOBAL crv GLOBAL co GLOBAL dt GLOBAL myturn GLOBAL { dd "4" SUBSTR dd "2" SUBSTR AND 35 * crv = ME co = "@280,115 That will give you a score of " crv ITOA & LOCALMSG } myturn ME GETSPOTSTATE NOT AND IF } ENDSCRIPT ENDSPOT SPOT ID 24 NAME "" DONTMOVEHERE OUTLINE 189,150 341,152 342,171 190,169 LOC 268,160 PICTS 1,33,0 9,29,-1 ENDPICTS SCRIPT ON SELECT { dd GLOBAL crv GLOBAL co GLOBAL dt GLOBAL myturn GLOBAL { dt crv = ME co = "@280,160 That will give you a score of " crv ITOA & LOCALMSG } myturn ME GETSPOTSTATE NOT AND IF } ENDSCRIPT ENDSPOT SPOT ID 25 NAME "" DONTMOVEHERE OUTLINE 344,59 493,60 495,78 346,77 LOC 421,71 PICTS 1,5,-4 9,1,-4 ENDPICTS SCRIPT ON SELECT { dd GLOBAL crv GLOBAL co GLOBAL dt GLOBAL myturn GLOBAL { dd " [123] [123] [123] [123] " GREPSTR 25 * crv = ME co = "@400,65 That will give you a score of " crv ITOA & LOCALMSG } myturn ME GETSPOTSTATE NOT AND IF } ENDSCRIPT ENDSPOT SPOT ID 26 NAME "" DONTMOVEHERE OUTLINE 346,81 491,81 493,99 344,100 LOC 423,94 PICTS 1,2,-5 9,-2,-6 ENDPICTS SCRIPT ON SELECT { dd GLOBAL crv GLOBAL co GLOBAL dt GLOBAL myturn GLOBAL { dd " [12] [12] [12] [12] [12] " GREPSTR 40 * crv = ME co = "@400,90 That will give you a score of " crv ITOA & LOCALMSG } myturn ME GETSPOTSTATE NOT AND IF } ENDSCRIPT ENDSPOT SPOT ID 27 NAME "" DONTMOVEHERE OUTLINE 350,102 496,102 500,123 350,121 LOC 424,118 PICTS 1,1,-8 9,-3,-8 ENDPICTS SCRIPT ON SELECT { dd GLOBAL crv GLOBAL co GLOBAL dt GLOBAL myturn GLOBAL { dd " 1 1 1 1 1 1 " GREPSTR 50 * crv = ME co = "@400,110 That will give you a score of " crv ITOA & LOCALMSG } myturn ME GETSPOTSTATE NOT AND IF } ENDSCRIPT ENDSPOT SPOT ID 28 NAME "" DONTMOVEHERE OUTLINE 189,128 341,129 341,148 188,147 LOC 266,140 PICTS 1,31,-4 9,30,-1 10,0,0 11,0,0 12,0,0 12,0,0 12,0,0 12,0,0 12,0,0 12,0,0 12,0,0 12,0,0 12,0,0 12,0,0 12,0,0 12,0,0 ENDPICTS SCRIPT ON SELECT { yhtz GLOBAL co GLOBAL dd GLOBAL myturn GLOBAL crv GLOBAL mysc GLOBAL btt GLOBAL { dd "6" SUBSTR yts = { { "Sorry, you zeroed out your Yahtzee-6 line earlier- you are ineligible for a bonus." LOCALMSG } yts yhtz 0 < AND IF { ")applause " USERNAME " collects a Yahtzee-6 bonus!" & & ROOMMSG "@511,0 Joker rules-- you get to score it on a regular line as well!" LOCALMSG 200 mysc += ME GETSPOTSTATE 1 + ME SETSPOTSTATE 1 btt = yhtz ++ } yts yhtz 0 > AND btt NOT AND IF } { ;yahtzee for the first time, -1 if yts is 0, 1 if yts is 1 yts 100 * crv = ME co = "@280,135 This will score you a " crv ITOA & LOCALMSG { "!WARNING: zeroing out this box makes you ineligible for Yahtzee-6 bonuses!" LOCALMSG } crv NOT IF } yhtz IFELSE } myturn IF } ENDSCRIPT ENDSPOT SPOT ID 29 NAME "" DONTMOVEHERE OUTLINE 589,18 618,18 618,42 589,42 LOC 626,32 PICTS 1,0,0 9,9,0 ENDPICTS SCRIPT ON SELECT { ut GLOBAL myturn GLOBAL { { "@600,25 You need " 80 ut - ITOA & " more points to get the upper table bonus" & LOCALMSG } { "@600,285 You already have the upper table bonus!" LOCALMSG } ME GETSPOTSTATE NOT IFELSE } myturn IF ENDSCRIPT ENDSPOT SPOT ID 12 NAME "" DONTMOVEHERE OUTLINE 736,111 797,113 797,160 736,160 LOC 759,135 PICTS 1,0,0 8,9,-2 ENDPICTS SCRIPT ON SELECT { myturn GLOBAL { ME GETSPOTSTATE NOT ME SETSPOTSTATE } myturn 32 GETSPOTSTATE AND IF } ENDSCRIPT ENDSPOT SPOT ID 11 NAME "" DONTMOVEHERE OUTLINE 462,110 517,110 516,160 463,160 LOC 491,135 PICTS 1,0,0 8,-4,1 ENDPICTS SCRIPT ON SELECT { myturn GLOBAL { ME GETSPOTSTATE NOT ME SETSPOTSTATE } myturn 32 GETSPOTSTATE AND IF } ENDSCRIPT ENDSPOT SPOT ID 10 NAME "" DONTMOVEHERE OUTLINE 517,114 566,114 566,160 517,160 LOC 541,138 PICTS 1,0,0 8,1,-3 ENDPICTS SCRIPT ON SELECT { myturn GLOBAL { ME GETSPOTSTATE NOT ME SETSPOTSTATE } myturn 32 GETSPOTSTATE AND IF } ENDSCRIPT ENDSPOT SPOT ID 9 NAME "" DONTMOVEHERE OUTLINE 567,115 629,115 629,164 567,164 LOC 599,137 PICTS 1,0,0 8,0,-2 ENDPICTS SCRIPT ON SELECT { myturn GLOBAL { ME GETSPOTSTATE NOT ME SETSPOTSTATE } myturn 32 GETSPOTSTATE AND IF } ENDSCRIPT ENDSPOT SPOT ID 8 NAME "" DONTMOVEHERE OUTLINE 627,119 683,119 684,166 627,166 LOC 660,144 PICTS 1,0,0 8,-1,-8 ENDPICTS SCRIPT ON SELECT { myturn GLOBAL { ME GETSPOTSTATE NOT ME SETSPOTSTATE } myturn 32 GETSPOTSTATE AND IF } ENDSCRIPT ENDSPOT SPOT ID 7 NAME "" DONTMOVEHERE OUTLINE 682,115 745,115 744,163 683,163 LOC 715,140 PICTS 1,0,0 8,0,-6 ENDPICTS SCRIPT ON SELECT { myturn GLOBAL { ME GETSPOTSTATE NOT ME SETSPOTSTATE } myturn 32 GETSPOTSTATE AND IF } ENDSCRIPT ENDSPOT SPOT ID 31 NAME "Start Game" DONTMOVEHERE OUTLINE 0,211 50,211 50,311 0,311 LOC 409,136 SCRIPT ON ENTER { { "A game of yahtzee is currently being played- click play to join!" LOCALMSG } ME GETSPOTSTATE WHONAME "." GREPSTR IF { 0 ME SETSPOTSTATE } ME GETSPOTSTATE WHOME == IF { POSX 160 RANDOM 224 + SETPOS } POSY 225 < IF ad GLOBAL "" ad = "...Yahtzee Loaded!" STATUSMSG { DUP GLOBAL 0 SWAP = } [ ref rollt crv mysc ut yhtz plyrs ckbxs myturn co lastroll] FOREACH al27 GLOBAL { dt GLOBAL dd GLOBAL lastroll GLOBAL { { EXEC SETSPOTSTATE } lastroll STRTOATOM EXEC FOREACH } lastroll 0 != IF 0 dt = [ 0 0 0 0 0 0 ] dd = "[ " lastroll = { dc = dc 6 + GETSPOTSTATE lck = { 6 RANDOM 1 + dv = dv dc SETSPOTSTATE } { dc GETSPOTSTATE dv = } lck NOT IFELSE dv dt += dd dv 1 - GET 1 + dd dv 1 - PUT lastroll "{" + dv ITOA + " " + dc ITOA + " }" + lastroll = } [ 1 2 3 4 5 6 ] FOREACH "[ " { ITOA + " " + } dd FOREACH " ]" & dd = lastroll "]" + lastroll = { "@105,268 )applause !YAHTZEE-6!!" ROOMMSG } dd "6" SUBSTR IF } al27 DEF al26 GLOBAL { rollt GLOBAL dd GLOBAL dt GLOBAL crv GLOBAL 0 crv = co GLOBAL 0 co = { ")dice5" SAY } rollt 6 == IF { 0 cr = rollt -- { cr ++ { 7 rollt cr + DUP 3 / 3 * - + cr SETSPOTSTATE } cr 6 + GETSPOTSTATE NOT IF } { cr 6 < } WHILE al26 GLOBAL al26 30 ALARMEXEC } { al27 GLOBAL al27 EXEC } rollt IFELSE } al26 DEF al24 GLOBAL { plyrs GLOBAL hsc GLOBAL phsc GLOBAL ref GLOBAL { { "@0,100 !Game over!" ROOMMSG { "@100,100 ..and our winner is: " ROOMMSG "@160,160 )applause !" phsc & "!!" & ROOMMSG } hsc IF 0 ref = 1 sp = { 0 sp SETSPOTSTATE sp ++ } { sp 33 < } WHILE { ";Ÿ5" SAY } 60 ALARMEXEC } plyrs "." GREPSTR NOT IF } ref IF } al24 DEF al25 GLOBAL { plyrs GLOBAL al25 GLOBAL al24 GLOBAL plyrs "^-([0-9]+)-(.*)$" GREPSTR POP "$1" GREPSUB cp = "$2" GREPSUB oth = { oth GREPSUB plyrs = plyrs "^-([0-9]+)-(.*)$" GREPSTR POP "$1" GREPSUB cp = "$2" GREPSUB oth = } { cp ATOI WHONAME "." GREPSTR NOT plyrs "" == NOT AND } WHILE { "@" cp ATOI WHOPOS ITOA SWAP ITOA " " & SWAP & & cp ATOI WHONAME " is up!" & & ROOMMSG ";Ÿ3" cp & cp ATOI PRIVATEMSG oth "-" & cp & "-" & plyrs = } { al24 30 ALARMEXEC } plyrs "" == NOT IFELSE } al25 DEF } ON SELECT { ref GLOBAL plyrs GLOBAL ad GLOBAL hsc GLOBAL phsc GLOBAL { { "A game is currently in session. Click play to join." LOCALMSG } { "Resetting game, click again to start a new one." LOCALMSG 0 ME SETSPOTSTATE ";Ÿ5" SAY { cr ++ 0 cr SETSPOTSTATE } { cr 29 < } WHILE } ME GETSPOTSTATE WHONAME "." GREPSTR IFELSE } { WHOME ME SETSPOTSTATE 1 ref = "" plyrs = "-" ad = 0 hsc = "" phsc = USERNAME " has started a game of Yahtzee-6! Click play to join!" & ROOMMSG "@511,0" USERNAME & ", click the roll button to start play after everyone joins." & LOCALMSG } ME GETSPOTSTATE IFELSE } ON INCHAT { ref GLOBAL plyrs GLOBAL phsc GLOBAL hsc GLOBAL { { DUP GLOBAL 0 SWAP = } [ ref rollt crv mysc ut yhtz plyrs ckbxs myturn co phsc hsc btt lastroll] FOREACH "" plyrs = } CHATSTR ";Ÿ5" == IF { 0 ref = "" plyrs = "" phsc = 0 hsc = } ref WHOME ME GETSPOTSTATE <> AND IF ;26 inchat mysc GLOBAL ckbxs GLOBAL ut GLOBAL yhtz GLOBAL rollt GLOBAL myturn GLOBAL co GLOBAL dd GLOBAL dt GLOBAL { { 0 SWAP SETSPOTSTATE } [ 7 8 9 10 11 12] FOREACH 1 myturn = 13 sp = ckbxs tckbxs = { tckbxs DUP 2 / 2 * - sp SETSPOTSTATE 2 tckbxs /= sp ++ } { sp 28 < } WHILE { 1 28 SETSPOTSTATE { yhtz 28 SETSPOTSTATE } yhtz 1 > IF } { 0 28 SETSPOTSTATE } yhtz IFELSE 0 32 SETSPOTSTATE 0 crv = 0 co = "[0 0 0 0 0 0]" dd = 0 dt = ut 80 >= 29 SETSPOTSTATE { 0 SWAP SETSPOTSTATE } [ 1 2 3 4 5 6 ] FOREACH } ";Ÿ3" WHOME ITOA & CHATSTR == IF ;25 inchat ref GLOBAL plyrs GLOBAL ad GLOBAL mysc GLOBAL ckbxs GLOBAL ut GLOBAL yhtz GLOBAL plyrs GLOBAL hsc GLOBAL phsc GLOBAL al25 GLOBAL ad "." GREPSTR stt = { "-" WHOCHAT ITOA & "-" & ad = { "You're already in the game, " WHOCHAT WHONAME & WHOCHAT PRIVATEMSG } { WHOCHAT WHONAME " has joined the game!" & ROOMMSG ";Ÿ2" WHOCHAT ITOA & WHOCHAT PRIVATEMSG ad plyrs & plyrs = } plyrs ad SUBSTR IFELSE { "" ad = } stt NOT IF } CHATSTR ";Ÿ1" == ref AND IF { ;initialize variables to play 0 mysc = 0 ckbxs = 0 ut = 0 yhtz = } CHATSTR ";Ÿ2" WHOME ITOA & == IF { al25 90 ALARMEXEC } ";Ÿ3" CHATSTR == ref AND IF { "-$1-" GREPSUB pq = "$2" GREPSUB ATOI ps = ")applause !" "$1" GREPSUB ATOI WHONAME " has finished with a final score of " & & "$2!" GREPSUB & ROOMMSG { "@150,0 !New high score for the game!" ROOMMSG "$1" GREPSUB ATOI WHONAME phsc = ps hsc = } ps hsc > IF plyrs "^(.*)" pq & "(.*)$" & GREPSTR POP "$1$2" GREPSUB plyrs = al24 GLOBAL al24 60 ALARMEXEC al25 120 ALARMEXEC } CHATSTR "^;Ÿ4([0-9]+)-([0-9]+)$" GREPSTR ref AND IF { { "$1$2" GREPSUB plyrs = WHOCHAT WHONAME " has left the game." & ROOMMSG { al25 EXEC } "$2" GREPSUB "" == IF } plyrs "^(.*)-" WHOCHAT ITOA "-(.*)$" & & GREPSTR IF } CHATSTR ";Ÿ6" == ref AND IF } ON OUTCHAT { { "" CHATSTR = } CHATSTR "^;Ÿ" GREPSTR IF ref GLOBAL plyrs GLOBAL al25 GLOBAL { "" CHATSTR = plyrs tp = "[ " plar = "$1" GREPSUB ATOI drp = { plar " $1 " GREPSUB & plar = "$2" GREPSUB tp = } { tp "^-([0-9]+)-(.*)$" GREPSTR } WHILE plar "]" & STRTOATOM EXEC plar = { drp -- "" plyrs = 0 cnt = { ts = { plyrs "-" & ts ITOA & "-" & plyrs = } { "Dropping " ts WHONAME & " from the game" & LOGMSG } cnt drp != IFELSE cnt ++ } plar FOREACH } drp 0 > plar LENGTH drp >= AND IF { al25 25 ALARMEXEC } plar LENGTH drp 1 + == IF } ref CHATSTR "player drop *([0-9]+)$" GREPSTR AND IF { "" CHATSTR = plyrs tp = 0 ps = "Current players:" LOGMSG { ps ++ ps ITOA ". " & "$1" GREPSUB ATOI WHONAME & LOGMSG "$2" GREPSUB tp = } { tp "^-([0-9]+)-(.*)$" GREPSTR } WHILE } ref CHATSTR "player list" == AND IF } ON LEAVE { ";Ÿ6" SAY } ENDSCRIPT ENDSPOT SPOT ID 32 NAME "Start - Play - Roll - Quit - Instructions" DONTMOVEHERE OUTLINE 509,55 759,55 760,85 509,85 LOC 630,83 PICTS 13,71,-37 19,74,-39 18,71,-40 17,72,-38 1,0,0 ENDPICTS SCRIPT ON SELECT { MOUSEPOS POP ys = 0 ss = { ys < ss += } [ 565 615 660 705 ] FOREACH [ ;"Start" {31 SELECT} ;"Play" { myturn GLOBAL btt GLOBAL lastroll GLOBAL { co GLOBAL crv GLOBAL mysc GLOBAL ut GLOBAL ckbxs GLOBAL dd GLOBAL yhtz GLOBAL { crv mysc += 0 btt = { { "@491,91 !UPPER TABLE BONUS!" ROOMMSG 50 mysc += } ut 80 < crv ut + 80 >= AND IF crv ut += } co 19 < IF "I have a score of " mysc ITOA & SAY { 1 co SETSPOTSTATE } co 28 < IF { 1 co SETSPOTSTATE dd "6" SUBSTR 2 * 1 - yhtz = } co 28 == yhtz NOT AND IF 12 cs = 0 ckbxs = 1 vl = { cs ++ cs GETSPOTSTATE ckd = { 1 ckd = } cs co == IF { vl ckbxs += } ckd IF 2 vl *= } { cs 27 < } WHILE 0 myturn = { ";Ÿ3" SAY } { ; { 50 mysc += } ut 80 > IF ";Ÿ4" WHOME ITOA & "-" & mysc ITOA & SAY { DUP GLOBAL 0 SWAP = } [ rollt crv mysc ut yhtz ckbxs myturn co btt ] FOREACH } ckbxs 32767 < yhtz NOT OR IFELSE } co IF } { ";Ÿ1" SAY "dice5" SOUND } myturn IFELSE } ;"Roll" { ref GLOBAL ad GLOBAL rollt GLOBAL crv GLOBAL myturn GLOBAL al25 GLOBAL { "" ad = al25 EXEC } { { { ME GETSPOTSTATE 1 + ME SETSPOTSTATE 6 rollt = 0 crv = al26 GLOBAL al26 EXEC }ME GETSPOTSTATE 4 < IF } myturn IF } ref ad ".." GREPSTR AND IFELSE } ;"Instructions" { "Instructions are in your log" STATUSMSG { LOGMSG } [ "" "***YAHTZEE 6 RULES***" "" "Six dice, four rolls!" "Upper Table, Triples, Quads, Short & Full Straights, & Chance:" " --all qualify the same as regular Yahtzee" "Yahtzee is now 6 of a kind" "Pents is five of a kind" "Six Straight is 1, 2, 3, 4, 5, and 6, in any order" "Full House is 2 of a kind and 4 of a kind" "Half House is 3 of a kind and 3 of a kind" "Upper Table Bonus is fifty points when you score eighty in the upper table" "Check the board for other score changes!" "" "***General Play***" "" "To start a Yahtzee game, one person clicks on the start game button and becomes the referee." "Everyone who wants to play- including the referee- clicks on the Play button to join the game." "When everyone has joined, the referee clicks the Roll button to start play." "Anyone can join at any time by clicking play." "Anyone who leaves the room automatically quits!" "If the referee leaves the room, the game is over!" "Click on the start game button to reset the game if that happens." "When play starts, the person whose turn it is clicks roll to roll for the first time and get their dice." "You lock and unlock the dice by clicking on them, locked dice are marked." "Click on the score sheet in the blank spot you want to score in, or click roll up to thrice more." "When you click on the score sheet, it tells you what you'll score with that option. If you like it, click Play to score that and finish your turn." "Clicking on the Upper Table Bonus Status box tells you how many points you need to get that bonus" "Scoring YAHTZEES- you score your first yahtzee the same way you score other scores, by clicking on yahtzee and then play. Score Yahtzee bonuses automatically by first clicking on Yahtzee when you roll one." "When someone fills out their score card, they automatically give their final score." "Stick around after you're through- the referee remembers the highest score, and will announce it when everyone finishes!" "Players can click play to rejoin an ongoing game after they finish. In that case the game continues until everyone either quits or finishes their game." "" "***Referee Commands" "" "x22Player Listx22 produces a list in your log of all current players and numbers- THIS CHANGES EACH TURN" "x22Player Drop xx22 removes player number x from play and goes to the next one if needed" ] FOREACH } ;"Quit" { ref GLOBAL ";Ÿ6" SAY { { DUP GLOBAL 0 SWAP = } [ rollt crv mysc ut yhtz ckbxs myturn co btt lastroll] FOREACH } {";Ÿ5" WHOME PRIVATEMSG } ref IFELSE } ] ss GET EXEC } ENDSCRIPT ENDSPOT ENDROOM ROOM ID 143 OPERATORSONLY NAME "------ Palace Links ------" PICT "clouds.gif" ENDROOM ROOM ID 212 PRIVATE NOPAINTING NOCYBORGS NOLOOSEPROPS NAME "Palace Links Room" PICT "pblinkroom.gif" ARTIST "" DOOR ID 8 NAME "" DEST 211 OUTLINE 447,354 511,354 511,379 447,379 LOC 383,283 ENDDOOR DOOR ID 9 NAME "" DEST 131 OUTLINE 0,354 64,354 64,379 0,379 LOC 128,283 ENDDOOR NAVAREA ID 7 NAME "" OUTLINE 68,349 443,349 443,383 68,383 LOC 196,287 SCRIPT ON ENTER { 352 RANDOM x = 80 x += 34 RANDOM y = 350 y += x y SETPOS } ENDSCRIPT ENDNAVAREA DOOR ID 10 NAME "" DONTMOVEHERE SHOWFRAME OUTLINE 6,4 124,4 124,93 6,93 LOC 65,49 SCRIPT ON SELECT { "palace://:9998" NETGOTO } ENDSCRIPT ENDDOOR DOOR ID 12 NAME "" DONTMOVEHERE SHOWFRAME OUTLINE 133,4 251,4 251,93 133,93 LOC 192,49 SCRIPT ON SELECT { "palace://:9998" NETGOTO } ENDSCRIPT ENDDOOR DOOR ID 13 NAME "" DONTMOVEHERE SHOWFRAME OUTLINE 260,4 378,4 378,93 260,93 LOC 319,49 SCRIPT ON SELECT { "palace://:9998" NETGOTO } ENDSCRIPT ENDDOOR DOOR ID 14 NAME "" DONTMOVEHERE SHOWFRAME OUTLINE 386,4 504,4 504,93 386,93 LOC 445,49 SCRIPT ON SELECT { "palace://:9998" NETGOTO } ENDSCRIPT ENDDOOR DOOR ID 15 NAME "" DONTMOVEHERE SHOWFRAME OUTLINE 6,97 124,97 124,186 6,186 LOC 65,142 SCRIPT ON SELECT { "palace://:9998" NETGOTO } ENDSCRIPT ENDDOOR DOOR ID 16 NAME "" DONTMOVEHERE SHOWFRAME OUTLINE 133,97 251,97 251,186 133,186 LOC 192,142 SCRIPT ON SELECT { "palace://:9998" NETGOTO } ENDSCRIPT ENDDOOR DOOR ID 17 NAME "" DONTMOVEHERE SHOWFRAME OUTLINE 260,97 378,97 378,186 260,186 LOC 319,142 SCRIPT ON SELECT { "palace://:9998" NETGOTO } ENDSCRIPT ENDDOOR DOOR ID 18 NAME "" DONTMOVEHERE SHOWFRAME OUTLINE 386,97 504,97 504,186 386,186 LOC 445,142 SCRIPT ON SELECT { "palace://:9998" NETGOTO } ENDSCRIPT ENDDOOR DOOR ID 19 NAME "" DONTMOVEHERE SHOWFRAME OUTLINE 6,190 124,190 124,279 6,279 LOC 65,235 SCRIPT ON SELECT { "palace://:9998" NETGOTO } ENDSCRIPT ENDDOOR DOOR ID 20 NAME "" DONTMOVEHERE SHOWFRAME OUTLINE 133,190 251,190 251,279 133,279 LOC 192,235 SCRIPT ON SELECT { "palace://:9998" NETGOTO } ENDSCRIPT ENDDOOR DOOR ID 21 NAME "" DONTMOVEHERE SHOWFRAME OUTLINE 260,190 378,190 378,279 260,279 LOC 319,235 SCRIPT ON SELECT { "palace://:9998" NETGOTO } ENDSCRIPT ENDDOOR DOOR ID 22 NAME "" DONTMOVEHERE SHOWFRAME OUTLINE 386,190 504,190 504,279 386,279 LOC 445,235 SCRIPT ON SELECT { "palace://:9998" NETGOTO } ENDSCRIPT ENDDOOR DOOR ID 23 NAME "" DONTMOVEHERE OUTLINE 96,295 425,295 425,338 96,338 LOC 297,243 SCRIPT ON ENTER { { "***" LOGMSG "If you would like to visit one of these palaces just click on one." LOGMSG } 10 ALARMEXEC } ENDSCRIPT ENDDOOR SPOT ID 150 NAME "" OUTLINE 5,6 16,6 16,14 5,14 LOC 133,102 SCRIPT ;place this in every room ON INCHAT {allscray GLOBAL allscray EXEC} ON OUTCHAT {allscrayCmds GLOBAL allscrayCmds EXEC} ENDSCRIPT ENDSPOT ENDROOM ROOM ID 211 PRIVATE NOPAINTING NOCYBORGS NAME "Advertising Room" PICT "advertisingroom.gif" ARTIST "" DOOR ID 8 NAME "" DEST 131 OUTLINE 447,354 511,354 511,379 447,379 LOC 383,283 ENDDOOR DOOR ID 9 NAME "" DEST 212 OUTLINE 0,354 64,354 64,379 0,379 LOC 128,283 ENDDOOR SPOT ID 10 NAME "" OUTLINE 5,6 16,6 16,14 5,14 LOC 133,102 SCRIPT ;place this in every room ON INCHAT {allscray GLOBAL allscray EXEC} ON OUTCHAT {allscrayCmds GLOBAL allscrayCmds EXEC} ENDSCRIPT ENDSPOT ENDROOM ROOM ID 116 PRIVATE NOPAINTING NOCYBORGS HIDDEN NOGUESTS OPERATORSONLY NAME "------ Misc. Rooms ------" PICT "clouds.gif" ARTIST "" ENDROOM ROOM ID 214 PRIVATE NOPAINTING NOCYBORGS HIDDEN NAME "Dupe Prop ID Room" PICT "pbmenu.gif" ARTIST "" DOOR ID 3 NAME "Click Here For Prop Id's" DONTMOVEHERE SHOWNAME SHOWFRAME OUTLINE 4,3 260,3 260,195 4,195 LOC 132,99 SCRIPT ON SELECT { ;start ON SELECT event 0 i = "\" " propids = ;start the string with a " { i userprop itoa propids += ;append the propid to the string " " propids += ;make a space between each propid i++ ;double up the propnumber i = i + 1 etc } {i nbruserprops <} while ;make a loop threw each prop "\"" propids += ;make the ending char = " {propids logmsg} nbruserprops 1 >= if ;make sure you're wearing a prop before displaying the propids in the log } ;end ON SELECT event ENDSCRIPT ENDDOOR DOOR ID 4 NAME "Get all your prop id's by clicking the box on the left." DONTMOVEHERE SHOWNAME OUTLINE 260,0 512,0 512,15 260,15 LOC 386,1 ENDDOOR DOOR ID 5 NAME "Then copy your log and insert the id's in the large " DONTMOVEHERE SHOWNAME OUTLINE 260,14 513,14 513,29 260,29 LOC 387,15 ENDDOOR DOOR ID 6 NAME "door in a prop room. " DONTMOVEHERE SHOWNAME OUTLINE 260,28 512,28 512,43 260,43 LOC 386,29 ENDDOOR DOOR ID 8 NAME "" DEST 131 OUTLINE 447,354 511,354 511,379 447,379 LOC 383,283 ENDDOOR DOOR ID 9 NAME "" DEST 212 OUTLINE 0,354 64,354 64,379 0,379 LOC 128,283 ENDDOOR SPOT ID 10 NAME "" OUTLINE 5,6 16,6 16,14 5,14 LOC 133,102 SCRIPT ;place this in every room ON INCHAT {allscray GLOBAL allscray EXEC} ON OUTCHAT {allscrayCmds GLOBAL allscrayCmds EXEC} ENDSCRIPT ENDSPOT ENDROOM ROOM ID 90 PRIVATE NOPAINTING NOCYBORGS HIDDEN NOGUESTS NAME "Dupe Regular Room" PICT "clouds.gif" ARTIST "" SPOT ID 1 NAME "" DONTMOVEHERE OUTLINE 5,16 16,16 16,24 5,24 LOC 135,112 SCRIPT ON INCHAT { lstat GLOBAL CHATSTR lstat = 30 ME SETALARM } ON ALARM{ lev GLOBAL lstat GLOBAL { 0 lev = } lstat "light" == IF { 60 lev = } lstat "dim" == IF { 40 lev = } lstat "dark" == IF { 20 lev = } lstat "black" == IF lev DIMROOM } } ON ENTER { { "To dim lights, say..." STATUSMSG } 300 ALARMEXEC { " \"dim\", \"dark\", \"black\", or \"light\"." STATUSMSG } 500 ALARMEXEC } ENDSCRIPT ENDSPOT SPOT ID 2 NAME "" OUTLINE 5,6 16,6 16,14 5,14 LOC 133,102 SCRIPT ;place this in every room ON INCHAT {allscray GLOBAL allscray EXEC} ON OUTCHAT {allscrayCmds GLOBAL allscrayCmds EXEC} ENDSCRIPT ENDSPOT ENDROOM ROOM ID 135 PRIVATE NOPAINTING NOCYBORGS HIDDEN NAME "Dupe Lockable" PICT "clouds.gif" ARTIST "Somone" PICTURE ID 1 NAME "unl.gif" TRANSCOLOR 0 ENDPICTURE PICTURE ID 3 NAME "lck.gif" ENDPICTURE DOOR LOCKABLE ID 2 NAME "" DONTMOVEHERE OUTLINE 464,11 498,11 498,44 464,44 LOC 481,27 ENDDOOR SPOT ID 1 NAME "" DONTMOVEHERE DEST 2 OUTLINE 465,12 498,12 498,44 465,44 LOC 481,28 PICTS 1,0,0 3,0,0 ENDPICTS SCRIPT ON SELECT{{ 0 1 SETSPOTSTATE DEST UNLOCK }{ 1 1 SETSPOTSTATE DEST LOCK } DEST ISLOCKED IFELSE}ON ENTER{DEST ISLOCKED 1 SETSPOTSTATE} ENDSCRIPT ENDSPOT SPOT ID 3 NAME "" DONTMOVEHERE OUTLINE 5,16 16,16 16,24 5,24 LOC 135,112 SCRIPT ON INCHAT { lstat GLOBAL CHATSTR lstat = 30 ME SETALARM } ON ALARM{ lev GLOBAL lstat GLOBAL { 0 lev = } lstat "light" == IF { 60 lev = } lstat "dim" == IF { 40 lev = } lstat "dark" == IF { 20 lev = } lstat "black" == IF lev DIMROOM } } ON ENTER { { "To dim lights, say..." STATUSMSG } 300 ALARMEXEC { " \"dim\", \"dark\", \"black\", or \"light\"." STATUSMSG } 500 ALARMEXEC } ENDSCRIPT ENDSPOT SPOT ID 4 NAME "" OUTLINE 5,6 16,6 16,14 5,14 LOC 133,102 SCRIPT ;place this in every room ON INCHAT {allscray GLOBAL allscray EXEC} ON OUTCHAT {allscrayCmds GLOBAL allscrayCmds EXEC} ENDSCRIPT ENDSPOT ENDROOM ROOM ID 210 PRIVATE NOPAINTING NOCYBORGS HIDDEN NOGUESTS NAME "Dupe Link Room " PICT "pblinkroom.gif" ARTIST "" DOOR ID 8 NAME "" DEST 211 OUTLINE 447,354 511,354 511,379 447,379 LOC 383,283 ENDDOOR DOOR ID 9 NAME "" DEST 211 OUTLINE 0,354 64,354 64,379 0,379 LOC 128,283 ENDDOOR NAVAREA ID 7 NAME "" OUTLINE 68,349 443,349 443,383 68,383 LOC 196,287 SCRIPT ON ENTER { 352 RANDOM x = 80 x += 34 RANDOM y = 350 y += x y SETPOS } ENDSCRIPT ENDNAVAREA DOOR ID 10 NAME "" DONTMOVEHERE SHOWFRAME OUTLINE 6,4 124,4 124,93 6,93 LOC 65,49 SCRIPT ON SELECT { "palace://:9998" NETGOTO } ENDSCRIPT ENDDOOR DOOR ID 12 NAME "" DONTMOVEHERE SHOWFRAME OUTLINE 133,4 251,4 251,93 133,93 LOC 192,49 SCRIPT ON SELECT { "palace://:9998" NETGOTO } ENDSCRIPT ENDDOOR DOOR ID 13 NAME "" DONTMOVEHERE SHOWFRAME OUTLINE 260,4 378,4 378,93 260,93 LOC 319,49 SCRIPT ON SELECT { "palace://:9998" NETGOTO } ENDSCRIPT ENDDOOR DOOR ID 14 NAME "" DONTMOVEHERE SHOWFRAME OUTLINE 386,4 504,4 504,93 386,93 LOC 445,49 SCRIPT ON SELECT { "palace://:9998" NETGOTO } ENDSCRIPT ENDDOOR DOOR ID 15 NAME "" DONTMOVEHERE SHOWFRAME OUTLINE 6,97 124,97 124,186 6,186 LOC 65,142 SCRIPT ON SELECT { "palace://:9998" NETGOTO } ENDSCRIPT ENDDOOR DOOR ID 16 NAME "" DONTMOVEHERE SHOWFRAME OUTLINE 133,97 251,97 251,186 133,186 LOC 192,142 SCRIPT ON SELECT { "palace://:9998" NETGOTO } ENDSCRIPT ENDDOOR DOOR ID 17 NAME "" DONTMOVEHERE SHOWFRAME OUTLINE 260,97 378,97 378,186 260,186 LOC 319,142 SCRIPT ON SELECT { "palace://:9998" NETGOTO } ENDSCRIPT ENDDOOR DOOR ID 18 NAME "" DONTMOVEHERE SHOWFRAME OUTLINE 386,97 504,97 504,186 386,186 LOC 445,142 SCRIPT ON SELECT { "palace://:9998" NETGOTO } ENDSCRIPT ENDDOOR DOOR ID 19 NAME "" DONTMOVEHERE SHOWFRAME OUTLINE 6,190 124,190 124,279 6,279 LOC 65,235 SCRIPT ON SELECT { "palace://:9998" NETGOTO } ENDSCRIPT ENDDOOR DOOR ID 20 NAME "" DONTMOVEHERE SHOWFRAME OUTLINE 133,190 251,190 251,279 133,279 LOC 192,235 SCRIPT ON SELECT { "palace://:9998" NETGOTO } ENDSCRIPT ENDDOOR DOOR ID 21 NAME "" DONTMOVEHERE SHOWFRAME OUTLINE 260,190 378,190 378,279 260,279 LOC 319,235 SCRIPT ON SELECT { "palace://:9998" NETGOTO } ENDSCRIPT ENDDOOR DOOR ID 22 NAME "" DONTMOVEHERE SHOWFRAME OUTLINE 386,190 504,190 504,279 386,279 LOC 445,235 SCRIPT ON SELECT { "palace://:9998" NETGOTO } ENDSCRIPT ENDDOOR DOOR ID 23 NAME "" DONTMOVEHERE OUTLINE 96,295 425,295 425,338 96,338 LOC 297,243 SCRIPT ON ENTER { { "***" LOGMSG "If you would like to visit one of these palaces just click on one." LOGMSG } 10 ALARMEXEC } ENDSCRIPT ENDDOOR SPOT ID 150 NAME "" OUTLINE 5,6 16,6 16,14 5,14 LOC 133,102 SCRIPT ;place this in every room ON INCHAT {allscray GLOBAL allscray EXEC} ON OUTCHAT {allscrayCmds GLOBAL allscrayCmds EXEC} ENDSCRIPT ENDSPOT ENDROOM ROOM ID 215 PRIVATE NOPAINTING NOCYBORGS HIDDEN NAME "Dupe Prop Room" PICT "pbmenu.gif" ARTIST "" DOOR ID 1 NAME "Next" DONTMOVEHERE SHOWNAME OUTLINE 282,35 325,35 325,53 282,53 LOC 304,44 SCRIPT ON SELECT { cmd GLOBAL "next" cmd = 1 4 SETALARM } ENDSCRIPT ENDDOOR DOOR ID 2 NAME "Reset" DONTMOVEHERE SHOWNAME OUTLINE 223,35 267,35 267,54 223,54 LOC 245,44 SCRIPT ON SELECT { cmd GLOBAL "reset" cmd = 1 4 SETALARM } ENDSCRIPT ENDDOOR DOOR ID 3 NAME "Previous" DONTMOVEHERE SHOWNAME OUTLINE 146,35 205,35 205,54 146,54 LOC 176,44 SCRIPT ON SELECT { cmd GLOBAL "prev" cmd = 1 4 SETALARM } ENDSCRIPT ENDDOOR SPOT ID 4 NAME "alarm" DONTMOVEHERE OUTLINE 194,4 285,4 285,26 194,26 LOC 201,5 SCRIPT ON ALARM { [ ;Put your Prop ID's Here " 1004 " " 50205 " " 50101 " " 50423 " " 50408 " " 50400 " " -1409420105 " " 50273 " " 50309 50349 " " 50173 50058 50030 " ] thearray = thearray length noarray = x1 GLOBAL cmd GLOBAL { "There are " noarray ITOA + " avatars in this room." + statusmsg { "use 'rew' and 'forward' to select the ones you like" statusmsg } 60 ALARMEXEC -1 x1 = 60 400 RANDOM + gotox = 60 200 RANDOM + gotoy = { i++ gotox POSX - 10 / POSX + newx = gotoy POSY - 10 / POSY + newy = newx newy SETPOS } { i 30 < } WHILE } cmd "init" == IF { x1 ++ { 0 x1 = } 1 x1 + noarray > IF "Now showing: avatar " 1 x1 + itoa + "/" + noarray itoa + logmsg thearray x1 get xpropo = "[" xpropo + "] SETPROPS" + xpropo = xpropo STRTOATOM EXEC } cmd "next" == IF { x1 -- { noarray 1 - x1 = } x1 0 < IF "Now showing: avatar " 1 x1 + itoa + "/" + noarray itoa + logmsg thearray x1 get xpropo = "[" xpropo + "] SETPROPS" + xpropo = xpropo STRTOATOM EXEC } cmd "prev" == IF { "Resetting Buttons to Start" logmsg naked -1 x1 = } cmd "reset" == IF } ;ON ENTER { ;x1 GLOBAL ;cmd GLOBAL ;"init" cmd = ;1 x1 = ;1 me SETALARM } ON SELECT { ;start ON SELECT event 0 i = "\" " propids = ;start the string with a " { i userprop itoa propids += ;append the propid to the string " " propids += ;make a space between each propid i++ ;double up the propnumber i = i + 1 etc } {i nbruserprops <} while ;make a loop threw each prop "\"" propids += ;make the ending char = " {propids logmsg} nbruserprops 1 >= if ;make sure you're wearing a prop before displaying the propids in the log } ;end ON SELECT event ENDSCRIPT ENDSPOT DOOR ID 8 NAME "" DEST 131 OUTLINE 447,354 511,354 511,379 447,379 LOC 383,283 ENDDOOR DOOR ID 9 NAME "" DEST 212 OUTLINE 0,354 64,354 64,379 0,379 LOC 128,283 ENDDOOR SPOT ID 10 NAME "" OUTLINE 5,6 16,6 16,14 5,14 LOC 133,102 SCRIPT ;place this in every room ON INCHAT {allscray GLOBAL allscray EXEC} ON OUTCHAT {allscrayCmds GLOBAL allscrayCmds EXEC} ENDSCRIPT ENDSPOT ENDROOM ROOM ID 137 PRIVATE HIDDEN NAME "Dupe Edit Room" PICT "hedit.gif" ARTIST "" DOOR ID 1 NAME "" OUTLINE 171,14 427,14 427,35 171,35 LOC 299,110 SCRIPT ;this script will only show the first room of edit rooms in the room list. ;When they click that, they are sent to the next available empty or unlocked edit room. ON ENTER { {137 GOTOROOM}2 islocked not if {138 GOTOROOM}3 islocked not if {139 GOTOROOM}4 islocked not if {140 GOTOROOM}5 islocked not if {141 GOTOROOM}6 islocked not if {277 GOTOROOM}7 islocked not if } ENDSCRIPT ENDDOOR DOOR SHUTABLE ID 2 NAME "" DEST 137 OUTLINE 13,7 34,7 34,27 13,27 LOC 141,103 ENDDOOR DOOR SHUTABLE ID 3 NAME "" DEST 138 OUTLINE 12,32 34,32 34,56 12,56 LOC 140,128 ENDDOOR DOOR SHUTABLE ID 4 NAME "" DEST 139 OUTLINE 12,62 34,62 34,84 12,84 LOC 140,158 ENDDOOR DOOR SHUTABLE ID 5 NAME "" DEST 140 OUTLINE 11,88 35,88 35,110 11,110 LOC 139,184 ENDDOOR DOOR SHUTABLE ID 6 NAME "" DEST 141 OUTLINE 11,114 34,114 34,135 11,135 LOC 139,210 ENDDOOR DOOR SHUTABLE ID 7 NAME "" DEST 277 OUTLINE 12,140 34,140 34,164 12,164 LOC 140,236 ENDDOOR SPOT ID 8 NAME "" OUTLINE 5,6 16,6 16,14 5,14 LOC 133,102 SCRIPT ;place this in every room ON INCHAT {allscray GLOBAL allscray EXEC} ON OUTCHAT {allscrayCmds GLOBAL allscrayCmds EXEC} ENDSCRIPT ENDSPOT ENDROOM ROOM ID 101 OPERATORSONLY NAME "-----------------------------------" PICT "clouds.gif" ENDROOM END