@verb #2180:"fill" any with/using this rdo #1313
@program #2180:"fill" any with/using this
cup = dobj
if (cup.curliquid == cup.maxliquid)
  $msg:mtell("fill_fail")
else
  cup.curliquid = cup.maxliquid
  cup.whaliquid = this.whaliquid
  $msg:mtell("fill", this.whaliquid)
endif
"Last modified by Carth (#1313) on Tue Sep 10 17:42:14 2002 MDT."
.