@dig/teleport %cy%chRoom Parent:%cc Yohshee's Version 3.0%cn
@Desc here=[u(describe_room)]
&FN_SORTOBJ here=[setq(9,)][setq(8,)][squish(iter(%0,switch(hastype(##,P),1,setq(9,setunion(%q9,##)),setq(8,setunion(%q8,##)))))]%q9 %q8
&FN_CON_LIST here=[squish(remove(iter(lcon(%0),switch(or(and(hastype(##,THING),orflags(##,!D)),orflags(%1,WZ),andflags(##,!Dc)),1,##,)),%1))]
&FN_EXIT_LIST here=[ifelse(orflags(%1,WZ),squish(iter(lexits(%0),##)),[squish(iter(lexits(%0),switch(andflags(##,!D),1,##)))])]
&FN_LENGTH here=[switch(gt(words(%0),words(%1)),1,words(%0),words(%1))]
&FN_INSPECT here=[switch(gt(words(v(inspect)),0),1,%cb%chInspectable:%cn%b[iter(v(inspect),[name(##)],|)].%r)]
&FN_INTEREST here=[switch(hasattr(%0,interest),1,%r[ansi(hc,Places of Interest:)]%r[iter(v(interest),[name(##)],|)]%r,)]
&FN_OBJ_INFO here=[switch(or(and(or(controls(%1,%0),orflags(%1,WZ)),not(hasflag(%1,myopic))),orflags(%0,VJ)),1,\([num(%0)][flags(%0)]\))]
&FN_OBJECT here=[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 here=[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 here=%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)][u(fn_interest,%!)]%r[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,%#,%!)]))]
&AUTHOR here=Yohshee
&VERSION here=3.0
@set here=DARK
@set here=INHERIT
@set here=FLOATING
@set here=VISUAL
@set here=PARENT_OK
@set here=SAFE