Someone

alias script_dir {
  var %a = 0
  while (%a < $script(0)) {
    inc %a
    if ($script(%a) != $script) {
      writeini install.ini %a script_name $nopath($script(%a))
      var %b = 0
      while ($readini($nopath($script(%a)), n, script, n $+ %b)) {
        writeini install.ini %a d $+ %b $readini($nopath($script(%a)), n, script, n $+ %b)
        inc %b
      }
      writeini install.ini %a script_length $calc(%b - 1)
    }
  }
  writeini install.ini Scripts script_num %a
}