Code:
on $*:action:$(/(slaps? \Q $+ $me $+ \E)/iS):*: {
  describe $iif(#,#,$nick) slaps $nick back with a large trout!
}