; Done
alias wipe_all {
  sqlite_close $readini($qt($scriptdirdb.ini), Databases, Main)
  sqlite_close $readini($qt($scriptdirdb.ini), Databases, Roster)
  sqlite_close $readini($qt($scriptdirdb.ini), Databases, Shows)
  sqlite_close $readini($qt($scriptdirdb.ini), Databases, Records)
  var %i = $findfile($scriptdir,*.db,0)
  while (%i > 0) {
    $findfile($scriptdir,*.db,%i,remove $qt($1-))
    dec %i
  }
  unset %db.active
  remove $qt($-))
}