34 lines
641 B
Plaintext
34 lines
641 B
Plaintext
dim statnames$(6)
|
|
data "STR", "CON", "DEX", "INT", "WIS", "CHA"
|
|
for i = 1 to 6
|
|
read statnames$(i)
|
|
next i
|
|
dim stat(6)
|
|
acceptable = false
|
|
|
|
while 1
|
|
sum = 0 : n15 = 0
|
|
for i = 1 to 6
|
|
stat(i) = rollstat()
|
|
sum = sum + stat(i)
|
|
if stat(i) >= 15 then n15 = n15 + 1
|
|
next i
|
|
if sum >= 75 and n15 >= 2 then exit while
|
|
wend
|
|
|
|
for i = 1 to 6
|
|
print statnames$(i); ": "; stat(i)
|
|
next i
|
|
print "-------"
|
|
print "TOT: "; sum
|
|
end
|
|
|
|
function d6()
|
|
d6 = 1 + int(rnd(1) * 6)
|
|
end function
|
|
|
|
function rollstat()
|
|
a = d6() : b = d6() : c = d6() : d = d6()
|
|
rollstat = a + b + c + d - min(min(a, b), min(c, d))
|
|
end function
|