ROOM ID 167 NAME "Palace Rainbow" PICT "palacerainroom.gif" ARTIST "Alexandra\99\80\D8\A4" PICTURE ID 10 NAME "none.gif" TRANSCOLOR 0 ENDPICTURE PICTURE ID 12 NAME "prhelp1.gif" ENDPICTURE PICTURE ID 13 NAME "prhelp2.gif" ENDPICTURE PICTURE ID 14 NAME "uno.gif" TRANSCOLOR 0 ENDPICTURE PICTURE ID 15 NAME "dos.gif" TRANSCOLOR 0 ENDPICTURE PICTURE ID 16 NAME "tres.gif" TRANSCOLOR 0 ENDPICTURE PICTURE ID 17 NAME "cuatro.gif" TRANSCOLOR 0 ENDPICTURE PICTURE ID 18 NAME "cinco.gif" TRANSCOLOR 0 ENDPICTURE PICTURE ID 19 NAME "seis.gif" TRANSCOLOR 0 ENDPICTURE PICTURE ID 20 NAME "siete.gif" TRANSCOLOR 0 ENDPICTURE PICTURE ID 21 NAME "ocho.gif" TRANSCOLOR 0 ENDPICTURE PICTURE ID 22 NAME "arrowll.gif" TRANSCOLOR 0 ENDPICTURE PICTURE ID 23 NAME "arrowrr.gif" TRANSCOLOR 0 ENDPICTURE DOOR ID 1 DONTMOVEHERE OUTLINE 159,41 415,41 415,280 159,280 LOC 287,137 PICTS 0,25441,27745 8293,28514,28265 8311,29301,29806 ENDPICTS SCRIPT ;Palace Rainbow Script by Alexandra™€Ø¤ ON SELECT { x1 GLOBAL x2 GLOBAL y1 GLOBAL y2 GLOBAL numcolor GLOBAL indice GLOBAL elcolor GLOBAL colores GLOBAL MOUSEPOS SWAP misx = misy = [ " 255 255 255 " " 255 223 255 " " 204 255 255 " " 255 191 255 " " 255 255 170 " " 204 223 255 " " 255 159 255 " " 153 255 255 " " 255 127 255 " " 255 223 170 " " 204 191 255 " " 102 255 255 " " 255 95 255 " " 153 223 255 " " 255 255 85 " " 204 255 170 " " 255 63 255 " " 51 255 255 " " 204 159 255 " " 251 31 255 " " 255 191 170 " " 255 0 255 " " 0 255 255 " " 255 255 0 " "102 223 255 " " 153 191 255 " " 204 127 255 " " 255 223 85 " " 204 223 170 " " 255 159 170 " " 51 223 255 " " 153 223 170" " 204 95 255 " " 255 223 0 " " 0 223 255 " " 204 255 85 " " 153 159 255 " " 102 191 255 " " 204 63 255 " " 255 127 170 " " 255 191 85 " " 204 31 255 " " 204 191 170 " " 204 0 255 " " 204 255 0 " " 153 127 255 " " 102 255 170 " " 51 191 255 " " 255 95 170 " " 153 223 170 " " 255 191 0 " " 0 191 255 " " 102 159 255 " " 204 223 85 " " 255 63 170 " " 255 159 85 " " 153 95 255 " " 51 223 170 " " 204 159 170 " " 153 255 85 " " 255 31 170 " " 0 255 170 " " 255 0 170 " " 51 159 255 " " 153 63 255 " " 102 127 255 " " 204 223 0 " " 255 159 0 " " 0 159 255 " " 153 31 255 " " 102 223 170 " " 153 191 170 " " 153 0 255 " " 153 255 0 " " 255 127 85 " " 204 127 170 " " 204 191 85 " " 102 95 255 " " 51 127 255 " " 102 255 85 " " 255 95 85 " " 51 223 170 " " 255 127 0 " " 0 127 255 " " 153 223 85 " " 204 95 170 " " 102 63 255 " " 0 223 170 " " 204 191 0 " " 153 159 170 " " 51 95 255 " " 102 31 255 " " 255 63 85 " " 102 191 170 " " 102 0 255 " " 102 255 0 " " 51 255 85 " " 204 63 170 " " 204 159 85 " " 255 95 0 " " 0 95 255 " " 255 31 85 " " 153 223 0 " " 0 255 85 " " 255 0 85 " " 51 63 255 " " 204 31 170 " " 204 0 170 " " 255 63 0 " " 0 63 255 " " 51 31 255 " " 153 127 170 " " 51 191 170 " " 51 0 255 " " 51 255 0 " " 102 223 85 " " 153 191 85 " " 204 159 0 " " 255 31 0 " " 0 31 255 " " 0 191 170 " " 255 0 0 " " 0 255 0 " " 0 0 255 " " 204 127 85 " " 102 159 170 " " 153 95 170 " " 102 223 0 " " 153 191 0 " " 51 223 85 " " 204 95 85 " " 204 127 0 " " 0 223 85 " " 51 159 170 " " 153 63 170 " " 153 159 85 " " 102 127 170 " " 0 159 170 " " 102 191 85 " " 153 31 170 " " 204 63 85 " " 51 223 0 " " 153 0 170 " " 204 95 0 " " 204 31 85 " " 0 223 0 " " 204 0 85 " " 153 159 0 " " 102 95 170 " " 51 127 170 " " 102 191 0 " " 153 127 85 " " 51 191 85 " " 204 63 0 " " 0 127 170 " " 0 191 85 " " 102 63 170 " " 102 159 85 " " 204 31 0 " " 204 0 0 " " 51 95 170 " " 102 31 170 " " 153 95 85 " " 153 127 0 " " 102 0 170 " " 51 191 0 " " 0 95 170 " " 0 191 0 " " 102 159 0 " " 51 63 170 " " 51 159 85 " " 153 63 85 " " 102 127 85 " " 0 63 170 " " 0 159 85 " " 51 31 170 " " 153 95 0 " " 153 31 85 " " 51 0 170 " " 153 0 85 " " 0 31 170 " " 0 0 170 " " 51 159 0 " " 153 63 0 " " 102 95 85 " " 102 127 0 " " 51 127 85 " " 0 159 0 " " 153 31 0 " " 153 0 0 " " 0 127 85 " " 102 63 85 " " 102 95 0 " " 51 95 85 " " 51 127 0 " " 102 31 85 " " 102 0 85 " " 0 95 85 " " 0 127 0 " " 102 63 0 " " 51 63 85 " " 51 95 0 " " 102 31 0 " " 0 63 85 " " 51 31 85 " " 102 0 0 " " 51 0 85 " " 0 95 0 " " 0 31 85 " " 0 0 85 " " 51 63 0 " " 0 63 0 " " 51 31 0 " " 51 0 0 " " 0 31 0 " " 255 255 255 " " 238 238 238 " " 221 221 221 " " 204 204 204 " " 187 187 187 " " 170 170 170 " " 153 153 153 " " 136 136 136 " " 119 119 119 " " 102 102 102 " " 85 85 85 " " 68 68 68 " " 51 51 51 " " 34 34 34 " " 17 17 17 " " 0 0 0 " " 0 0 0 " " 0 0 0 " " 0 0 0 " " 0 0 0 " " 0 0 0 " " 0 0 0 " " 0 0 0 " " 0 0 0 " " 0 0 0 " ] colores = 24 y1 = 40 y2 = 0 a = 0 i = 0 numcolor = 0 indice = { 0 i = 16 y1 += 16 y2 += a++ y1 40 - 16 / indice = 144 x1 = 160 x2 = { 16 x1 += 16 x2 += i++ x1 160 - 16 / numcolor = indice 16 * numcolor += { { colores numcolor GET elcolor = } misx x1 > misx x2 < and if } misy y1 > misy y2 < and if } { i 16 < } WHILE } { a 15 < } WHILE } ON ENTER { 0 7 SETSPOTSTATELOCAL elcolor GLOBAL " 255 255 255 " elcolor = { "Graphics, Concept and..." STATUSMSG } 20 ALARMEXEC { "...Script by Alexandra™€Ø¤ ©2002" STATUSMSG } 150 ALARMEXEC "@512,0 Say help for instructions" LOCALMSG } ENDSCRIPT ENDDOOR DOOR ID 2 NAME "VIEW" DONTMOVEHERE OUTLINE 441,111 504,111 504,146 441,146 LOC 476,122 SCRIPT ON SELECT { elcolor GLOBAL numero GLOBAL 4 GETSPOTSTATE numero = PAINTCLEAR elcolor " PENCOLOR " + STRTOATOM EXEC numero 1 + PENSIZE 281 302 317 362 LINE 317 362 247 362 LINE 247 362 281 304 LINE 281 304 257 312 PENPOS 257 312 321 336 LINE 321 336 267 380 LINE 267 380 257 312 LINE 257 312 243 336 PENPOS 243 336 309 310 LINE 309 310 295 380 LINE 295 380 243 336 LINE "@463,125 Click Log to get the RGB" LOCALMSG } ON OUTCHAT { { "Palace Rainbow Graphics, Concept and Script by Alexandra™€Ø¤: alexandra@bhlabs.com" LOGMSG "****************************************************" LOGMSG "****************************************************" LOGMSG } CHATSTR LOWERCASE "help" == IF } ENDSCRIPT ENDDOOR DOOR ID 3 NAME "log" DONTMOVEHERE OUTLINE 442,162 502,162 502,194 442,194 LOC 473,169 SCRIPT ON SELECT { elcolor GLOBAL numero GLOBAL "The RGB for the color u want is: " elcolor + LOGMSG "The painting settings will be : " elcolor + " PENCOLOR " + numero 1 + itoa + " PENSIZE " + LOGMSG "@470,173 The settings are printed in your log" LOCALMSG } ENDSCRIPT ENDDOOR DOOR ID 4 OUTLINE 39,46 65,46 65,70 39,69 LOC 52,58 PICTS 14,0,0 15,0,0 16,0,0 17,0,0 18,0,0 19,0,0 20,0,0 21,0,0 ENDPICTS SCRIPT ON ENTER { 4 GETSPOTSTATE numero = numero GLOBAL } ENDSCRIPT ENDDOOR DOOR ID 5 DONTMOVEHERE OUTLINE 66,66 93,66 93,88 66,88 LOC 194,162 SCRIPT ON SELECT { numero GLOBAL 4 GETSPOTSTATE numero = { 0 4 SETSPOTSTATELOCAL } { numero ++ numero 4 SETSPOTSTATELOCAL } numero 6 > IFELSE } ENDSCRIPT ENDDOOR DOOR ID 6 DONTMOVEHERE OUTLINE 8,65 37,65 37,88 8,88 LOC 136,161 SCRIPT ON SELECT { numero GLOBAL 4 GETSPOTSTATE numero = { 7 4 SETSPOTSTATELOCAL } { numero -- numero 4 SETSPOTSTATELOCAL } numero 1 < IFELSE } ENDSCRIPT ENDDOOR SPOT ID 7 DONTMOVEHERE OUTLINE 15,111 126,111 126,303 16,303 LOC 70,206 PICTS 10,0,0 12,0,0 13,0,0 ENDPICTS SCRIPT ON SELECT { MOUSEPOS SWAP corx = cory = ME GETSPOTSTATE spot = { { { 2 ME setspotstatelocal } corx 108 > corx 122 < and if } cory 290 > cory 302 < and if } spot 1 == IF { corx cory SETPOS } spot 0 == IF { { { 1 ME setspotstatelocal } corx 14 > corx 26 < and if } cory 291 > cory 300 < and if } spot 2 == IF } ENDSCRIPT ENDSPOT DOOR ID 8 DONTMOVEHERE OUTLINE 441,62 501,62 501,101 441,101 LOC 373,160 SCRIPT ON SELECT { { 1 7 SETSPOTSTATELOCAL } { 0 7 SETSPOTSTATELOCAL } 7 GETSPOTSTATE 0 == IFELSE } ON OUTCHAT { { 1 7 SETSPOTSTATELOCAL "" CHATSTR = } CHATSTR LOWERCASE "help" == IF } ENDSCRIPT ENDDOOR DOOR ID 9 DONTMOVEHERE DEST 166 OUTLINE 4,354 62,354 62,380 4,380 LOC 33,366 PICTS 22,0,0 ENDPICTS ENDDOOR DOOR ID 10 DONTMOVEHERE DEST 168 OUTLINE 448,354 508,354 508,379 448,379 LOC 480,368 PICTS 23,0,0 ENDPICTS SCRIPT ON INCHAT { nDoIt GLOBAL nDoIt EXEC } ON ENTER { { CLEARLOOSEPROPS PAINTCLEAR } NBRROOMUSERS 2 < IF } ENDSCRIPT ENDDOOR ENDROOM