russian-chromatic

alias rrover {
  unset %rroul | unset %rroul1 | unset %rroul2 | unset %rroulturn | unset %chamber
}
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 !rroulette to join them.
   timerrroulette 1 20 /describe # I'm afraid no-one wanted to face $nick $+ .
    timerrroulette2 1 20 /2prover
  }
  elseif (( %rroul2 == $null )) && (( $nick != %rroul1 )) {
    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
    set %chamber $rand(1,6)
    timerrroulette off
    timerrroulette2 off
  }
}
on *:TEXT:!shoot*:#: {
  if (( %rroul == on )) {
    if (( %rroulturn == $nick )) && (( %2proul1 == $nick )) {
      if (( %chamber == 1 )) {
        describe # BANG!!!
        describe # $nick dies so %rroul2 wins!!
        rrover
      }
      else {
        describe # CLICK!!!
        describe # $nick lives! They pass the revolver to %rroul2
        dec %chamber
        set %rroulturn %rroul2
      }
    }
    if (( %rroulturn == $nick )) && (( %rroul2 == $nick )) {
      if (( %chamber == 1 )) {
        describe # BANG!!!
        describe # $nick dies so %rroul1 wins!!
        rrover
      }
      else {
        describe # CLICK!!!
        describe # $nick lives! They pass the revolver to %rroul1
        dec %chamber
        set %rroulturn %rroul1
      }
    }
  }
elseif (( $nick == %2proul1 )) && (( %2proul != on )) {
    describe # Sorry, there is no second player for you to face $nick $+ .
  }
}