Russian roulette chromatic

on *:TEXT:!rr*:#: {
  if (( %rroul1 == $null )) {
    set %rroul1 $nick
    set %rroulturn $nick
    describe # $nick is ready to face another person in a russian roulette face off, type !rr to join them.
    .timerrroulette 1 20 endrr
  }
  elseif (( %rroul2 == $null )) && (( $nick != %rroul1 )) {
    .timerrroulette off
    set %rroul2 $nick
    set %rroul on
    describe # $nick joins %rroul1 in a russian roulette face off! %rroul1 will go first!
    describe # %rroul1 loads 1 bullet, and puts the cylinder inside the revolver, and spins it around...
    .timer 1 1 describe # All set! Your up %rroulturn - type !shoot to play.
    set %rr.chamber $rand(1,6)
  }
  elseif (%rroul == on) {
    describe # Sorry, you need to wait for the current game between %rroul1 and %rroul2 to be over.
  }
}
alias endrr {
  describe # I'm afraid no one wanted to play russian roulette.
  unset %rr*
}
on *:TEXT:!shoot*:#: {
  if (( %rroul == on )) {
    var %other $iif(%rroulturn == %rroul1,%rroul2,%rroul1)
    if ( %rroulturn == $nick ) {
      if (( %rr.chamber == 1 )) {
        describe # BANG!!! >> You dead.
        .timer 1 1 describe # $nick dies so %other wins!!
        unset %rr*
      }
      else {
        describe # CLICK!!!
        .timer 1 1 describe # $nick lives! They pass the revolver to %other
        dec %rr.chamber
        set %rroulturn %other
      }
    }
    elseif ($nick == %other) {
      describe # Sorry $nick $+ , it's not your turn. You need to wait for $+(%rroulturn,.)
    }
    else {
      describe # Sorry, you need to wait for the current game between %rroul1 and %rroul2 to be over.
    }
  }
  else {
    describe # The game hasn't started. Type !rr to start russian roulette!
  }
}