Code
alias wlerror mkdir wlerror\ | noop $findfile(wlerror\,*,0,.remove $qt($1-)) | var %a 200 | while (%a) { write -c wlerror\wlerror $+ %a | dec %a  } | noop $findfile(wlerror\,wlerror*,0,wlerrorcb $1-)
alias wlerrorcb {
  while (1) {
    noop A
    noop B
  }
  :error
  if ($error) {
    reseterror 
    echo -sg error in $1- : $v1
  }
}
Type /wlerror, it will freeze, hit control + break and hold the keys for a few second (until it doesn't freeze anymore)
You should see a few break errors and then a /while: loop not found error, the line number is the :error line.

#mircscripting @ irc.swiftirc.net == the best mIRC help channel