RPG attributes generator: Difference between revisions

Content added Content deleted
(→‎{{header|Commodore BASIC}}: use temp var for sort)
(→‎{{header|Commodore BASIC}}: Don't need to fully sort the dice, just put the smallest one last)
Line 1,245: Line 1,245:
430 print:print "Excellent. Good luck on your adventure!"
430 print:print "Excellent. Good luck on your adventure!"
440 end
440 end
450 rem sort dice
450 rem "sort" dice - really just put smallest one last
460 for x=0 to 2:for y=x+1 to 3
460 for x=0 to 2
470 if di(x)<di(y) then t=di(x):di(x)=di(y):di(y)=t
470 if di(x)<di(x+1) then t=di(x):di(x)=di(x+1):di(x+1)=t
480 next y,x
480 next y,x
490 return</lang>
490 return</lang>