SYSTÈME DE QUOTES

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] }
  }
}