@create census
&players census = search(etype=hasattr(##, approved))
&categories census = race gender
&update census =
iter(
v(categories),
[setq(0, get(%0/itext())][ifelse(hasattr(me, [%q0]-count), set(me, [%q0]-count:[inc(v([%q0]-count))]), set(me, [%q0]-count:1))])
&run census = map(me/update, u(players))
@create census
&players census = search(eplayer=hasattr(##, approved))
&categories census = race gender
&update census =
iter(
v(categories),
[setq(0, get(%0/itext())]
[ifelse(hasattr(me, [%q0]-count), set(me, [%q0]-count:[inc(v([%q0]-count))]), set(me, [%q0]-count:1))])
&run census = map(me/update, u(players))
vampire:………….10 werewolf:…………12 ghost:……………4
mortal:…………..30 mage:…………….12 changeling:……….3
demon:……………5 kindred:………….2 rubber-ducky:……..45