ROOM ID 255 NAME "Full Drop Down Menu" PICT "pal54.gif" PICTURE ID 712 NAME "none3.gif" TRANSCOLOR 0 ENDPICTURE PICTURE ID 713 NAME "wmenuon1.gif" ENDPICTURE PICTURE ID 714 NAME "wmenuon2.gif" ENDPICTURE PICTURE ID 715 NAME "wmenuon3.gif" ENDPICTURE PICTURE ID 716 NAME "wmenuon4.gif" ENDPICTURE PICTURE ID 717 NAME "wmenuon5.gif" ENDPICTURE PICTURE ID 718 NAME "wmenuon6.gif" ENDPICTURE PICTURE ID 719 NAME "wmenuon7.gif" ENDPICTURE PICTURE ID 721 NAME "wmenubig.gif" ENDPICTURE PICTURE ID 722 NAME "wmenu1e.gif" ENDPICTURE PICTURE ID 723 NAME "wmenu2e.gif" ENDPICTURE PICTURE ID 724 NAME "wmenu3f.gif" ENDPICTURE PICTURE ID 725 NAME "wmenushade1b.gif" ENDPICTURE PICTURE ID 726 NAME "wmenushade2b.gif" ENDPICTURE PICTURE ID 727 NAME "wmenushade3b.gif" ENDPICTURE PICTURE ID 728 NAME "wmenushade4b.gif" ENDPICTURE PICTURE ID 729 NAME "wmenushade5b.gif" ENDPICTURE PICTURE ID 730 NAME "wmenushade6b.gif" ENDPICTURE PICTURE ID 731 NAME "wmenushade7b.gif" ENDPICTURE PICTURE ID 732 NAME "chesshlp.gif" ENDPICTURE PICTURE ID 733 NAME "arrowrr.gif" TRANSCOLOR 0 ENDPICTURE SPOT ID 120 DONTMOVEHERE OUTLINE 0,0 35,0 35,22 0,22 LOC 17,11 PICTS 722,0,0 723,0,0 724,0,0 ENDPICTS SCRIPT ;change this to ON SIGNON for the gate ON ENTER { menu1 GLOBAL { { a GLOBAL 0 a = 0 121 SETSPOTSTATELOCAL 1 ME SETALARM } { 1 ME SETSPOTSTATELOCAL 0 121 SETSPOTSTATELOCAL 0 122 SETSPOTSTATELOCAL } 121 GETSPOTSTATE 0 == IFELSE } menu1 DEF menu2 GLOBAL { a GLOBAL { 8 121 SETSPOTSTATELOCAL a ++ } { 121 GETSPOTSTATE 1 + 121 SETSPOTSTATELOCAL } 121 GETSPOTSTATE 6 > IFELSE { EXIT } a 0 > IF 1 ME SETALARM } menu2 DEF menu3 GLOBAL { m1 GLOBAL m2 GLOBAL m3 GLOBAL m4 GLOBAL m5 GLOBAL m6 GLOBAL m7 GLOBAL m8 GLOBAL MOUSEPOS y = x = x 0 >= x 035 <= AND y 000 >= AND y 023 <= AND m1 = x 0 >= x 144 <= AND y 023 >= AND y 041 <= AND m2 = x 0 >= x 144 <= AND y 042 >= AND y 058 <= AND m3 = x 0 >= x 144 <= AND y 059 >= AND y 075 <= AND m4 = x 0 >= x 144 <= AND y 076 >= AND y 092 <= AND m5 = x 0 >= x 144 <= AND y 093 >= AND y 115 <= AND m6 = x 0 >= x 144 <= AND y 116 >= AND y 136 <= AND m7 = x 0 >= x 144 <= AND y 137 >= AND y 155 <= AND m8 = { { 0 120 SETSPOTSTATELOCAL } m1 NOT IF } 121 GETSPOTSTATE 0 == IF { { 1 120 SETSPOTSTATELOCAL } m1 IF } { { 2 120 SETSPOTSTATELOCAL } m1 IF } 121 GETSPOTSTATE 0 == IFELSE { { 1 ME SETSPOTSTATELOCAL } m2 IF { 2 ME SETSPOTSTATELOCAL } m3 IF { 3 ME SETSPOTSTATELOCAL } m4 IF { 4 ME SETSPOTSTATELOCAL } m5 IF { 5 ME SETSPOTSTATELOCAL } m6 IF { 6 ME SETSPOTSTATELOCAL } m7 IF { 7 ME SETSPOTSTATELOCAL } m8 IF } 121 GETSPOTSTATE 8 == IF { 0 120 SETSPOTSTATELOCAL 0 121 SETSPOTSTATELOCAL 0 122 SETSPOTSTATELOCAL } m1 m2 OR m3 OR m4 OR m5 OR m6 OR m7 OR m8 OR NOT IF 5 ME SETALARM } menu3 DEF menu4 GLOBAL { MOUSEPOS y = x = m1 GLOBAL m2 GLOBAL m3 GLOBAL m4 GLOBAL m5 GLOBAL m6 GLOBAL m7 GLOBAL m8 GLOBAL { { "http://www.palacetools.com/" url = "Now opening your browser to " url & LOCALMSG "\"" url & "\" NETGOTO" & STRTOATOM 60 ALARMEXEC } m2 IF { "http://www.palacetools.com/palace/site.php?id=2033" url = "Now opening your browser to " url & LOCALMSG "\"" url & "\" NETGOTO" & STRTOATOM 60 ALARMEXEC } m3 IF { "http://www.palacetools.com/palace/" url = "Now opening your browser to " url & LOCALMSG "\"" url & "\" NETGOTO" & STRTOATOM 60 ALARMEXEC } m4 IF { "palace://pcg.ksv.com:9998" url = "Now transporting you to " url & LOCALMSG "\"" url & "\" NETGOTO" & STRTOATOM 60 ALARMEXEC } m5 IF { "palace://interlinks.palacehosting.com:9998" url = "Now transporting you to " url & LOCALMSG "\"" url & "\" NETGOTO" & STRTOATOM 60 ALARMEXEC } m6 IF { "http://www.palacetools.com" url = "Now opening your browser to " url & LOCALMSG "\"" url & "\" NETGOTO" & STRTOATOM 60 ALARMEXEC } m7 IF { "http://macpros.mac.tucows.com/files/thepalaceclient.hqx" url = "Now opening your browser to " url & LOCALMSG "\"" url & "\" NETGOTO" & STRTOATOM 60 ALARMEXEC } m8 IF } { x y SETPOS } 121 GETSPOTSTATE 8 == IFELSE } menu4 DEF } ON ENTER { 0 ME SETSPOTSTATELOCAL } ON SELECT { menu1 GLOBAL menu1 EXEC } ON ALARM { menu2 GLOBAL menu2 EXEC } ENDSCRIPT ENDSPOT SPOT ID 121 DONTMOVEHERE OUTLINE 0,22 145,22 145,155 0,155 LOC 72,89 PICTS 712,0,0 725,0,-56 726,0,-48 727,0,-42 728,0,-34 729,0,-25 730,0,-17 731,0,-9 721,0,0 ENDPICTS SCRIPT ON ENTER { 0 ME SETSPOTSTATELOCAL } ON SELECT { menu4 GLOBAL menu4 EXEC } ENDSCRIPT ENDSPOT SPOT ID 122 OUTLINE 35,0 145,0 145,22 35,22 LOC 72,33 PICTS 712,0,0 713,0,0 714,0,17 715,0,34 716,0,51 717,0,68 718,0,94 719,0,111 ENDPICTS SCRIPT ON ENTER { 0 ME SETSPOTSTATELOCAL 5 ME SETALARM } ON ALARM { menu3 GLOBAL menu3 EXEC } ENDSCRIPT ENDSPOT SPOT ID 4 DONTMOVEHERE OUTLINE 7,344 40,344 40,377 7,377 LOC 24,361 PICTS 732,0,0 ENDPICTS SCRIPT ON ENTER { "@25 351 Script donated by Andy/Glide. Click for Instructions" LOCALMSG } ON SELECT { "Instructions are in your log." LOCALMSG { LOGMSG } [ "" "INSTRUCTIONS:" "" "Full version includes sliding windowshade drop-down effect. If you want that effect, check out the Basic Drop Down Menu room." "This version of the menu is for people who want to put the menu in many rooms on their server. By setting menu operations as globals, much space can be saved on code in the pserver.pat file." "The code is defined at the gates and all entry points, where the large scripts are placed, and then executed in all other rooms, where the small scripts are placed." "Be careful to verify that pic numbers and spot numbers aren't duplicates of any existing pic numbers or spot numbers in the room." "The next room shows how to add pics and script to other rooms once the GLOBAL's have been initialized at your entry point. If this is to start at your gate, change ON ENTER to ON SIGNON in the menu script where its marked." ] FOREACH } ENDSCRIPT ENDSPOT DOOR ID 5 DONTMOVEHERE DEST 256 OUTLINE 448,354 508,354 508,379 448,379 LOC 480,368 PICTS 733,0,0 ENDPICTS SCRIPT ON INCHAT { nDoIt GLOBAL nDoIt EXEC } ON ENTER { { CLEARLOOSEPROPS PAINTCLEAR } NBRROOMUSERS 2 < IF } ENDSCRIPT ENDDOOR ENDROOM