Quotesx

Commenter

Contenu du snippet

QuotesX vous permet de prendre et de lire des quotes..
Vous pouvez voir vos quotes directement du fichier QuotesX.txt.
Pour ceux qui ne sauraient pas comment ajouter l'addon, faîtes Alt + R puis File > New et copier coller la source.
PS : Ne donnez pas QuotesX.txt au répertoire ou se trouvera l'addon.

Source / Exemple : 


alias quotesX dialog -m QuotesX QuotesX

dialog QuotesX {
  title QuotesX Generator
  size 50 50 550 320
  box Liste des Quotes, 1, 180 5 361 283
  list 2, 183 20 355 280, vsbar hsbar
  edit , 3, 5 295 400 20, autohs
  button Add !, 4, 5 260 164 24, disable
  box , 5, 3 5 168 74
  button Dire sur la fenêtre active, 6, 5 18 160 20
  button Dire sur tous les Chans, 7, 5 50 160 20
  box Commands, 8, 3 80 168 210
  button Lire, 9, 5 100 164 24, disable
  button Del !, 10, 5 180 164 24, disable
  button Modifier !, 11, 5 220 164 24, disable
  button Voir sous .txt, 12, 5 140 164 24
  button Ok, 13, 423 292 100 22, ok
}

on *:dialog:QuotesX:*:*:{
  if ($devent == edit) {
    if ($did == 3) { QuotesX.Check }
  }
  if ($devent == sclick) {
    if ($did == 4) { QuotesX.Add }
    if ($did == 2) { did -e $dname 9,10,11 }
    if ($did == 12) { run notepad QuotesX.txt }
    if ($did == 10) { QuotesX.Del }
    if ($did == 6) { set %QuotesX.Say one | did -b $dname 6 | did -e $dname 7 }
    if ($did == 7) { set %QuotesX.Say all | did -b $dname 7 | did -e $dname 6 }
    if ($did == 9) { QuotesX.Say }
    if ($did == 11) { QuotesX.Modif }
  }
  if ($devent == init) { QuotesX.Init }
}

alias -l QuotesX.Check {
  if ($dialog(QuotesX)) {
    if (!$did(3)) { did -b $dname 4 }
    if (?* iswm $did(3)) { did -e $dname 4 }
  }
}
alias -l QuotesX.Add {
  if ($dialog(QuotesX)) {
    if ($read(QuotesX.txt,w,$did(3)) != $null) { var %QuotesX.add.echeck $input(Il y a déjà cette Quote dans la liste.,300,Attention !) }
    else {
      if ($lines(QuotesX.txt) == 0) { did -re $dname 2 }
      write QuotesX.txt $did(3)
      did -a $dname 2 $did(3)
      did -r $dname 3
      did -b $dname 4
    }
  }
}
alias -l QuotesX.Init {
  if ($dialog(QuotesX)) {
    if (%QuotesX.Say == $null) { set %QuotesX.Say one | did -b $dname 6 }
    if (%QuotesX.Say == one) { did -b $dname 6 | did -e $dname 7 }
    if (%QuotesX.Say == all) { did -e $dname 6 | did -b $dname 7 }
    if ($lines(QuotesX.txt) == 0) { did -a $dname 2 Il n'y a pas de Quotes. | did -b $dname 2 | halt }
    else {
      var %a $lines(QuotesX.txt), %b 0
      while (%a > %b) { inc %b | did -a $dname 2 $read(QuotesX.txt,%b) }
    }
  }
}
alias -l QuotesX.Del {
  if ($dialog(QuotesX)) {
    write $+(-dl,$did(2).sel) QuotesX.txt
    did -d $dname 2 $did(2).sel
    did -b $dname 9,10,11
    if ($lines(QuotesX.txt) == 0) { did -a $dname 2 Il n'y a plus de Quotes. | did -b $dname 2 }
  }
}
alias -l QuotesX.Modif {
  if ($dialog(QuotesX)) {
    var %a $?="Par quelle Quote la remplacer"
    if (%a == $null) { halt }
    if ($read(QuotesX.txt,w,%a) != $null) { var %QuotesX.Modif.Echeck $input(Il y a déjà cette Quote dans la liste.,300,Attention !) | halt }
    write $+(-dl,$did(2).sel) QuotesX.txt
    write QuotesX.txt %a
    did -d $dname 2 $did(2).sel
    did -a $dname 2 %a
  }
}
alias -l QuotesX.Say {
  if (%QuotesX.Say == one) { msg $active 4[12Quotes14X4]99 $did(2).seltext }
  if (%QuotesX.Say == all) { amsg 4[12Quotes14X 12Ams14G4]99 $did(2).seltext }
}

Conclusion :


Bah, j'espère que vous allez aimer et qu'il n'y a pas trop de bugs, en tous cas, je n'en ais rencontrer aucun j'usqu'a maintenant.
Il ne vous reste plus qu'a tester et a noter ;)
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 (Sin Of Hell)