HIGHLIGHT MANAGER V1.0

On *:LOAD:{
  echo -a HighLight Manager V1.0 Bien Loadé
  set %al ON
  set %hlsons ON
}
alias hlm { dialog -dm hlm hlm }
dialog hlm {
  title "HighLight Manager V1.0"
  size -1 -1 149 127
  option dbu
  box "HLManager Version 1.0 By [VeSpArO]", 7, 1 1 99 125
  list 8, 6 50 90 75, size
  edit "", 9, 8 16 47 10, limit 5000
  button "Ajouter", 10, 60 16 37 12, flat
  button "Effacer", 11, 60 33 37 12, flat
  button "Alerte", 12, 8 33 37 12, flat
  box "Partie Sons", 14, 100 1 48 90
  button "Sons", 15, 105 16 37 12, flat
  button "Chercher", 16, 105 33 37 12, flat
  text "By [VeSpArO]", 19, 105 73 37 12,
  button "Fermer", 20, 105 105 37 12, flat cancel
  button "Musique Choisie", 21, 105 53 37 12, flat
  box "Fin Highlight", 22, 100 92 48 34
}
On *:DIALOG:hlm:*:*:{
  if $devent == init {
    if $exists(hlnick.txt) { loadbuf -o $dname 8 hlnick.txt }
    did -a $dname 12 Alerte: %al
    did -a $dname 15 Sons: %hlsons
  }
  if $devent == sclick {
    if $did == 10 && $did(9)) { did -r $dname 8 | write hlnick.txt $did(9) | loadbuf -o $dname 8 hlnick.txt }
    if $did == 11 { did -d $dname 8 $did(8).sel | write -dl hlnick.txt $did(8).seltext }
    if $did == 12 && %al == ON { did -a $dname 12 Alerte: OFF | set %al OFF }
    elseif %al == OFF { did -a $dname 12 Alerte: ON | set %al ON }
    if $did == 15 && %hlsons == ON { did -a $dname 15 Sons: OFF | set %hlsons OFF }
    elseif %hlsons == OFF { did -a $dname 15 Sons: ON | set %hlsons ON }
    if $did == 16 { set %hlson $sfile( *.mp3 , Choisissez un fichier audio ) }
    if $did == 21 && %hlson != $null { echo -a La Musique choisie est : $sounds(%hlson).title }
  }
}
On *:TEXT:*:#:{
  if ($active == $chan) { halt }
  if ($read(hlnick.txt,w,$+(*,$1,*)) isin $1-) && %al == ON && %hlsons == ON { echo -a (Alerte): $nick $+ ( $+ $address $+ ), vient de prononcer ton pseudo ( $+ $me $+ ) sur $chan a $time le $date | splay -p %hlson }
  elseif %hlsons == OFF { echo -a (Alerte): $nick $+ ( $+ $address $+ ), vient de prononcer ton pseudo ( $+ $me $+ ) sur $chan a $time le $date }
}