@verb #2007:"up down u d" none none none rxdo #9070
@program #2007:"up down u d" none none none
player = caller
if (verb[1] == "u" && this.floor < this.floors)
  $msg:mtell("up")
  this:call(this.floor + 1)
elseif (verb[1] == "d" && this.floor > 0)
  $msg:mtell("down")
  this:call(this.floor - 1)
else
  $msg:mtell("already")
endif
"Last modified by Raptor (#6319) on Sun Apr  4 01:19:44 1999 MST."
.