find $loc,small chair;
find $actor,small chair;
find $loc,random;
find $loc,random not me;
find $loc,random doorway;
find $loc,random player not me;
find $loc,random not doorway not player not me;
set $found_id's loc to $dest;
var $loc to $found_id's loc;
say 'leaves',"[$actor] winks out of existance!";
set $found_id's loc to $dest;
var $loc to $dest;
say 'arrives',"[$actor] arrives with a pop!";
var $colour to (red,yellow,white,orange with green bits,black and white,purple);
findname $trget,plain;