Viewing paste dice
made on Sun, 23 Jun 2013 22:41:01 -0400
Sane-itized version, click to copy:
&dice #4965=%r[null([setq(1,rand(1,6))][setq(2,rand(1,6))][setq(3,rand(1,6))][setq(4,rand(1,6))][setq(a,[rest(sort(%q1 %q2 %q3 %q4,n,%b))])][setq(t,0)][iter(%qa,[setq(t,[add(%qt,##)])],)][set(me,rolled_d6x4:%qt)][fbcreate(FB1,72,4)][fbwrite(FB1,0,0,[u(d6rcol,u(d6_%q1))])][fbwrite(FB1,9,0,[u(d6rcol,u(d6_%q2))])][fbwrite(FB1,18,0,[u(d6rcol,u(d6_%q3))])][fbwrite(FB1,27,0,[u(d6rcol,u(d6_%q4))])])][fbdump(FB1)][null([fbdestroy(FB1)])]%rTossing out the lowest value, you rolled a %0 score of %qt.[set(me,outcome:%qt)]

Enter a target attribute, object reference and the mushcode.


%r
[null(
 [setq(1,rand(1,6))]
 [setq(2,rand(1,6))]
 [setq(3,rand(1,6))]
 [setq(4,rand(1,6))]
 [setq(a,[rest(sort(%q1 %q2 %q3 %q4,n,%b))])]
 [setq(t,0)]
 [iter(%qa,[setq(t,[add(%qt,##)])],)]
 [set(me,rolled_d6x4:%qt)]
 [fbcreate(FB1,72,4)]
 [fbwrite(FB1,0,0,[u(d6rcol,u(d6_%q1))])]
 [fbwrite(FB1,9,0,[u(d6rcol,u(d6_%q2))])]
 [fbwrite(FB1,18,0,[u(d6rcol,u(d6_%q3))])]
 [fbwrite(FB1,27,0,[u(d6rcol,u(d6_%q4))])]
)]
[fbdump(FB1)]
[null([fbdestroy(FB1)])]
%rTossing out the lowest value, you rolled a %0 score of %qt.[set(me,outcome:%qt)]

save as: imprettify (attempt to format for readibility):
Found this useful? Try MUSHcode Repeater
written by orcs.biz