# RQ Rolls
# William F. Hostman
# AKAramis
listvar=[[10,20],[30,40],[50,60],[80,90]]
print "Skills: \tNormal; \tCrits; \tHalved; \tHlvd Cr Pre;",
print "\tHlvd Crt Pst; \tDecrement; \tDec, crit pre; \tdec crit post. "
for lvar in listvar:
asi = lvar[0]
bsi = lvar[1]
aw = 0
bw = 0
awc = 0
bwc = 0
bwh = 0
awh = 0
bwhc = 0
awhc = 0
bwch = 0
awch = 0
awd = 0
bwd = 0
awcd = 0
bwcd = 0
awdc = 0
bwdc = 0
hm = 5
rt = 0
as = asi
am = 95
if asi >= 200:
am= 96
if asi >= 300:
am=97
if asi >= 400:
am=98
if asi >= 500:
am=99
if asi > 95:
as = am
ac = asi/10
if as < 5:
as = 5
bs = bsi
bm = 95
if asi >= 200:
am= 96
if bsi >= 300:
bm=97
if bsi >= 400:
bm=98
if bsi >= 500:
bm=99
bc = bsi/10
if bs < 5:
bs = 5
#halvings
ah = asi
bh = bsi
while (ah > 100) or (bh > 100):
ah = ah / 2
bh = bh / 2
hm = hm -1
if ah < hm:
ah = hm
if bh < hm:
bh = hm
if ah > am:
ah = am
if bh > bm:
bh = bm
ahc = ah/10
bhc = bh/10
# decrement
ad = asi
bd = bsi
while ad >100:
ad = ad -1
bd = bd -1
while bd > 100:
ad = ad -1
bd = bd -1
if ad < 5:
ad = 5
if bd < 5:
bd = 5
adc = ad /10
bdc = bd/10
if ad > am:
ad = am
if bd > bm:
bd = bm
for a in range(1,101):
for b in range(1,101):
# establish normal rolls
ar = 0
br = 0
if a <= as:
ar = a
else:
ar = as - a
if b <= bs:
br = b
else:
br = bs - b
# establish halving rolls
if a <= ah:
arh = a
else:
arh = ah - a
if b <= bh:
brh = b
else:
brh = bh - b
# establish decrement rolls
if a <= ad:
ard = a
else:
ard = ad - a
if b <= bd:
brd = b
else:
brd = bd - b
# establish crit rolls and crit before halving rolls
arc = ar
arch = arh
arcd = ard
brc = br
brch = brh
brcd = brd
if a <= ac:
arc = arc + 100
arch = arch +100
arcd = arcd + 100
if b <= bc:
brc = brc + 100
brch = brch+100
brcd = brcd + 100
# establish crit after halving rolls
arhc = arh
brhc = brh
ardc = ard
brdc = brd
if a <= ahc:
arhc = arhc +100
if b <= bhc:
brhc = brhc + 100
if a <= adc:
ardc = ardc +100
if b <= bdc:
brdc = brdc + 100
#check wins
# - normal
if ar > br:
aw = aw + 1
if br > ar:
bw = bw + 1
# - crit
if arc > brc:
awc = awc + 1
if brc > arc:
bwc = bwc + 1
# - Halved no crit
if arh > brh:
awh = awh + 1
if brh > arh:
bwh = bwh + 1
# - Crit on unmodified, halved skill
if arch > brch:
awch = awch + 1
if brch > arch:
bwch = bwch + 1
# - Crit on halved
if arhc > brhc:
awhc = awhc + 1
if brhc > arhc:
bwhc = bwhc + 1
# Decrement wins
if ard > brd:
awd = awd + 1
if brd > ard:
bwd = bwd + 1
# Decrement wins, crit pre
if arcd > brcd:
awcd = awcd + 1
if brcd > arcd:
bwcd = bwcd + 1
# Decrement wins, crit post
if ardc > brdc:
awdc = awdc + 1
if brd > ard:
bwdc = bwdc + 1
rt=rt+1
print
print "a",asi,"%: \t",aw,(1000*aw/rt)*0.1,"%; \t", awc,(1000*awc/rt)*0.1,"%; \t",
print awh,(1000*awh/rt)*0.1,"%; \t", awch,(1000*awch/rt)*0.1,"%; \t", awhc,(1000*awhc/rt)*0.1,"%; \t",
print awd,(1000*awd/rt)*0.1,"%; \t", awcd,(1000*awcd/rt)*0.1,"%; \t", awdc,(1000*awdc/rt)*0.1,"%"
print "b",bsi,"%: \t",bw,(1000*bw/rt)*0.1,"%; \t", bwc,(1000*bwc/rt)*0.1,"%; \t",
print bwh,(1000*bwh/rt)*0.1,"%; \t", bwch,(1000*bwch/rt)*0.1,"%; \t", bwhc,(1000*bwhc/rt)*0.1,"%; \t",
print bwd,(1000*bwd/rt)*0.1,"%; \t", bwcd,(1000*bwcd/rt)*0.1,"%; \t", bwdc,(1000*bwdc/rt)*0.1,"%"
