Système de quotes

Commenter

Contenu du snippet

Voila un petit système de quotes qui, quand vous ajoutez une quote, il ya la date à laquelle vous l'avez ajouté, et le nom de votre quote suivit par la quote elle-même :)

Source / Exemple : 


alias quotes dialog -m quote quote

dialog quote {
  title "Système De Quotes"
  size -1 -1 163 134
  option dbu
  box "Liste des quotes", 1, 3 2 156 89
  list 2, 8 11 146 54, size vsbar
  box "Options", 3, 38 93 86 28
  button "Ajouter", 4, 22 66 32 9
  button "Modifier", 5, 62 66 32 9
  button "Supprimer", 6, 102 66 32 9
  radio "Afficher sur le canal actif", 7, 46 100 71 10
  radio "Afficher sur tous les canaux", 8, 42 109 78 10
  button "Ok", 9, 49 124 68 8, ok cancel
  button "Lire la Quote", 10, 48 78 62 10
}

On *:DialoG:quote:*:*:{
  if ($devent == init) {
    if ($exists(quote.txt)) { loadbuf -o quote 2 quote.txt }
    did -c $dname $iif(%msg == on,7,8)
  }
  if ($devent == sclick) {
    if ($did == 4) { set %addquote $$?="Copie ta quote ici" | set %addquote.name $$?="Quelle est le nom de cette quote ?" | set %quotedial $date - %addquote.name : %addquote | did -a quote 2 %quotedial | savebuf -o quote 2 quote.txt }
    if ($did == 5) && ($did(2).sel) { var %addquote $$?"Copie ta nouvelle quote ici" | var %addquote.name $$?="Quelle est le nom de cette nouvelle quote ?" | set %quotedial $date - %addquote.name : %addquote | did -d quote 2 $did(2).sel | did -a quote 2 %quotedial | savebuf -o quote 2 quote.txt }
    if ($did == 6) && ($did(2).sel) { did -d quote 2 $did(2).sel | savebuf -o quote 2 quote.txt }
    if ($did == 7) { set %msg on }
    if ($did == 8) { set %msg off }
    if ($did == 10) {
      if (%msg == on) { $iif($did(2).seltext, readquote $ifmatch,echo -a 4[ Erreur ]15 >> Aucune quote séléctionnée) }
      else { $iif($did(2).seltext, allreadquote $ifmatch,echo -a 4[ Erreur ]15 >> Aucune quote séléctionnée) }
    }
  }
}

alias -l readquote {
  if (c isincs $chan($active).mode) { msg $active $chr(91) Système De Quotes $chr(93) - $chr(91) Quote $chr(155) $strip($1-) $chr(93) }
  else { msg $active 4[15 Système De Quotes 4]15 - 4[15 Quote $chr(155) $1- 4] }
}

alias -l allreadquote {
  var %d = 0, %dd = $chan(0)
  while %dd > %d {
    inc %d
    if (c isincs $chan($chan(%d)).mode) { msg $chan(%d) $chr(91) Système De Quotes $chr(93) - $chr(91) Quote $chr(155) $strip($1-) $chr(93) }
    else { msg $chan(%d) 4[15 Système De Quotes 4]15 - 4[15 Quote $chr(155) $1- 4] }
  }
}

Conclusion :


Voila, merci de commenter et de noter (si vous en avez envie :p).

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 (ZaiBaTsU)