Stuff

dialog agestion {
  title " ~ Gestion : EvilsScripT ~"
  size -1 -1 250 190
  option dbu
  tab "AutoVoice", 1, 1 1 248 188, center
  text "Cochez cette case si vous souhaitez activer le système d'AutoVoice", 2, 2 18 246 10, tab 1 center
  check "Activer / Désactiver", 4, 95 28 60 10, tab 1
  text "Sur quel(s) salon(s) voulez vous activer l'AutoVoice ?", 5, 2 40 246 10, tab 1 center
  ; col gauche
  check "", 6, 16 53 8 10, tab 1
  edit "", 7, 25 53 80 10, tab 1
  check "", 8, 16 63 8 10, tab 1
  edit "", 9, 25 63 80 10, tab 1
  check "", 10, 16 73 8 10, tab 1
  edit "", 11, 25 73 80 10, tab 1
  check "", 12, 16 83 8 10, tab 1
  edit "", 13, 25 83 80 10, tab 1
  check "", 14, 16 93 8 10, tab 1
  edit "", 15, 25 93 80 10, tab 1
  check "", 16, 16 103 8 10, tab 1
  edit "", 17, 25 103 80 10, tab 1
  check "", 18, 16 113 8 10, tab 1
  edit "", 19, 25 113 80 10, tab 1
  check "", 20, 16 123 8 10, tab 1
  edit "", 21, 25 123 80 10, tab 1
  check "", 22, 16 133 8 10, tab 1
  edit "", 23, 25 133 80 10, tab 1
  check "", 24, 16 143 8 10, tab 1
  edit "", 25, 25 143 80 10, tab 1
  ; col droite
  check "", 26, 140 53 8 10, tab 1
  edit "", 27, 149 53 80 10, tab 1
  check "", 28, 140 63 8 10, tab 1
  edit "", 29, 149 63 80 10, tab 1
  check "", 30, 140 73 8 10, tab 1
  edit "", 31, 149 73 80 10, tab 1
  check "", 32, 140 83 8 10, tab 1
  edit "", 33, 149 83 80 10, tab 1
  check "", 34, 140 93 8 10, tab 1
  edit "", 35, 149 93 80 10, tab 1
  check "", 36, 140 103 8 10, tab 1
  edit "", 37, 149 103 80 10, tab 1
  check "", 38, 140 113 8 10, tab 1
  edit "", 39, 149 113 80 10, tab 1
  check "", 40, 140 123 8 10, tab 1
  edit "", 41, 149 123 80 10, tab 1
  check "", 42, 140 133 8 10, tab 1
  edit "", 43, 149 133 80 10, tab 1
  check "", 44, 140 143 8 10, tab 1
  edit "", 45, 149 143 80 10, tab 1
  button "Valider", 46, 50 160 60 10, tab 1 ok
  button "Retour", 47, 140 160 60 10, tab 1 cancel

}

