This is Part two of my money system.
It's a bar which uses the money made in chatting to buy items.
!bar (will give a list of the items for sale)
It also allows you to buy someone else an item.
E.G
~coke (buy yourself a coke)
~Coke NICK (buy a coke and have the bot hand it to NICK)

IT WILL NOT WORK UNLESS YOU HAVE THE MONEY SCRIPT WORKING
the link for it is below.

I hope you have as much fun using it as my friends do.
(btw there is one command not in the list)
~clothe (nick) (item)
E.G.
~clothe Lucius a superman outfit complete with cape.
^_^
vvvv--------money script--------vvvv
http://www.hawkee.com/snippet/6147/

FINAL NOTE:(the original bar system was not my creation, and sorry to the creator but I can't remember who it was. I have expanded on it a heck of a lot though, with double the items, mix drinks and making use my money system)(##o##)(##o##)(also I keep the bar list and the bar itself in seperate remotes, so if you have any trouble with it, try cut and pasting the !bar section into a new remote instead)

;###################################### LUCIUS
;######## Home Made Bar System ######## LUCIUS
;###################################### LUCIUS

on *:TEXT:!bar:#: {
  tokenize 32 $strip($1-)
  if (!%replyflood. [ $+ [ $chan ] ]) {
    set -u4 %replyflood. [ $+ [ $chan ] ] ON 
    notice $nick 5In the 350C store I have... 7~pepsi, ~coke, ~rootbeer, ~sprite, ~dew, ~rum, ~redwine, ~beer, ~smoothie, ~cake, ~whitewine, ~pizza, ~clothe, ~jd & anything, ~vodka & anything, ~nachos & anything, ~hulahoops, ~playboy
    timer 1 1 notice $nick 7~cookie, ~honybun, ~coffee, ~hershey, ~reese, ~taco, ~klondike, ~snicker, ~burger, ~cheeseburger, ~popcorn, ~pbj, ~wings, ~spagmeatballs, ~mac&cheese, ~slurpee, ~tequilla, ~wkd (colour), ~peanuts, ~playgirl
  }
}

