Random Number Game

mIRC Code

+ 1 likes

Please Register to submit score.

Average Score	0.0
Scores Submitted	0
Date Added	Sep 12, 2007
Last Updated	Sep 12, 2007
Tags	game number

Introduction

Just another useless little number game. Got bored, and had a bit of free-time...

!rnumber - You will need to type this twice so that %rn gets set as No, or you can do it manually. The second time the game will start up.
!srn - This stops the active game.
!rscore <nick> - This will allow you to view the score of any player that has guessed the number correct before. If you do not list another name after !rscore, it will say your score.
!requestn (Game Master Only) - This will PM the Game Master the current correct number.
!rn <number> - The command to guess a number once the game has started.

If you have any comments/suggestions for it please leave a comment :D

Edit: I made it so the !rn function wouldn't work if the game wasn't active.

Grab the Code

on *:TEXT:!rnumber*:#:{
  if (%rn == $null) {
    .set %rn No
    halt 
  }
  if (%rn == No) && (%num.limit == $null) {
    .msg $chan 14 Sorry7 $nick $+ 14, the owner of the game hasn't set a number limit yet! Please contact the owner and have him/her set the number.
    halt
  }
  if (%rn == No) && (%num.limit != $null) {
    .set %rnum $rand(1, $+ %num.limit $+ )
    .set %rn Yes
    .msg $chan 14 $nick has started the random number game! Type: 7!rn <number>14 to guess! The number will be between7 1 and %num.limit $+ 14.
    halt
  }
  if (%rn == Yes) {
    .msg $chan 14 Sorry $nick $+ , there is already a game in progress.
  }
}

on *:TEXT:!rn*:#:{
  if (%rn == No) {
    halt
  }
  if (%rn == Yes) && ($2 == %rnum) {
    .msg $chan 14Congrats7 $nick $+ 14! You guessed the right number!
    .set %rn No
    .set %points.won $calc( $readini( rnumber.ini, $nick, Points ) +100 )
    .writeini rnumber.ini $nick Points %points.won
    .msg $chan 14Name:7 $nick 14- Points:7 $readini( rnumber.ini, $nick, Points )
    .unset %rnum
    halt
  }
  if ($2 > %num.limit) {
    .msg $chan 7 $nick $+ 14, your guess needs to be %num.limit or less.
    halt
  }
  if ($2 < 1) {
    .msg $chan 7 $nick $+ 14, your guess needs to be 1 or higher.
    halt
  }
  if (%rn == Yes) && ($2 != %rnum) {
    .msg $chan 14Sorry, that's incorrect,7 $nick $+ 14.
  }
}

on *:TEXT:!requestn*:#:{
  if (%rn == Yes) && ($nick == %master) {
    .msg %master 14The number is:7 %rnum
    halt
  }
  if (%rn == No) && ($nick == %master) {
    .msg %master 14There's no game currently playing!
    halt
  }
  if (%rn == Yes) && ($nick != %master) {
    .notice $nick 14I cannot give that information out to you. Sorry!
  }
}

on *:TEXT:!srn*:#:{
  if ($nick isop $chan) && (%rn == Yes) {
    .msg $chan 14Sorry everyone,7 $nick 14has requested to shut the game down... Thanks for playing!
    .set %rn No
    .unset %rnum
    halt
  }
  if ($nick isop $chan) && (%rn == No) {
    .msg $chan 14The game is already shutdown!
    halt
  }
}

on *:TEXT:!rscore*:#:{
  if ( $readini( rnumber.ini, $nick, Points ) == $null ) {
    .msg $chan 7 $nick $+ 14, you have not won yet. Once you win you will be able to display your score!
    halt
  }
  if ( $2 != $null ) {
    if ( $readini( rnumber.ini, $2, Points ) == $null ) {
      .msg $chan 7 $2 14has not won before.
      halt
    }
    else .msg $chan 7 $2 14has7 $readini( rnumber.ini, $2, Points ) 14points.
  }
  if ( $2 == $null ) .msg $chan 7 $nick 14has7 $readini(rnumber.ini, $nick, Points) 14points.
}

menu nicklist {
  RNumber
  .Award Points:{
    set %points $$?="How many points are you awarding this user?"
    set %points.award $calc( $readini( rnumber.ini, $$1, Points ) +%points)
    writeini rnumber.ini $$1 Points %points.award
    .notice $$1 14You have been awarded 7 %points 14points by7 $me $+ 14.
    .unset %points
    .unset %points.award 
    halt
  }
  .Remove Points:{
    set %points.t $$?="How many points do you wish to take from this user?"
    set %points.take $calc( $readini( rnumber.ini, $$1, Points ) -%points.t )
    writeini rnumber.ini $$1 Points %points.take
    .notice $$1 7 %points.t 14points has been taken from you by7 $me $+ 14.
    .unset %points.t
    .unset %points.take
    halt
  }
  .Set Master:{
    set %master $$?="Who is the master?"
  }
  .Set Number Limit:{
    set %num.limit $$?="Please enter a number:"
    .msg $active 14There is now a number limit set for the random number game. It is:7 %num.limit
  }
}

Comments

(0) RSS

Go to Bottom

Akishoot

		Unemployed, Student, Detroit, Michigan
Last seen: Sep 29, 2008 Profile Likes (4) Friends (17) Snippets (9) Images (2) Comments Received (93) Comments Submitted (159)