@create %ch%cyPARENT: %cnRoom Descriptor=10
@Desc PARENT: Room Descriptor=%r[u(DESC1)][ifelse(hasattr(%!,CONSOLE.DB),u(PODS.F),)]%r%r[ljust([ifelse(words(setr(0,filter(PLAYERS.FIL,lcon(me)))),ansi(v(ECOLOR.D),%bPlayers:),)],38)][ansi(v(ECOLOR.D),Obvious Exits:)]%r [iter(lnum(ifelse(gte(words(%q0),words(setr(1,filter(EXITS.FIL,lexits(me))))),words(%q0),words(%q1))),[ljust(ansi(u(COLOR.F,setr(2,extract(%q0,#@,1))),strtrunc(name(%q2),23)),37)][ljust([ifelse(name(setr(2,extract(%q1,#@,1))),%{[ansi(ifelse(setr(4,elock(%q2,%#)),ng,nr),extract(fullname(%q2),2,1,;))]%},)],4)] [strtrunc(ansi(ifelse(%q4,hg,hr),extract(fullname(%q2),1,1,;)),32)]%r)][ifelse(setr(3,filter(CONTENTS.FIL,lcon(me))),%r%b[ansi(v(ECOLOR.D),Contents:)],)][iter(%q3,%r%b[ljust(strtrunc([name(##)][ifelse(orflags(%#,WZ),%ch%(%cn##[flags(##)]%ch%)%cn,)],77),78)])]%r
&DESC1 PARENT: Room Descriptor=[center(Bug the staff to set the %ch%cg&DESC1%cn on %ch%!%cn.,78)]
&CONTENTS.FIL PARENT: Room Descriptor=[and(not(hasflag(%0,DARK)),u(EVISIBLE.F,%0),not(hastype(%0,Player)),not(u(PODS.FIL,%0)))]
&VISIBLE.F PARENT: Room Descriptor=[and(hasflag(%0,CONNECTED),or(orflags(%#,WZ),not(hasflag(%0,DARK))),u(ISNOTMECH.F,%0))]
&PLAYERS.FIL PARENT: Room Descriptor=[and(hastype(%0,Player),not(strmatch(%0,%#)),u(VISIBLE.F,%0))]
&EXITS.FIL PARENT: Room Descriptor=[and(not(hasflag(%0,DARK)),u(EVISIBLE.F,%0))]
&COLOR.F PARENT: Room Descriptor=[switch(1,orflags(%0,Ww),hw,n)]
&PLAYER.FIL PARENT: Room Descriptor=[hastype(%0,PLAYER)]
&PODS.F PARENT: Room Descriptor=%r[iter(filter(PODS.FIL,lcon(%!)),%r[space(3)][ljust(name(##),20)][ljust(%[[ansi(hy,[btgetxcodevalue(##,mechref)])]%],10)]<[ifelse(neq(words(setr(0,filter(PLAYER.FIL,lcon(##)))),0),u(INPOD.F,lcon(##)),ifelse(get(##/IS_AUTOP),ansi(hr,AutoPilot),Empty))]>)]
&PODS.FIL PARENT: Room Descriptor=[strmatch(parent(%0),#927)]
&PODCON.F PARENT: Room Descriptor=[filter(PODCON.FIL,lcon(%!))]
&ECOLOR.D PARENT: Room Descriptor=hy
&ISNOTMECH.F PARENT: Room Descriptor=[not(and(hasflag(%0,XCODE),strmatch(get(%0/XTYPE),MECH)))]
&EVISIBLE.F PARENT: Room Descriptor=[or(not(hasflag(%0,DARK)),orflags(%#,WZ))]
&PODCON.FIL PARENT: Room Descriptor=[strmatch(parent(%0),#927)]
&INPOD.F PARENT: Room Descriptor=[iter(%0,[edit([name(##)],%b,_)])]
@set PARENT: Room Descriptor=HALTED
@set PARENT: Room Descriptor=INHERIT
@set PARENT: Room Descriptor=NO_COMMAND
@set PARENT: Room Descriptor=SAFE