&CMD_PACK me=@emit @set me=QUIET;@emit @switch extract(version(),1,1)=PennMUSH,,{@create Placeholder};&THINGS me=[iter(sort(setdiff(lnum(add(extract(setr(0,edit(search(),#,)),words(r(0)),1),1)),0 1 2 3),n),edit(##,^,#))];@emit @emit Pass 1: Creating Objects;@dol v(THINGS)={@switch type(##)=ROOM,{@emit @dig [name(##)]},THING,{@emit @create [name(##)]},EXIT,{@emit @open [fullname(##)]},{@emit @create Placeholder}}
&CMD_PACK2 me=@emit @emit Pass 2: Assigning Locations and Attributes;@decompile #0=#0;@emit @switch extract(version(),1,1)=PennMUSH,{{@dol search(all,name,ZMO)=@lock/zone ##=me}};@emit @name #0=The Void;@dol v(THINGS)={@switch type(##)=ROOM,{@decompile ##=##;@emit @set ##=FLOATING},THING,{@emit @tel ##=[loc(##)];@decompile ##=##},EXIT,{@emit @tel [home(##)];@emit @switch extract(version(),1,1)=PennMUSH,{{@tel ##=here}},{{get ##; drop ##}};@emit @link ##=[loc(##)];@decompile ##=##}}
&CMD_PACK3 me=@emit @dol search(name=Placeholder)={@nuke ##};@emit @switch extract(version(),1,1)=PennMUSH,{@dol iter(lcon(#89),search(all,PARENT,##))={@set ##=!NO_COMMAND};@dol search(all,NAME,master)={@set ##=NO_COMMAND}};@emit @dbck;@emit @set me=!QUIET
@set me=QUIET
