get $text;if $text ne '' then makedoor else default;##default:var $text to 'door';goto makedoor;##makedoor:new $text;copy $target;set $target's link to $new_id;set $new_id's link to $target;set $target's loc to $actor;say 'doorway',"[$actor] has made a new doorway [$target]";var $sys_msg to "Go to a new location and drop the $text you are now carrying. A new $text will stay in this location";