Re: Dice roller for TI-85
[Prev][Next][Index][Thread]
Re: Dice roller for TI-85
Here's an elaborate one I made that shows them being rolled:
Good Luck.
\START\
\COMMENT=Rolls 2 3-D dice
\NAME=DICE
\FILE=DICE.85P
ClDrw
0\->\A:\(-)\.8\->\Z
Lbl A
1+iPart (rand*6)\->\X
Line(Z-3,1,Z-3,\(-)\1
Line(Z-3,\(-)\1,Z-.5,\(-)\1
Line(Z-.5,\(-)\1,Z-.5,1
Line(Z-.5,1,Z-3,1
Line(Z-.5,1,.5+Z,2
Line(Z-3,1,Z-2,2
Line(Z-2,2,.5+Z,2
Line(Z-.5,\(-)\1,.5+Z,0
Line(.5+Z,2,.5+Z,0
If X==1 or X==3 or X==5
Then
Z-1.9\->\x:\(-)\.1\->\y
Line(x,y,x+.2,y:Line(x,y+.1,x+.2,y+.1:Line(x,y+.2,x+.2,y+.2
End
If X>1
Then
\(-)\2.7+Z\->\x:.5\->\y
Line(x,y,x+.2,y:Line(x,y+.1,x+.2,y+.1:Line(x,y+.2,x+.2,y+.2
\(-)\1+Z\->\x:\(-)\.7\->\y
Line(x,y,x+.2,y:Line(x,y+.1,x+.2,y+.1:Line(x,y+.2,x+.2,y+.2
End
If X>3
Then
\(-)\1+Z\->\x:.5\->\y
Line(x,y,x+.2,y:Line(x,y+.1,x+.2,y+.1:Line(x,y+.2,x+.2,y+.2
\(-)\2.7+Z\->\x:\(-)\.7\->\y
Line(x,y,x+.2,y:Line(x,y+.1,x+.2,y+.1:Line(x,y+.2,x+.2,y+.2
End
If X==6
Then
\(-)\2.7+Z\->\x:\(-)\.1\->\y
Line(x,y,x+.2,y:Line(x,y+.1,x+.2,y+.1:Line(x,y+.2,x+.2,y+.2
\(-)\1+Z\->\x:\(-)\.1\->\y
Line(x,y,x+.2,y:Line(x,y+.1,x+.2,y+.1:Line(x,y+.2,x+.2,y+.2
End
If Z==\(-)\.8
Then
X\->\D2
3\->\Z
Goto A
End
End
X\->\D1
Pause
\STOP\
--
---------------------------------------------------------------
Roger Wolfson
Sawnose Software
http://home.earthlink.net/~rogerw7979
e-mail:Rogerw7979@earthlink.net
--------------------------------------------------------------
Cyber Wolf vr. 666 <ccjohnso@nidlink.com> wrote in article
<01bc753f$58b55700$8ddcdbcd@ccjohnso>...
> I'm looking for a random dice roller for the TI-85 preferably in a .txt
> version that I can input into the calculator myself. If anyone has one
or
> knows of a webstite that does please e-mail the info to me at
> ccjohnso@nidlink.com. Thank you.
>
>
> --
> Chris Johnson,
> The Cyber Wolf ver. 666
> http://selkirk.nidc.edu/~joc62953/
>
References: