|  |  |  |  |  |  |  |  | 
     
      |  |  |  | Dressing Room |  | bjorke |  |  | 
     
      |  |  |  |  | -= Script Complet=- |  |  |  | 
     
      |  |  |  | ; 
        bjorke - modified 19 sept 96 ON OUTCHAT {
 nodressup GLOBAL
 {
 "$1" GREPSUB cmd =
 } {
 CHATSTR cmd =
 } CHATSTR "^@[0-9]*,[0-9]* (.*)" GREPSTR IFELSE
 {
 1 nodressup =
 "No Dressup for You" STATUSMSG
 "" CHATSTR =
 } cmd "^nodress" GREPSTR IF
 {
 0 nodressup =
 "Now You Can Be Dressed" STATUSMSG
 "" CHATSTR =
 } cmd "^redress" GREPSTR IF
 {
 {
 NBRUSERPROPS n =
 {
 0 i =
 ";pp"
 {
 " " i USERPROP ITOA & &
 i ++
 } { i n < } WHILE
 WHOTARGET PRIVATEMSG
 } n IF
 } {
 "you have to whisper it" statusmsg
 } WHOTARGET IFELSE
 0 nodressup =
 "" chatstr =
 } cmd "dressup" == IF
 {
 NAKED
 "" CHATSTR =
 } cmd "^undress" GREPSTR IF
 {
 "To dress someone, whisper \"dressup\"" LOCALMSG
 { "To avoid BEING dressed, say \"nodress\"" LOCALMSG 
        } 60 alarmexec
 { "To undo \"nodress,\" type \"redress\"" 
        LOCALMSG } 120 alarmexec
 { "Whisper to only be dressed by your friend" LOCALMSG } 180 
        alarmexec
 {
 { "\"halt\" and \"resume\" for entire room" 
        LOCALMSG } 220 alarmexec
 } ISWIZARD IF
 { "Caution: Risque props may get you disconnected without warning!!"
 logmsg } 240 alarmexec
 "" chatstr =
 } cmd LOWERCASE "^help" GREPSTR IF
 {
 1 ME SETSPOTSTATE
 "Dressups Halted" STATUSMSG
 "" CHATSTR =
 } ISWIZARD cmd "halt" == AND IF
 {
 0 ME SETSPOTSTATE
 "Dressups Resumed" STATUSMSG
 "" CHATSTR =
 } ISWIZARD cmd "resume" == AND IF
 }
 ON INCHAT {
 nodressup GLOBAL
 {
 0 ME SETSPOTSTATE
 } ME GETSPOTSTATE NBRROOMUSERS 2 < AND IF
 {
 {
 "[ " "$1" GREPSUB & " ] SETPROPS" &
 STRTOATOM EXEC
 } {
 "Sorry you can't dress me up" WHOCHAT PRIVATEMSG
 } nodressup NOT
 WHOTARGET NOT
 WHOTARGET WHOCHAT == OR AND
 ME GETSPOTSTATE NOT AND IFELSE
 } CHATSTR ";pp (-*[0-9].*)$" GREPSTR
 WHOCHAT WHOME == NOT AND IF
 }
 ON ENTER {
 { "To dress someone, whisper \"dressup\"" statusmsg 
        } 60 alarmexec
 { "To avoid BEING dressed, say \"nodress\"" statusmsg 
        } 120 alarmexec
 { "To undo \"nodress,\" type \"redress\"" 
        statusmsg } 180 alarmexec
 {
 { "\"halt\" and \"resume\" for entire room" 
        STATUSMSG } 220 alarmexec
 } ISWIZARD IF
 { "Caution: Risque props may get you disconnected without warning!!"
 logmsg } 240 alarmexec
 }
 |  |  | 
     
      |  |  |  |  |  | 
     
      |  |  |  |  |  | 
     
      |  |  |  |  |  | 
     
      |  |  |  |  |  | 
     
      |  |  |  |  |  | 
     
      |  |  |  |  |  | 
     
      |  |  |  |  |  | 
     
      |  |  |  |  |  | 
     
      |  |  |  |  |  | 
     
      |  |  |  |  |  | 
     
      |  |  |  |  |  | 
     
      |  |  |  |  |  | 
     
      |  |  |  |  |  | 
     
      |  |  |  |  |  | 
     
      |  |  |  |  |  | 
     
      |  |  |  |  |  | 
     
      |  |  |  |  |  | 
     
      |  |  |  |  |  | 
     
      |  |  |  |  |  | 
     
      |  |  |  |  |  | 
     
      |  |  |  |  |  | 
     
      |  |  |  |  |  | 
     
      |  |  |  |  |  | 
     
      |  |  |  |  |  | 
     
      |  |  |  |  |  | 
     
      |  |  |  |  |  | 
     
      |  |  |  |  |  | 
     
      |  |  |  |  |  | 
     
      |  |  |  |  |  | 
     
      |  |  |  |  |  | 
     
      |  |  |  |  |  | 
     
      |  |  |  |  |  | 
     
      |  |  |  |  |  | 
     
      |  |  |  |  |  | 
     
      |  |  |  |  |  | 
     
      |  |  |  |  |  | 
     
      |  |  |  |  |  | 
     
      |  |  |  |  |  | 
     
      |  |  |  |  |  | 
     
      |  |  |  |  |  | 
     
      |  |  |  |  |  | 
     
      |  |  |  |  |  | 
     
      |  |  |  |  |  | 
     
      |  |  |  |  |  | 
     
      |  |  |  |  |  | 
     
      |  |  |  |  |  | 
     
      |  |  |  |  |  | 
     
      |  |  |  |  |  | 
     
      |  |  |  |  |  | 
     
      |  |  |  |  |  | 
     
      |  |  |  |  |  | 
     
      |  |  |  |  |  | 
     
      |  |  |  |  |  | 
     
      |  |  |  |  |  | 
     
      |  |  |  |  |  | 
     
      |  |  |  |  |  | 
     
      |  |  |  |  |  | 
     
      |  |  |  |  |  | 
     
      |  |  |  |  |  | 
     
      |  |  |  |  |  | 
     
      |  |  |  |  |  | 
     
      |  |  |  |  |  | 
     
      |  |  |  |  |  | 
     
      |  |  |  |  |  | 
     
      |  |  |  |  |  | 
     
      |  |  |  |  |  | 
     
      |  |  |  |  |  | 
     
      |  |  |  |  |  | 
     
      |  |  |  |  |  | 
     
      |  |  |  |  |  | 
     
      |  |  |  | 1) 
        Allez dans la chambre donc vous voulez avoir le script dressing room. 
        Ensuite mettez vous en mode wiz ou god [Options/Operator Mode..., Ou 
        CTRL+W] et allez en mode 'Authoring' [CTRL+A en mode wiz/god]. 
        NOTE : Je vais employez le termes 'spot' pour les 'door', une porte pour 
        moi c'est quand tu click dessus et ca te transporte dans une room, et 
        si ca fait pas ca j'appelle ca un 'spot'. |  |  | 
     
      |  |  |  |  |  | 
     
      |  |  |  |  |  | 
     
      |  |  |  | 2) 
        Créer un nouveau 'spot' en allant dans le menu [Operator/New 
        Door]. Redimensionner le 'spot' et placé le la ou ce 
        qu'il ne dérange personne car personne aura besoin de la cliquer, 
        ensuite double-cliquer dessus pour ouvrir le panneau 'Door Info' 
        et obtenir les infos, choisissez dans le menu déroulant 'Type' 
        le choix : Normal. |  |  | 
     
      |  |  |  |  |  | 
     
      |  |  |  |  |  | 
     
      |  |  |  | 3) Ensuite 
        cliquer sur 'Edit Script', insérez le script ci-dessus, 
        utilisez le copier/coller pour faciliter la tache. |  |  | 
     
      |  |  |  | 4) A présent 
        sortez du mode authoring et trouvé un ami pour testé le 
        script.Voici les commandes pour le script : |  |  | 
     
      |  |  |  | Commande |  |  | 
     
      |  |  |  | dressup | Habille quelqu'un quand 
        on leur dit 'dressup' en privé. |  |  | 
     
      |  |  |  | nodress | Empeche la commande 'dressup' 
        de fonctionné et de se faire habiller. |  |  | 
     
      |  |  |  | redress | Annule la commande 'nodress'. |  |  |  | 
     
      |  |  |  | Commande Wizard |  |  | 
     
      |  |  |  | halt | Arrete completement le script dans 
        la room. |  |  |  | 
     
      |  |  |  | resume | Redémarre le script dans la 
        room. |  |  |  | 
     
      |  |  |  |  |  |  |  |  |