Installez ceci dans votre Pserver.pat , et télécharger les images

 Script de menu déroulant.

 

ROOM
ID 2551
PRIVATE
NOPAINTING
NOCYBORGS
HIDDEN
NOGUESTS
NAME "Palace Bienvenue"
PICT "palacegate.gif"
PICTURE ID 712 NAME "none3.gif" TRANSCOLOR 0 ENDPICTURE
PICTURE ID 713 NAME "wmenucana1.gif" ENDPICTURE
PICTURE ID 714 NAME "wmenucana2.gif" ENDPICTURE
PICTURE ID 715 NAME "wmenucana3.gif" ENDPICTURE
PICTURE ID 716 NAME "wmenucana4.gif" ENDPICTURE
PICTURE ID 717 NAME "wmenucana5.gif" ENDPICTURE
PICTURE ID 718 NAME "wmenucana6.gif" ENDPICTURE
PICTURE ID 719 NAME "wmenucana7.gif" ENDPICTURE
PICTURE ID 721 NAME "wmenucana.gif" ENDPICTURE
PICTURE ID 722 NAME "wmenucana1e.gif" ENDPICTURE
PICTURE ID 723 NAME "wmenucana2e.gif" ENDPICTURE
PICTURE ID 724 NAME "wmenucana3f.gif" ENDPICTURE
PICTURE ID 725 NAME "wmenushadecana1b.gif" ENDPICTURE
PICTURE ID 726 NAME "wmenushadecana2b.gif" ENDPICTURE
PICTURE ID 727 NAME "wmenushadecana3b.gif" ENDPICTURE
PICTURE ID 728 NAME "wmenushadecana4b.gif" ENDPICTURE
PICTURE ID 729 NAME "wmenushadecana5b.gif" ENDPICTURE
PICTURE ID 730 NAME "wmenushadecana6b.gif" ENDPICTURE
PICTURE ID 731 NAME "wmenushadecana7b.gif" 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

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
{
{ 89 GOTOROOM & STRTOATOM 60 ALARMEXEC } m2 IF
{ 86 GOTOROOM & STRTOATOM 60 ALARMEXEC } m3 IF
{ 86 GOTOROOM & STRTOATOM 60 ALARMEXEC } m4 IF
{ 86 GOTOROOM & STRTOATOM 60 ALARMEXEC } m5 IF
{ 86 GOTOROOM & STRTOATOM 60 ALARMEXEC } m6 IF
{ 86 GOTOROOM & STRTOATOM 60 ALARMEXEC } m7 IF
{ 86 GOTOROOM & 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
DOOR
ID 5
DONTMOVEHERE
DEST 256
OUTLINE 450,356 507,356 507,379 450,379
LOC 479,368
PICTS 733,0,0 ENDPICTS
SCRIPT

ON ENTER {

{ CLEARLOOSEPROPS PAINTCLEAR } NBRROOMUSERS 2 < IF

}
ENDSCRIPT
ENDDOOR
ENDROOM