What if I change all the V's into an other variable, like X?

Would that work? ]]>

` ``P(P=1)+(P-3)(P=2)->[A](L2(iPart(V)),iPart(V //you don't need the end parentheses here`

It happens when you put two pieces on top of each other.

It says: Error Invalid Dimension. Check 1<dim(list)<999. To set PlotsOff: 2nd STAT PLOT; PlotsOff. Check 1<dim(matrix)<99. Check inverse of square matrix only.

I've already turned the plots off, how can I fix this?

Thank you! ]]>

V+L2(V->B

yes I am using the L2 from [2ND]STAT (LIST)

Edit: Fixed it! it waas supposed to be (V{STO}B, not (V{Minus Greater than}B

I guess that was a slight error in the code I was copying. really fun game though!

The line

seq([A](1,B-I),I,(B<=7)(B-1)+6(B>=8),(B<=7)+(B>=8)(B-7),-1->L1

should be

seq([A](I,B-I),I,(B<=7)(B-1)+6(B>=8),(B<=7)+(B>=8)(B-7),-1->L1

where the first 1 should be I

]]>Edit: NVM! I fixed all of the mistakes that I made!

It works perfectly now! ]]>

` ``DelVar [A]:{6,7->dim([A] //sets [A] to 6x7 all 0's Disp " Disp "+-+-+-+-+-+-+-+ For(A,1,5 Disp "] End Output(8,1,"] For(A,3,8 Output(A,15,"[ End For(A,1,8 Output(A,16,sub("PLAYER_ _",A,1 End 0->theta 2->P {6,6,6,6,6,6,6->L2:0->theta For(Z,1,42 If theta Goto 1 (P=1)2+(P=2)->P Output(8,16,P 2->V Repeat K=105 and L2(V/2 Output(1,V,"v Repeat K getKey->K End Output(1,V,"_ V+2(K=26 and V<=12)-2(K=24 and V>=4)->V End V/2->V P(P=1)+(P-3)(P=2)->[A](L2(V),V) If P=1 Output(2+L2(V),2V,"0 If P=2 Output(2+L2(V),2V,"O 0->theta If L2(V)<=3 Then For(A,7,5,~1 cumSum(seq([A](A-I,V),I,1,4 If Ans(4)=4 1->theta If Ans(4)=~4 ~1->theta End End For(A,0,3 cumSum(seq([A](L2(V),A+I),I,1,4 If Ans(4)=4 1->theta If Ans(4)=~4 ~1->theta End V+L2(V->B If B>=5 and B<=10 Then seq([A](1,B-I),I,(B<=7)(B-1)+6(B>=8),(B<=7)+(B>=8)(B-7),~1->L1 For(A,1,dim(L1)-3 cumSum(seq(L1(M),M,A,A+3 If Ans(4)=4 1->theta If Ans(4)=~4 ~1->theta End End L2(V)-V->B If B<=2 and B>=~3 Then seq([A](I,I-B),I,(B<=~1)+(B+1)(B>=0),6(B>=0)+(B+7)(B<=~1)->L1 For(A,1,dim(L1)-3 cumSum(seq(L1(M),M,A,A+3 If Ans(4)=4 1->theta If Ans(4)=~4 ~1->theta End End L2(V)-1->L2(V End Lbl 1 ClrHome "PLAYER_ If theta=1 Ans+"1 If theta=~1 Ans+"2 Ans+" WINS! If Z=42 "CAT GOT THE GAME Ans`

For reference (as I posted earlier in this thread):

- "~" means negative so you won't be confused with "-" (which is minus)
- Anything after the double-slash (and the double slash itself) should not be typed
- An underscore "_" represents a space
- theta should be typed as θ

- "~" means negative so you won't be confused with "-" (which is minus)
- Anything after the double-slash (and the double slash itself) should not be typed
- An underscore "_" represents a space
- theta should be typed as θ

` ``DelVar [A]:{6,7->dim([A] //sets [A] to 6x7 all 0's Disp " Disp "+-+-+-+-+-+-+-+ For(A,1,5 Disp "] End Output(8,1,"] For(A,3,8 Output(A,15,"[ End For(A,1,8 Output(A,16,sub("PLAYER_ _",A,1 End 0->theta 2->P {6,6,6,6,6,6,6->L2:0->theta For(Z,1,42 If theta Goto 1 (P=1)2+(P=2)->P Output(8,16,P 2->V Repeat K=105 and L2(V/2 Output(1,V,"v Repeat K getKey->K End Output(1,V,"_ V+2(K=26 and V<=12)-2(K=24 and V>=4)->V End V/2->V P(P=1)+(P-3)(P=2)->[A](L2(V),V) If P=1 Output(2+L2(V),2V,"0 If P=2 Output(2+L2(V),2V,"O 0->theta If L2(V)<=3 Then For(A,7,5,~1 cumSum(seq([A](A-I,V),I,1,4 If Ans(4)=4 1->theta If Ans(4)=~4 ~1->theta End End For(A,0,3 cumSum(seq([A](L2(V),A+I),I,1,4 If Ans(4)=4 1->theta If Ans(4)=~4 ~1->theta End V+L2(V->B If B>=5 and B<=10 Then seq([A](1,B-I),I,(B<=7)(B-1)+6(B>=8),(B<=7)+(B>=8)(B-7),~1->L1 For(A,1,dim(L1)-3 cumSum(seq(L1(M),M,A,A+3 If Ans(4)=4 1->theta If Ans(4)=~4 ~1->theta End End L2(V)-V->B If B<=2 and B>=~3 Then seq([A](I,I-B),I,(B<=~1)+(B+1)(B>=0),6(B>=0)+(B+7)(B<=~1)->L1 For(A,1,dim(L1)-3 cumSum(seq(L1(M),M,A,A+3 If Ans(4)=4 1->theta If Ans(4)=~4 ~1->theta End End L2(V)-1->L2(V End Lbl 1 ClrHome "PLAYER_ If theta=1 Ans+"1 If theta=~1 Ans+"2 Ans+" WINS! If Z=42 "CAT GOT THE GAME Ans`

` ``If Ans(4)=4 1->θ If Ans(4)=-4 -1->θ`

- Are you using Ans (not And like you typed)?
- Line 3 uses negative (not minus) 4
- The θ is a theta, typed by pressing [ALPHA]+[3]

:)

]]>The program doesn't seem to recognize any L-R upward diagonals, regardless of which token finishes it.

