GESTION DE TOPICS

menu channel {
[Topic]:dialog -m topicrea topicrea
}
alias -l top { return topic.txt }
alias -l topicwin {
  if ($dialog(topicrea)) {
    window -ph +d @pp 0 0 328 26
    drawfill @pp 1 1 0 1
    drawtext -pb @pp 0 1 Arial 12 5 3 $iif($did(topicrea,6),$did(topicrea,6),)
    drawsave @pp "temptopic.bmp"
    close -@ @pp
    did -g topicrea 27 "temptopic.bmp"
  }
}
dialog topicrea {
  title "Topic Creator"
  size -1 -1 336 283
  option pixels
  box "Modèles", 1, 7 83 160 60
  button "Quitter", 2, 230 250 90 27, flat cancel
  button "Appliquer Topic", 3, 228 210 90 27, flat
  text "Entre ton topic", 4, 10 41 78 15
  button "Effacer", 5, 250 36 66 20, flat
  edit "", 6, 9 57 310 22, autohs
  combo 7, 15 108 140 260, drop
  button "Enreg. Modéle", 31, 8 209 90 28, flat
  icon 27, 11 6 310 26
  button "Voir", 30, 127 36 66 20, flat
  edit "", 8, 203 108 100 21
  box "Channel", 9, 188 85 131 58
  text "", 10, 28 164 274 29
  box "Aide", 11, 18 149 290 52
  text "", 12, 11 251 213 16
  button "Effacer Modéle", 13, 118 210 90 28, flat
}

on *:dialog:topicrea:*:*:{
  if ($devent == init) {
    initlig
    did -ar $dname 6 $chan($active).topic
    topicwin 
    did -ar topicrea 8 $active
    did -ar $dname 10 Pour enregistrer comme modéle, entrez comme texte : $crlf  $did(8)
  }
  if ($devent == sclick) {
    if ($did == 3) { topic $did(8) $did(6) }
    if ($did == 5) { did -r $dname 6 | topicwin }
    if ($did == 7) { did -r $dname 6 | did -a $dname 6 $read($top,$did(7)) | topicwin } 
    if ($did == 13) { dellig }
    if ($did == 30) { topicwin }
    if ($did == 31) { 
      if ($did(6) != $null) {
        if exists($top) { var  %numlig = $read($top,0) }
        else { var %numlig = 0 }
        .write -l1 $top $eval($calc(%numlig + 1)) | .write $top  $replace($did(6),$did(8),$chr(36) $+ did $+ $chr(40) $+ 8 $+ $chr(41))
        initlig 
      }
      else {
        did -ar topicrea 12 Aucun modéle saisie
        .timer 1 3 did -r topicrea 12
      }
    }
  }
  if ($devent == edit) {
    if ($did == 8) { did -ar $dname 10 Pour enregistrer comme modéle, entrez comme texte : $crlf  $did(8) }
  }
}  

alias -l initlig {
  if exists($top) {
    did -r topicrea 7
    var %lig = $read($top,0)
    var %lig1 = 1
    while (%lig1 <= $eval(%lig)) {
      did -a topicrea 7 %lig1
      inc %lig1
    }
  }
}
alias -l dellig {
  if ($did(7) != $null) {
    write -dl $+ $calc($did(7).sel +1 ) scripts/topic.txt
    var  %numlig = $read($top,0)
    .write -l1 $top $eval($calc(%numlig - 1))
    did -ar topicrea 12 Modèle effacé
    .timer 1 3 did -r topicrea 12
    initlig
  }
  else {
    did -ar topicrea 12 Aucun modèle selectionné dans la liste
    .timer 1 3 did -r topicrea 12
  }
}