Code: Select all
REM *******************************************************
REM A PROGRAM TO ROLL 12 SETS OF STATS AND LET YOU PICK ONE
REM BY JJARRELL
REM *******************************************************
REM SET THE ATTRIBUTE ARRAY
DIM a(7,13)
CLS
RANDOMIZE TIMER
REM LOOP TO ROLL EACH OF 6 ATTRIBUTES 12 TIMES
FOR o=1 TO 6
FOR i=1 TO 12
REM STORE A VALUE OF 3D6 IN EACH ATTRIBUTE
a(o,i)=RND(6)+RND(6)+RND(6)+3
NEXT
NEXT
REM PRINT THE RESULTS
PRINT "ROLL";AT$(6,0);"STR";AT$(10,0);"DEX";AT$(14,0);"CON";AT$(18,0);"INT";AT$(22,0);"WIS";AT$(26,0);"CHA";AT$(30,0);"TOTAL"
FOR i=1 TO 12
total=a(1,i)+a(2,i)+a(3,i)+a(4,i)+a(5,i)+a(6,i)
PRINT i;AT$(6,i);a(1,i);AT$(10,i);a(2,i);AT$(14,i);a(3,i);AT$(18,i);a(4,i);AT$(22,i);a(5,i);AT$(26,i);a(6,i);AT$(30,i);total
NEXT
PRINT
REM CHOOSE AND PRINT THE PICK
pick:
INPUT "WHICH ROLL DO YOU WANT TO KEEP";r
IF r<1 OR r>12 THEN
GOTO pick
ENDIF
PRINT
PRINT "STATS"
PRINT "STR: ";a(1,r)
PRINT "DEX: ";a(2,r)
PRINT "CON: ";a(3,r)
PRINT "INT: ";a(4,r)
PRINT "WIS: ";a(5,r)
PRINT "CHA: ";a(6,r)