Anonymous

on *:TEXT:!dupe*:#d&r: {
  if (%protect.dupe == on) { msg $chan $nick $+ , You need wait 15secounds for do it again }
  if ((%protect.dupe == off) || (%protect.dupe == $null)) {
    set %dupe.chan $chan
    set %protect.dupe on
    timer 1 20 /unset %protect.dupe
    timer 1 10 /check.msg.sended
    set %check.msg send
    set %check.msg2 send
    set %dupe.nick $Nick
    var %x = $lines(DB.txt)
    var %limitedupe = 1
var %dupelinha = 1
:dupeinicio
    while ((%x >= 1) && (%limitedupe <= 20)) {
      var %line = $read(DB.txt,%x)
      if (* $+ $2- $+ * iswm %line) {
        if (%send.msg.see == $null) {
          notice %dupe.nick 15..:: 0Results in PVT ::..
          set %send.msg.see on
          timer 1 10 unset %send.msg.see
        }
        if (%send.msg.see != $null) {
          var %type = $gettok(%line,1,32)
          var %timestamp = $duration($calc($ctime - $ctime($deltok(%line,1- $+ $calc($numtok(%line,32) - 2),32))))          
          if (%type == PRE) {
inc %dupelinha
inc %limitedupe
            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 $nick .:: 0Search ::. .::0 %release ::. 7was pred .::0 %timestamp ago ::. 7in .::0 %category ::.
            set %check.msg sended
          }
          else {
            var %release = $gettok($read(DB.txt,%x),2,32)

set %contador 1
While (%contador < 10) {
if ([ % $+ [ dupe. $+ [ %contador ] ] ] == %release) {
dec %x
inc %dupelinha
goto dupeinicio
}
inc %contador
}
set [ % $+ [ dupe. $+ [ %dupelinha ] ] ] %release

            if (%type == NUKE) {
              var %type = %type
              var %why = 4 $+ $gettok($read(DB.txt,%x),3,32)
              var %corn = 4
            }
            if (%type == UNNUKE) {
              var %type = %type
              var %why = 9 $+ $gettok($read(DB.txt,%x),3,32)
              var %corn = 9
            }

            msg $nick .:: 0Search ::. .::0 %release ::.7 was pred .::0 %timestamp ::. %corn $+ was  $+ $upper(%type) $+ D because .:: %why ::.
inc %limitedupe
inc %dupelinha            
set %check.msg2 sended
          }
        }
      }
      dec %x
    }
  }
}

on *:TEXT:!pre*:#d&r: {
  set %dupe.chan $chan
  timer 1 10 /check.pre.sended
  set %check.pre send
  set %check.pre2 send
  var %x = $lines(DB.txt)
  var %limitepre = 1
  while ((%x >= 1) && (%limitepre <= 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))))
      inc %limitepre

      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 $chan .:: 0Search ::. .::0 %release ::. 7was pred .::0 %timestamp ago ::. 7in .::0 %category ::.
        set %check.pre sended
      }
      else {
        var %release = $gettok($read(DB.txt,%x),2,32)
        if (%type == NUKE) {
          var %type = %type
          var %why = 4 $+ $gettok($read(DB.txt,%x),3,32)
          var %corn = 4
        }
        if (%type == UNNUKE) {
          var %type = %type
          var %why = 9 $+ $gettok($read(DB.txt,%x),3,32)
          var %corn = 9
        }
        msg $chan .:: 0Search ::. .::0 %release ::.7 was pred .::0 %timestamp ::. %corn $+ was  $+ $upper(%type) $+ D because .:: %why ::.
        set %check.pre2 sended
      }
    }
    dec %x
  }
}

alias check.msg.sended {
  if ((%check.msg == send) && (%check.msg2 == sended)) { halt }
  if ((%check.msg == sended) && (%check.msg2 == send)) { halt }
  if ((%check.msg == send) && (%check.msg2 != $null)) { msg %dupe.nick ..:: 0Not found in Data Base ::.. | set %check.msg sended | set %check.msg2 sended | halt }
  if ((%check.msg2 == send) { msg %dupe.nick ..:: 0Not found in Data Base ::.. | set %check.msg sended | set %check.msg2 sended | halt }
}
alias check.pre.sended {
  if ((%check.pre == send) && (%check.pre2 == sended)) { halt }
  if ((%check.pre == sended) && (%check.pre2 == send)) { halt }
  if ((%check.pre == send) && (%check.pre2 != $null)) { msg %dupe.chan ..:: 0Not found in Data Base ::.. | set %check.pre sended | set %check.pre2 sended | halt }
  if ((%check.pre2 == send) { msg %dupe.chan ..:: 0Not found in Data Base ::.. | set %check.pre sended | set %check.pre2 sended | halt }
}