on $@*:text:/^!(clear)$/iS:#:{   
  if (!%f) { 
    inc -u5 %f 
    if ($nick(#,$nick,vr)) {
      .notice $nick you must be a mod to use this command 
      halt
    }
    tokenize 94 $+($+(/,$regml(1)),^,$nick has cleared the chatroom!) 
    msg # $*
  }
}

I don't feel like wasting $regml(1) :P