Game: Russian Roulette v3.2

By SileNTReApR on Oct 23, 2004

Copy + Paste it into a new remotes file, then announce that you have
this script on :D

Make sure you are OP though, otherwise this script would be pointless.
What it does, when a user types !russian roulette, that person
will have a 1/6 chance of getting banned. When that person does get banned however, he will also have a 1/6 chance of a 24 hour ban, 1/6 chance of 12 hour ban, 6 hour ban, 1 hour ban, 5 min ban, 1 min ban.

This will see who's the luckiest in the channel, and the unluckiest.

Right clicking on channel window will also bring up a menu in which you can
reset current game, etc...

[UPDATED]

Now has support for multiple players, but still no fixed system meaning
you'll still have to take turns playing by yourselves.
Added menu features and reward system
Added help system
Fixed the way the scores were shown
add support for multiple chans
added luckiest nick feature and more :D

UPDATE AGAIN:
Well I added a quick reward feature, that you can customize. Once a player has surpassed that score they automatically get rewarded with, voice, hop, op etc..

Wait for my v4.0 release where it will have 2p support for multiple channels :D

NOTE: v4.0 still might be a while :D I really can't be bothered working on it as right now I have absolutely no motivation.

; Russian Roulette v3.2 By SileNTReApR
; Below is the menu function. Don't modify unless you know what you are doing.
on *:load:{
  /echo $chan 4Russian Roulette Script v3.0 By SileNTReApR loaded. 
  /echo $chan 4Enjoy :) {
    if ($version < 6.16) { echo $chan 4This script was coded in mIRC v6.16, upgrade you may run into problems.
    }
  }
}
menu channel {
  Russian Roulette
  .Reset High Score:{
    /unset %rouletterecord
  /msg $chan 4Russian Roulette: 10The High Score has been reset. }
  .Reset Total Bans:{
    /unset %roulettebans
  /msg $chan 4Russian Roulette: 10The Total Bans has been reset. }
  .Set High Score:{
    /set %rouletterecord $$?="New High Score:"
  /msg $chan 4Russian Roulette: 10The Record has been set to:4 %rouletterecord }
  .Restart Current Game(s):{
    /unset $+(%,roulettegame.,*)
  /msg $chan 4Russian Roulette: 10The current game(s) has been restarted. }
  .-
  .Display High Scores:{
  /msg $chan 4Russian Roulette: 5Last banned:4 %roulettebannick 5Total bans:4 %roulettebans 5Record:4 %rouletterecord 5Luckiest Person:4 %luckiestperson  }
  ; You can change the OP to whatever you want.
  .$iif($($+(%,roulettereward.,$chan),2),$style(1)) Roulette Reward:if ($($+(%,roulettereward.,$chan),2)) { set $+(%,roulettereward.,$chan) 0 } | else { set $+(%,roulettereward.,$chan) 1 | set $+(%,rrecord.,$chan) $$?-="Roulette Reward" | set $+(%,r_rewardmode.,$chan) $$?-="Reward for Ultimate Record: (OP, HOP, VOICE, SOP)" | /msg $chan 4Russian Roulette: 10Roulette Reward system has been Enabled! You must beat4 $($+(%,rrecord.,$chan),2) 10to get4 $($+(%,r_rewardmode.,$chan),2) } 
}
; Main Script, don't modify unless you know what you are doing.
on *:text:!russian roulette:#:{   
  inc $+(%,roulettegame.,$nick) 1 {  
    if ($me !isop $chan) { msg $chan 12I'm not OP! OP me first to play! | halt }  
    ; If you want, you can modify the chances, just chance the (1,6)
    set %russianroulette.rand $rand(1,6)
    set %banroulette.rand $rand(1,6) {
      ; You can modify the ban periods if you want. Just change the 24 hour, 12 hour etc..
      ; If you changed the chances, you can add also add more ban periods here
      ; just add them in the format of: 
      ; elseif (%banroulette.rand == #) { set %ban # hour/minute } etc
      if (%banroulette.rand == 1) { set %ban 24 hour }
      elseif (%banroulette.rand == 2) { set %ban 12 hour }
      elseif (%banroulette.rand == 3) { set %ban 6 hour }
      elseif (%banroulette.rand == 4) { set %ban 1 hour }
      elseif (%banroulette.rand == 5) { set %ban 5 Minute }
      elseif (%banroulette.rand == 6) { set %ban 1 Minute } {
        ; If you have modified the ban periods above, change the timer 
        ; to comply with your modification. 84600, 42300 etc...remember it's in seconds.        
        if (%russianroulette.rand == 1 && %ban == 24 hour) { $+(timer,24,$nick) 1 84600 mode $chan -b $address($nick,2) }
        elseif (%russianroulette.rand == 1 && %ban == 12 hour) { $+(timer,12,$nick) 1 42300 mode $chan -b $address($nick,2) }
        elseif (%russianroulette.rand == 1 && %ban == 6 hour) { $+(timer,6,$nick) 1 21150 mode $chan -b $address($nick,2) }
        elseif (%russianroulette.rand == 1 && %ban == 1 hour) { $+(timer,1,$nick) 1 3600 mode $chan -b $address($nick,2) }
        elseif (%russianroulette.rand == 1 && %ban == 5 Minute) { $+(timer,5,$nick) 1 300 mode $chan -b $address($nick,2) } 
        elseif (%russianroulette.rand == 1 && %ban == 1 Minute) { $+(timer,60,$nick) 1 60 mode $chan -b $address($nick,2) } {     
          ; You can change the death message here. But only the
          ; "10BAM! $nick is a loser, bye." part
          if (%russianroulette.rand == 1) { 
          .msg $chan 10BAM! $nick is a loser, bye. | mode $chan -e $address($nick,2) | mode $chan -e $nick | mode $chan +b $address($nick,2) | kick $chan $nick 10You are dead.4 %ban 10ban. | unset %banroulette.rand | unset %roulettebans.rand| unset $+(%,roulettegame.,$nick) | inc %roulettebans 1 | set %roulettebannick $nick }
          else { 
            ; Survivor msg, edit it you want 
            .msg $chan $nick 4is lucky. See if his/her luck holds. 5Tries this game:4 $($+(%,roulettegame.,$nick),2) 5Last banned:4 %roulettebannick 5Total bans:4 %roulettebans 5Record:4 %rouletterecord 5Luckiest Person:4 %luckiestperson | unset %russianroulette.rand
            ; DO NOT edit this bit, this is the record etc..
            if ($($+(%,roulettegame.,$nick),2) > %rouletterecord) { set %rouletterecord $($+(%,roulettegame.,$nick),2) | set %luckiestperson $nick }
            elseif (%rouletterecord == $null) { set %rouletterecord $($+(%,roulettegame.,$nick),2) | set %luckiestperson $nick } {
              ; You can change the +o (at the end) to whatever you want.
              if ($($+(%,roulettegame.,$nick),2) > $($+(%,rrecord.,$chan),2) && $($+(%,roulettereward.,$chan),2) == 1) { reward_nick $nick | msg $chan 4Congratulations $nick ! You have successfully beaten the ULTIMATE RECORD! }
            }
          }
        }
      }
    }
  }
}
alias reward_nick {
  if ($($+(%,r_rewardmode.,$chan),2 == OP) { 
  /mode $chan +o $1 }
  elseif ($($+(%,r_rewardmode.,$chan),2 == HOP) {
  /mode $chan +h $1 }
  elseif ($($+(%,r_rewardmode.,$chan),2) == VOICE) {
  /mode $chan +v $1 }
  elseif ($($+(%,r_rewardmode.,$chan),2) == SOP) {
  /mode $han +a $1 }
  else {
    .msg $chan 04Error04: Reward Mode not properly set.
  }
}
; Below is the help section...You can modify the words and colors 
; but it's not recommended...
on @*:text:!roulette help*:#:{
  if (roulette reward isin $3) { 
    .notice $nick 12Roulette Reward:
    .notice $nick 12Roulette Reward is a feature in which if you manage to
    .notice $nick 12beat the specified Ultimate Record, you will receive a
  .notice $nick 12reward, depending on if it's enabled or not. }
  elseif (Status isin $3) {
    .notice $nick 12Status:
    .notice $nick 12Status allows you to check the status of the bot. If it's
  .notice $nick 12enabled or not, or if a specific feature is enabled/disabled }
  elseif (Commands isin $3) {
  .notice $nick 12The Commands Are: 4!roulette status !roulette help !russian roulette !roulette record }
  elseif (Record isin $3) {
  .notice $nick 12Displays the current records of this channel }
  else { .notice $nick 12Welcome to Russian Roulette v3.0 Help Section. 
    .notice $nick 12To request help, type !roulette help 4COMMAND
    .notice $nick 12The commands are: 4status , commands , record , roulette reward
  }
}

Comments

Sign in to comment.
Lenooox   -  Jan 31, 2010

: Unknown command

 Respond  
T012m3n7oR   -  Jan 20, 2008

i can\'t get it to work...

 Respond  
SileNTReApR   -  Apr 26, 2005

about v4.0, might be a long time, or until I have found sufficient motivation anyway. I have attempted it, and I actually have a beta which I also can\'t be bothered testing..

 Respond  
SileNTReApR   -  Apr 26, 2005

And yes, I have taken account of people\'s suggestions, but I\'m lazy. Darth the reason I didn\'t do /ban -ku $nick is because it only kick/bans the nick, ie. Nick!@ so I use separate, to kick the nick and ban the address (!@host.host.host)

 Respond  
SileNTReApR   -  Apr 26, 2005

Ooh... been so long since I updated this..

 Respond  
supergeo   -  Feb 25, 2005

I gave you a 9

 Respond  
supergeo   -  Feb 25, 2005

forgot to add one thing...in v4, maybe add a queue....and, have a command where you can unban someone, and add some dialogs for when people r banned saying how long they r banned.

 Respond  
supergeo   -  Feb 25, 2005

erm dont u think 24 hour ban is a little much??? Then they cant play as much!!! Im gonna make it: 1 minute gag, 5 minute gag, kick, 1 minute ban, 2 minute ban, 5 minute ban

 Respond  
supergeo   -  Feb 25, 2005

erm dont u think 24 hour ban is a little much??? Then they cant play as much!!! Im gonna make it: 1 minute gag, 5 minute gag, kick, 1 minute ban, 2 minute ban, 5 minute ban

 Respond  
supergeo   -  Feb 25, 2005

I\'ll give it an 8....I wish I could go 8.5 :|

 Respond  
supergeo   -  Feb 25, 2005

Very nice and a great idea. Im not gonna deduct points, but u dont need to tell us so much not to edit it unless we know what we\'re doing :)

 Respond  
SileNTReApR   -  Nov 06, 2004

Updated guys...now much much better. Rate please :D

 Respond  
Kancer   -  Oct 27, 2004

i gave you a rating of four because this is incomplete, russian roulette is meant to be played with 2 people, possibly creating a challenge & accept on text event so someone could play who they want would make this more intresting :p

 Respond  
motoxlover13   -  Oct 25, 2004

where do i put the code?

 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.