rendered paste bodyon *:text:!group*:#testes5:{
if (%protect.group == on) { msg $chan $nick $+ , You need wait 15secounds for do it again }
if ((%protect.group == off) || (%protect.group == $null)) {
set %protect.group on
timer 1 20 /unset %protect.group
msg $chan 0[14Group00] 00 $+ $2 $+ (Searching...)
set %group.nick $2
var %x = $lines(db.txt)
var %z = $lines(db.txt)
var %c = $lines(db.txt)
var %Releases
var %Nuke
var %UnNuke
if ($1 == !group) {
while (%x >= 1) {
var %line = $read(db.txt,%x)
if ((* $+ PRE $+ * iswm %line) && (* $+ $2 $+ * iswm %line)) {
inc %Releases
write groups.txt %x
}
dec %x
}
while (%z >= 1) {
var %line = $read(db.txt,%z)
if ((* $+ NUKE $+ * iswm %line) && (* $+ $2 $+ * iswm %line)) {
inc %Nuke
}
dec %z
}
while (%c >= 1) {
var %line = $read(db.txt,%c)
if ((* $+ UNNUKE $+ * iswm %line) && (* $+ $2 $+ * iswm %line)) {
inc %UnNuke
}
dec %c
}
}
;FIRST
var %line1 = $read(groups.txt,1)
var %line2 = $read(db.txt,%line1)
var %release = $deltok(%line2,$numtok(%line2,32),32)
var %release = $deltok(%release,$numtok(%release,32),32)
var %release = $deltok(%release,1-2,32)
var %timestamp = $duration($calc($ctime - $ctime($deltok(%line2,1- $+ $calc($numtok(%line2,32) - 2),32))))
;LAST
var %liness = $lines(groups.txt)
var %line11 = $read(groups.txt,%liness)
var %line22 = $read(db.txt,%line11)
var %release2 = $deltok(%line22,$numtok(%line22,32),32)
var %release2 = $deltok(%release2,$numtok(%release2,32),32)
var %release2 = $deltok(%release2,1-2,32)
var %timestamp2 = $duration($calc($ctime - $ctime($deltok(%line22,1- $+ $calc($numtok(%line22,32) - 2),32))))
msg $chan 0[14Releases00] 00 %Releases 0[14Nukes00] 00 %Nuke 0[14Unnukes00] 00 %UnNuke
msg $chan 0[14FIRST00] $+ %Release 14got released00 %timestamp ( $+ $gettok(%line2,4,32) $+ ) 14ago 00[ 0702 $+ $gettok(%line2,2,32) $+ 00/ $+ %group.nick $+ ]
write -c groups.txt
}
}