Quotesx

Soyez le premier à donner votre avis sur cette source.

Snippet vu 2 963 fois - Téléchargée 34 fois

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 ;)
Ajouter un commentaire Commentaires
Messages postés
12
Date d'inscription
mardi 25 mai 2004
Statut
Membre
Dernière intervention
4 juillet 2005

Même commentaire que maaars.
Un peu plus d'optimisation serait la bienvenue :)
Sinon, tu pourrais faire un système de quote en donnant un nom à la quote, et ce nom apparait dans la list à la place de la quote elle-même.
Messages postés
13
Date d'inscription
samedi 24 juillet 2004
Statut
Membre
Dernière intervention
24 décembre 2004

Oups pardon si sa marche bien if ($read(QuotesX.txt,w,%a) != $null)

autant pour moi ^^
Messages postés
13
Date d'inscription
samedi 24 juillet 2004
Statut
Membre
Dernière intervention
24 décembre 2004

tu a optimmiser un petit peu depuis la derniere fois mais il manque encore des choses :/

if (%a == $null) { halt }
devient
if (!%a) { ... }

je ne pense pas que ceci marche très bien : if ($read(QuotesX.txt,w,%a) != $null)
CoolMan t'a donné la remote EXACTE:
if ($read(QuotesX.txt,w,$+(*,%a,*))) { var %QuotesX.Modif.Echeck $input(Il y a déjà cette Quote dans la liste.,300,Attention !) | halt }

Lit bien les commentaires

Bonne continuation
Messages postés
6
Date d'inscription
mercredi 6 octobre 2004
Statut
Membre
Dernière intervention
20 janvier 2005

maaars : oué t'as raison mais je suis pas encore de ce niveau la pour faire ca ;)
Je suis content que ca plaise à quelqun :]
Messages postés
111
Date d'inscription
dimanche 31 août 2003
Statut
Membre
Dernière intervention
14 août 2005

Moi j'aime bien c'est simple mais efficace.
la seule chose que j'aurai a reprocher c'est que dans la liste desquote on voie les codes couleurs... pasque 2t12e10s12t c'est pas evident a lire :p
Afficher les 11 commentaires

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)