on *:TEXT:!cookie*:#:{
if ($address($me,2) == $address($nick,2)) {
if ([ %coo. [ $+ [ $chan ] ] ] == 0) || (![ %coo. [ $+ [ $chan ] ] ]) {
.msg $chan You cannot give $2 a Cookie when there are none left in the Jar! type !refill to re-fill it!
}
else {
dec [ %coo. [ $+ [ $chan ] ] ]
.describe $chan hands $2 a Cookie. Cookies left in Jar: [ %coo. [ $+ [ $chan ] ] ]
}
}
else {
.notice $nick Hey! Get off my Cookies! You can't hand those out! }
}
on *:TEXT:!refill:#: {
if ($address($me,2) == $address($nick,2)) {
.set [ %coo. [ $+ [ $chan ] ] ] 10
$iif([ %coo. [ $+ [ $chan ] ] ] != 10,.msg $chan Tell Someone To FIX!,.msg $chan The Cookie Jar has been re-filled!)
}
else {
.notice $nick Sorry - Only Effilocher can re-fill the Cookie Jar!
}
}
on *:TEXT:!steal:#:{
if ([ %coo. [ $+ [ $chan ] ] ] == 0) {
.msg $chan You cannot give $2 a Cookie when there are none left in the Jar! type !refill to re-fill it!
halt
}
.set %steal $rand(1,50)
if (%steal <= 25) {
.describe $chan catches $nick with his hand in the cookie jar!
.notice $nick You have been caught stealing a Cookie!
}
else {
.describe $chan doesn't notice as $nick takes one of his cookies!
dec [ %coo. [ $+ [ $chan ] ] ]
.notice $nick You have successfully taken one of Kimahri's Cookies!
}
}