:"YAT-C: Yet Another Tetris Clone" :" 12345678 :"16 ab :"15 c :"14 d :"13 :"Declare Variables :"C is the main loop variable, with a default value of 2 in order to keep the program from ending. :2->C :"A,D,I,N are my X values (when the calculator is held sideways. This is nice because output(y,X,) turns into output(x,y,) :4->A :5->D :5->I :5->N :"B,E,J,O are my Y values (sideways) :16->B :16->E :15->J :14->O :"This is my main loop :While C>1 ::ClrHome ::"This is where I output my blocks ::Output(A,B,"A") ::Output(D,E,"B") ::Output(I,J,"C") ::Output(N,O,"D") ::"I haven't worked on a ticking clock mechanism yet, so this is turn-based Tetris until further notice. ::"Also, I'm intending to change the 2,3 buttons to CLEAR and VARS. ::"We have three options here. We can turn clockwise, counter clockwise, or we can quit. ::Input "COUNTER=2ARS, CLOCK=3LEAR, QUIT=1",C ::"This is where we turn our Tetrinoes!" ::If C=2 :::Then :::D+1->D :::N-1->N :::B-1->B :::J+1->B :::O+2->O :::End ::If C=3 :::Then :::D-1->D :::N+1->N :::E-1->E :::O+1->O :::End ::ClrHome ::End
The problem with this is that if you keep turning the block, it goes in all sorts of directions. I'm pondering how to do this. I have an idea, but we'll see if it works.