Pong CE / Discussion

We're glad you came by, but you might find what you're looking for elsewhere. TI-Basic Developer is not the site it once was. While its information on commands and other calculator features remains almost second-to-none, its forum, archives, and even hosting service, Wikidot, have been decaying for years. The calculator community would love to see what you're working on, or help you in your next coding adventure, but TI-Basic Developer is no longer the place to do it. Instead, you should head over to Cemetech (primarily American) or TI-Planet (primarily international). Both are active, well-established forums with their own archives, chatrooms, reference material, and abundant coding tools and resources. We'll see you there, we hope.

Forum Attachments

This is the discussion related to the wiki page Pong CE.

Written Code

Myles_Zadok 17 Aug 2017 00:31

Here is a working Pong for CE calculators (Note that this will NOT work on CSE calculators).

164→Ymax
0→Ymin
0→Xmin
264→Xmax
ClrDraw
CoordOff
GridOff
AxesOff
LabelOff
ExprOff
BorderColor 1
BackgroundOn WHITE
DetectAsymOff
Thick
10→P
12→Q
Lbl A
ClrDraw
Menu("     Select Game Mode     ","Versus",V,"Score",S,"Color",C,"Quit",Q
Lbl C
Menu("       Choose Color       ","BLUE",1,"RED",2,"YELLOW",3,"MAGENTA",4,"GREEN",5,"ORANGE",6,"BROWN",7,"NAVY",8,"LTBLUE",9
Lbl 1
10→P
Goto A
Lbl 2
11→P
Goto A
Lbl 3
19→P
Goto A
Lbl 4
13→P
Goto A
Lbl 5
14→P
Goto A
Lbl 6
15→P
Goto A
Lbl 7
16→P
Goto A
Lbl 8
17→P
Goto A
Lbl 9
18→P
Goto A
Lbl V
If P=19:Then
BackgroundOn MEDGRAY
20→Q
End
Horizontal 145,Q
Horizontal 15,Q
0→X
0→Y
TextColor(P
Text(3,10,"You:"
Text(3,60,X
TextColor(Q
Text(3,180,"CPU:"
Text(3,230,Y
30→A
40→B
Line(25,A,25,B,P)
80→I
95→J
Line(240,I,240,J,Q)
130→C
80→D
130→E
80→F
5→N
5→O
N→G
O→H
Pt-On(C,D,2,Q
DispGraph
Repeat X=8 or Y=8
getKey→K
If K=25 and B≠140
Then
Line(25,A,25,B,0)
A+10→A
B+10→B
Line(25,A,25,B,P)
DispGraph
Else
Line(25,A,25,B,P)
End
If K=34 and A≠20
Then
Line(25,A,25,B,0)
A-10→A
B-10→B
Line(25,A,25,B,P)
DispGraph
Else
Line(25,A,25,B,P)
End
If K=21
Then
Pause 
End
Pt-Off(C,D,2
C→E
C+G→C
D→F
D+H→D
Pt-On(C,D,2,Q
If D=140 and E>C
Then
Pt-Off(C,D,2
D→F
­O→H
C→E
­N→G
Pt-On(C,D,2,Q
End
If D=140 and E<C
Then
Pt-Off(C,D,2
D→F
­O→H
C→E
N→G
Pt-On(C,D,2,Q
End
If D=20 and E>C
Then
Pt-Off(C,D,2
D→F
O→H
C→E
­N→G
Pt-On(C,D,2,Q
End
If D=20 and E<C
Then
Pt-Off(C,D,2
D→F
O→H
C→E
N→G
Pt-On(C,D,2,Q
End
If C=30 and F>D
Then
If A≤D and D≤B
Then
Pt-Off(C,D,2
D→F
­O→H
C→E
N→G
Pt-On(C,D,2,Q
Else
Y+1→Y
TextColor(Q
Text(3,230,Y
Wait 3
Pt-Off(C,D,2
130→C
80→D
130→E
80→F
Pt-On(C,D,2,Q
Wait 3
End
End
If C=30 and F<D
Then
If A≤D and D≤B
Then
Pt-Off(C,D,2
D→F
O→H
C→E
N→G
Pt-On(C,D,2,Q
Else
Y+1→Y
TextColor(Q
Text(3,230,Y
Wait 3
Pt-Off(C,D,2
130→C
80→D
130→E
80→F
Pt-On(C,D,2,Q
Wait 3
End
End
If C=235 and F>D
Then
If I≤D and D≤J
Then
Pt-Off(C,D,2
D→F
­O→H
C→E
­N→G
Pt-On(C,D,2,Q
Else
X+1→X
TextColor(P
Text(3,60,X
Wait 3
Pt-Off(C,D,2
130→C
80→D
130→E
80→F
Pt-On(C,D,2,Q
Wait 3
End
End
If C=235 and F<D
Then
If I≤D and D≤J
Then
Pt-Off(C,D,2
D→F
O→H
C→E
­N→G
Pt-On(C,D,2,Q
Else
X+1→X
TextColor(P
Text(3,60,X
Wait 3
Pt-Off(C,D,2
130→C
80→D
130→E
80→F
Pt-On(C,D,2,Q
Wait 3
End
End
If C=30 and D=140
Then
If A≤D and D≤B
Then
Pt-Off(C,D,2
D→F
­O→H
C→E
N→G
Pt-On(C,D,2,Q
Else
Y+1→Y
TextColor(Q
Text(3,230,Y
Wait 3
Pt-Off(C,D,2
130→C
80→D
130→E
80→F
Pt-On(C,D,2,Q
Wait 3
End
End
If C=30 and D=20
Then
If A≤D and D≤B
Then
Pt-Off(C,D,2
D→F
O→H
C→E
N→G
Pt-On(C,D,2,Q
Else
Y+1→Y
TextColor(Q
Text(3,230,Y
Wait 3
Pt-Off(C,D,2
130→C
80→D
130→E
80→F
Pt-On(C,D,2,Q
Wait 3
End
End
If C=235 and D=20
Then
If I≤D and D≤J
Then
Pt-Off(C,D,2
D→F
O→H
C→E
­N→G
Pt-On(C,D,2,Q
Else
X+1→X
TextColor(P
Text(3,60,X
Wait 3
Pt-Off(C,D,2
130→C
80→D
130→E
80→F
Pt-On(C,D,2,Q
Wait 3
End
End
If C=235 and D=140
Then
If I≤D and D≤J
Then
Pt-Off(C,D,2
D→F
­O→H
C→E
­N→G
Pt-On(C,D,2,Q
Else
X+1→X
TextColor(P
Text(3,60,X
Wait 3
Pt-Off(C,D,2
130→C
80→D
130→E
80→F
Pt-On(C,D,2,Q
Wait 3
End
End
If rand≤.55
Then
If H=5
Then
If (D+5)>J and J≠140
Then
Line(240,I,240,J,0
I+3H→I
J+3H→J
Line(240,I,240,J,Q
Else
Line(240,I,240,J,Q
End
End
If H=­5
Then
If (D-5)<I and I≠20
Then
Line(240,I,240,J,0)
I+3H→I
J+3H→J
Line(240,I,240,J,Q)
Else
Line(240,I,240,J,Q)
End
End
End
End
ClrDraw
If X=8
Then
TextColor(P
Text(40,80,"You Won!"
Pause 
Else
TextColor(Q
Text(40,80,"CPU Won!"
Pause 
End
Goto A
Lbl S
If P=19:Then
BackgroundOn MEDGRAY
20→Q
End
Horizontal 145,Q
Horizontal 15,Q
0→X
0→Y
TextColor(P
Text(3,10,"Score:"
Text(3,60,X
70→A
80→B
Line(25,A,25,B,P
15→I
145→J
Line(240,I,240,J,Q)
130→C
80→D
130→E
80→F
­5→G
­5→H
5→N
5→O
Pt-On(C,D,2,Q
DispGraph
Repeat X=1000000
getKey→K
If K=25 and B≠140
Then
Line(25,A,25,B,0)
A+10→A
B+10→B
Line(25,A,25,B,P)
DispGraph
Else
Line(25,A,25,B,P)
End
If K=34 and A≠20
Then
Line(25,A,25,B,0)
A-10→A
B-10→B
Line(25,A,25,B,P)
DispGraph
Else
Line(25,A,25,B,P)
End
If K=21
Then
Pause 
End
Pt-Off(C,D,2
C→E
C+G→C
D→F
D+H→D
Pt-On(C,D,2,Q
If D=140 and E>C
Then
Pt-Off(C,D,2
D→F
­O→H
C→E
­N→G
Pt-On(C,D,2,Q
End
If D=140 and E<C
Then
Pt-Off(C,D,2
D→F
­O→H
C→E
N→G
Pt-On(C,D,2,Q
End
If D=20 and E>C
Then
Pt-Off(C,D,2
D→F
O→H
C→E
­N→G
Pt-On(C,D,2,Q
End
If D=20 and E<C
Then
Pt-Off(C,D,2
D→F
O→H
C→E
N→G
Pt-On(C,D,2,Q
End
If C=30 and F>D
Then
If A≤D and D≤B
Then
Pt-Off(C,D,2
D→F
­O→H
C→E
N→G
Pt-On(C,D,2,Q
Else
Goto AA
End
End
If C=30 and F<D
Then
If A≤D and D≤B
Then
Pt-Off(C,D,2
D→F
O→H
C→E
N→G
Pt-On(C,D,2,Q
Else
Goto AA
End
End
If C=235 and F>D
Then
If I≤D and D≤J
Then
Pt-Off(C,D,2
D→F
­O→H
C→E
­N→G
Pt-On(C,D,2,Q
X+1→X
TextColor(P
Text(3,60,X
End
End
If C=235 and F<D
Then
If I≤D and D≤J
Then
Pt-Off(C,D,2
D→F
O→H
C→E
­N→G
Pt-On(C,D,2,Q
X+1→X
TextColor(P
Text(3,60,X
End
End
If C=30 and D=140
Then
If A≤D and D≤B
Then
Pt-Off(C,D,2
D→F
­O→H
C→E
N→G
Pt-On(C,D,2,Q
Else
Goto AA
End
End
If C=30 and D=20
Then
If A≤D and D≤B
Then
Pt-Off(C,D,2
D→F
O→H
C→E
N→G
Pt-On(C,D,2,Q
Else
Goto AA
End
End
If C=235 and D=20
Then
If I≤D and D≤J
Then
Pt-Off(C,D,2
D→F
O→H
C→E
­N→G
Pt-On(C,D,2,Q
X+1→X
TextColor(P
Text(3,60,X
End
End
If C=235 and D=140
Then
If I≤D and D≤J
Then
Pt-Off(C,D,2
D→F
­O→H
C→E
­N→G
Pt-On(C,D,2,Q
X+1→X
TextColor(P
Text(3,60,X
End
End
End
Lbl AA
ClrDraw
TextColor(P
Text(40,80,"Game Over"
TextColor(P
Text(60,80,"Your Score:"
Text(60,180,X
Pause 
End
Goto A
Lbl Q
Stop

Last edited on 08 Oct 2017 22:06 by Myles_Zadok Show more

Re: Written Code

kg583 17 Aug 2017 03:20

Might I ask how fast the game is able to run? I tried throwing a simple version together on my CE in my study hall today and it was functional but really slow.
Here's the code, with just the game loop and a basic AI for the second player.

:ClrDraw
:AxesOff
:BackgroundOff
:0→Ymax
:-164→Ymin
:0→Xmin
:1→ΔX
:12→C
:Horizontal Ymin+1,Ans
:Horizontal 0,Ans
:Vertical 0,Ans
:Vertical Xmax-1,Ans
:2randInt(-26,-66→B
:132→A
:-82→X
:Ans→U
:Delvar D2→P
:2→Q
:240→G
:14→H
:Repeat K=45 or E>G or E<H
:C:Pt-On(A,B,2,Ans
:Line(G,X+Ans,G,X-Ans,Ans
:Line(H,U+Ans,H,U-Ans,Ans
:getKey→K
:X+3((Ans=25)(X≠-16)-(Ans=34)(X≠-148→Z
:If X≠Ans
:Then
:(X<Ans)-(Ans<X
:Pt-Off(G,X-CAns
:Z→X
:End
:U+3((U+C<B)-(U-C>B→V
:If U≠Ans
:Then
:(U<Ans)-(Ans<U
:Pt-Off(H,U-CAns
:V→U
:End
:A+P→E
:B+Q→F
:If F=-158 or F=-6
:-Q→Q
:If E=236 and abs(F-X)≤C or E=18 and abs(F-U)≤C
:-P→P
:Pt-Off(A,B,2
:E→A
:F→B
:End

Also, are the Wait commands the only thing stopping a port to CSE? Cause there are other ways to cause delays that work on older OS's.

---

The solution to a complex problem is often a simple answer.

Re: Written Code

Myles_Zadok 17 Aug 2017 16:39

I had issues with speed at first, when the program had a whole bunch of glitches. I got the program to run faster after I fixed the glitches. I stored important values to variables and had conditionals check the value of the variables to determine which direction the ball should move, and which direction the AI should move. (Competent AI is hard to make, by the way). I had to keep the conditionals simple to make the program fast, but that was something I could work with.

As far as I can see, the Wait commands are the only thing preventing the program from running on a CSE. I did that intentionally, because I felt that using the Wait command would be more efficient than a different method. Someone could easily change those lines of code and have a working Pong game on a CSE. I'm pretty sure there are other CE exclusive commands, but I believe Wait is the only one I used.

EDIT: How did you choose to make the ball to move? I'm curious about the methodology of your movement math, since I didn't do what I originally planned on doing with the ball's movement.

Last edited on 17 Aug 2017 17:18 by Myles_Zadok Show more

Re: Written Code

kg583 17 Aug 2017 20:58

My movement math is fairly simple: The ball has an X and Y velocity, stored as P and Q. The ball's coords change by P and Q each frame. When the ball hits a surface (either the floor/ceiling or paddles), the velocity for that direction is negated. The other velocity component is unaffected.

So, if the ball hits the floor, its downward Y velocity is negated (-Q→Q) to become upward velocity. If it hits your paddle, its rightward X velocity is negated (-P→P) to become leftward velocity.

---

The solution to a complex problem is often a simple answer.

Re: Written Code

Myles_Zadok 17 Aug 2017 22:33

Ok. That's what I did, where either 5 or -5 was stored to the velocity variables. I was originally going to use trig, but I quickly decided that wouldn't be a practical method.

Color Optimization

OK Calculator 06 Jun 2025 21:02

Hi there.

I'm fairly new to this website, so I'm not sure if I am allowed to post on old threads. I thought it is okay for this since it is on archives, though.
I was looking through this code, and it looks like you used Lbls and Gotos to change the color of the paddle with a menu command. To make this much simpler and more efficient, something I have done in the past is to save colors to a string and call a character from the string. Here is an example of it's use in making fireworks:

If A≠10101:Disp "PRGM IS LOCKED:Wait 4:Stop:End
ClrHome
ClrTable
Lbl 5
DispGraph
Output(3,8,"HIGH SCORE:"
Line(80,60,­105,60,1,YELLOW)
Line(­105,110,80,110,5,YELLOW)
Line(80,60,80,110,2,YELLOW)
Line(­105,60,­105,110,2,YELLOW)
length(toString(⌊HIGH)
Output(6,8,⌊HIGH(1
Output(6,7+Ans,"SECONDS!")
randInt(1,5)
If Ans=1:TextColor(BLUE
If Ans=2:TextColor(RED
If Ans=3:TextColor(MAGENTA
If Ans=4:TextColor(GREEN
If Ans=5:TextColor(ORANGE
Text(145,15,"PRESS ENTER TO RETURN TO THE MENU"
Text(randInt(1,150),randInt(1,250),"*
Text(randInt(1,150),randInt(1,250),"*
TextColor(BLUE
Text(randInt(1,150),randInt(1,250),"*
TextColor(RED
Text(randInt(1,150),randInt(1,250),"*
TextColor(MAGENTA
Text(randInt(1,150),randInt(1,250),"*
TextColor(GREEN
Text(randInt(1,150),randInt(1,250),"*
TextColor(ORANGE
Text(randInt(1,150),randInt(1,250),"*

ClrTable
getKey→K
If K≠105:Goto 5
10101→A
prgmCHASE

For your use, you could have rows of text and a ">" that moves with a up and down, stores to a variable, and takes that color from the string.
Once again, I am fairly new, so I'm not sure if this would work on all calculators. I would be glad if this could help you.
Also Myles, thank you for contributing so much to the wikidot community; I love your programs.
Thanks!