CHARGER & DÉCHARGER 0.1

alias cetd { dialog -m  c&d c&d }
dialog c&d {
  title ":: C&D.A 0.1 ::"
  size -1 -1 84 128
  option dbu
  tab "Addons", 1, 2 -1 79 117
  list 3, 6 23 72 69, tab 1 size
  box "Liste Addons Chargés", 4, 4 15 75 90, tab 1
  button "-Charger-", 5, 4 106 37 8, disable tab 1 flat
  button "-Décharger-", 6, 42 106 37 8, disable tab 1 flat
  edit "", 9, 6 93 50 10, tab 1 autohs
  button "...", 12, 59 94 17 9, tab 1
  tab "Back Up", 2
  list 8, 6 23 72 80, tab 2 size
  button "-Recharger-", 10, 4 106 37 8, disable tab 2 flat
  box "Liste Addons Déchargés", 11, 4 15 75 90, tab 2
  button "-Effacer-", 13, 42 106 37 8, disable tab 2 flat
  button ":: EXIT ::", 7, 3 119 78 8, flat cancel
}

On *:DIALOG:c&d:*:*:{
  if ($devent == init) { cdinit }
  if ($devent == sclick) {
    if ($did == 12) { set %path $sfile($mircdir,Charger l'addon...) 
    if (%path != $null) { did -e c&d 5 | did -a c&d 9 %path } } 
    if ($did == 5) { 
      if ($did(c&d,9) == $null || $did(c&d,9) != %path) { did -b c&d 5 | did -r c&d 9  }
      else { if ($nofile(%path) != %path1) {  aj_adn | add_adn | did -r c&d 9 | did -b c&d 5 } 
      else { add_adn | did -r c&d 9 | did -b c&d 5 | echo $active 4OK  } } 
    unset %path } 
    if ($did == 3) { did -e c&d 6 }
    if ($did == 6) { del_adn | did -a c&d 8 $did(3).seltext |  did -d c&d 3 $did(3).sel | did -b c&d 6 }
    if ($did == 8) { did -e c&d 10,13 }
    if ($did == 10) { re_adn | load -rs %path1 $+ $did(8).seltext | did -a c&d 3 $did(8).seltext | did -d c&d 8 $did(8).sel | did -b c&d 10,13 }
if ($did == 13) { remove -b %path2 $+ $did(8).seltext | remini addons\systeme\systeme.ini backup $did(8).seltext | did -d c&d 8 $did(8).sel | did -b c&d 10,13 } } }


alias -l add_adn { load -rs %path1 $+ $nopath(%path) | writeini -n addons\systeme\systeme.ini addons $nopath(%path) %path1 $+ $nopath(%path) | saveini | did -a c&d 3 $nopath(%path)  }
alias -l aj_adn { copy -o %path %path1 | remove -b %path }
alias -l cdinit { var %a 1 | while (%a <= $ini(addons\systeme\systeme.ini,addons,0) ) { did -a c&d 3 $ini(addons\systeme\systeme.ini,addons,%a) | inc %a }
var %a 1 | while (%a <= $ini(addons\systeme\systeme.ini,backup,0) ) { did -a c&d 8 $ini(addons\systeme\systeme.ini,backup,%a) | inc %a } }
alias -l del_adn { unload -rs $did(3).seltext  | copy -o %path1 $+ $did(3).seltext %path2 | remove -b %path1 $+ $did(3).seltext | remini addons\systeme\systeme.ini addons $did(3).seltext |  writeini -n addons\systeme\systeme.ini backup $did(3).seltext %path2 $+ $did(3).seltext  }
alias -l re_adn { copy -o %path2 $+ $did(8).seltext %path1 | remove -b %path2 $+ $did(8).seltext | remini addons\systeme\systeme.ini backup $did(8).seltext |  writeini -n addons\systeme\systeme.ini addons $did(8).seltext %path1 $+ $did(8).seltext  }

menu channel {
  :: C&D 0.1 ::
  .Charger/Décharger Addons:cetd
}
on *:LOAD: {
  echo -at 4©º°¨¨°º©©º°¨¨°º©©º°¨¨°º©©º°¨¨°º©  
  echo -at 10-----C&D 0.1 addon installé-----
  mkdir addons | mkdir addons\systeme |  mkdir addons\backup
  echo -at 10-----C&D 0.1 dossiers systeme crées-----
  set %path1 $mircdir $+ addons\ | set %path2 $mircdir $+ addons\backup\
  echo -at 10-----C&D 0.1 variables initialisées-----
  echo -at 4`°¤ø,¸,ø¤°`°¤ø,¸¸¸¸,ø¤°`°¤ø,¸¸¸,ø¤°`
}