A simple number guess game using a randomly generated number.

To start: !num

To guess: !num guess

Also keeps track of the number of correct guesses each person has made

Added Apr. 29, 2005:

!max number --- Sets the maximum number and auto-configures the minium number

!min number --- Sets the minimum number and auto-configures the maximum number

Either or both can be used

Also modified the start part of the code per suggestion by xDaeMoN

Modified Sept. 25, 2005 to prevent someone from setting new high/low amounts while a game is in progress

```
on *:text:!max &:*:{
if (!%num) {
set %high $2
set %low $iif($int($calc($2/2)) < %low,$v1,$v2)
}
else .msg $nick Game in progress
}
on *:text:!min &:*:{
if (!%num) {
set %low $2
set %high $iif($calc($2 * 2) > %high,$v1,$v2)
}
else .msg $nick Game in progress
}
on *:TEXT:!num*:#:{
if (!$2) && (%num) {
.msg $nick Number Guess Game is Active
.msg $nick To enter a guess use !num <your guess>
}
elseif (!$2) {
set %num on
set %low $iif(!%low,$r(1,$calc($ctime / 2)),%low)
set %high $iif(!%high,$r($calc(%low + 1),$ctime),%high)
var %avg = $r(%low,%high)
describe # The mystery number is between 4 %low and 4 %high
}
elseif $2 == %avg {
describe # congratulates 4 $nick for guessing the mystery number in 5 $duration($calc($ctime - %start)))
inc %num.correct. $+ $nick
describe # You have now correctly guessed %num.correct. $+ $nick mystery numbers correctly
unset %high
unset %low
unset %num
}
else {
if ($2 >= %low) && ($2 <= %high) { $iif(%avg < $2, %low = $2, %high = $2) }
describe # The mystery number is between 4 %low and 4 %high
}
}
```

Sign in to comment.

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.