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

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


##moveme:
var $lift to $actor's loc;
var $dest to 2241; rem the floor 1;
var $oldloc to $lift's loc;
set $lift's loc to $dest;

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

var $loc to $oldloc;
say 'leaves',"[$lift]'s doors close and it leaves";
say 'force',"force:look";

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