JWI Role
From Tapestries MUCK
(Difference between revisions)
TealWizard (Talk | contribs) (Rough dump of EEE WA role code) |
TealWizard (Talk | contribs) |
||
Line 1: | Line 1: | ||
WIP. Needs cleanup. | WIP. Needs cleanup. | ||
- | < | + | <pre> |
@action role==tmp/exit1 | @action role==tmp/exit1 | ||
@link $tmp/exit1=$nothing | @link $tmp/exit1=$nothing | ||
Line 60: | Line 60: | ||
@propset $tmp/exit1=str:/eeerole#/8: {left:-- EEE ROLE: #help ,79,-}{nl} | @propset $tmp/exit1=str:/eeerole#/8: {left:-- EEE ROLE: #help ,79,-}{nl} | ||
@propset $tmp/exit1=str:/eeerole#/9: {list:/docs/{&command09},#144225} | @propset $tmp/exit1=str:/eeerole#/9: {list:/docs/{&command09},#144225} | ||
- | </ | + | </pre> |
Latest revision as of 18:16, 4 March 2017
WIP. Needs cleanup.
@action role==tmp/exit1 @link $tmp/exit1=$nothing @propset $tmp/exit1=str:/_/fl:{init}{parseinvoke} @propset $tmp/exit1=lock:/_/lok:me&!me @propset $tmp/exit1=str:/_/ofl:{null:} @propset $tmp/exit1=str:/_msgmacs/init:{lexec:eeerole,this} @propset $tmp/exit1=str:/eeerole#:51 @propset $tmp/exit1=str:/eeerole#/1:{func:getrole,playerref01, @propset $tmp/exit1=str:/eeerole#/10: {nl}{right: 'EEE ROLE' by TealWizard -- 'MPI Where Are' by Jiffies --,79,-} @propset $tmp/exit1=str:/eeerole#/11:} @propset $tmp/exit1=str:/eeerole#/12:{func:isvalid,value05,proplist05, @propset $tmp/exit1=str:/eeerole#/13: {lmember:{list:/validate/{&proplist05},#144225},{tolower:{&value05}}} @propset $tmp/exit1=str:/eeerole#/14:} @propset $tmp/exit1=str:/eeerole#/15:{func:getsubcommand,argstring06, @propset $tmp/exit1=str:/eeerole#/16: {if:{eq:{instr:{&argstring06},#},1},{sublist:{&argstring06},1,1, },default} @propset $tmp/exit1=str:/eeerole#/17:} @propset $tmp/exit1=str:/eeerole#/18:{func:getarglist,argstring07, @propset $tmp/exit1=str:/eeerole#/19: {if:{lt:{instr:{getsubcommand,{&argstring07}},#},1}, @propset $tmp/exit1=str:/eeerole#/2: {prop!:/storage/{name:{&playerref01}},#144225} @propset $tmp/exit1=str:/eeerole#/20: {subst:{sublist:{&argstring07},1,-1, }, ,\r}, @propset $tmp/exit1=str:/eeerole#/21: {if:{gt:{count:{sublist:{&argstring07},1,-1, }},1}, @propset $tmp/exit1=str:/eeerole#/22: {subst:{sublist:{&argstring}07,2,-1, }, ,\r}, @propset $tmp/exit1=str:/eeerole#/23: } @propset $tmp/exit1=str:/eeerole#/24: } @propset $tmp/exit1=str:/eeerole#/25:} @propset $tmp/exit1=str:/eeerole#/26:{func:invoke,command08,subcommand08,arglist08, @propset $tmp/exit1=str:/eeerole#/27: {with:cmdstring08, @propset $tmp/exit1=str:/eeerole#/28: \{&command08\}command:\{&subcommand08\}\,\{&arglist08\}, @propset $tmp/exit1=str:/eeerole#/29: {eval:\{{eval:{&cmdstring08}}\}} @propset $tmp/exit1=str:/eeerole#/3:} @propset $tmp/exit1=str:/eeerole#/30: } @propset $tmp/exit1=str:/eeerole#/31:} @propset $tmp/exit1=str:/eeerole#/32:{func:parseinvoke, @propset $tmp/exit1=str:/eeerole#/33: {invoke:{&cmd},{getsubcommand:{&arg}},{getarglist:{&arg}}} @propset $tmp/exit1=str:/eeerole#/34:} @propset $tmp/exit1=str:/eeerole#/35:{func:rolecommand,subcommand21,arglist21, @propset $tmp/exit1=str:/eeerole#/36: {if:{eq:{&subcommand21},default}, @propset $tmp/exit1=str:/eeerole#/37: {with:flag21,{sublist:{&arglist21},1,1}, @propset $tmp/exit1=str:/eeerole#/38: {if:{gt:{isvalid:{&flag21},role},0}, @propset $tmp/exit1=str:/eeerole#/39: {setrole:{sublist:{list:/display/role,#144225},{isvalid:{&flag21},role},{isvalid:{&flag21},role}},me}EEE ROLE: Your role is now '{getrole:me}', @propset $tmp/exit1=str:/eeerole#/4:{func:setrole,value02,playerref02, @propset $tmp/exit1=str:/eeerole#/40: EEE ROLE: {&flag21} is not a valid flag. @propset $tmp/exit1=str:/eeerole#/41: } @propset $tmp/exit1=str:/eeerole#/42: }, @propset $tmp/exit1=str:/eeerole#/43: {if:{eq:{&subcommand21},#clear}, @propset $tmp/exit1=str:/eeerole#/44: {setrole:,me}+FLAG: Status flag cleared., @propset $tmp/exit1=str:/eeerole#/45: {if:{eq:{&subcommand21},#help}, @propset $tmp/exit1=str:/eeerole#/46: {help:role}, @propset $tmp/exit1=str:/eeerole#/47: EEEROLE : Unknown command. Use '+flag #help' for usage information. @propset $tmp/exit1=str:/eeerole#/48: } @propset $tmp/exit1=str:/eeerole#/49: } @propset $tmp/exit1=str:/eeerole#/5: {null:{store:{&value02},/storage/{name:{&playerref02}},#144225}} @propset $tmp/exit1=str:/eeerole#/50: } @propset $tmp/exit1=str:/eeerole#/51:} @propset $tmp/exit1=str:/eeerole#/6:} @propset $tmp/exit1=str:/eeerole#/7:{func:help,command09, @propset $tmp/exit1=str:/eeerole#/8: {left:-- EEE ROLE: #help ,79,-}{nl} @propset $tmp/exit1=str:/eeerole#/9: {list:/docs/{&command09},#144225}