;============================
;Russian Roulette
;Bot must be Opped in Channel
;By Anthalus
;Irc.FlirtUniverse.Net
;============================

on *!:TEXT:!rusr:#: {
  if ( $me !isop # ) {
    .msg $chan 12,15 I am not an Op on this Channel. I must be Opped to Play this game
    .halt
  }
  else {
    .inc $+(%,russ.roul.,$nick) 1
    var %roulette.random = $rand(1,4)
    inc %spins.roulette 1
    if ( %roulette.random === 1 ) {
      .msg $chan $nick picks up the pistol, spins the chamber, and pulls the trigger...
      .msg $chan 4BANG!!!!!! 
      .kick $chan $nick You are Dead
      inc %roulette.dead 1
      .set %latest.death $nick
      .unset $+(%,russ.roul.,$nick)
      goto advert
    }
    else {
      .msg $chan $nick picks up the pistol, spins the chamber, and pulls the trigger...
      .msg $chan 14CLICK 
      if ( %record.nick.att == $null ) {
        .set %record.nick.att $($+(%,russ.roul.,$nick),2)
        .set %record.nick $nick
        goto advert
      }
      elseif ( $($+(%,russ.roul.,$nick),2) > %record.nick.att ) {
        .set %record.nick.att $($+(%,russ.roul.,$nick),2)
        .set %record.nick $nick
        goto advert
      }
      else {
        goto advert
      }
    }
    :advert
    .set %percent.dead $calc(%roulette.dead / %spins.roulette )
    .msg $chan Record Attempts: %record.nick %record.nick.att Total Spins: %spins.roulette Total Deaths: %roulette.dead Death Percent: %percent.dead Last Dead: %latest.death
  } 
}

on *!:TEXT:!rusr record:#: {
  if ( $2 == record ) {
    .notice $nick The Russian Roulette Records are: Record Attempts: %record.nick %record.nick.att Total Spins: %spins.roulette Death Percent: %percent.dead Total Deaths: %roulette.dead Last Dead: %latest.death
  }
  else {
    .notice $nick The commands are: !rusr to play the game and !rusr record to see the records
    .halt
  }
  .halt
}