on *:TEXT:!playrr:#: {
  set %player1 $nick
  set %rr on
  .msg $chan %player1 has started a game of rr type !joinrr to join.
}
on *:TEXT:!joinrr:#: {
  if (%rr == on) {
    set %player2 $nick
    set %rr off
    set %playrr on
    .msg $chan %player2 has challanged %player1 to a game of RR
  }
}

on *:TEXT:!shoot:#: {
  if (%playrr == on) && (%player1 != $nick) { HALT }
  else var %gun4 = $rand(1,6)
  if (%gun4 == 1) .msg $chan   CLICK! No bullet in there
  set %deadoralive alive
  if (%gun4 == 2) .msg $chan   BAM %player1 died
  set %deadoralive dead
  if (%gun4 == 3) .msg $chan  CLICK! No bullet in there
  set %deadoralive alive
  if (%gun4 == 4) .msg $chan   BAM %player1 died
  set %deadoralive dead
  if (%gun4 == 5) .msg $chan  CLICK! No bullet in there
  set %deadoralive alive
  if (%gun4 == 6) .msg $chan  BAM %player1 died
  set %deadoralive dead
}
if (%deadoralive == dead) {
  .msg $chan %player1 lost the game of RR grats %player2 $+ . { HALT }
  if (%deadoralive == alive)
}

on *:TEXT:!shoot:#: {
  if (%playrr == on) && (%player2 != $nick) { HALT }
  else var %gun4 = $rand(1,6)
  if (%gun4 == 1) .msg $chan   CLICK! No bullet in there
  set %deadoralive alive
  if (%gun4 == 2) .msg $chan   BAM %player2 died
  set %deadoralive dead
  if (%gun4 == 3) .msg $chan  CLICK! No bullet in there
  set %deadoralive alive
  if (%gun4 == 4) .msg $chan   BAM %player2 died
  set %deadoralive dead
  if (%gun4 == 5) .msg $chan  CLICK! No bullet in there
  set %deadoralive alive
  if (%gun4 == 6) .msg $chan  BAM %player2 died
  set %deadoralive dead
  if (%deadoralive == dead) {
    .msg $chan %player2 lost the game of RR grats %player1 $+ . { HALT }
  }
}