Miscellany

on *:text:!pre*:#:{
  if (!$2) { msg $chan É necessário escrever uma segunda palavra para pesquisa! | return }
  var %r = 0
  var %x = $lines(BD.txt)
  while (%x >= 1) {
    var %line = $read(BD.txt,%x)
    if (* $+ $2- $+ * iswm %line) {
      var %type = $gettok(%line,1,32)
      var %timestamp = $duration($calc($ctime - $ctime($deltok(%line,1- $+ $calc($numtok(%line,32) - 2),32))))

      if (%type == PRE) {
        var %category = $gettok(%line,2,32)
        var %release = $deltok(%line,$numtok(%line,32),32)
        var %release = $deltok(%release,$numtok(%release,32),32)
        var %release = $deltok(%release,1-2,32)
        msg $iif($1 == !pre,$chan,$nick) .:: Search ::. .:: %release ::. was pred .:: %timestamp ago ::. in .:: %category ::.
      }
      else {
        var %release = $deltok(%line,$numtok(%line,32),32)
        var %release = $deltok(%release,$numtok(%release,32),32)
        var %release = $deltok(%release,1,32)
        msg $iif($1 == !pre,$chan,$nick) .:: Search ::. .:: %release ::. was pred .:: %timestamp ::. was $upper(%type) $+ D because .:: bad.pack ::.
      }

      inc %r
      if ($1 == !pre) { break }
      elseif (($1 == !pred) && (%r == 1)) { msg $chan ..:: Results in PVT ::.. }
    }
    dec %x
  }
  if (%r == 0) { msg $chan ..:: No matches found in Database ::.. }
}

on *:text:!db:#:{
  var %n = 0
  var %u = 0
  var %p = 0

  var %i = 1
  while (%i <= $lines(BD.txt)) {
    var %type = $gettok($read(BD.txt,%i),1,32)
    if (%type == PRE) { inc %p }
    elseif (%type == NUKE) { inc %n }
    else { inc %u }
    inc %i
  }
  msg $chan [Data Base] - Releases $chr(91) %p Releases $chr(124) %n NUKE's $chr(124) %u UNNUKE's Releases $chr(93)
}