Dean it was pointless, as one 0-9 and A-z eh No special characters to strip out.
I most certainly did analyze your code and went wtf what was the point in doing that and using the while, you added regsubex to something that did not need it as well wasted the the use of it to strip the special characters that were not even there

on $*:text:/^([!@.+])password\s(\d+)$/Si:#:{
  if (!%password) { 
    inc -u10 %password
    var %y $iif($left($1,1) = @,.msg #,.notice $nick), %i = 0, %pass
    while (%i < $regml(2)) { 
      %pass = %pass $+ $iif($r(1,2) == 1, $r(0,9),$r(A,z)) 
      inc %i 
    } 
    %y 12 $nick 1Request made to generate a password for use, password is1 $regsubex(%pass,/[[:punct:]]/g,$r(a,z))
  }
}

Your code there please tell me were a special character will be gen, that you would even need to strip it out?
you really did go left field on this whole thing.