Characters
Curse of the Crimson Throne
Treasures
[H: output = "Rolls: "]
[H: bonusplus = 0]
[H: bonusminus = 0]
[H: bonustotal = 0]
[H: numodd = 0]
[H, FOR(cnt, 0, 6), CODE: {
[H:Roll1=1d6]
[H:Roll2=1d6]
[H:Roll3=1d6]
[H:Roll4=1d6]
[H:Lowest = min(Roll1,Roll2,Roll3,Roll4)]
[H:Total = Roll1 + Roll2 + Roll3 + Roll4 - Lowest]
[H, IF(mod(Total,2)==1): numodd = numodd + 1]
[H:Bonus = floor(Total / 2) -5 ]
[H, IF(Bonus > 0): bonusplus = bonusplus + bonus]
[H, IF(Bonus < 0): bonusminus = bonusminus + bonus]
[H:bonustotal = bonustotal + bonus]
[H: output = output + "<br />"]
[H: output = output + Roll1 + " + "]
[H: output = output + Roll2 + " + "]
[H: output = output + Roll3 + " + "]
[H: output = output + Roll4 + " -> <b>"]
[H: output = output + Total + "</b> ["]
[H, IF(Bonus > 0): output = output + "+"]
[H: output = output + Bonus + "]"]
}]
[H: output = output + " = <b>+"]
[H: output = output + bonusplus + "/"]
[H: output = output + bonusminus + " => "]
[H, IF(bonustotal > 0): output = output + "+"]
[H: output = output + bonustotal + "</b> ["]
[H: output = output + numodd + " udda]"]
[R: outputTo("all", output)]