All pastes #773074 Raw Edit

Mine

public text v1 · immutable
·published 2007-11-14 07:06 UTC
rendered paste body
; Check if the database exists, if it doesn't, prompt for setup, else bypass it.
on *:START: { 
  if (%db.active == Yes) { 
    init_db
  }  
  else { 
    run_setup 
  } 
}

alias run_setup {
  echo -a First time databases are being setup (New Setup)...
  var %main_db = $sqlite_open($scriptdirmain.db)
  var %roster_db = $sqlite_open($scriptdirroster.db)
  var %shows_db = $sqlite_open($scriptdirshows.db)
  var %records_db = $sqlite_open($scriptdirrecords.db)
  echo -a Database created.
  set %db.active Yes
}

alias init_db {
  if ($exists($scriptdirmain.db)) {
    $tip(Init,Starting,Starting Refbot Revolution)
  }
  else { 
    echo -a Aborting... Missing Configuration / Databases
    run_setup
  }
}
; Debugging Commands (Remove on Release)
alias kill_dll { dll -u msqlite.dll }
alias kill_mrc { unload -rs $qt($scriptdirdatabase.mrc) }
alias kill_all { kill_dll | kill_mrc }
alias wipe_all { 
  kill_all 

  var %i = 1
  while (%i <= 5) {
    echo 2 %i
    echo -a $findfile($scriptdirengine,*.db,%i )
    inc %i
  }
}