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 -z $+(%,slap.,$nick) 3
}



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



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



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 -z $+(%,hug.,$nick) 3
}



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 -z $+(%,hug.,$nick) 3
}