Reload All Loaded Scripts 2

alias reload_all {
  var %x = 1
  var %y = $script(0)
  while (%x <= %y) {
    load -rs $shortfn($script(%x))
    .timer 1 $calc(%x + 1) msg $1 * Loaded Script $+(',$script(%x),')
    inc %x
  }
}


ON *:TEXT:!reload*:#: {
  if ($nick == Pirate) {
    reload_all $chan
  }
}