Mine

;; [PRLS]-[01:50]-[MP3]-[Martin_Pieters-XFM_Hitmix_2_(XFM)-CABLE-20-01-2006-1KING]
on *:text:*:#:{
  var %release =ase
  }
  if (*PS2* iswm %section) {
    addpre PS2 %release
  }
  if (*DVDR* iswm %section) {
    addpre DVDR %release
  }
  if (*DIVX* iswm %section) || (*XVID* iswm %section) {
    addpre XVID %release
  }
  if (*GAME* iswm %section) {
    addpre GAMES %release
  }
  if (*MP3* iswm %section) {
    addpre MP3 %release
  }
  if (*0day* iswm %section) {
    addpre 0day %release
  }
  if (*vcd* iswm %section) {
    if (*.TS.* iswm %release || *.TC.* iswm %release || *telesync* iswm %release || *telecine* iswm %release || *.CAM.* iswm %release) {
      addpre %release VCD 
    }
    else {
      addpre %release SVCD
    }
  }
  if (*TV* iswm %section) {
    if (*.HR.*DTV*AC3* iswm $1-) {
       addpre TV-HR %release
    elseif (*720p* iswm %release) {
      addpre TV-720p %release
    }
    elseif (*DVDRIP* iswm %release) {
      addpre TV-DVDRIP %release
    }
    else {
      addpre TV-XVID %release
    }
  }
  else {
    halt
  }
}
alias addpre {
  var %section = $strip($1)
  var %release = $strip($2)
  var %pretime = $ctime
  var %groupname = $gettok(%release, -1, 45)

  if ($rowexists(%release) = 1) { halt }

  SQLiteDLL Open predb predb.db
  SQLiteDLL Query predb INSERT INTO predb (release, time, section, groupname) VALUES (' $+ %release $+ ', ' $+ %pretime $+ ', ' $+ %section $+ ', ' $+ %groupname $+ ')
  SQLiteDLL Close predb
}
alias rowexists {
  var %release = $strip($1-)
  var %query = SELECT * FROM predb WHERE release=' $+ %release $+ ' LIMIT 1
  SQLiteDLL Open predb predb.db
  SQLiteDLL Query predb %query
  var %rows = $gettok($SQLiteDLL(Rows, predb), -1, 32)
  SQLiteDLL Close predb
  if (%rows > 0) { return 1 }
  return 0
}
alias pt {
  var %release = $replace($strip($1-),$chr(32),$chr(37))
  var %query = SELECT * FROM predb WHERE release LIKE ' $+ $chr(37) $+ %release $+ $chr(37) $+ ' ORDER BY id DESC
  SQLiteDLL Open predb predb.db
  SQLiteDLL Query predb %query
  var %rows = $SQLiteDLL(Rows, predb)
  if (%rows > 0) {
    var %rowdata = $SQLiteDLL(Fetch, predb, 1)
    var %rlstime = $gettok(%rowdata,3,9)
    var %preage = $calc($ctime - %rlstime)
    return %preage
  }
  SQLiteDLL Close predb
}