User:WhiteWizard/test

From Tapestries MUCK

Revision as of 03:44, 29 March 2007 (view source) WhiteWizard (Talk | contribs) ← Older edit		Revision as of 05:10, 30 March 2007 (view source) WhiteWizard (Talk | contribs) Newer edit →
Line 1:		Line 1:
-	xxxxx	+	<mpi>@set wa=/_multi/role:{role-cmd}
-	<table border=0 width=100%><tr><td width=20%></td><td><div align="center" style="width: 100%; text-align: center; border: 1px solid #aaa; background-color: #f9f9f9; padding: 5px;">Test</div></td><td width=20%></td></tr></table>	+	@set here=/_msgmacs/w-role-s:{if:{:1},{prop:_role/{prop:_role/db/{name:{:1}},{prop:_ket-storage}}_SHORT,{prop:_ket-storage}},{prop:_wa/fields/role}}
-	xxxxx	+	@set here=/_msgmacs/w-role-l:{if:{:1},{prop:_role/db/{name:{:1}},{prop:_ket-storage}},{prop:_wa/fields/role}}
		+	#@set here=/_msgmacs/w-role-l:{if:{:1},{prop:_roles/{name:{:1}},#26727},{prop:_wa/fields/role}}
		+	#@set here=/_msgmacs/w-role-s:{if:{:1},{prop:_roles/{name:{:1}},#26727},{prop:_wa/fields/role}}
		+	@set wa=_wa/fmt-db/w-role-l:14
		+	@set wa=_wa/fmt-db/w-role-s:10
		+	@set wa=_wa/fields/role:Role_____________
		+
		+	@set ws=_wa/cmd-role/#auth*:{if:{authp:_role/auth-auth},{store:_auth/{sublist:{&arg} ,2,2, },_role/auth,this},{role-help}}
		+	@set ws=_wa/cmd-role/#auth-auth*:{if:{authp:_role/auth-auth},{store:_auth/{sublist:{&arg} ,2,2, },_role/auth-auth,this},{role-help}}
		+	@set ws=_wa/cmd-role/{#admins*|#lista*}*:{auth-tellp2:_role/auth,_role/auth-auth}
		+	@set ws=_wa/cmd-role/#edit ?*:{if:{auth-auto:_role/},{role-editrole},{role-help}}
		+	@set ws=_wa/cmd-role/#list*:{role-list}
		+	@set ws=_wa/cmd-role/#help*:{role-help}
		+	@set ws=_wa/cmd-role/#set*:{role-set}
		+	@set ws=_wa/cmd-role/#title*:{if:{auth-auto:_title/},{wa-title-set},{wa-help}}
		+
		+	@set wa=/_msgmacs/role-cmd:{if:{&arg},{exec:_wa/cmd-role/{sublist:{mklist:{filter:iscmd,{subst:{listprops:_wa/cmd-role/},_wa/cmd-role/,},{smatch:{&arg},{&iscmd}}},#help*},-2}},{role-help}}
		+	@set wa=/_msgmacs/role-list:{null:{tell:{left:,78,_}{nl}{lit:The following roles currently exist. To set one, >> role #set ROLENAME}{nl}},{foreach:role,{prop:_role/roles},{tell:{&role}{nl}    {prop:_role/{&role}}{nl} }}{tell:{left:,78,_}}}
		+	@set wa=/_msgmacs/role-set:{null:{foreach:role,{prop:_role/roles,this},{if:{smatch:{sublist:{&arg} ,2,2, },{&role}},{store:{&role},_role/db/{name:me},this}}}{tell:Your role is {prop:_role/db/{name:me}}}}
		+	@set wa=/_msgmacs/role-editrole:{null:{with:r0,{sublist:{&arg},2,-1, },{with:r1,{sublist:{&r0}=,1,1,=},{store:{lunique:{if:{and:{instr:{&arg},=},{&r1}},{mklist:{prop:_role/roles,this},{&r1}},{lremove:{prop:_role/roles,this},{&r1}}}},_role/roles,this}{store:{sublist:{&r0}==,3,3,=},_role/{&r1},this}{store:{if:{sublist:{&r0}=,2,2,=},{sublist:{&r0}=,2,2,=},{&r1}},_role/{&r1}_SHORT,this}}}}
		+
		+	@set wa=/_msgmacs/role-help:{list:_help/role}
		+	</mpi>

---

Revision as of 05:10, 30 March 2007

@set wa=/_multi/role:{role-cmd}
@set here=/_msgmacs/w-role-s:{if:{:1},{prop:_role/{prop:_role/db/{name:{:1}},{prop:_ket-storage}}_SHORT,{prop:_ket-storage}},{prop:_wa/fields/role}}
@set here=/_msgmacs/w-role-l:{if:{:1},{prop:_role/db/{name:{:1}},{prop:_ket-storage}},{prop:_wa/fields/role}}
#@set here=/_msgmacs/w-role-l:{if:{:1},{prop:_roles/{name:{:1}},#26727},{prop:_wa/fields/role}}
#@set here=/_msgmacs/w-role-s:{if:{:1},{prop:_roles/{name:{:1}},#26727},{prop:_wa/fields/role}}
@set wa=_wa/fmt-db/w-role-l:14
@set wa=_wa/fmt-db/w-role-s:10
@set wa=_wa/fields/role:Role_____________
 
@set ws=_wa/cmd-role/#auth*:{if:{authp:_role/auth-auth},{store:_auth/{sublist:{&arg} ,2,2, },_role/auth,this},{role-help}}
@set ws=_wa/cmd-role/#auth-auth*:{if:{authp:_role/auth-auth},{store:_auth/{sublist:{&arg} ,2,2, },_role/auth-auth,this},{role-help}}
@set ws=_wa/cmd-role/{#admins*|#lista*}*:{auth-tellp2:_role/auth,_role/auth-auth}
@set ws=_wa/cmd-role/#edit ?*:{if:{auth-auto:_role/},{role-editrole},{role-help}}
@set ws=_wa/cmd-role/#list*:{role-list}
@set ws=_wa/cmd-role/#help*:{role-help}
@set ws=_wa/cmd-role/#set*:{role-set}
@set ws=_wa/cmd-role/#title*:{if:{auth-auto:_title/},{wa-title-set},{wa-help}}
 
@set wa=/_msgmacs/role-cmd:{if:{&arg},{exec:_wa/cmd-role/{sublist:{mklist:{filter:iscmd,{subst:{listprops:_wa/cmd-role/},_wa/cmd-role/,},{smatch:{&arg},{&iscmd}}},#help*},-2}},{role-help}}
@set wa=/_msgmacs/role-list:{null:{tell:{left:,78,_}{nl}{lit:The following roles currently exist. To set one, >> role #set ROLENAME}{nl}},{foreach:role,{prop:_role/roles},{tell:{&role}{nl}    {prop:_role/{&role}}{nl} }}{tell:{left:,78,_}}}
@set wa=/_msgmacs/role-set:{null:{foreach:role,{prop:_role/roles,this},{if:{smatch:{sublist:{&arg} ,2,2, },{&role}},{store:{&role},_role/db/{name:me},this}}}{tell:Your role is {prop:_role/db/{name:me}}}}
@set wa=/_msgmacs/role-editrole:{null:{with:r0,{sublist:{&arg},2,-1, },{with:r1,{sublist:{&r0}=,1,1,=},{store:{lunique:{if:{and:{instr:{&arg},=},{&r1}},{mklist:{prop:_role/roles,this},{&r1}},{lremove:{prop:_role/roles,this},{&r1}}}},_role/roles,this}{store:{sublist:{&r0}==,3,3,=},_role/{&r1},this}{store:{if:{sublist:{&r0}=,2,2,=},{sublist:{&r0}=,2,2,=},{&r1}},_role/{&r1}_SHORT,this}}}}
 
@set wa=/_msgmacs/role-help:{list:_help/role}