you should add some flood control to this as well as clean it up abit.

on *:ACTION:$($+(*,$me,*)):#:{ if (!$($+(%,actionflood,.,$nick),2) && !$regex($1-,/(snogs|kisses|makes love to)/i)) { set -u3 $+(%,actionflood,.,$nick) on | describe # dodges and $replace($1-,$me,$nick) } }