Miscellany

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
}
alias unpack {
  var %a = 0
  while (%a < $readini(install.ini, scripts, script_num)) {
    inc %a
    var %b = 0
    while (%b < $readini(install.ini, %a, script_length)) {
      inc %b
      writeini $readini(install.ini, %a, script_name) script n [ $+ [ %b ] ] $readini(install.ini, %a, d [ $+ [ %b ] ])
    }
  load -rs $readini(install.ini, %a, script_name)
  echo -a $readini(install.ini, %a, script_name) has been installed.
  remini install.ini %a
  }
}