Unnamed

on *:text:!pre*:#d&r:{
  if (!$2) { msg $chan É necessário escrever uma segunda palavra para pesquisa! | return }
  var %r = 0
  var %x = $lines(db.txt)
  while (%x >= 1) {
    var %line = $read(db.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) .:: 0Search ::. .::0 %release ::. 7was pred .::0 %timestamp ago ::. 7in .::0 %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) .:: 0Search ::. .::0 %release ::.7 was pred .::0 %timestamp ::. was $upper(%type) $+ D because .:: bad.pack ::.
      }

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