@verb #1762:"drink" this none none rdo #1313
@program #1762:"drink" this none none
if (!this.curliquid)
  $msg:mtell("drink_fail")
else
  this.curliquid = this.curliquid - 1
  $msg:mtell("drink", this.whaliquid)
  if (!this.curliquid)
    $msg:mtell("drink_empty", this.whaliquid)
  endif
endif
"Last modified by Carth (#1313) on Tue Sep 10 16:50:57 2002 MDT."
.