4dc
@verb #7354:"push press" any none none rdo #9921
@program #7354:"push press" any none none
argstr in {"button", "elevator"} || {player:Tell("Push what? (Perhaps a button?)"), kill_task(task_id())}
if ($MCA.elevator.in_motion_to > -1)
  return player:tell("The elevator is currently busy.")
elseif ($MCA.elevator.exit.dest == this)
  return player:tell("The elevator is already here.")
endif
$MCA.elevator.in_motion_to = this.floor
"Oh whee, here we go."
$MCA.elevator.exit.dest:announce_all("The elevator door slides closed.")
$MCA.elevator.exit.dest.elev.dest = #-1
$MCA.elevator.exit.dest = #-1
$MCA.elevator:announce_all("The elevator door slides closed.")
player:tell("You push the button to call the elevator and wait patiently.")
suspend(3)
$MCA.elevator:announce_all("The elevator humms in motion..")
suspend(3)
$MCA.elevator:announce_all("You here a 'Ding!' as the elevator slows down.")
$MCA.elevator.exit.dest = this
this.elev.dest = $MCA.elevator
$MCA.elevator:announce_all("The elevator door slides open.")
this:announce_all("The elevator door slides open.")
$MCA.elevator.in_motion_to = -1
$MCA.elevator.floor = this.floor
"Last modified by MOOApartmentProjie (#9921) on Wed Nov 11 20:01:44 1998 EST."
.

0