Wheel Of Time Card Game Dice Rolling Program for TI83 Calculators

wot_ccg_dice_ti83.txt

\start83\
\comment=WOT CCG Dice Rolling Prog
\name=WOTDICE
\file=F:\WOTDICE.TXT
Lbl 0
ClrHome
0\->\Xmin
94\->\Xmax
1\->\Xscl
0\->\Ymin
94\->\Ymax
1\->\Yscl
0\->\P
Disp "ABILITIES"
Disp ""
If M=0
Input "POLLITICS: ", P
Input "INTREGUE: ", I
Input "ONE POWER: ", O
Input "COMBAT: ",C
{5,4}\->\dim([A])
Fill(0,[A])
For(R,1,I,1)
randInt(6,1)\->\R
If R=1
1+[A](2,4)\->\[A](2,4)
If R=2
1+[A](2,2)\->\[A](2,2)
If R=3
Then
1+[A](2,1)\->\[A](2,1)
1+[A](2,4)\->\[A](2,4)
End
If R=4
Then
1+[A](2,2)\->\[A](2,2)
1+[A](2,4)\->\[A](2,4)
End
If R=5
Then
1+[A](2,1)\->\[A](2,1)
1+[A](2,3)\->\[A](2,3)
End
If R=6
Then
1+[A](2,1)\->\[A](2,1)
1+[A](2,2)\->\[A](2,2)
End
End
DelVar I
For(R,1,C,1)
randInt(6,1)\->\R
If R=1
1+[A](4,1)\->\[A](4,1)
If R=2
1+[A](4,2)\->\[A](4,2)
If R=3
1+[A](4,3)\->\[A](4,3)
If R=4
1+[A](4,4)\->\[A](4,4)
If R=5
Then
1+[A](4,1)\->\[A](4,1)
1+[A](4,4)\->\[A](4,4)
End
If R=6
Then
1+[A](4,2)\->\[A](4,2)
1+[A](4,3)\->\[A](4,3)
End
End
DelVar C
For(R,1,O,1)
randInt(6,1)\->\R
If R=1
1+[A](3,1)\->\[A](3,1)
If R=2
1+[A](3,2)\->\[A](3,2)
If R=3
1+[A](3,3)\->\[A](3,3)
If R=4
1+[A](3,4)\->\[A](3,4)
If R=5
Then
1+[A](3,1)\->\[A](3,1)
1+[A](3,4)\->\[A](3,4)
End
If R=6
Then
1+[A](3,1)\->\[A](3,1)
1+[A](3,2)\->\[A](3,2)
End
End
DelVar O
For(R,1,P,1)
randInt(6,1)\->\R
If R=1
1+[A](1,1)\->\[A](1,1)
If R=2
1+[A](1,2)\->\[A](1,2)
If R=3
1+[A](1,4)\->\[A](1,4)
If R=4
Then
1+[A](1,1)\->\[A](1,1)
1+[A](1,2)\->\[A](1,2)
End
If R=5
Then
1+[A](1,2)\->\[A](1,2)
1+[A](1,4)\->\[A](1,4)
End
If R=6
Then
1+[A](1,1)\->\[A](1,1)
1+[A](1,4)\->\[A](1,4)
End
End
DelVar P
ClrDraw
For(R,1,3,1)
[A](1,J)+[A](2,J)+[A](3,J)+[A](4,J)\->\[A](5,J)
End
For(X,1,5,1)
For(Y,1,4,1)
If [A](X,Y)\!=\0
Text((X*8)+2,30+(Y*14),[A](X,Y))
End
End
DelVar X
DelVar Y
DelVar [A]
Text(1,7,"ROLLED")
Text(1,44,"S")
Text(1,58,"O")
Text(1,72,"D")
Text(1,86,"A")
Text(10,3,"POLLITICS")
Text(18,3,INTREGUE")
Text(26,3,"ONE POWER")
Text(34,7,"COMBAT")
Line(0,32,94,32)
Text(42,9,"TOTAL")
Line(0,20,94,20)
Line(0,84,94,84)
Line(0,20,0,94)
Line(38,20,38,94)
Line(52,20,52,94)
Line(66,20,66,94)
Line(80,20,80,94)
Line(94,20,94,94)
Line(94,94,0,94)
\stop83\