on *:TEXT:*:#: {
  tokenize 32 $strip($1-)
  if (!%replyflood. [ $+ [ $chan ] ]) && ($left($1,1) == ~) { 
    set -u4 %replyflood. [ $+ [ $chan ] ] ON 
    if (!$($+(%,barflood. [ $+ [ $chan ] ]),2)) {
      set -u2 $+(%,barflood. [ $+ [ $chan ] ]) on 
      var %% = $iif(!$2,$nick,$2)
      if ($readini(mnycount.ini,$nick,money) < 50) { notice $nick You don't have enough money. TALK MORE!!! lol  |  HALT }
      if (~pepsi == $1) { describe $chan brings a nice cold Pepsi to %% 14[-350C14] }
      if (~coke == $1) { describe $chan brings %% a freezing Coke 14[-350C14] }
      if (~dcoke == $1) { describe $chan brings %% a freezing Diet Coke 14[-350C14] }
      if (~taco == $1) { describe $chan hands %% a fresh tasty taco! 14[-350C14] }
      if (~slurpee == $1) { describe $chan brings %% a freezing Slurpee! 14[-350C14] }
      if (~rootbeer == $1) { describe $chan hands %% a A&W Root Beer 14[-350C14] }
      if (~sprite == $1) { describe $chan offers a Sprite to %% 14[-350C14] }
      if (~dew == $1) { describe $chan brings a Mountain Dew to %% 14[-350C14] }
      if (~rum == $1) { describe $chan brings a bottle full of rum to %% 14[-350C14] }
      if (~redwine == $1) { describe $chan takes a bottle full of chilled red wine to %% 14[-350C14] }
      if (~bud == $1) { decribe $chan hands a Bud Light to %% 14[-350C14] }
      if (~smoothie == $1) { describe $chan runs across the street to Jamba Juice and picks %% up a Strwberry Wirl 14[-350C14] }
      if (~cake == $1) { describe $chan hands %% a piece of homemade cake 14[-350C14] }
      if (~applepie == $1) { describe $chan hands %% a piece of hot Apple Pie 14[-350C14] }
      if (~cookie == $1) { describe $chan brings %% a cookie 14[-350C14] }
      if (~honybun == $1) { describe $chan brings %% a freshly baked Hony Bun 14[-350C14] }
      if (~coffee == $1) { describe $chan hands %% a hot coffee 14[-350C14] }
      if (~pancake == $1) { describe $chan hands %% a fresh steaming pancake! 14[-350C14] }
      if (~creamegg == $1) { describe $chan hands %% a little choccy egg of joy! 14[-350C14] }
      if (~hershey == $1) { describe $chan opens up a Hershey's bar for %% 14[-350C14] }
      if (~reese == $1) { describe $chan hands %% a Reece's bar 14[-350C14] }
      if (~klondike == $1) { describe $chan brings a frozen Klondike treat to %% 14[-350C14] }
      if (~snicker == $1) { describe $chan brings a Snicker's bar to %% 14[-350C14] }
      if (~burger == $1) { describe $chan hands %% a burger 14[-350C14] }
      if (~condom == $1) { describe $chan hands %% a condom, ribbed for pleasure (someone is hoping to get lucky!) 14[-350C14] }
      if (~cheeseburger == $1) { describe $chan makes a cheese burger for %% 14[-350C14] }
      if (~popcorn == $1) { describe $chan pops a bag of popcorn for %% 14[-350C14] }
      if (~peanuts == $1) { describe $chan passes a bag of peanuts to %% $+ ! 14[-350C14] }
      if (~hulahoops == $1) { describe $chan passes %% a bag of delicious HulaHoops! 14[-350C14] }
      if (~pbj == $1) { describe $chan hands %% a peanutbutter and jelly sandwhich 14[-350C14] }
      if (~wings == $1) { describe $chan brings a plate of hot, spicy wings to %% 14[-350C14] }
      if (~spagmeatballs == $1) { describe $chan brings %% a bowl of spagetti and meatballs 14[-350C14] }
      if (~mac&cheese == $1) { describe $chan hands a bowl of Mac and Cheese to %% 14[-350C14] }
      if (~whitewine == $1) { describe $chan gives %% a bottle full of white wine 14[-350C14] }
      if (~pizza == $1) { describe $chan hands %% a box of hot cheese pizza 14[-350C14] }
      if (~beer == $1) { describe $chan hands %% a fresh ice cold beer 14[-350C14] }
      if (~playboy == $1) { describe $chan hands %% a naughty magazine FULL of naked ladies! (and a complementary box of tissues) 14[-350C14] }
      if (~playgirl == $1) { describe $chan hands %% a naughty magazine FULL of naked men! (and a complementary box of tissues) 14[-350C14] }
      if (~wkd == $1) && ($3) { describe $chan hands $3 a fresh ice cold bottle of $2 WicKeD! 14[-350C14] }
      if (~wkd == $1) && (!$3) { describe $chan hands $nick a fresh ice cold bottle of $2 WicKeD! 14[-350C14] }
      if (~smokes == $1) { describe $chan hands %% a pack of smokes. $3- 14[-350C14] }
      if (~tequilla == $1) { describe $chan hands %% a fresh cool shot of Tequilla! (one tequilla, two tequilla, three tequilla, FLOOR!) 14[-350C14] }
      if (~jd == $1) && ($2 != $chr(38)) { describe $chan hands %% a fresh cool shot of JackDaniels 14[-350C14] }
      if (~jd == $1) && ($2 == $chr(38)) && (!$4) { describe $chan hands $nick a fresh cool glass of JackDaniels & $3 14[-350C14] }
      if (~jd == $1) && ($2 == $chr(38)) && ($4) { set %% $4 | describe $chan hands $4 a fresh cool glass of JackDaniels & $3 14[-350C14] }
      if (~nachos == $1) && ($2 != $chr(38)) { describe $chan hands %% Some crunchy nachos! 14[-350C14] }
      if (~nachos == $1) && ($2 == $chr(38)) && (!$4) { describe $chan hands $nick some crunchy nachos & $3 dip! 14[-350C14] }
      if (~nachos == $1) && ($2 == $chr(38)) && ($4) { set %% $4 | describe $chan hands $4 some crunchy nachos & $3 dip! 14[-350C14] }
      if (~vodka == $1) && ($2 != $chr(38)) { describe $chan hands %% a fresh cool shot-glass of vodka 14[-350C14] }
      if (~vodka == $1) && ($2 == $chr(38)) && (!$4) { describe $chan hands $nick a fresh cool glass of vodka & $3 14[-350C14] }
      if (~vodka == $1) && ($2 == $chr(38)) && ($4) { set %% $4 | describe $chan hands $4 a fresh cool glass of vodka & $3 14[-350C14] }
      if (~clothe == $1) { describe $chan stuffs %% into $3- 14[-350C14] }
      set %barmoney $calc($readini(mnycount.ini,$nick,money) - 50) 
      writeini -n mnycount.ini $nick money $($+(%barmoney),2) 
      HALT
      }
    }
  }
}