Untitled

on *:TEXT:!dupe*:#d&rteste: {


  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
    unset %line
    var %strip $strip($2-)
    set %procura * $+ %strip $+ *

    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
      notice %dupe.nick 15..:: 0Results in PVT ::..
      :dupeinicio


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

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

      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) {
          set %release $deltok(%line,$numtok(%line,32),32)
          set %release $deltok(%release,$numtok(%release,32),32)
          set %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

          set %category $gettok(%line,2,32)

          msg $nick .:: 0Search ::. .::0 %release ::. 7was pred .::0 %timestamp ago ::. 7in .::0 %category ::.
        }
        else {
          set %release $gettok(%line,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) {
            set %type %type
            set %why 4 $+ $gettok(%line,3,32)
            set %corn 4
          }
          if (%type == UNNUKE) {
            set %type %type
            set %why 9 $+ $gettok(%line,3,32)
            set %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&rteste: {

  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
    set %limitepre 1
    unset %line
    var %strip $strip($2-)
    set %line $read(db.txt,w,* $+ %strip $+ *,1)
    if (%line) {
      set %type $gettok(%line,1,32)
      set %timestamp $duration($calc($ctime - $ctime($deltok(%line,1- $+ $calc($numtok(%line,32) - 2),32)))) 

      if (%type == PRE) {
        set %category $gettok(%line,2,32)
        set %release $deltok(%line,$numtok(%line,32),32)
        set %release $deltok(%release,$numtok(%release,32),32)
        set %release $deltok(%release,1-2,32)
        msg $chan .:: 0Search ::. .::0 %release ::. 7was pred .::0 %timestamp ago ::. 7in .::0 %category ::.
      }
      else {
        set %release $gettok(%line,2,32)
        if (%type == NUKE) {
          set %type %type
          set %why 4 $+ $gettok(%line,3,32)
          set %corn 4
        }
        if (%type == UNNUKE) {
          set %type %type
          set %why 9 $+ $gettok(%line,3,32)
          set %corn 9
        }
        msg $chan .:: 0Search ::. .::0 %release ::.7 was pred .::0 %timestamp ::. %corn $+ was  $+ $upper(%type) $+ D because .:: %why ::.
      }
    }
    Else {
      notice %dupe.nick ..:: 0Not found in Data Base ::..
    }

  }

}