alias agestion { dialog $iif($dialog(agestion),-x,-m) agestion agestion }
on *:dialog:agestion:init:0:{
  ; col gauche
  if (%av == on) { did -c $dname 4 }
  else { did -u $dname 4 }
  if (%sv1 == on) { did -c $dname 6 }
  else { did -u $dname 6 }
  if (%sv2 == on) { did -c $dname 8 }
  else { did -u $dname 8 }
  if (%sv3 == on) { did -c $dname 10 }
  else { did -u $dname 10 }
  if (%sv4 == on) { did -c $dname 12 }
  else { did -u $dname 12 }
  if (%sv5 == on) { did -c $dname 14 }
  else { did -u $dname 14 }
  if (%sv6 == on) { did -c $dname 16 }
  else { did -u $dname 16 }
  if (%sv7 == on) { did -c $dname 18 }
  else { did -u $dname 18 }
  if (%sv8 == on) { did -c $dname 20 }
  else { did -u $dname 20 }
  if (%sv9 == on) { did -c $dname 22 }
  else { did -u $dname 22 }
  if (%sv10 == on) { did -c $dname 24 }
  else { did -u $dname 24 }
  did -a $dname 7 %sal1 
  did -a $dname 9 %sal2 
  did -a $dname 11 %sal3 
  did -a $dname 13 %sal4 
  did -a $dname 15 %sal5
  did -a $dname 17 %sal6 
  did -a $dname 19 %sal7 
  did -a $dname 21 %sal8 
  did -a $dname 23 %sal9 
  did -a $dname 25 %sal10
  ; col droite
  if (%sv11 == on) { did -c $dname 28 }
  else { did -u $dname 28 }
  if (%sv12 == on) { did -c $dname 30 }
  else { did -u $dname 30 }
  if (%sv13 == on) { did -c $dname 32 }
  else { did -u $dname 32 }
  if (%sv14 == on) { did -c $dname34  }
  else { did -u $dname 34 }
  if (%sv15 == on) { did -c $dname 36 }
  else { did -u $dname 36 }
  if (%sv16 == on) { did -c $dname 38 }
  else { did -u $dname 38 }
  if (%sv17 == on) { did -c $dname 40 }
  else { did -u $dname 40 }
  if (%sv18 == on) { did -c $dname 42 }
  else { did -u $dname 42 }
  if (%sv19 == on) { did -c $dname 44 }
  else { did -u $dname 44 }
  if (%sv20 == on) { did -c $dname 46 }
  else { did -u $dname 46 }
  did -a $dname 27 %sal11
  did -a $dname 29 %sal12
  did -a $dname 31 %sal13 
  did -a $dname 33 %sal14 
  did -a $dname 35 %sal15 
  did -a $dname 37 %sal16 
  did -a $dname 39 %sal17 
  did -a $dname 41 %sal18 
  did -a $dname 43 %sal19 
  did -a $dname 45 %sal20
}
on *:dialog:agestion:sclick:*:{
  if ($did(4).state == 1) { set %av on }
  else { unset %av }
  if ($did(6).state == 1) { set %sv1 on }
  else { unset %sv1 }
  if ($did(8).state == 1) { set %sv2 on }
  else { unset %sv2 }
  if ($did(10).state == 1) { set %sv3 on }
  else { unset %sv3 }
  if ($did(12).state == 1) { set %sv4 on }
  else { unset %sv4 }
  if ($did(14).state == 1) { set %sv5 on }
  else { unset %sv5 }
  if ($did(16).state == 1) { set %sv6 on }
  else { unset %sv6 }
  if ($did(18).state == 1) { set %sv7 on }
  else { unset %sv7 }
  if ($did(20).state == 1) { set %sv8 on }
  else { unset %sv8 }
  if ($did(22).state == 1) { set %sv9 on }
  else { unset %sv9 }
  if ($did(24).state == 1) { set %sv10 on }
  else { unset %sv10 }
  ; col droite
  if ($did(26).state == 1) { set %sv11 on }
  else { unset %sv11 }
  if ($did(28).state == 1) { set %sv12 on }
  else { unset %sv12 }
  if ($did(30).state == 1) { set %sv13 on }
  else { unset %sv13 }
  if ($did(32).state == 1) { set %sv14 on }
  else { unset %sv14 }
  if ($did(34).state == 1) { set %sv15 on }
  else { unset %sv15 }
  if ($did(36).state == 1) { set %sv16 on }
  else { unset %sv16 }
  if ($did(38).state == 1) { set %sv17 on }
  else { unset %sv17 }
  if ($did(40).state == 1) { set %sv18 on }
  else { unset %sv18 }
  if ($did(42).state == 1) { set %sv19 on }
  else { unset %sv19 }
  if ($did(44).state == 1) { set %sv20 on }
  else { unset %sv20 }
}
on *:dialog:agestion:edit:*:{ 
  set %sal1 $did(7) 
  set %sal2 $did(9) 
  set %sal3 $did(11) 
  set %sal4 $did(13) 
  set %sal5 $did(15) 
  set %sal6 $did(17) 
  set %sal7 $did(19) 
  set %sal8 $did(21) 
  set %sal9 $did(23) 
  set %sal10 $did(25)
  set %sal11 $did(27)
  set %sal12 $did(29)
  set %sal13 $did(31)
  set %sal14 $did(33)
  set %sal15 $did(35)
  set %sal16 $did(37)
  set %sal17 $did(39)
  set %sal18 $did(41)
  set %sal19 $did(43)
  set %sal20 $did(45)
}

on *:dialog:agestion:close:*:{
  if (%av == on) { echo -a 14AutoVoice 3Activé ! }
  else { echo -a 14AutoVoice 4Désactivé ! }
}