Rock Paper Scissors

Please Register to submit score.

Average Score	4.0
Scores Submitted	1
Date Added	May 04, 2008
Last Updated	May 05, 2008
Tags	2player fun game paper player rock scissors two

Introduction

======================Rock Paper Scissors IRC Game============================
:::Version 1.4
:::::Written by cr0sis - irc.affinitygamers.com -
::::::Copyright � 2008 cr0sis @ www.affinitygamers.com
:::::::Use and reproduction of this script is permitted as long as the readme is present and unchanged.

::::::::Commands:
!rps = Starts a new game and defines player 1
!join = Defines player 2
!start = Used when player 1 and player 2 have been defined and are ready to play. This will send each player instructions on how to play via a query.
!override = Resets all variables (YOU MUST DEFINE ONE NICK TO ALLOW USE OF THIS COMMAND IN THE SCRIPT, THIS SECTION IS NEAR THE BOTTOM)
/msg <botname> choice = Command to choose your weapon. Example: /msg cr0sis paper
!quit = Removes player from game, only the player who uses this command will be removed, other will not.

@@@@@ IMPORTANT please modify the !override if ($nick == <>) statement on line 159 to have your name where <> is. example ($nick == cr0sis) @@@@@@

What is it for?
This script is a 2 player interactive IRC game bringing rock paper scissors into the 21st century and digital age.

How do I load it?
Loading instructions: copy the contents of rockpaperscissors.mrc (rename rockpaperscissors.mrc to .txt if you have trouble opening this file) and in your mIRC client open up the script editor, and paste the whole lot into your remotes section.

How do I play?
Please note, you cannot play this game if your client is hosting the script, you must use it on a "bot".
Once you have loaded the script, from another client type !rps, this makes you player 1. Another player must use !join, this command makes them player 2.
Once player 1 and player 2 are found, player 1 must use !start.

From here on in you need to use /msg botname rock/paper/scissors, for example /msg cr0sis scissors

You will see no confirmation and you won't see the other players response, but once both players have each done /msg botname choice, a confirmation in the channel you're playing on will be visible and 3 seconds later the winner announced.

You may do this any number of times, once you've played one game nothing is reset and you can go right ahead and do /msg botname choice as many times as you both like.

To leave, type !quit. Doing so ONLY removes you, not the other player. The other player is still able to find another opponent, and anyone else wishing to fight the remaining player needs to type !join

Is it finished?
Pretty much, there is one issue where before player 1 types !start after finding an opponent, someone else can do !join and overwrite player 2.

What's coming soon for this script?
Scores
top 10
Cleaner code, more functional code to allow for easier expansion (full re-write in progress, but for now I have released this, it works.)

When?
Soon.

I have a problem, can I contact you?
Sure, irc.affinitygamers.com Channel: #Affinity

Grab the Code

;Rock Paper Scissors Main chat game.
;Version 1.4
;Written by cr0sis - irc.affinitygamers.com - 
;Commands: !rps, !join, !start, !override, /msg <botname> choice and !quit 
;IMPORTANT please modify the !override if ($nick == <>) statement on line 159 to have your name where <> is. example ($nick == cr0sis)

;Anyone may quit at any time but only the one who quits will be dropped from current game, the other play may still be challenged unless he or she quits too.

on *:TEXT:!quit:#:{
  if ($nick == %rps.1) && (%rps.2 != $null) {
    msg $chan 7[Rock Paper Scissors] $nick has left the current game, %rps.2 may still be challenged by a new opponent.
    unset %rps.1
  }
  elseif ($nick == %rps.2) && (%rps.1 != $null) {
    msg $chan 7[Rock Paper Scissors] $nick has left the current game, %rps.1 may still be challenged by a new opponent.
    unset %rps.2
  }
  else {
    msg $chan 7[Rock Paper Scissors] There are no players for rock paper scissors, please type !rps to look for an opponent
    UNSET %rps.1
    UNSET %rps.2
    UNSET %chan
  }
}

;Starting the game = Type !rps and you become player 1
on *:TEXT:!rps:#:{
  if (%rps.1 == $null) && (%rps.2 == $null) {
    msg $chan 7[Rock Paper Scissors] New game started by $nick $+ , To challenge $nick type !join
    set %rps.1 $nick
    set %chan $chan
  }
  ELSE {
    MSG %chan 7[Rock Paper Scissors] Game already in progress. Type !join to play against %rps.1
  }
}

;Challenging an opponent
on *:TEXT:!join:#:{
  if ($nick != %rps.1) && (%rps.1 != $null) { 
    msg $chan 7[Rock Paper Scissors] $nick has accepted %rps.1 $+ 's challenge. %rps.1 Please type !start to begin 
    set %rps.2 $nick
  }
  ELSEIF (%rps.1 == $null) && (%rps.2 == $null)  {
    MSG 7[Rock Paper Scissors] $chan No game in progress. Please use !rps to find an opponent
  }
  ELSE {
    MSG $chan 7[Rock Paper Scissors] You're already player #1 $nick $+ .
  }
}

;Once two opponents are ready to play, player one executes with !start

on *:TEXT:!start:#:{
  if ($nick == %rps.1) && (%rps.2 != $null) {
    query %rps.1 Welcome to IRC Rock Paper Scissors. To play, please enter your choice here (Rock, Paper or Scissors). View the result in %chan
    query %rps.2 Welcome to IRC Rock Paper Scissors. To play, please enter your choice here (Rock, Paper or Scissors). View the result in %chan
    msg $chan 7[Rock Paper Scissors] Rock Paper Scissors Game started. Contestents: %rps.1 and %rps.2 please look at the query you just recieved
  }
  ELSEIF ($nick != %rps.1) && ($nick == %rps.2) {
    MSG $chan 7[Rock Paper Scissors] Only %rps.1 can start the game.
  }
  ELSEIF (%rps.1 == $null) && (%rps.2 == $null)  {
    MSG $chan 7[Rock Paper Scissors] No game in progress. Please use !rps to find an opponent 
  }
  Else {
    MSG $chan 7[Rock Paper Scissors] You need 2 players to start the game.
  }
}

