@dig/teleport Room Parent
@desc Room Parent=[u(describe_room)]
@set Room Parent=PARENT_OK
@set Room Parent=FLOATING
@set Room Parent=DARK
@set Room Parent=SAFE
@set Room Parent=VISUAL

&FN_SORTOBJ Room Parent=[setq(9,)][setq(8,)][squish(iter(%0,switch(hastype(##,P),1,setq(9,setunion(%q9,##)),setq(8,setunion(%q8,##)))))]%q9 %q8

&FN_CON_LIST Room Parent=[squish(remove(iter(lcon(%0),switch(or(and(hastype(##,THING),orflags(##,!D)),orflags(%1,WZ),andflags(##,!Dc)),1,##,)),%1))]

&FN_EXIT_LIST Room Parent=[ifelse(orflags(%1,WZ),squish(iter(lexits(%0),##)),[squish(iter(lexits(%0),switch(andflags(##,!D),1,##)))])]

&FN_LENGTH Room Parent=[switch(gt(words(%0),words(%1)),1,words(%0),words(%1))]

&FN_INSPECT Room Parent=[switch(gt(words(v(inspect)),0),1,%cb%chInspectable:%cn%b[iter(v(inspect),##,|)].%r)]

&FN_OBJ_INFO Room Parent=[switch(or(and(or(controls(%1,%0),orflags(%1,WZ)),not(hasflag(%1,myopic))),orflags(%0,VJ)),1,\([num(%0)][flags(%0)]\))]

&FN_OBJECT Room Parent=[switch(isdbref(%0),1,switch(hastype(%0,P),1,switch(gt(conn(%0),0),1,ansi([ifelse(hasflag(%0,dark),c,hc)],[ljust([name(%0)][u(fn_obj_info,%0,%1)]%b[switch(hasflag(%0,dark),1,\(dark\))],41)]),ansi(c,[ljust(name(%q3)[u(fn_obj_info,%0,%1)]\(sleeping\),41)])),ifelse(and(hasflag(%0,dark),isdbref(%0)),ljust(ansi(y,[strtrunc(name(%0),41)][u(fn_obj_info,%0,%1)]%b\(dark\)),41),ljust([strtrunc(name(%0),41)][u(fn_obj_info,%0,%1)],41))),[repeat(%b,41)])]

&FN_EXIT Room Parent=[switch(isdbref(%0),1,ifelse(and(hasflag(%0,dark),orflags(%1,WZ)),ansi(y,[strtrunc(name(%0),37)]%b\(dark\)),strtrunc(name(%0),37)))][switch(and(hasflag(%2,transparent),gt(strlen(%0),0)),1,%bleads to [name(loc(%0))])]

&DESCRIBE_ROOM Room Parent=%r[ifelse(hasattrp(%!,DESC1),u(DESC1),center(Place room description in &DESC1 attribute.,78))]%r[setq(1,u(fn_con_list,%!,%#))][setq(1,u(fn_sortobj,%q1))][setq(2,u(fn_exit_list,%!,%#))][setq(0,u(fn_length,%q1,%q2))]%r[u(fn_inspect)][ansi(bh,[ljust(Contents:,40)] Obvious Exits:)][switch(gt(%q0,0),1,iter(rest(lnum(add(%q0,1)),),%r[setq(3,[extract(%q1,##,1)])][setq(4,[extract(%q2,##,1)])][u(fn_object,%q3,%#)][u(fn_exit,%q4,%#,%!)]))]