Mine

INPUT Script:


on *:INPUT:#: {
  if ($1 == !refill) {
    if (%beeramount == 10) {
      msg $chan $1
      msg $chan The Beer Barrel is already full! %beeramount glasses of beer left!
    }
    else {
      msg $chan $1
      /set %beeramount 10
      msg $chan The Beer Barrel has been refilled! %beeramount glasses of beer left!
    }
  }
  elseif ($1 == !beer) {
    if (%beeramount != 0) {
      msg $chan $1
      /dec -e %beeramount 1
      /inc %beer [ $+ [ $me ] ] 1
      msg $chan * $me gives herself a beer. $nick has drunk %beer [ $+ [ $nick ] ] beers, %beeramount beers left!
    }
    else {
      msg $chan $1
      msg $chan There's no more beer left! Drunk bastards! Now refill the barrel!
    }
  }
}


TEXT Script:


on *:TEXT:*:#: {
  if ($1 == !refill) {
    if (%beeramount == 10) {
      msg $chan The Beer Barrel is already full! %beeramount glasses of beer left!
    }
    else {
      /set %beeramount 10
      msg $chan The Beer Barrel has been refilled! %beeramount glasses of beer left!
    }
  }
  elseif ($1 == !beer) {
    if (%beeramount != 0) {
      /dec -e %beeramount 1
      /inc %beer [ $+ [ $me ] ] 1
      msg $chan * $me gives herself a beer. $nick has drunk %beer [ $+ [ $nick ] ] beers, %beeramount beers left!
    }
    else {
      msg $chan There's no more beer left! Drunk bastards! Now refill the barrel!
    }
  }
}