;Game rules (Rock>Scissors, Scissors>paper, Paper>rock)
on *:TEXT:*:?:{
  IF (%rps.1 == $null) || (%rps.2 == $null) {
    MSG 7[Rock Paper Scissors] $nick Stfu you're not playing } {
    IF ($nick == %rps.1) {
      IF ( $1 == rock ) { 
        SET %rps.1t rock
      }
      ELSEIF ($1 == scissors) {
        SET %rps.1t scissors 
      }
      ELSEIF ($1 == paper) {
        SET %rps.1t paper 
      }
      ELSE {
        msg $nick Invalid response
      }
    }
    ELSEIF ($nick == %rps.2) {
      IF ( $1 == rock ) { 
        SET %rps.2t rock 
      }
      ELSEIF ($1 == scissors) {
        SET %rps.2t scissors 
      }
      ELSEIF ($1 == paper) {
        SET %rps.2t paper 
      }
      ELSE {
        msg $nick Invalid response
      }
    }
  }
  ;All the following code will be executed either if $nick=%rps.1, if $nick=%rps.2 or $nick is not either of them
  IF (%rps.2t != $null) && (%rps.1t != $null) {
    MSG  %chan 7[Rock Paper Scissors] Both players have chosen. Results coming in 3 seconds.
    /timerrps 0 3 /faceoff
  }
}

alias faceoff {
  IF (%rps.1t == %rps.2t) /draw {
        IF (%rps.1t == paper) && (%rps.2t == rock) /win1 {
          IF (%rps.1t == scissors) && (%rps.2t == paper) /win1 {
            IF (%rps.1t == rock) && (%rps.2t == scissors) /win1 {
              IF (%rps.1t == rock) && (%rps.2t == paper) /win2 {
                IF (%rps.1t == paper) && (%rps.2t == scissors) /win2 { 
                  IF (%rps.1t == scissors) && (%rps.2t == rock) /win2  {            
                  }
                }
              }
            }
          }
        }
      }
    }

alias draw {
  MSG %chan %rps.1 and %rps.2 both chose %rps.1t $+ . Game is tied! 
  UNSET %rps.1t
  UNSET %rps.2t
}

alias win1 {
  MSG %chan %rps.1t beats %rps.2t $+ ! %rps.1 is the winner!
  UNSET %rps.1t
  UNSET %rps.2t
}
alias win2 {
  MSG %chan %rps.2t beats %rps.1t $+ ! %rps.2 is the winner!
  UNSET %rps.1t
  UNSET %rps.2t
}

on *:TEXT:!override:#:{if ($nick == cr0sis) {
  UNSET %rps.1t
  UNSET %chan
  UNSET %rps.2t
  UNSET %rps.1
  UNSET %rps.2
MSG $chan RPS Reset. }

on *:TEXT:!commands:#: NOTICE $nick 7[Rock Paper Scissors] Available commands: !rps, !start, !join, !override (if owner), !quit. Once joined and started, use /msg BOTNAME paper/rock/scissors to play

Comments

(4) RSS

Go to Bottom

vaseline28

Comments: 103

mIRC Snippet: Rock Paper Scissors
Posted on May 5, 2008 9:30 am

Instead of doing:

Quote:

alias faceoff {
IF (%rps.1t == rock) && (%rps.2t == rock) /draw {
IF (%rps.1t == scissors) && (%rps.2t == scissors) /draw {
IF (%rps.1t == paper) && (%rps.2t == paper) /draw {

You could simply do:

Quote:

IF (%rps.1t == %rps.2t) /draw {

Which means that if %rps.1t is the same as %rps.2t then you get to draw, which cuts out two of the IF statements

AHBARAR

Comments: 92

mIRC Snippet: Rock Paper Scissors
Posted on May 5, 2008 11:10 am

not bad script mate and since u wanna update it let me ask u a lil idea .. >:P
put some time for the bot tht if player 2 didnt join after some time the bot will challenge the player 1 u may find some other guys script having tht on hawkee try to have some ideas from them and make ur addon the best >;)
wish u best luck

cr0sis

Comments: 7

mIRC Snippet: Rock Paper Scissors
Posted on May 5, 2008 5:19 pm

Thanks vaseline, I know the script sucks and like I said, it's my first big game and I kinda rushed it (took me about 3 hours in total from starting to ironing out nearly all the bugs).

AHBARAR Nice idea, if Vaseline lets me I could easily incorporate his latest script (the singleplayer rock/paper/scissors one). I don't steal though, and there's no way I could be bothered to write a single player side of it myself since I write my scripts for a community which is very active.

trueeevil

Comments: 1

mIRC Snippet: Rock Paper Scissors
Posted on Jun 12, 2008 12:08 am

Sometimes, when its done, it repeats.
[22:22] <trueeevil> talroma and cmc both chose paper. Game is tied!
[22:22] <trueeevil> talroma and cmc both chose . Game is tied!
[22:22] <trueeevil> talroma and cmc both chose . Game is tied!
[22:22] <trueeevil> talroma and cmc both chose . Game is tied!

Rock Paper Scissors

Introduction

Grab the Code

Comments

cr0sis

My Snippet Tags

Contact

Sponsors


Last seen: May 07, 2008 Profile Snippets (2) Comments Received (14) Comments Submitted (7)