##push:runsub chkme;
##press:runsub chkme;
##examines:runsub chkme;

##chkme:if $target eq $actor then chkpos else end;

##chkpos:
var $lift to 2239;
if $lift's loc eq $actor's loc then itsherealready else movelift;
##itsherealready:
say 'msg',"[$actor] nods towards [$lift] as if to say 'its already here'";

##movelift:
var $dest to $loc; rem the current location;
var $oldloc to $lift's loc;
set $lift's loc to $dest;

var $loc to $lift;
say 'actn',"The doors slide closed and you feel the lift start to move..";
say 'actn',"..gentle musak plays..";
say 'actn',"..The elevator stops and the doors slide gracefully open to [$dest]";
say 'force',"force:look";

var $loc to $oldloc;
say 'leaves',"The elevator leaves";

var $loc to $dest;
say 'arrives',"[$lift] arrives with a ding!";
say 'force',"force:look";