This small snippet basically stops spam messages coming from people in private messages (queries). It will auto ignore the offender for 60 seconds, and write to spam.log in the mirc directory the event. You will have the option of removing the user from ignore by pressing f11. Any help needed, just find me on IrCQnet (irc.icq.com) under the nick forgotten, in #smile
enjoy ;P

on ^*:open:?:*:{
  if (http:// isin $1- || www. isin $1- || .co isin $1- || $chr(35) isin $1-) {
    set %nick $nick
    .enable #f11toremove
    .timerremoveignoff 1 20 .disable #f11toremove
    r.echo Spam detected ( $+ $nick $+ $remove($address($nick,0),*) $+ ) (Ignored for 60s) - $time - $date 15||| Press f11 to remove user from ignore.
    if ($isfile("spam.log") == $false) {
      write -c "spam.log"
    }
    write "spam.log" $date - $time - $nick ( $+ $address $+ ): $1-
    .msg $nick Spam detected ( $+ $nick $+ $remove($address($nick,0),*) $+ ) (Ignored for 60s) - $time - $date
    .ignore -u60 $nick
    haltdef
  }
}
#f11toremove off
alias f11 {
  ignore -r %nick
  r.echo Removed %nick from ignore list!
  unset %nick
  .disable #f11toremove
}
#f11toremove END