alias dostatsold {
;/dostatsold <N> <nick> <file>
if ($3 == $null) { return }
var %file = $qt($3-), %num = $1-2
if (!$exists(%file)) { write -c %file }
if ($read(%file,wnt,* $2)) { %num = $calc($gettok($v1,1,32) + $1) $2 | write $+(-dl,$readn) %file }
var %a = 1, %b, %c = $gettok(%num,1,32), %added = no
while ($read(%file,nt,%a)) {
%b = $v1
if (%c >= $gettok(%b,1,32)) { write $+(-il,%a) %file %num | %added = yes | break }
inc %a
}
if (%added == no) { write %file %num }
}
alias teststats {
echo -a * Test beginning...
var %file = undernetbot.05-05-23.#test.lines.txt
write -c %file
var %a = 1
while (%a <= 300) { dostatsold $r(1,300) $gettok(entropy ent alex moo maroon Ouims westor Talon Dragon CobaltHex srolse,$r(1,11),32) %file | inc %a }
echo -a * Done.
run %file
}