cookie! type !launch and itl start fucking up your channel :).

Updated. you can now give cookies - and gain cookies randomly at any time by typing !cookie - slow and tedious way, you may now also view others cookies, !cookie person.

on $*:TEXT:/^[!@.]launch/Si:#:{
  if (!$timer(cookies).secs) {
    set %chan $chan
    describe $chan Loads the legendery cookie launcher full of cookies!
    .timer 1 2 cookie
    .timercookies 0 600 cookie
    halt
  }
  if ( %c. [ $+ [ $nick ] ] >= 3 ) { halt }
  inc %c. [ $+ [ $nick ] ]
  .timerunset 1 60 unset %c.*
  .notice $nick next launch in $duration($timer(cookies).secs) $+ , in %chan $+ .
}
on $*:TEXT:/^[!@.]give/Si:#:{
  if ( $2 ison $chan ) && ( $3 isnum ) && ( $4 == cookies ) {
    if ( $2 == $nick ) || if ( $3 < 1 ) { notice $nick $iif( $3 > 0,you cannot give yourself cookies,You cannot give negitive cookies) | halt }
    if ( $readini(cookie.ini, jar, $nick) >= $3 ) {
      var %cookies1 $Readini(cookie.ini, jar, $nick)
      var %cookies2 $readini(cookie.ini, jar, $2)
      dec %cookies1 $3
      inc %cookies2 $3
      writeini cookie.ini jar $nick %cookies1
      writeini cookie.ini jar $2 %cookies2
      msg $chan $nick has given $2 $3 cookies and $nick now has $readini(cookie.ini, jar, $nick) cookies.
      msg $chan $2 now has $readini(cookie.ini, jar, $2) cookies.
    }
    else { msg $chan You do not have $3 cookies, you $iif(!$readini(cookie.ini, jar, $nick), have no cookies,only have $readini(cookie.ini, jar, $nick) cookies) }
  }
  else { notice $nick wrong syntax. The syntax is !give <person> <amount> cookies. }
}
alias cookie {
  if (!%chan) { var %chan $chan(1) }
  var %x $rand(1,$nick(%chan,0))
  var %person $nick(%chan,%x)
  :check
  if ( %x > $nick($chan,0)) { msg %chan not enough people to launch the cookies | halt } 
  if ( $readini(theme.ini, bots, %person) == 1 ) || ( %person == $me ) { inc %x | var %person $nick(%chan,%x) | goto check }
  var %roos $rand(1,100)
  .timer 1 1 describe %chan takes out the legendery cookie launcher, aims at %person
  .timer 1 3 describe %chan shoots out %roos $read(cookie.txt)
  var %cookies $readini(Cookie.ini, jar, %person)
  if (%cookies) { writeini cookie.ini jar %person $calc(%roos + %cookies) }
  if (!%cookies) { writeini cookie.ini jar %person %roos }
  .timer 1 5 msg %chan %person now has $readini(cookie.ini, jar, %person) cookies :).
}
on $*:TEXT:/^[!@.]cookies/Si:#:{
  .timer 1 5 unset %flood
  if ( %flood == 1 ) { halt }
  set %flood 1
  if ($2) {
    msg $chan $2 has $iif($readini(cookie.ini, jar, $2),$readini(cookie.ini, jar, $2) cookies,no cookies)
    halt
  }
  msg $chan $nick has $iif($readini(cookie.ini, jar, $nick),$readini(cookie.ini, jar, $nick) cookies,no cookies)
}
on *:TEXT:!cookie:#: {
  .timerc 1 5 set %floodc 1
  if ( %floodc == 1 ) {
    unset %floodc
    var %num $Rand(1,5)
    describe $chan gives $nick %num $read(cookie.txt)
    var %cookie 0
    var %cookie $readini(cookie.ini, jar, $nick)
    inc %cookie %num
    writeini cookie.ini jar $nick %cookie
    msg $chan $nick now has $iif($readini(cookie.ini, jar, $nick),$readini(cookie.ini, jar, $nick) cookies,no cookies)
  }
}
on *:load: {
writeini theme.ini bots $$?"What bot is in your channel that you dont want getting cookies ;\. feel free to do this multiple times." 1
write cookie.txt warm freshly baked chocolate chip cookies
write cookie.txt oreo cookies
write cookie.txt peanut butter cookies
write cookie.txt ginger bread men
write cookie.txt rainbow cookies!
write cookie.txt dunkeroos!
}