6c5
@verb #5772:"l_8bar" this none this rxdo #5772
@program #5772:"l_8bar" this none this
player:tell("No. Drink                              Cost")
player:tell("--- -----                              ----")
for x in (this.drinks)
  player:tell((tostr(x in this.drinks) + "   ")[1..4], (x[1] + "                                 ")[1..35], "$", $su:group_number(x[2], ","))
endfor
x = $cmd_utils:read("what to buy")
if (this.(tostr(player))[39] == this.drinks[toint(x)][7])
  if (this.(tostr(player))[39] >= this.drinks[1][7])
    player:tell("The Bartender says to you, \"You've had your max of drinks for the day pal. come back tomorrow.\"")
  else
    player:tell("The Bartender says to you, \"You've had enough of that drink, try something else.\"")
  endif
  return
endif
player:tell("The Bartender says to you, \"Tell me which number of drink you wish to buy.\"")
if (toint(x) == 0 || toint(x) > length(this.drinks))
  return player:tell("The Bartender says to you, \"Huh?\"")
elseif (this.(tostr(player))[8] < this.drinks[toint(x)][2])
  return player:tell("The Bartender says to you, \"You can't afford that.\"")
endif
player:tell("The Bartender says to you, \"Ok! Enjoy your ", this.drinks[toint(x)][1], ".\"")
player:tell("You toss back your ", this.drinks[toint(x)][1], " in ", y = random(4), " ", y == 4 ? "small sips, then you place your glass down.  The Bartender looks at you in disgust" | tostr("quick ", y == 1 ? "chug" | "chugs", " then slam your glass down on the bar."))
this.(tostr(player))[8] = this.(tostr(player))[8] - this.drinks[toint(x)][2]
this.(tostr(player))[39] = this.(tostr(player))[39] + 1
this:drink_stuff(x)
"Last modified by Dax (#789) on Tue May  3 14:12:32 2005 MDT."
.

0