I wasn't sure if it was , so I tried playing as many L-R diagonals as I could, in as many different ways as possible.

{

[0 0 0 0 0 0 2],

[0 0 0 0 0 2 1],

[0 0 2 1 2 1 2],

[0 0 1 2 1 2 2],

[0 1 2 1 2 1 1],

[1 1 1 2 1 2 2]}

Sure enough, the only one of these 4's which the program recognized was the L-R downward diagonal starting at (3,3), which was the last play of the game. How could that be fixed?

]]>cumSum(seq([A](L2(V), A+I, I, 1, 4 ]]>

` ``Output(A,16,sub("PLAYER_ _",A,1`

That means that the below code wouldn't work, either. It was a typo. Right now, I have to transfer to the computer by typing by hand. I will edit all versions.

That means you don't need to use the old version.

]]>` ``[[0,0,0,0,0,0,0][0,0,0,0,0,0,0][0,0,0,0,0,0,0][0,0,0,0,0,0,0][0,0,0,0,0,0,0][0,0,0,0,0,0,0]]->[A] //sets [A] to 6x7 all 0's Disp" Disp"+-+-+-+-+-+-+-+ For(A,1,5 Disp"] End Output(8,1,"] For(A,3,8 Output(A,15,"[ End For(A,1,8 Output(A,16,sub("PLAYER_ _",A,1 //"_" is a space End 0->θ 2->P {6,6,6,6,6,6,6->L2:0->θ For(Z,1,42 If θ Goto 1 (P=1)2+(P=2)->P Output(8,16,P 2->V:0->K Repeat K=105 and L2(V/2)≠0 0->K Output(1,V,"v Repeat K getKey->K End Output(1,V,"_ V+2(K=26 and V<=12)-2(K=24 and V>=4)->V End V/2->V P(P=1)+(P-3)(P=2)->[A](L2(V),V) If P=1 Output(2+L2(V),2V,"0 //zero If P=2 Output(2+L2(V),2V,"O //letter O 0->θ If L2(V)<=3 Then For(A,7,5,-1 seq([A](A-I,V),I,1,4 cumSum(Ans If Ans(4)=4 1->θ If Ans(4)=-4 -1->θ End End For(A,0,3 seq([A](L2(V),A+I),I,1,4 cumSum(Ans If Ans(4)=4 1->θ If Ans(4)=-4 -1->θ End V+L2(V->B If B>=5 and B<=10 Then seq([A](1,B-I),I,(B<=7)(B-1)+6(B>=8),(B<=7)+(B>=8)(B-7),-1->L1 For(A,1,dim(L1)-3 seq(L1(M),M,A,A+3 cumSum(Ans If Ans(4)=4 1->θ If Ans(4)=-4 -1->θ End End L2(V)-V->B If B<=2 and B>=-3 Then seq([A](I,I-B),I,(B<=-1)+(B+1)(B>=0),6(B>=0)+(B+7)(B<=-1)->L1 For(A,1,dim(L1)-3 seq(L1(M),M,A,A+3 cumSum(Ans If Ans(4)=4 1->θ If Ans(4)=-$ -1->θ End End L2(V)-1->L2(V End Lbl 1 ClrHome If θ=1 Disp"PLAYER 1 WINS! If θ=-1 Disp"PLAYER 2 WINS! If Z=42 Disp"CAT GOT THE GAME`

