Forums Scripts & Popups /write error

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
}

/teststats

//var %a = 1 | while (%a <= 100) { teststats | inc %a } | echo -a * Done. 

if ($read(%file,wnt,* $2)) { %num = $calc($gettok($v1,1,32) + $1) $2 | write $+(-dl,$readn) %file }