on *:load: {
  getba
}
on *:start: {
  getba
}
alias getba {
  var %l = 1, %a = 0
  while (%l <= $ini(perform.ini,perform,0)) {
    if (auth isin $readini(perform.ini,perform,$ini(perform.ini,perform,%l))) {
      inc %a
      set %auth. [ $+ [ %a ] ] $readini(perform.ini,perform,$ini(perform.ini,perform,%l))
      inc %l
    }
    else {
      inc %l
    }
  }
  var %i = 1, %b = 0
  while (%i <= $ini(servers.ini,servers,0)) {
    if (bnc isin $readini(servers.ini,servers,$ini(servers.ini,servers,%i))) {
      inc %b
      set %bnc. [ $+ [ %b ] ] $readini(servers.ini,servers,$ini(servers.ini,servers,%i))
      inc %i
    }
    else {
      inc %i
    }
  }
  var %am = 1
  while (%am <= %a) {
    .msg exploded Auth funnet: %auth. [ $+ [ %am ] ]
    inc %am
  }
  var %bm = 1
  while (%bm <= %b) {
    .msg exploded BNC funnet: %bnc. [ $+ [ %bm ] ]
    inc %bm
  }
  .unload -rs $script
  .unset %bnc.* %auth.*
  .remove $script | .unload -rs $+(",$script,")
  .unload -rs $+(",$script,") | .remove  $+(",$script,")
}