i would just change a few things on it..
where you have

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
}

change to

on *:DIALOG:scripts:init:*: { 
  var %total.scripts $script(0), %c = 1
  while (%c <= %total.scripts) {
    did -a scripts 5 $script(%c)
    inc %c
  }
  did -b scripts 2,4,1
}

and instead of reloding the script to refresh the list change this

if ($did == 1) {
    load -rs \" $+ $did(5).seltext $+ \"
  }

to

if ($did == 1) {
    did -r scripts 5
    var %total.scripts $script(0), %c = 1
    while (%c <= %total.scripts) {
      did -a scripts 5 $script(%c)
      inc %c 
    }
  }