BeerCount

alias budlight {
  msg #sabs $me has turned $2 the Bud Light Game!
  if ($2 == on) set %game on
  if ($2 == off) unset %game
}
on *:join:#sabs: {
  if ($nick != xDarkAngelx && %game == on) {
    set %nick $nick
    set %beer on
    notice $nick Hey $nick $+ , if you want to send xDarkAngelx a bud light, type [Yes] or [No]
  }
}
on *:text:*:#sabs: {
  if ($nick == %nick && %beer == on)
  if ($1 == yes) {
    inc %beercount 1 | set %beer off
    notice $nick Thanks, xDarkAngelx now has %beercount beers.
  }
  if ($1 = no) {
    set %beer off
    notice $nick No beer given to xDarkAngelx.
  }
  elseif ($1 != yes && $1 != no)
  unset %nick
  set %beer off
}

on *:text:*:#sabs: {
  if ($1 == !beers) notice $nick %beercount beers donated to xDarkAngelx.
  if ($1 == !drink && $nick == xDarkAngelx) {
    dec %beercount 1
  notice $nick You just drank a beer, %beercount left! }
}