ON ENTER { 100 ME SETALARM "@-7 72 Ditent s-off pour fermer le son ambiant,

et s-on pour le remettre" LOCALMSG }

ON ALARM { 0 RANDOM howlong = 5 howlong +=

; This will play the sounds with timed intervals of no less that 500 ticks and

; no more that 2000 ticks apart. Changing the values above will alter the timing

["brookrpt.wav""brookrpt.wav""brookrpt.wav"] list = list LENGTH cnt =

{ list cnt RANDOM GET SOUND howlong ME SETALARM } 0 ME GETSPOTSTATE == IF}

ON OUTCHAT {{ 1 ME SETSPOTSTATELOCAL "Son ambiant Off" LOGMSG "" CHATSTR = }

CHATSTR "s-off" == IF

{ 0 ME SETSPOTSTATELOCAL 10 ME SETALARM "Son ambiant On" LOGMSG "" CHATSTR = }

CHATSTR "s-on" == IF}