Something

on *:text:!pre*:#testes5:{
  if (!$2) { 
    var %line1 = $lines(db.txt)
    var %line2 = $read(db.txt,$lines(db.txt))
    var %type = $gettok(%line2,1,32)
    var %timestamp = $duration($calc($ctime - $ctime($deltok(%line2,1- $+ $calc($numtok(%line2,32) - 2),32))))
    var %category = $gettok(%line2,2,32)
    var %release = $deltok(%line2,$numtok(%line2,32),32)
    var %release = $deltok(%release,$numtok(%release,32),32)
    var %release = $deltok(%release,1-2,32)
    msg $chan .:: 0Search ::. .::0 %release ::. 7was pred .::0 %timestamp ago ::. 7in .::0 %category ::.
    return
  }
  var %x = $lines(db.txt)
  if ($1 == !pre) {
    while (%x >= 1) {
      var %line2 = $read(db.txt,%x)
      if (* $+ $2- $+ * iswm %line2) {
        var %type2 = $gettok(%line2,1,32)
        var %timestamp2 = $duration($calc($ctime - $ctime($deltok(%line2,1- $+ $calc($numtok(%line2,32) - 2),32))))
        if (%type2 == PRE) {
          var %category2 = $gettok(%line2,2,32)
          var %release2 = $deltok(%line2,$numtok(%line2,32),32)
          var %release2 = $deltok(%release2,$numtok(%release2,32),32)
          var %release2 = $deltok(%release2,1-2,32)
          write linesGOOD.txt %x
        }
        else {
          var %release2 = $gettok($read(db.txt,%x),2,32)
          if (%type2 == NUKE) {
            var %type2 = %type2
            var %why2 = 4 $+ $gettok($read(db.txt,%x),3,32)
            var %cor2 = 4
          }
          if (%type2 == UNNUKE) {
            var %type2 = %type
            var %why2 = 9 $+ $gettok($read(db.txt,%x),3,32)
            var %cor2 = 9
          }
          write linesNUKED.txt %x
        }
      }
      dec %x
    }
    send.lines.msg
  }
}
alias send.lines.msg {
  if ($read(linesGOOD.txt,1) > $read(linesNUKED.txt,1)) {
    var %line1 = $read(linesGOOD.txt,1)
    var %line2 = $read(db.txt,%line1)
    var %type = $gettok(%line2,1,32)
    var %timestamp = $duration($calc($ctime - $ctime($deltok(%line2,1- $+ $calc($numtok(%line2,32) - 2),32))))
    var %category = $gettok(%line2,2,32)
    var %release = $deltok(%line2,$numtok(%line2,32),32)
    var %release = $deltok(%release,$numtok(%release,32),32)
    var %release = $deltok(%release,1-2,32)
    msg $chan .:: 0Search ::. .::0 %release ::. 7was pred .::0 %timestamp ago ::. 7in .::0 %category ::.
    write -c linesGOOD.txt
    write -c linesNUKED.txt
    unset lines.good
    halt
  }
  if ($read(linesGOOD.txt,1) < $read(linesNUKED.txt,1)) {
    var %release = $gettok(%line2,2,32)
    var %type = %type
    var %why = 4 $+ $gettok(%line2,3,32)
    var %cor = 4
    msg $chan .:: 0Search ::. .::0 %release ::.7 was pred .::0 %timestamp ::. %cor $+ was  $+ $upper(%type) $+ D because .:: %why ::.
    write -c linesNUKED.txt
    write -c linesGOOD.txt
    unset lines.nuked
    halt
  }
  if (($lines(linesGOOD.txt) == 0) && ($lines(linesNUKED.txt) == 0)) {
    msg $chan ..:: 0Not found in the Data Base ::..
    halt
  }
}

on *:text:!dupe*:#testes5:{
  if (!$2) { msg $chan É necessário escrever uma segunda palavra para pesquisa! | return }
  set %dupe.nick $nick
  var %x = $lines(db.txt)
  if ($1 == !dupe) {
    while (%x >= 1) {
      var %line2 = $read(db.txt,%x)
      if (* $+ $2- $+ * iswm %line2) {
        var %type2 = $gettok(%line2,1,32)
        var %timestamp2 = $duration($calc($ctime - $ctime($deltok(%line2,1- $+ $calc($numtok(%line2,32) - 2),32))))
        if (%type2 == PRE) {
          var %category2 = $gettok(%line2,2,32)
          var %release2 = $deltok(%line2,$numtok(%line2,32),32)
          var %release2 = $deltok(%release2,$numtok(%release2,32),32)
          var %release2 = $deltok(%release2,1-2,32)
          write linesGOOD.txt %x
        }
        else {
          var %release2 = $gettok($read(db.txt,%x),2,32)
          if (%type2 == NUKE) {
            var %type2 = %type2
            var %why2 = 4 $+ $gettok($read(db.txt,%x),3,32)
            var %cor2 = 4
          }
          if (%type2 == UNNUKE) {
            var %type2 = %type
            var %why2 = 9 $+ $gettok($read(db.txt,%x),3,32)
            var %cor2 = 9
          }
          write linesNUKED.txt %x
        }
      }
      dec %x
    }
    send.lines.msg2
  }
}
alias send.lines.msg2 {
  if (($lines(linesGOOD.txt) == 0) && ($lines(linesNUKED.txt) == 0)) {
    msg %dupe.nick ..:: 0Not found in the Data Base ::..
    unset %dupe.nick
    halt
  }
  else {
    notice %dupe.nick ..:: 0Results in PVT ::..
    var %z = 10
    var %limitedupe = 1
    while ((%z > 1) && (%limitedupe <= 11)) {
      var %line1 = $read(linesGOOD.txt,%z)
      var %line2 = $read(db.txt,%line1)
      var %type = $gettok(%line2,1,32)
      var %timestamp = $duration($calc($ctime - $ctime($deltok(%line2,1- $+ $calc($numtok(%line2,32) - 2),32))))
      var %category = $gettok(%line2,2,32)
      var %release = $deltok(%line2,$numtok(%line2,32),32)
      var %release = $deltok(%release,$numtok(%release,32),32)
      var %release = $deltok(%release,1-2,32)
      msg %dupe.nick .:: 0Search ::. .::0 %release ::. 7was pred .::0 %timestamp ago ::. 7in .::0 %category ::.
      unset lines.good
      inc %limitedupe
      dec %z
    }
    var %z = 10
    var %limitedupe = 1
    while ((%z > 1) && (%limitedupe <= 11)) {
      var %line1 = $read(linesGOOD.txt,%z)
      var %line2 = $read(db.txt,%line1)
      var %release = $gettok(%line2,2,32)
      var %type = %type
      var %why = 4 $+ $gettok(%line2,3,32)
      var %cor = 4
      msg %dupe.nick .:: 0Search ::. .::0 %release ::.7 was pred .::0 %timestamp ::. %cor $+ was  $+ $upper(%type) $+ D because .:: %why ::.
      unset lines.nuked
      inc %limitedupe
      dec %z
    }
    write -c linesGOOD.txt
    write -c linesNUKED.txt
  }
}