on *:action:$($strip($+(*,slap,*,$me,*))):*:{
  if (!%slap. [ $+ [ $nick ] ]) {
    describe $iif(#,#,$nick) slaps $nick around a bit with a large fish ><(((*>
    set -eu10 %slap. $+ $nick 1
  }
}