REPONDEUR ET QUI FAIT EN + FERMETURE DE PV

alias repondeur { dialog -m repondeur repondeur }
dialog repondeur {
  title "Répondeur de pv"
  size -1 -1 617 170
  option pixels
  edit "", 1, 107 8 410 20, autohs center
  icon 2, 17 31 565 22,  repondeur\apercu\repondeur.jpg
  list 3, 14 57 587 100, size
  button "Modifier", 4, 54 8 46 20
  button "Ajouter", 5, 7 8 45 20
  button "Supprimer", 6, 7 30 55 20
  check "ok/répondeur", 8, 528 9 90 16
  check "ok/anti pv", 12, 528 31 90 16
}

on *:dialog:repondeur:*:*:{ 
  if $devent == init {
    reacturep
    if (%rep-active == ON) { did -c repondeur 8  }
    if (%antipv-active == ON) { did -c repondeur 12  }
    did -ra $dname 1 %rep-repondeur
    repapercu $did(1)
  }
  if $devent == edit {
    set %rep $did(1)
    repapercu $did(1)
    set %rep-repondeur $did(1)
  }
  if $devent == sclick {
    if ($did == 8) {
      if ($did(8).state == 1) { set %rep-active ON }
      else { unset %rep-active }
    }
    if ($did == 5) {
      write repondeur\repondeur-antipv\repondeur.txt $did(1)
      reacturep  
      repapercu $did(1)
    }
    if ($did == 6) {
      write $+(-dl,$did(3).sel) repondeur\repondeur-antipv\repondeur.txt
      did -r $dname 1
      reacturep
      repapercu $did(1)
    }
    if ($did == 4) {
      write $+(-l,$did(3).sel) repondeur\repondeur-antipv\repondeur.txt $did(1)
      reacturep
      repapercu $did(1)
    }
    if ($did == 3) {
      did -ra repondeur 1 $did(3).seltext
      repapercu $did(1)
      set %rep-repondeur $did(1)
    }
    if ($did == 12) {
      if ($did(12).state == 1) { set %antipv-active ON }
      else { unset %antipv-active }
    }
  }
}

alias reacturep {
  did -r repondeur 3
  var %rp = 1
  while (%rp <= $lines(repondeur\repondeur-antipv\repondeur.txt)) {
    did -a repondeur 3 $read(repondeur\repondeur-antipv\repondeur.txt, %rp)
    inc %rp
  }
}

alias repapercu {
  .remove repondeur\apercu\repondeur.jpg
  window -ph +b @repapercu 50 50 588 22
  if ($1- != $null) { drawtext -p @repapercu 1 "Comic Sans MS" 12 10 1 $1- }
  drawsave @repapercu repondeur\apercu\repondeur.jpg
  did -g repondeur 2 repondeur\apercu\repondeur.jpg
  close -@ @repapercu
}

on 1: OPEN:?: {  
  echo -s 4----------» 7 $nick 4 veut te parlé en privé ... 3«---------- 
  if (%rep-active == on) {
    msg $nick $replace(%rep-repondeur,<nick>,$nick,<me>,$me,<opnick>,$opnick,<vnick>,$vnick,<knick>,$knick,<banmask>,$banmask,<chan>,$chan,<date>,$date,<time>,$time) 
  }
  if (%antipv-active == on) { 
    echo -s 4----------» 7 Le PV De 4 $nick ... 3est fermer à $time
    close -m $nick
  }
}

Télécharger le zip

17 janvier 2006 11:23:46 :

juste une mise à jour du titre qui ressortait en caractère illisible et un paufinement de ma description.

18 janvier 2006 10:44:03 :

juste changer la capture d'écran pour mieux voir le dialog