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
}
}