on *:action:*pokes*:#: {
  if (%counter) { inc %counter }
  else { set -u10 %counter 1 }
  if (%counter >= 4) { halt }
  else {
    if ($me isin $1-) {
      %n = $rand(1, 5)
      if (%n = 1) {
        describe $chan pokes back
      }
      if (%n = 2) {
        describe $chan pokes back
      }
      if (%n = 3) {
        describe $chan bitch slaps $nick for poking her
      }
      if (%n = 4) {
        describe $chan pokes back
      }
      if (%n = 5) {
        describe $chan pokes back
      }
    }
  }
}