Code:

on *:TEXT:!huggle:#: {
  if ($eval($+(%,huggle.,$nick),2)) return
  set -eu30 $+(%,huggle.,$nick) $true
  describe # hugs $nick like there's no tomorrow!
}