being 6am here when i first seen $$2 ison 3
i had to sit here and think "O,o whyyy?"
but yea, gooood point, no point in slapping someone who isnt there eh.
lmfso.

There are ways you can go about a random slap script. This is one of them:

on *:TEXT:*:#: {
  var %me ,,|,,__(>_<)__,,|,,:No!
  if ($strip($1-2) = !slap $me) .msg # $gettok(%me,$r(1,2),58)
  else {
    var %slap large trout,large pig,large horse,large cat,Big Mac,large dog,computer,stolen car
    $iif($$2 ison #,.describe # slaps $2 around a bit with a $gettok(%slap,$r(1,8),44))
  }
}

geez napa, they call it "doing a napa" for a reason bro,
for a beginner regex is never "ez".
would be nice if some explaination was added to what and how your script works (for noobs or non regex users)

!slap (nick)

on *:TEXT:!slap *:#: { 
  if ($2 == $me) { .msg $chan No!  }
  else { set %slap $rand(1,8) | $slap.action $chan $$2 }
}

; return the string to msg the channel and grab the random object using $gettok
alias slap.action return .description $$1 slaps $$2 around a bit with a $gettok($slap.objects,%slap,58)
; the random objects using ";" $chr(58) as the seperator
alias slap.objects return large trout:large pig:large horse:large cat:big mac: large dog:computer:stloen car

also its late here but i cant see why (unless its bracket placement)
the msg $chan NO! doesnt work.

NOTE: i didnt test it myself

here then

 on $*:TEXT:/^!slap\s(\S+)$/iS:#: { 
  if ($regml(1) ison # && !$hget(slap,flood)) {
    .hadd -mu3 slap flood yes
    if ($regml(1) == $me) { msg # ,,|,,__(>_<)__,,|,, }
    else { 
      var %slap large trout|large pig|large horse|large cat|Big Mac|large dog|computer|stolen car
      describe # slaps $regml(1) around a bit with a $gettok(%slap,$r(1,8),124)
    }
  }
}

<~napa182> !slap Sick0
<&Sick0> ,,|,,_(><)__,,|,,

is that better?

Haha, okay. :P

Well, you could make the bot whine, cry or scream etc...if you wanted it to.

When you try and slap the bot, it doesn't comment. :p

Nice job on the script though. Thanks.

you could do something ez like this.. plus it would be a good idea to add a bit of flood control to ur snippet.

 on $*:TEXT:/^!slap\s(\S+)$/iS:#: { 
  if ($regml(1) ison # && !$hget(slap,flood)) {
    .hadd -mu3 slap flood yes
    if ($regml(1) == $me) { msg # No! }
    else { 
      var %slap large trout|large pig|large horse|large cat|Big Mac|large dog|computer|stolen car
      describe # slaps $regml(1) around a bit with a $gettok(%slap,$r(1,8),124)
    }
  }
}

or take out that msg # No!

on $*:TEXT:/^!slap\s(\S+)$/iS:#: { 
  if ($regml(1) ison # && !$hget(slap,flood) && $regml(1) != $me) {
    .hadd -mu3 slap flood yes
    var %slap large trout|large pig|large horse|large cat|Big Mac|large dog|computer|stolen car
    describe # slaps $regml(1) around a bit with a $gettok(%slap,$r(1,8),124)
  }
}