get $text,'to',$text2;if $text2 ne '' then complex else simple;##complex:new $text;set $target's worth to 0;var $door1 to $target;copy $target;var $door2 to $new_id;set $door1's link to $door2;set $door2's link to $door1;set $door1's colour to 'lightgreen';set $door2's colour to 'lightgreen';new $text2;set $target's worth to 0;set $target's loc to $door1;set $door2's loc to $target;say 'create',"[$actor] built [$door1] to somewhere interesting";look $loc;msg $loc,$actor,$actor,0,'force',"force:look $loc";##simple: get $text;if $text ne '' then makeit else default;##default: var $text to 'a place';goto makeit;##makeit: new newexit;set $target's worth to 0;var $exit to $target;new $text;set $target's worth to 0;set $target's link to $exit;set $exit's link to $target;set $exit's loc to $target;set $exit's extra to 'from here';set $exit's qty to 1;set $exit's class to 'exit';set $exit's colour to 'lightgreen';say 'create',"[$actor] built [$target]";look $loc;msg $loc,$actor,$actor,0,'force',"force:look $loc";runsub noisy/3;##noisy:msg 0,$actor,0,0,"act","You hear the sounds of building";