just put a timer on it like
Code:
  if ($me isin $1-) && (!%fld.action.block) {
    set -u20 %fld.action.block x
    var %x = 1
    while  (%x <= $lines(actionattack.dat)) {
      if ($read(dats/actionattack.dat,%x) isin $1-) {
        .describe # blocks the slap and slaps $nick back
        inc %x
      }
      inc %x
    }
  }


the actionattack.dat files is just a text file with words that are considered an attack
like
slap
kick
punch
etc