All pastes #573577 Raw Edit

Anonymous

public text v1 · immutable
·published 2007-06-18 07:16 UTC
rendered paste body
on *:TEXT:!dupe*:#: {
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 %x = $lines(DB.txt)
  var %limitedupe = 1
  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))))
        inc %limitedupe
        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 $nick .:: 0Search ::. .::0 %release ::. 7was pred .::0 %timestamp ago ::. 7in .::0 %category ::.
        }
        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 %cor = 4
          }
          if (%type == UNNUKE) {
            var %type = %type
            var %why = 9 $+ $gettok($read(DB.txt,%x),3,32)
            var %cor = 9
          }
          msg $nick .:: 0Search ::. .::0 %release ::.7 was pred .::0 %timestamp ::. %cor $+ was  $+ $upper(%type) $+ D because .:: %why ::.
        }
      }
    }
    dec %x
  }
}
}

on *:TEXT:!pre*:#: {
  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 ::.
      }
      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 %cor = 4
        }
        if (%type == UNNUKE) {
          var %type = %type
          var %why = 9 $+ $gettok($read(DB.txt,%x),3,32)
          var %cor = 9
        }
        msg $chan .:: 0Search ::. .::0 %release ::.7 was pred .::0 %timestamp ::. %cor $+ was  $+ $upper(%type) $+ D because .:: %why ::.
      }
    }
    dec %x
  }
}