Something

on *:TEXT:!cookie*:#:{
  if ($address($me,2) == $address($nick,2)) {
    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! 
    }
    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 steal 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! 
  }
}