This is a rather unorthodox, inventive way of going about $me being slapped:
on *:action:$($iif($+(*,slaps $me,*) iswm $strip($1-),$1-)):#:{