rendered paste bodyon *:TEXT:!dupe*,!pre*:#: {
If (!dupe* iswm $1-) {
notice $nick ..::0 Results in PVT1 ::....
var %x = $lines(DB.txt)
var %limitedupe = 1
%nick = $nick
while ((%x >= 1) && (%limitedupe <= 20)) {
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 %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
}
if (%limitedupe == 1) {msg %nick ..::0 Not found in the Data Base1 ::..}
}
Else {
var %x = $lines(DB.txt)
var %limitepre = 1
%chan = $chan
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
}
If (%limitepre == 1) {msg %chan ..::0 Not found in the Data Base1 ::..}
}
}