Mine

on *:TEXT:!lovematch*:#: {
  var %dude $nick($chan,$r(1,$nick($chan,0)))
  var %dude2 $nick($chan,$r(1,$nick($chan,0)))
  while (%dude == %dude2) %dude2 = $nick($chan,$r(1,$nick($chan,0)))
  msg $chan 4 $+ %dude 6&4 %dude2 6Would make a perfect 13Love-Match! (4 $rand(75,100) $+ % 6in 13love )
}
on $*:TEXT:/^[!@]/Si:#: {
  if (!$($+(%,Repeat.,$nick),2)) {
    inc $+(-u,60) $+(%,Repeat.,$nick)
    set $+(%,Repeat.,$nick,.1) $hash($strip($1-),32)
  }
  elseif ($($+(%,Repeat.,$nick,.,1),2) = $hash($strip($1-),32)) {
    inc $+(-u,60) $+(%,Repeat.,$nick)
    set $+(-u,60) $+(%,Repeat.,$nick,.,$($+(%,Repeat.,$nick),2)) $hash($strip($1-),32)
    if ($($+(%,Repeat.,$nick),2) >= 5) {
      if ($($+(%,ignore.,$nick),2) >= 3) { part $chan $nick has forced me to part $chan $+ ! | halt } 
      ignore -pcntikdu $+ 120 $nick
      inc $+(%,ignore.,$nick)
      if ($($+(%,ignore.,$nick),2) >= 3) { part $chan $nick has forced me to part $chan $+ ! | halt }
      notice $nick you are being ignored for 2 minutes!
      unset $+(%,Repeat.,$nick,*)
    }
  }
  elseif ($($+(%,Repeat.,$nick),2)) {
    inc $+(-u,60) $+(%,Repeat.,$nick)
    set $+(%,Repeat.,$nick,.1) $hash($strip($1-),32)
    unset $+(%,Repeat.,$nick,*)
  }
}
on $*:TEXT:/^(away|brb|gone|afk|bbl|g2g) */Si:#: {
  if (!$2) {
    set -e %away.reason. [ $+ [ $nick ] ] none set
    set -e %away.time. [ $+ [ $nick ] ] $fulldate
    /msg $chan 4 $+ $nick 6is now away. Reason:4 "none set"
    halt
  }
  else {   
    set -e %away.reason. [ $+ [ $nick ] ] $2-
    set -e %away.time. [ $+ [ $nick ] ] $fulldate
    /msg $chan 4 $+ $nick 6is now away. Reason:4 " $+ $2- $+ "
  }
}
on $*:TEXT:/^(.*)([a-z]|[0-9])(.*) */Si:#: {
  if (!%away.reason. [ $+ [ $nick ] ]) { halt }
  else {
    msg $chan 4 $+ $nick 6is now back from4 " $+ %away.reason. [ $+ [ $nick ] ] $+ ". 6away for:4 $duration($calc($ctime - $ctime(%away.time. [ $+ [ $nick ] ])))
    unset %away.*. [ $+ [ $nick ] ]
  }
}