Okay threw this together, it's not the best but it works.

This is a basic bar script, added features in like money so people can only spend so much, also allows users to give drinks to others. Tracks how many drinks you've had, given, and how much $ you've spent.

Commands:
!menu -- Provides list of all drinks and their corresponding commands (with prices)
!topspenders -- Shows the top 10 spenders
!topdrinkers -- Shows top 10 Drinkers
!topgivers -- Shows top 10 Drink sharers
!specialdrink -- For an unlisted drink. Writes it to a txt file so you can consider adding it to the script to work.
!drink -- Gives user a random drink $5

/drinkadd -- Adds a drink to the random drink list
/drinks -- Lists all drinks that were suggested from the !specialdrink function
/cleardrinks -- clears suggestions from the specialdrink function

Disclaimer: I know it could'v been done better using ini's or txt files for all drinks. My mistake, save the breath. And I'm sure there's more mistakes... Did this in a day.

on *:text:!menu*:#: {
  notice $nick 7,1Welcome to Muddy's Bar!
  notice $nick || Drink Name || Price || Command ||
  notice $nick || Screwdriver || $chr(36) $+ 5 || !screwdriver ||
  notice $nick || Margarita || $chr(36) $+ 6 || !margarita ||
  notice $nick || Ziplock || $chr(36) $+ 4.50 || !ziplock ||
  notice $nick || Rum & Coke || $chr(36) $+ 5.50 || !rumcoke ||
  notice $nick || Fuzzy Navel || $chr(36) $+ 4 || !fuzzy ||
  notice $nick || Sex on the Beach || $chr(36) $+ 7 || !sex ||
  notice $nick || Kamakazi || $chr(36) $+ 4.25 || !kamakazi ||
  notice $nick || Mudslide || $chr(36) $+ 5.75 || !mudslide ||
  notice $nick || White Russian || $chr(36) $+ 6.50 || !russian ||
  notice $nick || Long Island Iced Tea || $chr(36) $+ 8 || !longisland ||
  notice $nick || Mai Thai || $chr(36) $+ 7.25 || !maithai ||
  notice $nick || Bahama Mama || $chr(36) $+ 6.50 || !bahama ||
  notice $nick || Purple Mother Fucker || $chr(36) $+ 5.50 || !purple ||
  notice $nick || Non Alcoholic Drinks ||
  notice $nick || Water || $chr(36) $+ .50 || !water ||
  notice $nick || Soda || $chr(36) $+ 1.00 || !soda ||
  notice $nick || *Custom* || $chr(36) $+ 15 || !specialdrink <Name of Drink> ||
  notice $nick 4Other Commands
  notice $nick !drink -- Random drink costs $chr(36) $+ 5.
  notice $nick !balance -- Provides your current balance
  notice $nick !specialdrink -- Want an unlisted drink?  This pours you a drink of your choice, and notifies me to add it to the script! The price is high though... $chr(36) $+ 12 for a special!
  notice $nick !topdrinkers -- Tells the top 10 alcoholics
  notice $nick !topgivers -- Lists the top 10 Generous Booze Sharers (Fools...)
  notice $nick !topspenders -- Lists the top 10 Spenders (DRUNKS)
  notice $nick !barstats -- Lists your Bar Stats
  notice $nick !barstats [nick] -- Lists a person's Bar Stats
}
on 1:connect: {
  timer 0 1800 moneyturn
}
alias moneyturn {
  set %i 1
  while %i <= $lines(barusers.txt) {
    inc %money [ $+ [ $read(barusers.txt,%i) ] ] 50
    inc %i
  }
  msg $chan Here's everyone's allowance allowance!!!!!!!  Order more drinks!
}
alias givemoney {
  set %moneytemp [ $+ [ $1 ] ] $calc(%money [ $+ [ $1 ] ] + $2)
  set %money [ $+ [ $1 ] ] %moneytemp [ $+ [ $1 ] ]
  msg $chan $1 has just been given $2
}
alias cleardrinks {
  write -c drinkideas.txt
  msg $chan Cleared.
}
alias drinks {
  set %i 1
  msg $chan Here's the drink suggestions people made:
  while %i <= $lines(drinkideas.txt) {
    msg $chan $read(drinkideas.txt,%i)
    inc %i
  }
  msg $chan 4DONE!
}
alias drinkadd {
  if ($0 < 1) {
    //echo Correct format to add a drink: /drinkadd <name of drink>
  }
  elseif ($0 >= 1) {
    write -a randomdrinks.txt $1-
    msg $chan Added $1- to the random drink list!  
  }
}
on *:text:!balance*:#: {
  if ($read(barusers.txt, w, $nick) == $null) {
    msg $chan $nick you have $chr(36) $+ 50 $+ !  ORDER SOMETHING
  }
  elseif ($read(barusers.txt, w, $nick) != $null) {
    msg $chan $nick you currently have $chr(36) %money [ $+ [ $nick ] ] $+ !  Don't blow it all on one drink!
  }
}
on *:text:!topdrinkers*:#:{
  .filter -fftceu 2 61 drinktop10.ini drinktop10.txt *=*
  msg $chan Mud's Bar's Top Alcoholics:
  set %drinktop 1
  while %drinktop < 10 && %drinktop <= $lines(drinktop10.txt) {
    msg $chan $ord(%drinktop) $+ : $gettok($read(drinktop10.txt,%drinktop),1,61) - $bytes($gettok($read(drinktop10.txt,%drinktop),2,61),b) Drinks
    inc %drinktop
  }
}
on *:text:!topgivers*:#:{
  .filter -fftceu 2 61 sharetop10.ini sharetop10.txt *=*
  msg $chan Mud's Bar's Top Booze Sharers:
  set %sharetop 1
  while %sharetop < 10 && %sharetop <= $lines(sharetop10.txt) {
    msg $chan $ord(%sharetop) $+ : $gettok($read(sharetop10.txt,%sharetop),1,61) - $bytes($gettok($read(sharetop10.txt,%sharetop),2,61),b) Drinks Shared
    inc %sharetop
  }
}
on *:text:!topspenders*:#:{
  .filter -fftceu 2 61 spendtop10.ini spendtop10.txt *=*
  msg $chan Mud's Bar's Top Spenders:
  set %spendtop 1
  while %spendtop < 10 && %spendtop <= $lines(spendtop10.txt) {
    msg $chan $ord(%spendtop) $+ : $gettok($read(spendtop10.txt,%spendtop),1,61) - $chr(36) $+  $bytes($gettok($read(spendtop10.txt,%spendtop),2,61),b) Spent
    inc %spendtop
  }
}
on *:text:!barstats*:#: {
  if ($0 == 1) {
    if ($readini(drinktop10.ini, Drinkers, $nick) == $null) {
      msg $chan $nick you haven't ordered any drinks here.
    }
    elseif ($readini(drinktop10.ini, Drinkers, $nick) != $null) {  
      $nick $+ 's Bar Stats:
      msg $chan Number of Drinks:4 $bytes($readini(drinktop10.ini, Drinkers, $nick),b)
      msg $chan Number of Drinks Shared:4 $bytes($readini(sharetop10.ini, Sharers, $nick),b)
      msg $chan Total Money Spent:4 $bytes($readini(spendtop10.ini, Spenders, $nick),b)
      msg $chan Current Balance:9,1 $chr(36) $+ %money [ $+ [ $nick ] ]
    }
  }
  elseif ($0 == 2) {
    if ($readini(drinktop10.ini, Drinkers, $2) == $null) {
      msg $chan $2 hasn't ordered any drinks.
    }
    elseif ($readini(drinktop10.ini, Drinkers, $2) != $null) {
      msg $chan Number of Drinks:4 $bytes($readini(drinktop10.ini, Drinkers, $2),b)
      msg $chan Number of Drinks Shared:4 $bytes($readini(sharetop10.ini, Sharers, $2),b)
      msg $chan Total Money Spent:4 $chr(36) $+ $bytes($readini(spendtop10.ini, Spenders, $2),b)
      msg $chan Current Balance:9,1 $chr(36) $+ %money [ $+ [ $2 ] ]
    }
  }
}
on *:text:!drink*:#: {
  if ($read(barusers.txt, w, $nick) == $null) {
    write -a barusers.txt $nick
    set %money [ $+ [ $nick ] ] 50
    dec %money [ $+ [ $nick ] ] 5
    writeini -n spendtop10.ini Spenders $nick 5
    writeini -n drinktop10.ini Drinkers $nick 1
  }
  elseif (%money [ $+ [ $nick ] ] < 10) {
    msg $chan Dude, you're freakin broke go get a job!
  }
  elseif (%money [ $+ [ $nick ] ] >= 10) { 
    dec %money [ $+ [ $nick ] ] 5
    set %drinktemp [ $+ [ $nick ] ] $calc($readini(drinktop10.ini, Drinkers, $nick) + 1)
    writeini -n drinktop10.ini Drinkers $nick %drinktemp [ $+ [ $nick ] ]
    set %spendtemp [ $+ [ $nick ] ] $calc($readini(spendtop10.ini, Spenders, $nick) + 5)
    writeini -n spendtop10.ini Spenders $nick %spendtemp [ $+ [ $nick ] ]    
    set %drinkrand [ $+ [ $nick ] ] $read(randomdrinks.txt)
    describe $chan hands $nick a %drinkrand [ $+ [ $nick ] ] $+ , that will cost you $chr(36) $+ 5 thanks for playing!  Your new balance is $chr(36) $+ %money [ $+ [ $nick ] ] $+ !
  }
}
on *:text:!specialdrink*:#: {
  if ($0 >= 2) {
    if ($read(barusers.txt, w, $nick) == $null) {
      write -a barusers.txt $nick
      set %money [ $+ [ $nick ] ] 50
      dec %money [ $+ [ $nick ] ] 15
      write -a drinkideas.txt $2-
      writeini -n drinktop10.ini Drinkers $nick 1      
      describe $chan hands $nick a $2- $+ , hope you enjoy it $nick $+ !!!  That'll be $chr(36) $+ 15 please, you now have $chr(36) $+ %money [ $+ [ $nick ] ] left!
      describe $chan writes on his notepad || Add $2- to the menu... Got it.
    }
    elseif ($read(barusers.txt, w, $nick) != $null) {
      if (%money [ $+ [ $nick ] ] < 12) {
        msg $chan Sorry $nick $+ , you don't have enough money!  Here's the website to Alcoholics Anonymous, please get help!  http://www.aa.org
      }
      elseif (%money [ $+ [ $nick ] ] >= 12) {
        dec %money [ $+ [ $nick ] ] 15
        write -a drinkideas.txt $2-
        set %drinktemp [ $+ [ $nick ] ] $calc($readini(drinktop10.ini, Drinkers, $nick) + 1)
        writeini -n drinktop10.ini Drinkers $nick %drinktemp [ $+ [ $nick ] ]        
        describe $chan hands $nick a $2- $+ , hope you enjoy it $nick $+ !!!  That'll be $chr(36) $+ 15 please, you now have $chr(36) $+ %money [ $+ [ $nick ] ] left!
        describe $chan writes on his notepad || Add $2- to the menu... Got it.      
      }
    }
  }
  elseif ($0 < 2) {
    msg $chan Format for a special person drink:  4!specialdrink <drink>
  }
}
on *:text:!screwdriver*:#: {
  if (%barflood [ $+ [ $nick ] ] != on) {
    set %barflood [ $+ [ $nick ] ] on
    timer 1 30 unset -s %barflood [ $+ [ $nick ] ]
    if ($0 == 1) {
      if ($read(barusers.txt, w, $nick) == $null) {
        write -a barusers.txt $nick
        set %money [ $+ [ $nick ] ] 50
        dec %money [ $+ [ $nick ] ] 5
        writeini -n spendtop10.ini Spenders $nick 5
        writeini -n drinktop10.ini Drinkers $nick 1
        describe $chan hands $nick a Screwdriver, hope you enjoy it $nick $+ !!!  That'll be $chr(36) $+ 5 please, you now have $chr(36) $+ %money [ $+ [ $nick ] ] left!
      }
      elseif ($read(barusers.txt, w, $nick) != $null) {
        if (%money [ $+ [ $nick ] ] < 5) {
          msg $chan Sorry $nick $+ , you don't have enough money!  Here's the website to Alcoholics Anonymous, please get help!  http://www.aa.org
        }
        elseif (%money [ $+ [ $nick ] ] >= 5) {
          dec %money [ $+ [ $nick ] ] 5
          set %drinktemp [ $+ [ $nick ] ] $calc($readini(drinktop10.ini, Drinkers, $nick) + 1)
          writeini -n drinktop10.ini Drinkers $nick %drinktemp [ $+ [ $nick ] ]
          set %spendtemp [ $+ [ $nick ] ] $calc($readini(spendtop10.ini, Spenders, $nick) + 5)
          writeini -n spendtop10.ini Spenders $nick %spendtemp [ $+ [ $nick ] ]
          describe $chan hands $nick a Screwdriver, hope you enjoy it $nick $+ !!!  That'll be $chr(36) $+ 5 please, you now have $chr(36) $+ %money [ $+ [ $nick ] ] left!
        }
      }
    }
    elseif ($0 == 2) {
      if ($read(barusers.txt, w, $nick) == $null) {
        write -a barusers.txt $nick
        set %money [ $+ [ $nick ] ] 50
        dec %money [ $+ [ $nick ] ] 5
        writeini -n spendtop10.ini Spenders $nick 5      
        writeini -n sharetop10.ini Sharers $nick 1
        describe $chan hands $2 a Screwdriver, hope you enjoy it $2 $+ ! (Courtesy of $nick $+ )  That'll be $chr(36) $+ 5 please, $nick now has $chr(36) $+ %money [ $+ [ $nick ] ] left!
      }
      elseif ($read(barusers.txt, w, $nick) != $null) {
        if (%money [ $+ [ $nick ] ] < 5) {
          msg $chan Sorry $nick $+ , you don't have enough money!  Here's the website to Alcoholics Anonymous, please get help!  http://www.aa.org
        }
        elseif (%money [ $+ [ $nick ] ] >= 5) {
          dec %money [ $+ [ $nick ] ] 5
          set %spendtemp [ $+ [ $nick ] ] $calc($readini(spendtop10.ini, Spenders, $nick) + 5)
          writeini -n spendtop10.ini Spenders $nick %spendtemp [ $+ [ $nick ] ]
          set %tempshare [ $+ [ $nick ] ] $calc($readini(sharetop10.ini, Sharers, $nick) + 1)
          writeini -n sharetop10.ini Sharers $nick %tempshare [ $+ [ $nick ] ]   
          describe $chan hands $2 a Screwdriver, hope you enjoy it $2 $+ !!! (Courtesy of $nick $+ )  That'll be $chr(36) $+ 5 please, $nick now has $chr(36) $+ %money [ $+ [ $nick ] ] left!
        }
      }
    }  
  }
}
on *:text:!margarita*:#: {
  if (%barflood [ $+ [ $nick ] ] != on) {
    set %barflood [ $+ [ $nick ] ] on
    timer 1 30 unset -s %barflood [ $+ [ $nick ] ]
    if ($0 == 1) {
      if ($read(barusers.txt, w, $nick) == $null) {
        write -a barusers.txt $nick
        set %money [ $+ [ $nick ] ] 50
        dec %money [ $+ [ $nick ] ] 6
        writeini -n spendtop10.ini Spenders $nick 6      
        writeini -n drinktop10.ini Drinkers $nick 1      
        describe $chan hands $nick a Super Sized Margarita, hope you enjoy it $nick $+ !!!  That'll be $chr(36) $+ 6 please, you now have $chr(36) $+ %money [ $+ [ $nick ] ] left!
      }
      elseif ($read(barusers.txt, w, $nick) != $null) {
        if (%money [ $+ [ $nick ] ] < 6) {
          msg $chan Sorry $nick $+ , you don't have enough money!  Here's the website to Alcoholics Anonymous, please get help!  http://www.aa.org
        }
        elseif (%money [ $+ [ $nick ] ] >= 6) {
          dec %money [ $+ [ $nick ] ] 6
          set %spendtemp [ $+ [ $nick ] ] $calc($readini(spendtop10.ini, Spenders, $nick) + 6)
          writeini -n spendtop10.ini Spenders $nick %spendtemp [ $+ [ $nick ] ]        
          set %drinktemp [ $+ [ $nick ] ] $calc($readini(drinktop10.ini, Drinkers, $nick) + 1)
          writeini -n drinktop10.ini Drinkers $nick %drinktemp [ $+ [ $nick ] ]        
          describe $chan hands $nick a Margarita, hope you enjoy it $nick $+ !!!  That'll be $chr(36) $+ 6 please, you now have $chr(36) $+ %money [ $+ [ $nick ] ] left!
        }
      }
    }
    elseif ($0 == 2) {
      if ($read(barusers.txt, w, $nick) == $null) {
        write -a barusers.txt $nick
        set %money [ $+ [ $nick ] ] 50
        dec %money [ $+ [ $nick ] ] 6  
        writeini -n spendtop10.ini Spenders $nick 6      
        writeini -n sharetop10.ini Sharers $nick 1          
        describe $chan hands $2 a Super Sized Margarita, hope you enjoy it $2 $+ !!! (Courtesy of $nick $+ )  That'll be $chr(36) $+ 6 please, $nick now has $chr(36) $+ %money [ $+ [ $nick ] ] left!
      }
      elseif ($read(barusers.txt, w, $nick) != $null) {
        if (%money [ $+ [ $nick ] ] < 6) {
          msg $chan Sorry $nick $+ , you don't have enough money!  Here's the website to Alcoholics Anonymous, please get help!  http://www.aa.org
        }
        elseif (%money [ $+ [ $nick ] ] >= 6) {
          dec %money [ $+ [ $nick ] ] 6   
          set %spendtemp [ $+ [ $nick ] ] $calc($readini(spendtop10.ini, Spenders, $nick) + 6)
          writeini -n spendtop10.ini Spenders $nick %spendtemp [ $+ [ $nick ] ]        
          set %tempshare [ $+ [ $nick ] ] $calc($readini(sharetop10.ini, Sharers, $nick) + 1)
          writeini -n sharetop10.ini Sharers $nick %tempshare [ $+ [ $nick ] ]        
          describe $chan hands $2 a Margarita, hope you enjoy it $2 $+ !!! (Courtesy of $nick $+ )  That'll be $chr(36) $+ 6 please, $nick now has $chr(36) $+ %money [ $+ [ $nick ] ] left!
        }
      }
    }  
  }
}
on *:text:!ziplock*:#: {
  if (%barflood [ $+ [ $nick ] ] != on) {
    set %barflood [ $+ [ $nick ] ] on
    timer 1 30 unset -s %barflood [ $+ [ $nick ] ]
    if ($0 == 1) {
      if ($read(barusers.txt, w, $nick) == $null) {
        write -a barusers.txt $nick
        set %money [ $+ [ $nick ] ] 50
        dec %money [ $+ [ $nick ] ] 4.5
        writeini -n spendtop10.ini Spenders $nick 4.5      
        writeini -n drinktop10.ini Drinkers $nick 1      
        describe $chan hands $nick a <Ziplock> shot, hope you enjoy it $nick $+ !!!  That'll be $chr(36) $+ 4.50 please, you now have $chr(36) $+ %money [ $+ [ $nick ] ] left!
      }
      elseif ($read(barusers.txt, w, $nick) != $null) {
        if (%money [ $+ [ $nick ] ] < 4.5) {
          msg $chan Sorry $nick $+ , you don't have enough money!  Here's the website to Alcoholics Anonymous, please get help!  http://www.aa.org
        }
        elseif (%money [ $+ [ $nick ] ] >= 4.5) {
          dec %money [ $+ [ $nick ] ] 4.5
          set %spendtemp [ $+ [ $nick ] ] $calc($readini(spendtop10.ini, Spenders, $nick) + 4.5)
          writeini -n spendtop10.ini Spenders $nick %spendtemp [ $+ [ $nick ] ]        
          set %drinktemp [ $+ [ $nick ] ] $calc($readini(drinktop10.ini, Drinkers, $nick) + 1)
          writeini -n drinktop10.ini Drinkers $nick %drinktemp [ $+ [ $nick ] ]        
          describe $chan hands $nick a <Ziplock> shot, hope you enjoy it $nick $+ !!!  That'll be $chr(36) $+ 4.50 please, you now have $chr(36) $+ %money [ $+ [ $nick ] ] left!
        }
      }
    }
    elseif ($0 == 2) {
      if ($read(barusers.txt, w, $nick) == $null) {
        write -a barusers.txt $nick
        set %money [ $+ [ $nick ] ] 50
        dec %money [ $+ [ $nick ] ] 4.5
        writeini -n spendtop10.ini Spenders $nick 4.5      
        writeini -n sharetop10.ini Sharers $nick 1      
        describe $chan hands $2 a <Ziplock> shot, hope you enjoy it $2 $+ !!! (Courtesy of $nick $+ )  That'll be $chr(36) $+ 4.50 please, $nick now has $chr(36) $+ %money [ $+ [ $nick ] ] left!
      }
      elseif ($read(barusers.txt, w, $nick) != $null) {
        if (%money [ $+ [ $nick ] ] < 4.5) {
          msg $chan Sorry $nick $+ , you don't have enough money!  Here's the website to Alcoholics Anonymous, please get help!  http://www.aa.org
        }
        elseif (%money [ $+ [ $nick ] ] >= 4.5) {
          dec %money [ $+ [ $nick ] ] 4.5      
          set %spendtemp [ $+ [ $nick ] ] $calc($readini(spendtop10.ini, Spenders, $nick) + 4.5)
          writeini -n spendtop10.ini Spenders $nick %spendtemp [ $+ [ $nick ] ]        
          set %tempshare [ $+ [ $nick ] ] $calc($readini(sharetop10.ini, Sharers, $nick) + 1)
          writeini -n sharetop10.ini Sharers $nick %tempshare [ $+ [ $nick ] ]        
          describe $chan hands $2 a <Ziplock> shot, hope you enjoy it $2 $+ !!! (Courtesy of $nick $+ )  That'll be $chr(36) $+ 4.50 please, $nick now has $chr(36) $+ %money [ $+ [ $nick ] ] left!
        }
      }
    }  
  }
}
on *:text:!rumcoke*:#: {
  if (%barflood [ $+ [ $nick ] ] != on) {
    set %barflood [ $+ [ $nick ] ] on
    timer 1 30 unset -s %barflood [ $+ [ $nick ] ]
    if ($0 == 1) {
      if ($read(barusers.txt, w, $nick) == $null) {
        write -a barusers.txt $nick
        set %money [ $+ [ $nick ] ] 50
        dec %money [ $+ [ $nick ] ] 5.5
        writeini -n spendtop10.ini Spenders $nick 5.5      
        writeini -n drinktop10.ini Drinkers $nick 1      
        describe $chan hands $nick a Rum & Coke, hope you enjoy it $nick $+ !!!  That'll be $chr(36) $+ 5.50 please, you now have $chr(36) $+ %money [ $+ [ $nick ] ] left!
      }
      elseif ($read(barusers.txt, w, $nick) != $null) {
        if (%money [ $+ [ $nick ] ] < 5.5) {
          msg $chan Sorry $nick $+ , you don't have enough money!  Here's the website to Alcoholics Anonymous, please get help!  http://www.aa.org
        }
        elseif (%money [ $+ [ $nick ] ] >= 5.5) {
          dec %money [ $+ [ $nick ] ] 5.5
          set %spendtemp [ $+ [ $nick ] ] $calc($readini(spendtop10.ini, Spenders, $nick) + 5.5)
          writeini -n spendtop10.ini Spenders $nick %spendtemp [ $+ [ $nick ] ]        
          set %drinktemp [ $+ [ $nick ] ] $calc($readini(drinktop10.ini, Drinkers, $nick) + 1)
          writeini -n drinktop10.ini Drinkers $nick %drinktemp [ $+ [ $nick ] ]        
          describe $chan hands $nick a Rum & Coke, hope you enjoy it $nick $+ !!!  That'll be $chr(36) $+ 5.50 please, you now have $chr(36) $+ %money [ $+ [ $nick ] ] left!
        }
      }
    }
    elseif ($0 == 2) {
      if ($read(barusers.txt, w, $nick) == $null) {
        write -a barusers.txt $nick
        set %money [ $+ [ $nick ] ] 50
        dec %money [ $+ [ $nick ] ] 5.5
        writeini -n spendtop10.ini Spenders $nick 5.5      
        writeini -n sharetop10.ini Sharers $nick 1      
        describe $chan hands $2 a Rum & Coke, hope you enjoy it $2 $+ !!! (Courtesy of $nick $+ )  That'll be $chr(36) $+ 5.50 please, $nick now has $chr(36) $+ %money [ $+ [ $nick ] ] left!
      }
      elseif ($read(barusers.txt, w, $nick) != $null) {
        if (%money [ $+ [ $nick ] ] < 5.5) {
          msg $chan Sorry $nick $+ , you don't have enough money!  Here's the website to Alcoholics Anonymous, please get help!  http://www.aa.org
        }
        elseif (%money [ $+ [ $nick ] ] >= 5.5) {
          dec %money [ $+ [ $nick ] ] 5.5   
          set %spendtemp [ $+ [ $nick ] ] $calc($readini(spendtop10.ini, Spenders, $nick) + 5.5)
          writeini -n spendtop10.ini Spenders $nick %spendtemp [ $+ [ $nick ] ]         
          set %tempshare [ $+ [ $nick ] ] $calc($readini(sharetop10.ini, Sharers, $nick) + 1)
          writeini -n sharetop10.ini Sharers $nick %tempshare [ $+ [ $nick ] ]         
          describe $chan hands $2 a Rum & Coke, hope you enjoy it $2 $+ !!! (Courtesy of $nick $+ )  That'll be $chr(36) $+ 5.50 please, $nick now has $chr(36) $+ %money [ $+ [ $nick ] ] left!
        }
      }
    }  
  }
}
on *:text:!fuzzy*:#: {
  if (%barflood [ $+ [ $nick ] ] != on) {
    set %barflood [ $+ [ $nick ] ] on
    timer 1 30 unset -s %barflood [ $+ [ $nick ] ]
    if ($0 == 1) {
      if ($read(barusers.txt, w, $nick) == $null) {
        write -a barusers.txt $nick
        set %money [ $+ [ $nick ] ] 50
        dec %money [ $+ [ $nick ] ] 4
        writeini -n spendtop10.ini Spenders $nick 4      
        writeini -n drinktop10.ini Drinkers $nick 1      
        describe $chan hands $nick a Fuzzy Navel, hope you enjoy it $nick $+ !!!  That'll be $chr(36) $+ 4 please, you now have $chr(36) $+ %money [ $+ [ $nick ] ] left!
      }
      elseif ($read(barusers.txt, w, $nick) != $null) {
        if (%money [ $+ [ $nick ] ] < 4) {
          msg $chan Sorry $nick $+ , you don't have enough money!  Here's the website to Alcoholics Anonymous, please get help!  http://www.aa.org
        }
        elseif (%money [ $+ [ $nick ] ] >= 4) {
          dec %money [ $+ [ $nick ] ] 4
          set %spendtemp [ $+ [ $nick ] ] $calc($readini(spendtop10.ini, Spenders, $nick) + 4)
          writeini -n spendtop10.ini Spenders $nick %spendtemp [ $+ [ $nick ] ]        
          set %drinktemp [ $+ [ $nick ] ] $calc($readini(drinktop10.ini, Drinkers, $nick) + 1)
          writeini -n drinktop10.ini Drinkers $nick %drinktemp [ $+ [ $nick ] ]        
          describe $chan hands $nick a Fuzzy Navel, hope you enjoy it $nick $+ !!!  That'll be $chr(36) $+ 4 please, you now have $chr(36) $+ %money [ $+ [ $nick ] ] left!
        }
      }
    }
    if ($0 == 2) {
      if ($read(barusers.txt, w, $nick) == $null) {
        write -a barusers.txt $nick
        set %money [ $+ [ $nick ] ] 50
        dec %money [ $+ [ $nick ] ] 4
        writeini -n spendtop10.ini Spenders $nick 4      
        writeini -n sharetop10.ini Sharers $nick 1      
        describe $chan hands $2 a Fuzzy Navel, hope you enjoy it $2 $+ !!! (Courtesy of $nick $+ )  That'll be $chr(36) $+ 4 please, $nick now has $chr(36) $+ %money [ $+ [ $nick ] ] left!
      }
      elseif ($read(barusers.txt, w, $nick) != $null) {
        if (%money [ $+ [ $nick ] ] < 4) {
          msg $chan Sorry $nick $+ , you don't have enough money!  Here's the website to Alcoholics Anonymous, please get help!  http://www.aa.org
        }
        elseif (%money [ $+ [ $nick ] ] >= 4) {
          dec %money [ $+ [ $nick ] ] 4
          set %spendtemp [ $+ [ $nick ] ] $calc($readini(spendtop10.ini, Spenders, $nick) + 4)
          writeini -n spendtop10.ini Spenders $nick %spendtemp [ $+ [ $nick ] ]        
          set %tempshare [ $+ [ $nick ] ] $calc($readini(sharetop10.ini, Sharers, $nick) + 1)
          writeini -n sharetop10.ini Sharers $nick %tempshare [ $+ [ $nick ] ]        
          describe $chan hands $2 a Fuzzy Navel, hope you enjoy it $2 $+ !!!  That'll be $chr(36) $+ 4 please, $nick now has $chr(36) $+ %money [ $+ [ $nick ] ] left!
        }
      }
    }  
  }
}
on *:text:!sex*:#: {
  if (%barflood [ $+ [ $nick ] ] != on) {
    set %barflood [ $+ [ $nick ] ] on
    timer 1 30 unset -s %barflood [ $+ [ $nick ] ]
    if ($0 == 1) {
      if ($read(barusers.txt, w, $nick) == $null) {
        write -a barusers.txt $nick
        set %money [ $+ [ $nick ] ] 50
        dec %money [ $+ [ $nick ] ] 7
        writeini -n spendtop10.ini Spenders $nick 7      
        writeini -n drinktop10.ini Drinkers $nick 1      
        describe $chan hands $nick a Sex On The Beach (with $me $+ !), hope you enjoy it $nick $+ !!!  That'll be $chr(36) $+ 7 please, you now have $chr(36) $+ %money [ $+ [ $nick ] ] left!
      }
      elseif ($read(barusers.txt, w, $nick) != $null) {
        if (%money [ $+ [ $nick ] ] < 7) {
          msg $chan Sorry $nick $+ , you don't have enough money!  Here's the website to Alcoholics Anonymous, please get help!  http://www.aa.org
        }
        elseif (%money [ $+ [ $nick ] ] >= 7) {
          dec %money [ $+ [ $nick ] ] 7
          set %spendtemp [ $+ [ $nick ] ] $calc($readini(spendtop10.ini, Spenders, $nick) + 7)
          writeini -n spendtop10.ini Spenders $nick %spendtemp [ $+ [ $nick ] ]        
          set %drinktemp [ $+ [ $nick ] ] $calc($readini(drinktop10.ini, Drinkers, $nick) + 1)
          writeini -n drinktop10.ini Drinkers $nick %drinktemp [ $+ [ $nick ] ]        
          describe $chan hands $nick a Sex On The Beach (with $me $+ !), hope you enjoy it $nick $+ !!!  That'll be $chr(36) $+ 7 please, you now have $chr(36) $+ %money [ $+ [ $nick ] ] left!
        }
      }
    }
    elseif ($0 == 2) {
      if ($read(barusers.txt, w, $nick) == $null) {
        write -a barusers.txt $nick
        set %money [ $+ [ $nick ] ] 50
        dec %money [ $+ [ $nick ] ] 7
        writeini -n spendtop10.ini Spenders $nick 7
        writeini -n sharetop10.ini Sharers $nick 1      
        describe $chan hands $2 a Sex On The Beach (with $me $+ !), hope you enjoy it $2 $+ !!! (Courtesy of $nick $+ )  That'll be $chr(36) $+ 7 please, $nick now has $chr(36) $+ %money [ $+ [ $nick ] ] left!
      }
      elseif ($read(barusers.txt, w, $nick) != $null) {
        if (%money [ $+ [ $nick ] ] < 7) {
          msg $chan Sorry $nick $+ , you don't have enough money!  Here's the website to Alcoholics Anonymous, please get help!  http://www.aa.org
        }
        elseif (%money [ $+ [ $nick ] ] >= 7) {
          dec %money [ $+ [ $nick ] ] 7
          set %spendtemp [ $+ [ $nick ] ] $calc($readini(spendtop10.ini, Spenders, $nick) + 7)
          writeini -n spendtop10.ini Spenders $nick %spendtemp [ $+ [ $nick ] ]        
          set %tempshare [ $+ [ $nick ] ] $calc($readini(sharetop10.ini, Sharers, $nick) + 1)
          writeini -n sharetop10.ini Sharers $nick %tempshare [ $+ [ $nick ] ]        
          describe $chan hands $2 a Sex On The Beach (with $me $+ !), hope you enjoy it $2 $+ !!! (Courtesy of $nick $+ )  That'll be $chr(36) $+ 7 please, $nick now has $chr(36) $+ %money [ $+ [ $nick ] ] left!
        }
      }
    }  
  }
}
on *:text:!kamakazi*:#: {
  if (%barflood [ $+ [ $nick ] ] != on) {
    set %barflood [ $+ [ $nick ] ] on
    timer 1 30 unset -s %barflood [ $+ [ $nick ] ]
    if ($0 == 1) {
      if ($read(barusers.txt, w, $nick) == $null) {
        write -a barusers.txt $nick
        set %money [ $+ [ $nick ] ] 50
        dec %money [ $+ [ $nick ] ] 4.25
        writeini -n spendtop10.ini Spenders $nick 4.25      
        writeini -n drinktop10.ini Drinkers $nick 1      
        describe $chan hands $nick a Kamakazi, hope you enjoy it $nick $+ !!!  That'll be $chr(36) $+ 4.25 please, you now have $chr(36) $+ %money [ $+ [ $nick ] ] left!
      }
      elseif ($read(barusers.txt, w, $nick) != $null) {
        if (%money [ $+ [ $nick ] ] < 4.25) {
          msg $chan Sorry $nick $+ , you don't have enough money!  Here's the website to Alcoholics Anonymous, please get help!  http://www.aa.org
        }
        elseif (%money [ $+ [ $nick ] ] >= 4.25) {
          dec %money [ $+ [ $nick ] ] 4.25
          set %spendtemp [ $+ [ $nick ] ] $calc($readini(spendtop10.ini, Spenders, $nick) + 4.25)
          writeini -n spendtop10.ini Spenders $nick %spendtemp [ $+ [ $nick ] ]        
          set %drinktemp [ $+ [ $nick ] ] $calc($readini(drinktop10.ini, Drinkers, $nick) + 1)
          writeini -n drinktop10.ini Drinkers $nick %drinktemp [ $+ [ $nick ] ]             
          describe $chan hands $nick a Kamakazi, hope you enjoy it $nick $+ !!!  That'll be $chr(36) $+ 4.25 please, you now have $chr(36) $+ %money [ $+ [ $nick ] ] left!
        }
      }
    }
    elseif ($0 == 2) {
      if ($read(barusers.txt, w, $nick) == $null) {
        write -a barusers.txt $nick
        set %money [ $+ [ $nick ] ] 50
        dec %money [ $+ [ $nick ] ] 4.25
        writeini -n spendtop10.ini Spenders $nick 4.25      
        writeini -n sharetop10.ini Sharers $nick 1      
        describe $chan hands $2 a Kamakazi, hope you enjoy it $2 $+ !!! (Courtesy of $nick $+ )  That'll be $chr(36) $+ 4.25 please, $nick now has $chr(36) $+ %money [ $+ [ $nick ] ] left!
      }
      elseif ($read(barusers.txt, w, $nick) != $null) {
        if (%money [ $+ [ $nick ] ] < 4.25) {
          msg $chan Sorry $nick $+ , you don't have enough money!  Here's the website to Alcoholics Anonymous, please get help!  http://www.aa.org
        }
        elseif (%money [ $+ [ $nick ] ] >= 4.25) {
          dec %money [ $+ [ $nick ] ] 4.25   
          set %spendtemp [ $+ [ $nick ] ] $calc($readini(spendtop10.ini, Spenders, $nick) + 4.25)
          writeini -n spendtop10.ini Spenders $nick %spendtemp [ $+ [ $nick ] ]        
          set %tempshare [ $+ [ $nick ] ] $calc($readini(sharetop10.ini, Sharers, $nick) + 1)
          writeini -n sharetop10.ini Sharers $nick %tempshare [ $+ [ $nick ] ]        
          describe $chan hands $2 a Kamakazi, hope you enjoy it $2 $+ !!! (Courtesy of $nick $+ )  That'll be $chr(36) $+ 4.25 please, $nick now has $chr(36) $+ %money [ $+ [ $nick ] ] left!
        }
      }
    }  
  }
}
on *:text:!mudslide*:#: {
  if (%barflood [ $+ [ $nick ] ] != on) {
    set %barflood [ $+ [ $nick ] ] on
    timer 1 30 unset -s %barflood [ $+ [ $nick ] ]
    if ($0 == 1) {
      if ($read(barusers.txt, w, $nick) == $null) {
        write -a barusers.txt $nick
        set %money [ $+ [ $nick ] ] 50
        dec %money [ $+ [ $nick ] ] 5.75
        writeini -n spendtop10.ini Spenders $nick 5.75      
        writeini -n drinktop10.ini Drinkers $nick 1      
        describe $chan hands $nick a Mudslide, hope you enjoy it $nick $+ !!!  That'll be $chr(36) $+ 5.75 please, you now have $chr(36) $+ %money [ $+ [ $nick ] ] left!
      }
      elseif ($read(barusers.txt, w, $nick) != $null) {
        if (%money [ $+ [ $nick ] ] < 5.75) {
          msg $chan Sorry $nick $+ , you don't have enough money!  Here's the website to Alcoholics Anonymous, please get help!  http://www.aa.org
        }
        elseif (%money [ $+ [ $nick ] ] >= 5.75) {
          dec %money [ $+ [ $nick ] ] 5.75
          set %spendtemp [ $+ [ $nick ] ] $calc($readini(spendtop10.ini, Spenders, $nick) + 5.75)
          writeini -n spendtop10.ini Spenders $nick %spendtemp [ $+ [ $nick ] ]        
          set %drinktemp [ $+ [ $nick ] ] $calc($readini(drinktop10.ini, Drinkers, $nick) + 1)
          writeini -n drinktop10.ini Drinkers $nick %drinktemp [ $+ [ $nick ] ]        
          describe $chan hands $nick a Mudslide, hope you enjoy it $nick $+ !!!  That'll be $chr(36) $+ 5.75 please, you now have $chr(36) $+ %money [ $+ [ $nick ] ] left!
        }
      }
    }
    elseif ($0 == 2) {
      if ($read(barusers.txt, w, $nick) == $null) {
        write -a barusers.txt $nick
        set %money [ $+ [ $nick ] ] 50
        dec %money [ $+ [ $nick ] ] 5.75
        writeini -n spendtop10.ini Spenders $nick 5.75      
        writeini -n sharetop10.ini Sharers $nick 1      
        describe $chan hands $2 a Mudslide, hope you enjoy it $2 $+ !!! (Courtesy of $nick $+ )  That'll be $chr(36) $+ 5.75 please, $nick now has $chr(36) $+ %money [ $+ [ $nick ] ] left!
      }
      elseif ($read(barusers.txt, w, $nick) != $null) {
        if (%money [ $+ [ $nick ] ] < 5.75) {
          msg $chan Sorry $nick $+ , you don't have enough money!  Here's the website to Alcoholics Anonymous, please get help!  http://www.aa.org
        }
        elseif (%money [ $+ [ $nick ] ] >= 5.75) {
          dec %money [ $+ [ $nick ] ] 5.75
          set %spendtemp [ $+ [ $nick ] ] $calc($readini(spendtop10.ini, Spenders, $nick) + 5.75)
          writeini -n spendtop10.ini Spenders $nick %spendtemp [ $+ [ $nick ] ]        
          set %tempshare [ $+ [ $nick ] ] $calc($readini(sharetop10.ini, Sharers, $nick) + 1)
          writeini -n sharetop10.ini Sharers $nick %tempshare [ $+ [ $nick ] ]        
          describe $chan hands $2 a Mudslide, hope you enjoy it $2 $+ !!! (Courtesy of $nick $+ )  That'll be $chr(36) $+ 5.75 please, $nick now has $chr(36) $+ %money [ $+ [ $nick ] ] left!
        }
      }
    }  
  }
}
on *:text:!russian*:#: {
  if (%barflood [ $+ [ $nick ] ] != on) {
    set %barflood [ $+ [ $nick ] ] on
    timer 1 30 unset -s %barflood [ $+ [ $nick ] ]
    if ($0 == 1) {
      if ($read(barusers.txt, w, $nick) == $null) {
        write -a barusers.txt $nick
        set %money [ $+ [ $nick ] ] 50
        dec %money [ $+ [ $nick ] ] 6.5
        writeini -n spendtop10.ini Spenders $nick 6.5      
        writeini -n drinktop10.ini Drinkers $nick 1      
        describe $chan hands $nick a White Russian, hope you enjoy it $nick $+ !!!  That'll be $chr(36) $+ 6.50 please, you now have $chr(36) $+ %money [ $+ [ $nick ] ] left!
      }
      elseif ($read(barusers.txt, w, $nick) != $null) {
        if (%money [ $+ [ $nick ] ] < 6.5) {
          msg $chan Sorry $nick $+ , you don't have enough money!  Here's the website to Alcoholics Anonymous, please get help!  http://www.aa.org
        }
        elseif (%money [ $+ [ $nick ] ] >= 6.5) {
          dec %money [ $+ [ $nick ] ] 6.5
          set %spendtemp [ $+ [ $nick ] ] $calc($readini(spendtop10.ini, Spenders, $nick) + 6.5)
          writeini -n spendtop10.ini Spenders $nick %spendtemp [ $+ [ $nick ] ]        
          set %drinktemp [ $+ [ $nick ] ] $calc($readini(drinktop10.ini, Drinkers, $nick) + 1)
          writeini -n drinktop10.ini Drinkers $nick %drinktemp [ $+ [ $nick ] ]        
          describe $chan hands $nick a White Russian, hope you enjoy it $nick $+ !!!  That'll be $chr(36) $+ 6.50 please, you now have $chr(36) $+ %money [ $+ [ $nick ] ] left!
        }
      }
    }
    elseif ($0 == 2) {
      if ($read(barusers.txt, w, $nick) == $null) {
        write -a barusers.txt $nick
        set %money [ $+ [ $nick ] ] 50
        dec %money [ $+ [ $nick ] ] 6.5
        writeini -n spendtop10.ini Spenders $nick 6.5      
        writeini -n sharetop10.ini Sharers $nick 1      
        describe $chan hands $2 a White Russian, hope you enjoy it $2 $+ !!! (Courtesy of $nick $+ )  That'll be $chr(36) $+ 6.50 please, $nick now has $chr(36) $+ %money [ $+ [ $nick ] ] left!
      }
      elseif ($read(barusers.txt, w, $nick) != $null) {
        if (%money [ $+ [ $nick ] ] < 6.5) {
          msg $chan Sorry $nick $+ , you don't have enough money!  Here's the website to Alcoholics Anonymous, please get help!  http://www.aa.org
        }
        elseif (%money [ $+ [ $nick ] ] >= 6.5) {
          dec %money [ $+ [ $nick ] ] 6.5
          set %spendtemp [ $+ [ $nick ] ] $calc($readini(spendtop10.ini, Spenders, $nick) + 6.5)
          writeini -n spendtop10.ini Spenders $nick %spendtemp [ $+ [ $nick ] ]        
          set %tempshare [ $+ [ $nick ] ] $calc($readini(sharetop10.ini, Sharers, $nick) + 1)
          writeini -n sharetop10.ini Sharers $nick %tempshare [ $+ [ $nick ] ]        
          describe $chan hands $2 a White Russian, hope you enjoy it $2 $+ !!! (Courtesy of $nick $+ )  That'll be $chr(36) $+ 6.50 please, $nick now has $chr(36) $+ %money [ $+ [ $nick ] ] left!
        }
      }
    }  
  }
}
on *:text:!longisland*:#: {
  if (%barflood [ $+ [ $nick ] ] != on) {
    set %barflood [ $+ [ $nick ] ] on
    timer 1 30 unset -s %barflood [ $+ [ $nick ] ]
    if ($0 == 1) {
      if ($read(barusers.txt, w, $nick) == $null) {
        write -a barusers.txt $nick
        set %money [ $+ [ $nick ] ] 50
        dec %money [ $+ [ $nick ] ] 8
        writeini -n spendtop10.ini Spenders $nick 8      
        writeini -n drinktop10.ini Drinkers $nick 1      
        describe $chan hands $nick a Long Island Iced Tea, hope you enjoy it $nick $+ !!!  That'll be $chr(36) $+ 8 please, you now have $chr(36) $+ %money [ $+ [ $nick ] ] left!
      }
      elseif ($read(barusers.txt, w, $nick) != $null) {
        if (%money [ $+ [ $nick ] ] < 8) {
          msg $chan Sorry $nick $+ , you don't have enough money!  Here's the website to Alcoholics Anonymous, please get help!  http://www.aa.org
        }
        elseif (%money [ $+ [ $nick ] ] >= 8) {
          dec %money [ $+ [ $nick ] ] 8
          set %spendtemp [ $+ [ $nick ] ] $calc($readini(spendtop10.ini, Spenders, $nick) + 8)
          writeini -n spendtop10.ini Spenders $nick %spendtemp [ $+ [ $nick ] ]        
          set %drinktemp [ $+ [ $nick ] ] $calc($readini(drinktop10.ini, Drinkers, $nick) + 1)
          writeini -n drinktop10.ini Drinkers $nick %drinktemp [ $+ [ $nick ] ]        
          describe $chan hands $nick a Long Island Iced Tea, hope you enjoy it $nick $+ !!!  That'll be $chr(36) $+ 8 please, you now have $chr(36) $+ %money [ $+ [ $nick ] ] left!
        }
      }
    }
    elseif ($0 == 2) {
      if ($read(barusers.txt, w, $nick) == $null) {
        write -a barusers.txt $nick
        set %money [ $+ [ $nick ] ] 50
        dec %money [ $+ [ $nick ] ] 8
        writeini -n spendtop10.ini Spenders $nick 8      
        writeini -n sharetop10.ini Sharers $nick 1      
        describe $chan hands $2 a Long Island Iced Tea, hope you enjoy it $2 $+ !!! (Courtesy of $nick $+ )  That'll be $chr(36) $+ 8 please, $nick now has $chr(36) $+ %money [ $+ [ $nick ] ] left!
      }
      elseif ($read(barusers.txt, w, $nick) != $null) {
        if (%money [ $+ [ $nick ] ] < 8) {
          msg $chan Sorry $nick $+ , you don't have enough money!  Here's the website to Alcoholics Anonymous, please get help!  http://www.aa.org
        }
        elseif (%money [ $+ [ $nick ] ] >= 8) {
          dec %money [ $+ [ $nick ] ] 8
          set %spendtemp [ $+ [ $nick ] ] $calc($readini(spendtop10.ini, Spenders, $nick) + 8)
          writeini -n spendtop10.ini Spenders $nick %spendtemp [ $+ [ $nick ] ]        
          set %tempshare [ $+ [ $nick ] ] $calc($readini(sharetop10.ini, Sharers, $nick) + 1)
          writeini -n sharetop10.ini Sharers $nick %tempshare [ $+ [ $nick ] ]        
          describe $chan hands $2 a Long Island Iced Tea, hope you enjoy it $2 $+ !!! (Courtesy of $nick $+ )  That'll be $chr(36) $+ 8 please, $nick now has $chr(36) $+ %money [ $+ [ $nick ] ] left!
        }
      }
    }  
  }
}
on *:text:!maithai*:#: {
  if (%barflood [ $+ [ $nick ] ] != on) {
    set %barflood [ $+ [ $nick ] ] on
    timer 1 30 unset -s %barflood [ $+ [ $nick ] ]
    if ($0 == 1) {
      if ($read(barusers.txt, w, $nick) == $null) {
        write -a barusers.txt $nick
        set %money [ $+ [ $nick ] ] 50
        dec %money [ $+ [ $nick ] ] 7.25
        writeini -n spendtop10.ini Spenders $nick 7.25      
        writeini -n drinktop10.ini Drinkers $nick 1      
        describe $chan hands $nick a Mai Thai, hope you enjoy it $nick $+ !!!  That'll be $chr(36) $+ 7.25 please, you now have $chr(36) $+ %money [ $+ [ $nick ] ] left!
      }
      elseif ($read(barusers.txt, w, $nick) != $null) {
        if (%money [ $+ [ $nick ] ] < 7.25) {
          msg $chan Sorry $nick $+ , you don't have enough money!  Here's the website to Alcoholics Anonymous, please get help!  http://www.aa.org
        }
        elseif (%money [ $+ [ $nick ] ] >= 7.25) {
          dec %money [ $+ [ $nick ] ] 7.25
          set %spendtemp [ $+ [ $nick ] ] $calc($readini(spendtop10.ini, Spenders, $nick) + 7.25)
          writeini -n spendtop10.ini Spenders $nick %spendtemp [ $+ [ $nick ] ]        
          set %drinktemp [ $+ [ $nick ] ] $calc($readini(drinktop10.ini, Drinkers, $nick) + 1)
          writeini -n drinktop10.ini Drinkers $nick %drinktemp [ $+ [ $nick ] ]        
          describe $chan hands $nick a Mai Thai, hope you enjoy it $nick $+ !!!  That'll be $chr(36) $+ 7.25 please, you now have $chr(36) $+ %money [ $+ [ $nick ] ] left!
        }
      }
    }
    elseif ($0 == 2) {
      if ($read(barusers.txt, w, $nick) == $null) {
        write -a barusers.txt $nick
        set %money [ $+ [ $nick ] ] 50
        dec %money [ $+ [ $nick ] ] 7.25   
        writeini -n spendtop10.ini Spenders $nick 7.25      
        writeini -n sharetop10.ini Sharers $nick 1         
        describe $chan hands $2 a Mai Thai, hope you enjoy it $2 $+ !!! (Courtesy of $nick $+ )  That'll be $chr(36) $+ 7.25 please, $nick now has $chr(36) $+ %money [ $+ [ $nick ] ] left!
      }
      elseif ($read(barusers.txt, w, $nick) != $null) {
        if (%money [ $+ [ $nick ] ] < 7.25) {
          msg $chan Sorry $nick $+ , you don't have enough money!  Here's the website to Alcoholics Anonymous, please get help!  http://www.aa.org
        }
        elseif (%money [ $+ [ $nick ] ] >= 7.25) {
          dec %money [ $+ [ $nick ] ] 7.25
          set %spendtemp [ $+ [ $nick ] ] $calc($readini(spendtop10.ini, Spenders, $nick) + 7.25)
          writeini -n spendtop10.ini Spenders $nick %spendtemp [ $+ [ $nick ] ]        
          set %tempshare [ $+ [ $nick ] ] $calc($readini(sharetop10.ini, Sharers, $nick) + 1)
          writeini -n sharetop10.ini Sharers $nick %tempshare [ $+ [ $nick ] ]        
          describe $chan hands $2 a Mai Thai, hope you enjoy it $2 $+ !!! (Courtesy of $nick $+ )  That'll be $chr(36) $+ 7.25 please, $nick now has $chr(36) $+ %money [ $+ [ $nick ] ] left!
        }
      }
    }    
  }
}
on *:text:!purple*:#: {
  if (%barflood [ $+ [ $nick ] ] != on) {
    set %barflood [ $+ [ $nick ] ] on
    timer 1 30 unset -s %barflood [ $+ [ $nick ] ]
    if ($0 == 1) {
      if ($read(barusers.txt, w, $nick) == $null) {
        write -a barusers.txt $nick
        set %money [ $+ [ $nick ] ] 50
        dec %money [ $+ [ $nick ] ] 5.50
        writeini -n spendtop10.ini Spenders $nick 5.5      
        writeini -n drinktop10.ini Drinkers $nick 1      
        describe $chan hands $nick a Purple Mother Fucker, hope you enjoy it $nick $+ !!!  That'll be $chr(36) $+ 5.50 please, you now have $chr(36) $+ %money [ $+ [ $nick ] ] left!
      }
      elseif ($read(barusers.txt, w, $nick) != $null) {
        if (%money [ $+ [ $nick ] ] < 5.5) {
          msg $chan Sorry $nick $+ , you don't have enough money!  Here's the website to Alcoholics Anonymous, please get help!  http://www.aa.org
        }
        elseif (%money [ $+ [ $nick ] ] >= 5.5) {
          dec %money [ $+ [ $nick ] ] 5.5
          set %spendtemp [ $+ [ $nick ] ] $calc($readini(spendtop10.ini, Spenders, $nick) + 5.5)
          writeini -n spendtop10.ini Spenders $nick %spendtemp [ $+ [ $nick ] ]        
          set %drinktemp [ $+ [ $nick ] ] $calc($readini(drinktop10.ini, Drinkers, $nick) + 1)
          writeini -n drinktop10.ini Drinkers $nick %drinktemp [ $+ [ $nick ] ]        
          describe $chan hands $nick a Purple Mother Fucker, hope you enjoy it $nick $+ !!!  That'll be $chr(36) $+ 5.50 please, you now have $chr(36) $+ %money [ $+ [ $nick ] ] left!
        }
      }
    }
    elseif ($0 == 2) {
      if ($read(barusers.txt, w, $nick) == $null) {
        write -a barusers.txt $nick
        set %money [ $+ [ $nick ] ] 50
        dec %money [ $+ [ $nick ] ] 5.5   
        writeini -n spendtop10.ini Spenders $nick 5.5
        writeini -n sharetop10.ini Sharers $nick 1         
        describe $chan hands $2 a Purple Mother Fucker, hope you enjoy it $2 $+ !!! (Courtesy of $nick $+ )  That'll be $chr(36) $+ 5.50 please, $nick now has $chr(36) $+ %money [ $+ [ $nick ] ] left!
      }
      elseif ($read(barusers.txt, w, $nick) != $null) {
        if (%money [ $+ [ $nick ] ] < 5.5) {
          msg $chan Sorry $nick $+ , you don't have enough money!  Here's the website to Alcoholics Anonymous, please get help!  http://www.aa.org
        }
        elseif (%money [ $+ [ $nick ] ] >= 5.5) {
          dec %money [ $+ [ $nick ] ] 5.5
          set %spendtemp [ $+ [ $nick ] ] $calc($readini(spendtop10.ini, Spenders, $nick) + 5.5)
          writeini -n spendtop10.ini Spenders $nick %spendtemp [ $+ [ $nick ] ]        
          set %tempshare [ $+ [ $nick ] ] $calc($readini(sharetop10.ini, Sharers, $nick) + 1)
          writeini -n sharetop10.ini Sharers $nick %tempshare [ $+ [ $nick ] ]        
          describe $chan hands $2 a Purple Mother Fucker, hope you enjoy it $2 $+ !!! (Courtesy of $nick $+ )  That'll be $chr(36) $+ 5.50 please, $nick now has $chr(36) $+ %money [ $+ [ $nick ] ] left!
        }
      }
    }    
  }
}
on *:text:!bahama*:#: {
  if (%barflood [ $+ [ $nick ] ] != on) {
    set %barflood [ $+ [ $nick ] ] on
    timer 1 30 unset -s %barflood [ $+ [ $nick ] ]
    if ($0 == 1) {
      if ($read(barusers.txt, w, $nick) == $null) {
        write -a barusers.txt $nick
        set %money [ $+ [ $nick ] ] 50
        dec %money [ $+ [ $nick ] ] 6.5
        writeini -n spendtop10.ini Spenders $nick 6.5      
        writeini -n drinktop10.ini Drinkers $nick 1      
        describe $chan hands $nick a Bahama Mama, hope you enjoy it $nick $+ !!!  That'll be $chr(36) $+ 6.50 please, you now have $chr(36) $+ %money [ $+ [ $nick ] ] left!
      }
      elseif ($read(barusers.txt, w, $nick) != $null) {
        if (%money [ $+ [ $nick ] ] < 6.5) {
          msg $chan Sorry $nick $+ , you don't have enough money!  Here's the website to Alcoholics Anonymous, please get help!  http://www.aa.org
        }
        elseif (%money [ $+ [ $nick ] ] >= 6.5) {
          dec %money [ $+ [ $nick ] ] 6.5
          set %spendtemp [ $+ [ $nick ] ] $calc($readini(spendtop10.ini, Spenders, $nick) + 6.5)
          writeini -n spendtop10.ini Spenders $nick %spendtemp [ $+ [ $nick ] ]        
          set %drinktemp [ $+ [ $nick ] ] $calc($readini(drinktop10.ini, Drinkers, $nick) + 1)
          writeini -n drinktop10.ini Drinkers $nick %drinktemp [ $+ [ $nick ] ]        
          describe $chan hands $nick a Bahama Mama, hope you enjoy it $nick $+ !!!  That'll be $chr(36) $+ 6.50 please, you now have $chr(36) $+ %money [ $+ [ $nick ] ] left!
        }
      }
    }
    elseif ($0 == 2) {
      if ($read(barusers.txt, w, $nick) == $null) {
        write -a barusers.txt $nick
        set %money [ $+ [ $nick ] ] 50
        dec %money [ $+ [ $nick ] ] 6.5   
        writeini -n spendtop10.ini Spenders $nick 6.5
        writeini -n sharetop10.ini Sharers $nick 1         
        describe $chan hands $2 a Bahama Mama, hope you enjoy it $2 $+ !!! (Courtesy of $nick $+ )  That'll be $chr(36) $+ 6.50 please, $nick now has $chr(36) $+ %money [ $+ [ $nick ] ] left!
      }
      elseif ($read(barusers.txt, w, $nick) != $null) {
        if (%money [ $+ [ $nick ] ] < 6.5) {
          msg $chan Sorry $nick $+ , you don't have enough money!  Here's the website to Alcoholics Anonymous, please get help!  http://www.aa.org
        }
        elseif (%money [ $+ [ $nick ] ] >= 6.5) {
          dec %money [ $+ [ $nick ] ] 6.5
          set %spendtemp [ $+ [ $nick ] ] $calc($readini(spendtop10.ini, Spenders, $nick) + 6.5)
          writeini -n spendtop10.ini Spenders $nick %spendtemp [ $+ [ $nick ] ]        
          set %tempshare [ $+ [ $nick ] ] $calc($readini(sharetop10.ini, Sharers, $nick) + 1)
          writeini -n sharetop10.ini Sharers $nick %tempshare [ $+ [ $nick ] ]        
          describe $chan hands $2 a Bahama Mama, hope you enjoy it $2 $+ !!! (Courtesy of $nick $+ )  That'll be $chr(36) $+ 6.50 please, $nick now has $chr(36) $+ %money [ $+ [ $nick ] ] left!
        }
      }
    }    
  }
}
on *:text:!water*:#: {
  if (%barflood [ $+ [ $nick ] ] != on) {
    set %barflood [ $+ [ $nick ] ] on
    timer 1 30 unset -s %barflood [ $+ [ $nick ] ]
    if ($0 == 1) {
      if ($read(barusers.txt, w, $nick) == $null) {
        write -a barusers.txt $nick
        set %money [ $+ [ $nick ] ] 50
        dec %money [ $+ [ $nick ] ] .5
        writeini -n spendtop10.ini Spenders $nick .5
        writeini -n drinktop10.ini Drinkers $nick 1      
        describe $chan hands $nick a glass of ice water, hope you enjoy it $nick $+ !!!  That'll be $chr(36) $+ .50 please, you now have $chr(36) $+ %money [ $+ [ $nick ] ] left!
      }
      elseif ($read(barusers.txt, w, $nick) != $null) {
        if (%money [ $+ [ $nick ] ] < .5) {
          msg $chan Sorry $nick $+ , you don't have enough money!  Here's the website to Alcoholics Anonymous, please get help!  http://www.aa.org
        }
        elseif (%money [ $+ [ $nick ] ] >= .5) {
          dec %money [ $+ [ $nick ] ] .5
          set %spendtemp [ $+ [ $nick ] ] $calc($readini(spendtop10.ini, Spenders, $nick) + .5)
          writeini -n spendtop10.ini Spenders $nick %spendtemp [ $+ [ $nick ] ]        
          set %drinktemp [ $+ [ $nick ] ] $calc($readini(drinktop10.ini, Drinkers, $nick) + 1)
          writeini -n drinktop10.ini Drinkers $nick %drinktemp [ $+ [ $nick ] ]        
          describe $chan hands $nick a glass of ice water, hope you enjoy it $nick $+ !!!  That'll be $chr(36) $+ .50 please, you now have $chr(36) $+ %money [ $+ [ $nick ] ] left!
        }
      }
    }
    elseif ($0 == 2) {
      if ($read(barusers.txt, w, $nick) == $null) {
        write -a barusers.txt $nick
        set %money [ $+ [ $nick ] ] 50
        dec %money [ $+ [ $nick ] ] .5   
        writeini -n spendtop10.ini Spenders $nick .5
        writeini -n sharetop10.ini Sharers $nick 1         
        describe $chan hands $2 a glass of iced water, hope you enjoy it $2 $+ !!! (Courtesy of $nick $+ )  That'll be $chr(36) $+ .50 please, $nick now has $chr(36) $+ %money [ $+ [ $nick ] ] left!
      }
      elseif ($read(barusers.txt, w, $nick) != $null) {
        if (%money [ $+ [ $nick ] ] < .5) {
          msg $chan Sorry $nick $+ , you don't have enough money!  Here's the website to Alcoholics Anonymous, please get help!  http://www.aa.org
        }
        elseif (%money [ $+ [ $nick ] ] >= .5) {
          dec %money [ $+ [ $nick ] ] .5
          set %spendtemp [ $+ [ $nick ] ] $calc($readini(spendtop10.ini, Spenders, $nick) + .5)
          writeini -n spendtop10.ini Spenders $nick %spendtemp [ $+ [ $nick ] ]        
          set %tempshare [ $+ [ $nick ] ] $calc($readini(sharetop10.ini, Sharers, $nick) + 1)
          writeini -n sharetop10.ini Sharers $nick %tempshare [ $+ [ $nick ] ]        
          describe $chan hands $2 a glass of iced water, hope you enjoy it $2 $+ !!! (Courtesy of $nick $+ )  That'll be $chr(36) $+ .50 please, $nick now has $chr(36) $+ %money [ $+ [ $nick ] ] left!
        }
      }
    }    
  }
}
on *:text:!soda*:#: {  
  if (%barflood [ $+ [ $nick ] ] != on) {
    set %barflood [ $+ [ $nick ] ] on
    timer 1 30 unset -s %barflood [ $+ [ $nick ] ]
    if ($0 == 1) {
      if ($read(barusers.txt, w, $nick) == $null) {
        write -a barusers.txt $nick
        set %money [ $+ [ $nick ] ] 50
        dec %money [ $+ [ $nick ] ] 1
        writeini -n spendtop10.ini Spenders $nick 1
        writeini -n drinktop10.ini Drinkers $nick 1      
        describe $chan hands $nick a cold glass of soda, hope you enjoy it $nick $+ !!!  That'll be $chr(36) $+ 1.00 please, you now have $chr(36) $+ %money [ $+ [ $nick ] ] left!
      }
      elseif ($read(barusers.txt, w, $nick) != $null) {
        if (%money [ $+ [ $nick ] ] < .5) {
          msg $chan Sorry $nick $+ , you don't have enough money!  Here's the website to Alcoholics Anonymous, please get help!  http://www.aa.org
        }
        elseif (%money [ $+ [ $nick ] ] >= 1) {
          dec %money [ $+ [ $nick ] ] 1
          set %spendtemp [ $+ [ $nick ] ] $calc($readini(spendtop10.ini, Spenders, $nick) + 1)
          writeini -n spendtop10.ini Spenders $nick %spendtemp [ $+ [ $nick ] ]        
          set %drinktemp [ $+ [ $nick ] ] $calc($readini(drinktop10.ini, Drinkers, $nick) + 1)
          writeini -n drinktop10.ini Drinkers $nick %drinktemp [ $+ [ $nick ] ]        
          describe $chan hands $nick a cold glass of soda, hope you enjoy it $nick $+ !!!  That'll be $chr(36) $+ 1.00 please, you now have $chr(36) $+ %money [ $+ [ $nick ] ] left!
        }
      }
    }
    elseif ($0 == 2) {
      if ($read(barusers.txt, w, $nick) == $null) {
        write -a barusers.txt $nick
        set %money [ $+ [ $nick ] ] 50
        dec %money [ $+ [ $nick ] ] 1  
        writeini -n spendtop10.ini Spenders $nick 1
        writeini -n sharetop10.ini Sharers $nick 1         
        describe $chan hands $2 a glass of soda, hope you enjoy it $2 $+ !!! (Courtesy of $nick $+ )  That'll be $chr(36) $+ 1.00 please, $nick now has $chr(36) $+ %money [ $+ [ $nick ] ] left!
      }
      elseif ($read(barusers.txt, w, $nick) != $null) {
        if (%money [ $+ [ $nick ] ] < 1) {
          msg $chan Sorry $nick $+ , you don't have enough money!  Here's the website to Alcoholics Anonymous, please get help!  http://www.aa.org
        }
        elseif (%money [ $+ [ $nick ] ] >= 1) {
          dec %money [ $+ [ $nick ] ] 1
          set %spendtemp [ $+ [ $nick ] ] $calc($readini(spendtop10.ini, Spenders, $nick) + 1)
          writeini -n spendtop10.ini Spenders $nick %spendtemp [ $+ [ $nick ] ]        
          set %tempshare [ $+ [ $nick ] ] $calc($readini(sharetop10.ini, Sharers, $nick) + 1)
          writeini -n sharetop10.ini Sharers $nick %tempshare [ $+ [ $nick ] ]        
          describe $chan hands $2 a cold glass of soda, hope you enjoy it $2 $+ !!! (Courtesy of $nick $+ )  That'll be $chr(36) $+ 1.00 please, $nick now has $chr(36) $+ %money [ $+ [ $nick ] ] left!
        }
      }
    }    
  }
}