JWI Role

From Tapestries MUCK

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}