Raccourcis personnels

Télécharger le projet
Commenter

Description

Petit addon permettant l'affichage de mots ou de phrase en tapant un raccourcis au préalable créé dans la console livrée avec. Exemple: Créez le raccourcis mdr, assignez lui comme effet mort de rire et toutes vos phrases contenants mdr afficheront mort de rire à la place.Peut aussi servir d'auto-censure.Grand merci à WORLDDMT et UAIP pour leurs précieux conseils.

Source / Exemple : 


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;                                                                              ;
;                                                                              ;
;                Raccourcis persos by donkishock@hotmail.com                   ;
;                          irc.double-zen.com                                  ;
;                                                                              ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;################ Partie Dialog ##########################;
dialog raccpers {
  title "Raccourcis persos"
  size -1 -1 222 176
  option dbu
  button "Ajouter", 1, 184 18 30 10
  edit "", 3, 9 18 50 10, autohs
  edit "", 4, 65 18 116 10, autohs
  list 5, 9 30 50 128, size
  list 6, 65 30 116 128, size
  button "OK", 7, 184 163 30 10, ok
  button "Supprimer", 8, 184 30 30 10
  check "Activer les raccourcis persos", 9, 9 163 97 10
  text "Raccourcis", 10, 9 10 50 8, center
  text "Effet des raccourcis", 11, 65 10 115 8, center
  box "Créer des raccourcis", 2, 5 1 213 160
}
;################ Partie Code du Dialog ##########################;
on *:dialog:raccpers:*:*: {
  if ($devent == init) { 
    loadbuf -o raccpers 5 courcis.txt
    loadbuf -o raccpers 6 effet.txt
    echo 4 -a Ouverture de la console des raccourcis persos.
    if ($hget(raccs) != raccs) {
      .hmake raccs 200
    }
    if ($exists(raccs.txt)) {
      .hload raccs raccs.txt
    }
    if (%autorax) {
      did -c raccpers 9
    }
  }
  elseif ($devent == sclick) { 
    if ($did == 1) {
      if ($did(3) != $null) && ($did(4) != $null) && ($did(3).text !isin $didtok(5)) && ($did(4).text !isin $didtok(6)) {
        did -a raccpers 5 $did(3).text
        did -a raccpers 6 $did(4).text
        hadd raccs $did(3) $did(4)
        write courcis.txt $did(03)
        write effet.txt $did(04)
        did -r raccpers 3,4
        hsave -o raccs raccs.txt
        inc %raccs 1
      }
      if ($did(3) != $null) && ($did(4) != $null) && ($did(3) isin $didtok(5)) && ($did(4) !isin $didtok(6)) {
        echo -a 3Ce raccourcis éxiste déja, veuillez l'effacer pour le modifier.    
      }
      if ($did(3) != $null) && ($did(4) != $null) && ($did(3) !isin $didtok(5)) && ($did(4) isin $didtok(6)) {
        echo -a 3Cet effet de raccourcis éxiste déja, veuillez l'effacer pour le modifier.
      }
      if ($did(3) != $null) && ($did(4) != $null) && ($did(3) isin $didtok(5)) && ($did(4) isin $didtok(6)) {
        echo -a 3Ce raccourcis et cet effet éxistent déja, veuillez les effacer pour les modifier.    
      }
    }
    if ($did == 5) {
      did -c raccpers 6 $did(5).sel
    }
    if ($did == 6) {
      did -c raccpers 5 $did(6).sel
    }
    if ($did == 8) {
      if ($didtok(5) != $null) && ($didtok(6) != $null) {
        hdel raccs $did(5).seltext
        write -dl $+ $did(5).sel courcis.txt 
        write -dl $+ $did(6).sel effet.txt 
        did -r raccpers 5,6
        loadbuf -o raccpers 5 courcis.txt
        loadbuf -o raccpers 6 effet.txt
        hsave -o raccs raccs.txt
        dec %raccs 1
      }
    }
    if ($did == 7) {
      set %autorax $did(9).state
    } 
  }
}
;##################################### Partie Token #############################;
on *:INPUT:*: {
  if (%autorax) {
    set %rax 1
    var %persracc = $1-
    while (%rax <= %raccs) {
      var %persracc = $reptok(%persracc,$hget(raccs,%rax).item,$hget(raccs,%rax).data,32)
      inc %rax 1
    }
    if ($left($1,1) != $chr(47)) {
      say %persracc 
    }
    else {
      %persracc 
    }
    haltdef
  }
}
;############################### Partie Menu/démarage ##########################################;
alias rac { 
  dialog $iif($dialog(raccpers),-v,-mied raccpers) raccpers 
}
menu * {
  -
  Outils
  .Raccourcis Persos:{
    rac
  }
  - 
}
on *:START: {
    if ($hget(raccs) != raccs) {
      .hmake raccs 200
    }
    if ($exists(raccs.txt)) {
      .hload raccs raccs.txt
    }
}

Conclusion :


:)
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (donkishock)