i found somthing that didnt infinite loop

Code:
 on *:text:.qammount *:#:{ 
  set %line 1
  set %r 0  
  while ($read(C:\bot\bot_log_pub.txt, w, * $+ $2- $+ *, %line) != $null) {
    %line = $readn + 1
    inc %r
  }
  msg # " $+ $2- $+ " found in %r $+ / $+ $read(C:\bot\bot_log_pub.txt, 0) quotes.
}

______________________________

123go