RPG attributes generator: Difference between revisions

Content added Content deleted

Inline

@@ Line 1,212: / Line 1,212: @@
 Except for screen control codes, this is generic enough it could be used for many other 8-bit interpreted BASICs as well. (Applesoft, ZX Spectrum, etc.). Should work on all Commodore models. (Adjustment for screen width may be necessary on VIC-20.)
-<lang gwbasic>
+<lang gwbasic>100 rem rpg character roller
+rem rosetta code - commodore basic
-rem rpg character roller
+dim di(3):rem dice
-rem rosetta code - commodore basic
-dim di(4):rem dice
+dim at(5),at$(5):rem attributes as follows:
+at$(0)="Strength"
-dim at(6),at$(6):rem attributes as follows:
-at$(1)="Strength"
+at$(1)="Dexterity"
-at$(2)="Dexterity"
+at$(2)="Constitution"
-at$(3)="Constitution"
+at$(3)="Intelligence"
-at$(4)="Intelligence"
+at$(4)="Wisdom"
-at$(5)="Wisdom"
+at$(5)="Charisma"
+pt=0:sa=0:rem points total and number of strong attributes (15+)
-at$(6)="Charisma"
+print chr$(147);chr$(14);chr$(29);chr$(17);"Rolling..."
-pt=0:sa=0:rem points total and number of strong attributes (15+)
+for ai=0 to 5:rem attribute index
-print chr$(147);chr$(14);"{right}{down}Rolling..."
-for ai=1 to 6:rem attribute index
+for i=0 to 3:di(i)=int(rnd(.)*6)+1:next i
+gosub 450
-for i=1 to 4:di(i)=int(rnd(1)*6)+1:next i
+dt=0:rem dice total
-gosub 2000
+for i=0 to 2:dt=dt+di(i):next i:rem take top 3
-ds=0:rem dice sum
+at(ai)=dt:pt=pt+dt
-for i=1 to 3:ds=ds+di(i):next i:rem take top 3
+if dt>=15 then sa=sa+1
-at(ai)=ds:pt=pt+ds
+next ai
-if ds>=15 then sa=sa+1
+if pt<75 or sa<2 then goto 200
-next ai
+print chr$(147);"Character Attributes:"
-if pt<75 or sa<2 then goto 140
+print
-print chr$(147);"Character Attributes:"
+for ai=0 to 5
-print
+print spc(13-len(at$(ai)));at$(ai);":";tab(14);at(ai)
-for ai=1 to 6
+next ai
-print spc(13-len(at$(ai)));at$(ai);":";tab(14);at(ai)
+print
-next ai
+print "        Total:";tab(14);pt
-print
+print
-print "        Total:";tab(14);pt
-print
+print "Do you accept? ";
+get k$:if k$<>"y" and k$<>"n" then 400
-print "Do you accept? ";
+print k$
-get k$:if k$<>"y" and k$<>"n" then 240
+if k$="n" then goto 200
-print k$
+print:print "Excellent. Good luck on your adventure!"
-if k$="n" then goto 140
+end
-print:print "Excellent. Good luck on your adventure!"
+rem sort dice
-end
+for x=0 to 2:for y=x+1 to 3
+if di(x)<di(y) then di(0)=di(x):di(x)=di(y):di(y)=di(0)
-rem sort dice
+next y,x
-for x=1 to 3:for y=x+1 to 4
+return</lang>
-if di(x)<di(y) then di(0)=di(x):di(x)=di(y):di(y)=di(0)
-next y,x
-return
-</lang>
 {{out}}