Try looking at the bottom of the code post, next to my name, where it says "show more". Click that, then choose the earliest revision. Though not as short, It should work. Meanwhile, I'll see what's wrong with the current code, as I have time. sorry for the inconvenience. ]]>

Output(A,16,sub("PLAYER_",A,1 ]]>

Let me know what you think of my game… :)

]]>If Ans(4)=-$ ]]>

` ``2->V:0->K Repeat K=105 and L2(V/2)≠0 0->K Output(1,V,"v Repeat K getKey->K End ... End`

can be

` ``2->V Repeat K=105 and L2(V/2 Output(1,V,"v Repeat Ans getKey->K End ... End`

Suggestions and comments would be greatly appreciated. ]]>

Edit: Now I did it ]]>

` ``seq(L1(M),M,A,A+3 cumSum(Ans`

can be

` ``cumSum(seq(L1(M),M,A,A+3`

and

` ``If θ=1 Disp"PLAYER 1 WINS! If θ=-1 Disp"PLAYER 2 WINS! If Z=42 Disp"CAT GOT THE GAME`

to

` ``"PLAYER[1 space] If theta=1 Ans+"1 If theta=~1 Ans+"2 Ans+" WINS! If Z=42 "CAT GOT THE GAME Ans`

` ``DelVar [A]:{6,7->dim([A] //sets [A] to 6x7 all 0's Disp" Disp"+-+-+-+-+-+-+-+ For(A,1,5 Disp"] End Output(8,1,"] For(A,3,8 Output(A,15,"[ End For(A,1,8 Output(A,16,sub("PLAYER_ _",A,1 //"_" is a space End 0->θ 2->P {6,6,6,6,6,6,6->L2:0->θ For(Z,1,42 If θ Goto 1 (P=1)2+(P=2)->P Output(8,16,P 2->V Repeat K=105 and L2(V/2 Output(1,V,"v Repeat K getKey->K End Output(1,V,"_ V+2(K=26 and V<=12)-2(K=24 and V>=4)->V End V/2->V P(P=1)+(P-3)(P=2)->[A](L2(V),V) If P=1 Output(2+L2(V),2V,"0 //zero If P=2 Output(2+L2(V),2V,"O //letter O 0->θ If L2(V)<=3 Then For(A,7,5,-1 cumSum(seq([A](A-I,V),I,1,4 If Ans(4)=4 1->θ If Ans(4)=-4 -1->θ End End For(A,0,3 cumSum(seq([A](L2(V),A+I),I,1,4 If Ans(4)=4 1->θ If Ans(4)=-4 -1->θ End V+L2(V->B If B>=5 and B<=10 Then seq([A](1,B-I),I,(B<=7)(B-1)+6(B>=8),(B<=7)+(B>=8)(B-7),-1->L1 For(A,1,dim(L1)-3 cumSum(seq(L1(M),M,A,A+3 If Ans(4)=4 1->θ If Ans(4)=-4 -1->θ End End L2(V)-V->B If B<=2 and B>=-3 Then seq([A](I,I-B),I,(B<=-1)+(B+1)(B>=0),6(B>=0)+(B+7)(B<=-1)->L1 For(A,1,dim(L1)-3 cumSum(seq(L1(M),M,A,A+3 If Ans(4)=4 1->θ If Ans(4)=-4 -1->θ End End L2(V)-1->L2(V End Lbl 1 ClrHome "PLAYER_ If θ=1 Ans+"1 If θ=~1 Ans+"2 Ans+" WINS! If Z=42 "CAT GOT THE GAME Ans`