Room parent

@create Parent: Master Building Parent=5

@ExitFormat Parent: Master Building Parent=[setq(0,0)][setq(1,[sortby(#53/f.namesort,iter(lexits(me),ifelse([and(hasflag(##,DARK),not(isstaff(%#)))],,##)))])][ifelse(lte(words(%q1),0),,%ch%cxObvious Exits%cc:%cn[iter(%q1,[switch(mod(%q0,2),0,%r)]%b%b[ifelse(hasflag(##,DARK),[ljust(%ch%cr%[%cx[name(##)]%ch%cr%],5)]%ch%cc-%cn%b%ch%cx[ljust(before(name(loc(##)),:),30)]%xn,[ljust(%ch%cc%[%cx[name(##)]%ch%cc%],5)]%ch%cc-%cn%b%ch%cx[ljust(before(name(loc(##)),:),30)]%cn)][setq(0,inc(%q0))])]%r)]

@DescFormat Parent: Master Building Parent=%t%ch%cx%0%r%ch%cc-[ljust(\[%cw[u(calc_rating,where(%#))]%cc\],7,%ch%cc-)][switch(or(strmatch(lattr(me),*view-*),strmatch(lattr(me),*place*),strmatch(lattr(me),*help*),hasattr(me,smell),hasattr(me,lmap),hasattr(me,scene),hasattr(me,poseorder),hasattr(me,note)),1,[rjust([switch([or(strmatch(lattr(me),*view-*),strmatch(lattr(parent(where(%#))),*view-*))],1,%ch%cc%[%cy+view%cc%]%cn)][switch(strmatch(lattr(me),*place*),1,%ch%cc%[%cyplaces%cc%]%cn)][switch(strmatch(lattr(me),*help*),1,%ch%cc%[%cy+lhelp%cc%]%cn)][switch(hasattr(me,smell),1,%ch%cc%[%ch%cy+smell%cc%]%cn)][switch(hasattr(me,lmap),1,%ch%cc%[%ch%cy+lmap%cc%]%cn)][switch(hasattr(me,scene),1,%ch%cc%[%cy+scene%cc%]%cn)][switch(hasattr(me,poseorder),1,%ch%cc%[%cy+order%cc%]%cn)][switch(hasattr(me,note),1,%ch%cc%[%cy+note%cc%]%cn)],70,%ch%cc-%cn)],0,[repeat(%ch%cc-%cn,70)])]

@NameFormat Parent: Master Building Parent=%r[rjust(%ch%cc%[%cy+compass%cc%],78,%ch%cc-%cn)]%R%ch%cc-[ljust(%ch%cc%[%cn[name(%!)]%ch%cc%],77,%cc%ch-%cn)] &C.LHELP Parent: Master Building Parent=$+lhelp:@pemit %#=[u(#16/header, Local Help - [name(loc(%#))])]%r%r%xhHelp is available here for the following commands:%R%R%xy[columns(sort(iter(lattr(loc(%#)/D.HELP_*),[capstr(lcstr(after (##,D.HELP_)))])),20,,10)]%r%xn%xh[center(To view a topic type '+lhelp '.,78)]%xn%R[u(#16/footer)]

&C.LHELP2 Parent: Master Building Parent=$+lhelp *:@pemit %#=[u(#16/header,Local Help - [capstr(lcstr(%0))])][switch([gt(words(setr(0,[u(loc(%#)/d.help_%0)])),0)],1,%q0,That helpfile does not exist in this location. Please check +lhelp and try again.)]%xn%r[u(#16/footer)]

&F.NAMESORT Parent: Master Building Parent=[comp(name(%0),name(%1))]

&C.LMAP Parent: Master Building Parent=$+lmap:@pemit %#=[u(#16/header, Local Map for [name(loc(%#))])][switch([gt(words(setr(0,[u(loc(%#)/lmap)])),0)],1,%q0,Sorry! This room does not have a Local Map Set.)]%r[u(#16/footer)]

@ConFormat Parent: Master Building Parent=[pemit(%#,[setq(1,%b)][setq(2,%b)][setq(3,%b)][setq(4,%b)][iter(lcon(me),switch(type(##),PLAYER,switch(hasflag(##,connected),1,[setq(1,cat(%q1,##))]),switch(hasflag(##,dark),0,[setq(2,cat(%q2,##))])))][switch(gte(words(%q1),words(%q2)),1,[setq(5,words(%q1))],[setq(5,words(%q2))])])]%xh%xxPlayers Here%xh%xc:[repeat(%b,22)]%xh%xxThings Here%xc:%xn[iter(repeat(1%b,%q5),%r%b%b[ljust(switch(moniker(first(%q1)),#-1 NOT FOUND,%b,moniker(first(%q1))),33)]%b%b[ljust(switch(moniker(first(%q2)),#-1 NOT FOUND,%b,moniker(first(%q2))),37)][setq(1,rest(%q1))][setq(2,rest(%q2))])]

&C.SMELL Parent: Master Building Parent=$+note:@pemit %#=[u(#16/header, Current Note for [name(loc(%#))])]%r%t%ch%cx[u(loc(%#)/note)]%r[u(#16/footer)]

&C.SCENE Parent: Master Building Parent=$+scene:@pemit %#=[u(#16/header,Current Scene at [name(loc(%#))])][switch([gt(words(setr(0,[u(loc(%#)/scene)])),0)],1,%t%q0,Sorry, there is no current scene at this location.)]%xn%r[u(#16/footer)]

&C.SCENE.SET Parent: Master Building Parent=$+scene/set *:@eval [set([loc(%#)],scene:%0)][pemit(%#,%xn%xhGAME:%xn '[before(%0,=)]' is now in effect[switch([gt(strmatch([before(%0,=)],%0),0)],1,.,%bfor [after(%0,=)] rounds.)])]

&C.SCENE.CLEAR Parent: Master Building Parent=$+scene/clear:@switch/first [gt(setr(0,match([v(scene)],*[edit(%0,%b,_)]*)),0)]=0,@pemit %#=%xn%xhGAME:%xn Unable to find effect '%0'.,1,@eval [set([loc(%#)],scene:)][pemit(%#,%xn%xhGAME:%xn [name(loc(%#))]'s scene has been cleared.)]

&C.0RDER Parent: Master Building Parent=$+order:@pemit %#=[u(#16/header,Current Scene at [name(loc(%#))])][switch([gt(words(setr(0,[u(loc(%#)/poseorder)])),0)],1,%t%q0,Sorry, there is no current scene at this location.)]%xn%r[u(#16/footer)]

&C.ORDER.SET Parent: Master Building Parent=$+order/set *:@eval [set([loc(%#)],poseorder:%0)][pemit(%#,%xn%xhGAME:%xn '[before(%0,=)]' is now in effect[switch([gt(strmatch([before(%0,=)],%0),0)],1,.,%bfor [after(%0,=)] rounds.)])];@remit [loc(%#)]=%xn%xhGAME: Pose order is now %0.

&C.ORDER.CLEAR Parent: Master Building Parent=$+order/clear:@switch/first [gt(setr(0,match([v(poseorder)],*[edit(%0,%b,_)]*)),0)]=0,@pemit %#=%xn%xhGAME:%xn Unable to find effect '%0'.,1,@eval [set([loc(%#)],poseorder:)][pemit(%#,%xn%xhGAME:%xn [name(loc(%#))]'s scene has been cleared.)]

&CALC_RATING Parent: Master Building Parent=[pemit(me,setq(0,squish(iter(lcon(%0),switch(hasflag(##,CONNECTED),1,u(##/rating))))))][switch(hasattr(%0,PUBLIC),1,{[switch(gte(member(%q0,G),1),1,G,switch(gte(member(%q0,PG),1),1,PG,PG-13))]},{[switch(gte(member(%q0,G),1),1,G,switch(gte(member(%q0,PG),1),1,PG,switch(gte(member(%q0,PG-13),1),1,PG-13,switch(gte(member(%q0,R),1),1,R,switch(gte(member(%q0,NC-17),1),1,NC-17,PG-13)))))]})] &C.DIR Parent: Master Building Parent=$+Dir:@pemit %#=[u(#16/header, Current Directory for [name(loc(%#))])]%r%t%ch%cx[u(loc(%#)/dir)]%r[u(#16/footer)]

@set Parent: Master Building Parent=FLOATING

@set Parent: Master Building Parent=INHERIT

@set Parent: Master Building Parent=VISUAL