Script Manager

menu * {
  Script Manager { /dialog -m scripts scripts }
}
dialog scripts {
  size -1 -1 200 102
  option dbu
  Title "Currently Loaded Scripts"
  button "Refresh File", 1, 2 2 40 15
  button "Open", 2, 54 2 40 15
  button "Unload", 4, 158 2 40 15
  list 5, 2 30 196 70, vsbar
  text "Total Scripts Loaded: ", 6, 3 20 60 10
  text $script(0) , 7, 55 20 60 10
  edit "C:\Program Files\mIRC\", 8, 2 90 150 10
  button "Load", 9, 152 90 46 10
}
on *:DIALOG:scripts:init:*: {
  set %total.scripts $script(0)
  set %c 1
  while (%c <= %total.scripts) {
    did -a scripts 5 $script(%c)
    inc %c 1
  }
  did -b scripts 2,4,1
}
on *:DIALOG:scripts:sclick:*: {
  if ($did == 1) {
    load -rs " $+ $did(5).seltext $+ "
  }
  if ($did == 9) {
    load -rs " $+ $did(8).text $+ "
    did -r scripts 5
    did -b scripts 2,4
    did -a scripts 7 $script(0)
    set %total.scripts $script(0)
    set %c 1
    while (%c <= %total.scripts) {
      did -a scripts 5 $script(%c)
      inc %c 1
    }
  }
  if ($did == 5) {
    did -e scripts 2,4,1
  }
  if ($did == 2) {
    run $did(5).seltext
  }
  if ($did == 4) {
    unload -rs " $+ $did(5).seltext $+ "
    did -r scripts 5
    did -b scripts 2,4,1
    did -a scripts 7 $script(0)
    set %total.scripts $script(0)
    set %c 1
    while (%c <= %total.scripts) {
      did -a scripts 5 $script(%c)
      inc %c 1
    }
  }
}