- TI-84+CSE: Checkers
- 28 Mar 2013 07:54:27 am
- Last edited by tifreak8x on 28 Mar 2013 12:40:15 pm; edited 1 time in total
And so it begins I took about half an hour to make this all work, just to get a feel for where things needed to be. What I've got so far:
Code:
ClrDraw:AxesOff
GridOff
{2,4,5,6,6,7,7,7->L3
BackgroundOff
0->Xmin:0->Ymin:1->I
264->Xmax:164->Ymax
For(F,4,156,19
Line(7,F,167,F,1,12,1
End
For(F,7,167,20
Line(F,4,F,156,1,12,1
End
For(H,8,166,20
not(I->I
For(F,4,119,38
For(G,2,18
Line(H,F+G+19(I=1),H+18,F+G+19(I=1),2,11,2
End:End:End
For(H,8,166,20
not(I->I
For(F,23,138,38
For(G,2,18
Line(H,F+G-19(I=1),H+18,F+G-19(I=1),2,23,2
End:End:End
5->theta
TextColor(Blue
For(F,1,8
Text(~1,theta,175,sub("CHECKERS",F,1
theta+20->theta
End
2->theta
Text(~1,75,205,"BY:
For(F,1,12
Text(theta,254,sub("TI-FREAKWARE",F,1
theta+13->theta
End
I know it can be optimized, I'm going to try to combine the square coloring bits, if I can. Will probably go with the list set up once again for this, seems like it'd be the easiest for me.
Moving the coins around will be simple, just fill in the circle with the dark grey color, move in lists and variables, redraw. I haven't decided on a cursor yet. One thing at a time, I suppose.
Edit: Updated the code:
Code:
ClrDraw:AxesOff
GridOff
{2,4,5,6,6,7,7,7->L3
BackgroundOff
0->Xmin:0->Ymin:DelVar I
264->Xmax:164->Ymax
For(F,4,156,19
Line(7,F,167,F,1,12,1
End
For(F,7,167,20
Line(F,4,F,156,1,12,1
End
For(H,8,166,20
not(I->I
For(F,4,138,19
not(I->I
For(G,2,18,2
Line(H,F+G,H+18,F+G,1,11+12(I=1),2
End:End:End
5->theta
TextColor(Blue
For(F,1,8
Text(~1,theta,175,sub("CHECKERS",F,1
theta+20->theta
End
2->theta
Text(~1,75,205,"BY:
For(F,1,12
Text(theta,254,sub("TI-FREAKWARE",F,1
theta+13->theta
End
Now it's all in one loop and still looks like the screenshot.