Stuff

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 %protect.dupe on
    timer 1 20 /unset %protect.dupe
    set %procura * $+ $string($2-) $+ *

    set %dupe.nick $nick

    set %lines $lines(db.txt)
    set %nline 1
    set %dupecount 0




    set %line $read(db.txt,w,%procura,%nline)

    if (%line) {
      set %pline $readn
      :dupeinicio


      if ((%nline > %lines) || (!%line) || (%dupecount >= 10)) {

        set %contador 1
        While (%contador <= %dupecount) {
          set [ % $+ [ dupe. $+ [ %contador ] ] ] 0
          inc %contador
        }
        halt
      }

      else {

        echo -a else
        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 %release = $deltok(%line,$numtok(%line,32),32)
          var %release = $deltok(%release,$numtok(%release,32),32)
          var %release = $deltok(%release,1-2,32)
          set %contador 1
          While (%contador <= %dupecount) {
            if ([ % $+ [ dupe. $+ [ %contador ] ] ] == %release) {
              goto duperepeated
            }
            inc %contador
          }
          inc %dupecount
          set [ % $+ [ dupe. $+ [ %dupecount ] ] ] %release

          var %category = $gettok(%line,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 <= %dupecount) {
            if ([ % $+ [ dupe. $+ [ %contador ] ] ] == %release) {

              goto duperepeated
            }
            inc %contador
          }
          inc %dupecount
          set [ % $+ [ dupe. $+ [ %dupecount ] ] ] %release

          if (%type == NUKE) {
            var %type = %type
            var %why = 4 $+ $gettok(%line,3,32)
            var %corn = 4
          }
          if (%type == UNNUKE) {
            var %type = %type
            var %why = 9 $+ $gettok(%line,3,32)
            var %corn = 9
          }

          msg $nick .:: 0Search ::. .::0 %release ::.7 was pred .::0 %timestamp ::. %corn $+ was  $+ $upper(%type) $+ D because .:: %why ::.          
        }



        :duperepeated

        set %nline $calc( %pline + 1)
        set %line $read(db.txt,w,%procura,%nline)
        set %pline $readn

        goto dupeinicio


      }
    }

    Else {
      notice %dupe.nick ..:: 0Not found in Data Base ::..
    }



  }
}

on *:TEXT:!pre*:#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 %protect.dupe on
    timer 1 20 /unset %protect.dupe
    set %dupe.nick $nick
    var %limitepre = 1
    var %line = $read(db.txt,w,* $+ $string($2-) $+ *)
    if (%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 $chan .:: 0Search ::. .::0 %release ::. 7was pred .::0 %timestamp ago ::. 7in .::0 %category ::.
        set %check.pre sended
      }
      else {
        var %release = $gettok(%line,2,32)
        if (%type == NUKE) {
          var %type = %type
          var %why = 4 $+ $gettok(%line,3,32)
          var %corn = 4
        }
        if (%type == UNNUKE) {
          var %type = %type
          var %why = 9 $+ $gettok(%line,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
      }
    }
    Else {
      notice %dupe.nick ..:: 0Not found in Data Base ::..
    }

  }

}