on *:TEXT:!cookie*:#: {
if ($2 == $null) { msg $chan Unknown cookie command. Type !cookie help to get a list of available cookie commands }
elseif ($2 == help) { notice $nick Cookie commands: !cookie fill - !cookie eat <number> - !cookie add <number> - !cookie guess start - !cookie guess stop - !cookie guess score - !cookie stats }
elseif ($2 == stats) {
msg $chan Last person to fill cookie jar: %cookiefiller
.timer 1 1 msg $chan Last person to eat cookie: $+(,%cookieeater,)
.timer 1 2 msg $chan Last person to add cookie: $+(,%cookieadder,)
.timer 1 3 msg $chan Cookies left in cookie jar: $+(,%cookiejar,)
.timer 1 4 msg $chan Type !cookie help to get a list of cookie commands.
}
elseif ($2 == guess) && ($3 == score) && (% [ $+ [ cookiescore [ $+ [ . [ $+ [ $nick ] ] ] ] ] ] == $null) {
set % [ $+ [ cookiescore [ $+ [ . [ $+ [ $nick ] ] ] ] ] ] 0
msg $chan $+(,$nick,) $+ : Your current cookie guessing score is $+(,% [ $+ [ cookiescore [ $+ [ . [ $+ [ $nick ] ] ] ] ] ],) $+ .
}
elseif ($2 == guess) && ($3 == score) { msg $chan $+(,$nick,) $+ : Your current cookie guessing score is $+(,% [ $+ [ cookiescore [ $+ [ . [ $+ [ $nick ] ] ] ] ] ],) $+ . }
elseif ($2 == guess) && ($3 == stop) && (%cookieguess != ON) { msg $chan There is no cookie guessing game in progress $+(,$nick,) $+ . }
elseif ($2 == guess) && ($3 == stop) {
set %cookieguess OFF
set %cookiejar 0
msg $chan Cookie Guessing Game has stopped. The cookie jar has been emptied.
}
elseif ($2 == guess) && ($3 == start) && (%cookieguess == ON) { msg $chan Cookie Guessing Game is already going $+(,$nick,) $+ . }
elseif ($2 == guess) && ($3 == start) {
set %cookieguess ON
set %cookiejar $rand(1,1000)
msg $chan Cookie Guessing Game has started.
.timer 1 1 msg $chan Type !cookie guess <number> to guess how many cookies are in the cookie jar.
}
elseif ($2 == guess) && ($3 !isnum) && (%cookieguess != ON) { msg $chan There is no cookie guessing game in progress $+(,$nick,) $+ . }
elseif ($2 == guess) && ($3 isnum) && ($3 > %cookiejar) && (%cookieguess != ON) { msg $chan There is no cookie guessing game in progress $+(,$nick,) $+ . }
elseif ($2 == guess) && ($3 isnum) && ($3 < %cookiejar) && (%cookieguess != ON) { msg $chan There is no cookie guessing game in progress $+(,$nick,) $+ . }
elseif ($2 == guess) && ($3 isnum) && ($3 == %cookiejar) && (%cookieguess != ON) { msg $chan There is no cookie guessing game in progress $+(,$nick,) $+ . }
elseif ($2 == guess) && ($3 !isnum) { msg $chan You need to specify the number of cookies you think are in the jar $+(,$nick,) $+ . }
elseif ($2 == guess) && ($3 isnum) && ($3 > %cookiejar) && (%cookieguess == ON) { msg $chan Incorrect! Try a lower number $+(,$nick,) $+ . }
elseif ($2 == guess) && ($3 isnum) && ($3 < %cookiejar) && (%cookieguess == ON) { msg $chan Incorrect! Try a higher number $+(,$nick,) $+ . }
elseif ($2 == guess) && ($3 isnum) && ($3 == %cookiejar) && (%cookieguess == ON) {
set %cookiejar 0
set %cookieguess OFF
inc % [ $+ [ cookiescore [ $+ [ . [ $+ [ $nick ] ] ] ] ] ] 1
msg $chan Yes! $+(,$nick,) got the answer correct with $+(,$3,) and is awarded 1 point.
.timer 1 1 msg $chan The cookie jar has been emptied. Type !cookie guess start to start anew!
}
elseif ($2 == fill) && (%cookieguess == ON) { msg $chan You cannot fill the cookie jar while the cookie guessing game is in progress $+(,$nick,) $+ . }
elseif ($2 == fill) && (%cookiejar == 1000) { msg $chan The cookie jar is already full $+(,$nick,) $+ . There are $+(,%cookiejar,) cookies in it. }
elseif ($2 == fill) {
set %cookiejar 1000
set %cookiefiller $nick
msg $chan The cookie jar has been filled by $+(,$nick,) $+ . There are now $+(,%cookiejar,) cookies in it.
}
elseif ($2 == eat) && (%cookieguess == ON) { msg $chan You cannot eat from the cookie jar while the cookie guessing game is in progress $+(,$nick,) $+ . }
elseif ($2 == eat) && ($3 !isnum) { msg $chan You need to specify a number of cookies you want to eat $+(,$nick,) $+ . }
elseif ($2 == eat) && ($left($3,1) == 0) { msg $chan You can't eat 0 cookies from the jar $+(,$nick,) $+ . }
elseif ($2 == eat) && ($3 isnum) && ($calc(%cookiejar - $3) < 0) { msg $chan There aren't enough cookies for you to eat that much $+(,$nick,) $+ . }
elseif ($2 == eat) && ($3 isnum) && ($calc(%cookiejar - $3) >= 0) {
dec %cookiejar $3
set %cookieeater $nick
msg $chan Who stole the cookie(s) from the cookie jar?!
.timer 1 1 msg $chan $+(,$nick,) stole the cookie(s) from the cookie jar! There are now $+(,%cookiejar,) cookies left.
}
elseif ($2 == add) && (%cookieguess == ON) { msg $chan You cannot add to the cookie jar while the cookie guessing game is in progress $+(,$nick,) $+ . }
elseif ($2 == add) && ($3 !isnum) { msg $chan You need to specify a number of cookies you want to add to the jar $+(,$nick,) $+ . }
elseif ($2 == add) && ($left($3,1) == 0) { msg $chan You can't add 0 cookies to the jar $+(,$nick,) $+ . }
elseif ($2 == add) && ($3 isnum) && ($calc(%cookiejar + $3) <= 1000) {
inc %cookiejar $3
set %cookieadder $nick
msg $chan $+(,$nick,) added $+(,$3,) cookie(s) to the cookie jar. There are now $+(,%cookiejar,) cookies in it.
}
elseif ($2 == add) && ($3 isnum) && ($calc(%cookiejar + $3) > 1000) { msg $chan The cookie jar can't hold that many cookies $+(,$nick,) $+ . }
else { msg $chan Unknown cookie command. Type !cookie help to get a list of available cookie commands }
}
---
ROLL GAME:
on *:TEXT:!roll*:#: {
if ($2- == $null) {
set %dice 1
set %sides 6
%roll = $rand(1,%sides)
msg # Roll 1: %roll
}
else {
set %dice $2
set %sides $3
set %i 0
set %total 0
set %average 0
if ($2 !isnum) || ($3 !isnum) {
msg # INVALID PARAMETERS!
halt
}
if (%dice <= 0) || %sides <= 0) {
msg # INVALID PARAMETERS!
halt
}
while (%i < %dice) {
inc %i 1
%roll = $rand(1,%sides)
msg # Roll %i $+ : %roll
%total = $calc(%total + %roll)
}
msg # Total: %total
%average = $calc(%total / %dice)
msg # Average: %average
}
}