on *:action:$(slaps $me around a bit with a large trout):#:{
  if ($istok(%haltnicks,$wildsite,32) || (%slap. [ $+ [ $nick ] ])) halt
  else { 
    describe # slaps $nick about a bit with a enormous shark
    set -u3 $+(%,slap.,$nick) 1
  }
}


on *:action:$(pokes $me):#:{
  if ($istok(%haltnicks,$wildsite,32) || (%poke. [ $+ [ $nick ] ])) halt
  else { 
    describe # pokes $nick in the face
    set -u3 $+(%,poke.,$nick) 1
  }
}


on *:action:$(slaps $me):#:{
  if ($istok(%haltnicks,$wildsite,32) || (%slap. [ $+ [ $nick ] ])) halt
  else { 
    describe # hits $nick  with his iron fist
    set -u3 $+(%,slap.,$nick) 1
  }
}


on *:ACTION:*hug*:#:{
  if ($istok(%haltnicks,$wildsite,32) || (%hug. [ $+ [ $nick ] ])) halt
  else { 
    describe $chan $iif($nick == Allegra ,gives $nick a big hug <3,huggles $nick)
    set -u3 $+(%,hug.,$nick) 1
  }
}


on *:ACTION:*huggles*:#:{
  if ($istok(%haltnicks,$wildsite,32) || (%hug. [ $+ [ $nick ] ])) halt
  else { 
    describe $chan $iif($nick == Allegra ,gives $nick a big hug <3,huggles $nick)
    set -u3 $+(%,hug.,$nick) 1
  }
}