Mine

on 1:LOAD:/echo 5,7BeerBot Loaded!
on 1:UNLOAD:/echo 7,5BeerBot Unloaded...

on 1:TEXT:!Beer:#:{
  if ($2 isnum) {
    var %beers = $2
    while (%beers <= $2) {
      if (%beers == 0) {
        set %beers = $2
        } else {
        /timer1 0 5 /msg $chan %beers bottles of beers on the wall, %beers bottles of beer. Take one down, pass it around $calc(%beers - 1) bottles of beer on the wall.
        /dec %beers 1
      }
    }
    } else {
    if ($2 !isnum) && ($2 = off) {
      halt
    }
  }
}