Tic Tac toe

Forum Attachments

Summary:

Help me trouble shoot the program

Tic Tac toe

Magikarpgm 21 Aug 2019 14:19

So I wrote out this code I found and it didn't seem to work you could only do select positions and it will win on the first one

http://tibasicdev.wikidot.com/tic-tac-to

Re: Tic Tac toe

Magikarpgm 22 Aug 2019 13:47

I got the code now I don't know if it will show up in the format that codes normally writen in.

:0→A:0identity(3→[A]
:1-2int(2rand→B
:"+++
:ClrHome
:Disp Ans,Ans,Ans
:Repeat 0
:Repeat Ans
:.1getKey→K
:End
:If 2Ans=9:Goto Q
:iPart(Ans)-6→C
:10fPart(K)-1
:If max(2≤abs({C,Ans}-2:End
:If [A](C,Ans:End
:Output(C,Ans,sub("X O",B+2,1
:B→[A](C,Ans
:For(C,0,1
:[A]T→[A]
:For(D,1,3
:Matr►list([A],D,T
:If min(∟T=B:Goto Q
:End
:If min(B=seq([A](abs(4C-X),X),X,1,3
:Goto Q
:End
:-B→B:IS>(A,9
:End
:Lbl Q
:"TIE!
:If A≠9
:sub("X O",B+2,1)+" WINS!
:If 2K≠9
:Pause Ans
:ClrHome:"

Re: Tic Tac toe

Magikarpgm 22 Aug 2019 13:49

also, what do I do to get the code into the white background?

Re: Tic Tac toe

(account deleted) 22 Aug 2019 16:58

Use the [code] button when you are typing posts

[[code]]
:0→A:0identity(3→[A]
:1-2int(2rand→B
:"+++
:ClrHome
:Disp Ans,Ans,Ans
:Repeat 0
:Repeat Ans
:.1getKey→K
:End
:If 2Ans=9:Goto Q
:iPart(Ans)-6→C
:10fPart(K)-1
:If max(2≤abs({C,Ans}-2:End
:If [A](C,Ans:End
:Output(C,Ans,sub("X O",B+2,1
:B→[A](C,Ans
:For(C,0,1
:[A]T→[A]
:For(D,1,3
:Matr►list([A],D,T
:If min(∟T=B:Goto Q
:End
:If min(B=seq([A](abs(4C-X),X),X,1,3
:Goto Q
:End
:-B→B:IS>(A,9
:End
:Lbl Q
:"TIE!
:If A≠9
:sub("X O",B+2,1)+" WINS!
:If 2K≠9
:Pause Ans
:ClrHome:"

[[/code]]

---

Hewwo, my name is Achak Claw. I was formerly BioHazard.

Re: Tic Tac toe

Magikarpgm 23 Aug 2019 12:04

alright, thanks.