#540

&cmd`join #540=+wjoin:@nspemit %#=[u(dat`prefix)]You have joined the 'Wits and Wagers'. If there a round in progress, you'll have to wait for the next round to bid and place an answer. ; @nsoemit %#=[u(dat`prefix)]%N has joined the game. ; &dat`players %VC=[inc(0[xget(%VC,dat`players)])]

&cmd`start #540=+wstart:@remit %L=Welcome to Wits and Wagers! A Mu*tulaized board game for M*U*S*H! If you're unsure how to play, please take a moment to read '+wRules'. Get Ready for your first question in… ; @trigger %VC/start-pageantry




&start-pageantry #540=@remit %L=%R3…%R ; @wait 1=@remit %L=%R2…%R ; @wait 2=@remit %L=%R1…%R ; @wait 3=@trigger %VC/loop`question




&dat`prefix #540=Wits and Wagers:%B


&vc #540=#540
&vd #540=#623

&loop`question #540=[setq(number,remove(rand(lnum(xget(%Vd,total))),[xget(%Vc,dat`asked)]))][attrib_set(%VC/dat`asked,%Q<number>%B[xget(%VC/dat`asked)])][setq(length,strlen([before(xget(%VD,q`%Q<number>),:)]))] ; @include #540/loop`question2

&loop`question2 #540=\[Wits\] and \[Wagers\][repeat(sub(%Q<length>,10),_)]%RQuestion: [before(xget(%VD,q`%Q<number>),:)]%R[repeat(add(9,%Q<length>),-)][attrib_set(%VC/dat`answer,[after(xget(%VD`q%Q<number>),:)]Submit Your Answers! '+wsubmit *'

&cmd`submit #540=$+wsubmit *:@assert isint(%0)=@nspemit %#=[xget(%VC,dat`prefix)]Please use an integer. ; {@nspemit [xget(%VC,dat`prefix)]You have submitted your answer, '%0'. You can change it, until the end of the [xget(%VC,dat`grace)] seconds grace period after the last player submits their answer. ; @include #540/loop`submit2}


&loop`submit2 #540=&dat`submit %VC=[if(element(xget(%VC,dat`submit),*%#,%B),replace(xget(%VC,dat`submit),element(xget(%VC,dat`submit),*%#,%B),%0:%#,%B),[xget(%VC,dat`submit)]%B%0:%#)] ; @break eq(items(xget(%VC,dat`submit),%B),xget(%VC,dat`players))={@remit %L=[xget(%VC,dat`prefix)]All Players have submitted their answers. The [xget(%VC,dat`grace)] seconds grace period begins. ; @wait xget(%VC,dat`grace)=@trigger %VC/loop`show.table}

&dat`grace #540=60

&loop`show.table #540=

@break eq(items([setr(0,unique([setr(1,sort(xget(%VC,dat`submit),n,%B))],n))],%B),xget(dat`players))=[step(#540/loop`show.table2, >Least#:Default [unique(sort(xget(%VC,dat`submit),n,%B),n)],5,%B,%r)] ;

iter(setdiff(%Q0,%Q1,%B,n),element(%Q0,[before(%i0,:)]*,%B)

More then 2 Players may have the same answer, how do you display that


&ufun`card #540=[switch(%0,*Default,Default,left(name(before(%0,:)),8))]%R%R[after(%0,:)]

&ufun`main.row #540=[step(#540/loop`show.table2, >Least#:Default [unique(sort(xget(%VC,dat`submit),n,%B),n)],5,%B,%r)]

&loop`show.table2 #540=[align(3 -10 3,,+-----+%R[u(fun`card,%0)]%R+-----+,,+)][align(3 -10 3,,

&dat`pay.out #540=2|3 3|3 2 3|4 3 3 4|4 3 2 3 4|5 4 3 3 4 5|5 4 3 2 3 4 5|6 5 4 3 3 4 5 6|6 5 4 3 2 3 4 5 6|7 6 5 4 3 3 3 4 5 6|7 6 5 4 3 2 3 4 5 6 7|8 7 6 5 4 3 3 4 5 6 7 8|8 7 6 5 4 3 2 3 4 5 6 7 8|9 8 7 6 5 4 3 3 4 5 6 7 8 9|9 8 7 6 5 4 3 2 3 4 5 6 7 8 9|10 9 8 7 6 5 4 3 3 4 5 6 6 7 8 9 10|10 9 8 7 6 5 4 3 2 3 4 5 6 7 8 9 10 10|11 10 9 8 7 6 5 4 3 3 4 5 6 7 8 9 10 11|11 10 9 8 7 6 5 4 3 2 3 4 5 6 7 8 9 10 11|12 11 10 9 8 7 6 5 4 3 3 4 5 6 7 8 9 10 11



+----------+
+   Na me  +
+          +
+     23   +
+----------+
+  Pays    +
+  2 to 1  +

ceil(fdiv(XXXX,2))

if(mod(xget(%VC,dat`players),2),positive,negative)

question database
&total #623=63
&qu`1 #623=
question:answer