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

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

##chkpos:
var $lift to 77103;
if $lift's loc eq $actor's loc then itsherealready else movelift;
##itsherealready:
say 'msg',"[$actor] makes a beeps and a light blinks above [$lift]";

##movelift:
var $dest to $loc;
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',"..a peaceful silence descends..";
say 'actn',"..The lift stops and the doors slide gracefully open to [$dest]";
say 'force',"force:look";

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

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