### Thursday, August 25, 2011

## Calculator Program (commentary forthcoming)

For those of you curious about my 4e table helper (read: no one), I was super bored and decided to transcribe my program.

:7→L

:6→C

:3→E

:2→P

:2→X

:L+C+E+P+X→A

:

:randInt(3,10)→W

:

:randInt(3,10)+randInt(3,10)→Y

:2→F

:5→I

:3→T

:F+E+T+C→D

:

:randInt(1,6)+randInt(1,6)+randInt(1,6)→R

:

:Menu("TYPE","AT-WILL",1,"ENC/DAILY",2,"INIT",3

:

:Lbl 1

:Menu("AT-WILLS","IRON FIST",4,"CHARGE",5,"MBA",6

:

:Lbl 2

:Menu("E/D","RUSH/SMASH",7,"SHIELD EDGE",8,"HARMONY",9

:

:Lbl 3

:ClrHome

:

:Disp randInt(1,20)+2+L

:

:Lbl 4

:ClrHome

:

:Disp randInt(1,20)+A,W+D,10+D+R

:Output(1,1,"HIT (CRIT )"

:Output(2,1,"DAMAGE"

:Output(3,1,"CRIT"

:Output(1,11,20+A)

:Stop

:

:Lbl 5

:ClrHome

:

:Disp randInt(1,20)+1+A,W+3+E+F,13+E+F+R

:Output(1,1,"HIT (CRIT )"

:Output(2,1,"DAMAGE"

:Output(3,1,"CRIT"

:Output(1,11,21+A)

:Stop

:

:Lbl 6

:ClrHome

:

:Disp randInt(1,20)+A,W+3+E+F,13+E+F+R

:Output(1,1,"HIT (CRIT )"

:Output(2,1,"DAMAGE"

:Output(3,1,"CRIT"

:Output(1,11,20+A)

:Stop

:

:Lbl 7

:ClrHome

:

:Disp randInt(1,20)+A,Y+D,20+D+R

:Output(1,1,"HIT (CRIT )"

:Output(2,1,"DAMAGE"

:Output(3,1,"CRIT"

:Output(1,11,20+A)

:Stop

:

:Lbl 8

:ClrHome

:Disp randInt(1,20)+14,randInt(1,6)+randInt(1,6)+3,12+3

:Output(1,1,"VS FORT (34)"

:Output(2,1,"DAMAGE"

:Output(3,1,"CRIT"

:Stop

:7→L

:6→C

:3→E

:2→P

:2→X

:L+C+E+P+X→A

:

:randInt(3,10)→W

:

:randInt(3,10)+randInt(3,10)→Y

:2→F

:5→I

:3→T

:F+E+T+C→D

:

:randInt(1,6)+randInt(1,6)+randInt(1,6)→R

:

:Menu("TYPE","AT-WILL",1,"ENC/DAILY",2,"INIT",3

:

:Lbl 1

:Menu("AT-WILLS","IRON FIST",4,"CHARGE",5,"MBA",6

:

:Lbl 2

:Menu("E/D","RUSH/SMASH",7,"SHIELD EDGE",8,"HARMONY",9

:

:Lbl 3

:ClrHome

:

:Disp randInt(1,20)+2+L

:

:Lbl 4

:ClrHome

:

:Disp randInt(1,20)+A,W+D,10+D+R

:Output(1,1,"HIT (CRIT )"

:Output(2,1,"DAMAGE"

:Output(3,1,"CRIT"

:Output(1,11,20+A)

:Stop

:

:Lbl 5

:ClrHome

:

:Disp randInt(1,20)+1+A,W+3+E+F,13+E+F+R

:Output(1,1,"HIT (CRIT )"

:Output(2,1,"DAMAGE"

:Output(3,1,"CRIT"

:Output(1,11,21+A)

:Stop

:

:Lbl 6

:ClrHome

:

:Disp randInt(1,20)+A,W+3+E+F,13+E+F+R

:Output(1,1,"HIT (CRIT )"

:Output(2,1,"DAMAGE"

:Output(3,1,"CRIT"

:Output(1,11,20+A)

:Stop

:

:Lbl 7

:ClrHome

:

:Disp randInt(1,20)+A,Y+D,20+D+R

:Output(1,1,"HIT (CRIT )"

:Output(2,1,"DAMAGE"

:Output(3,1,"CRIT"

:Output(1,11,20+A)

:Stop

:

:Lbl 8

:ClrHome

:Disp randInt(1,20)+14,randInt(1,6)+randInt(1,6)+3,12+3

:Output(1,1,"VS FORT (34)"

:Output(2,1,"DAMAGE"

:Output(3,1,"CRIT"

:Stop