Comments for page "Pong CE"

Color Optimization

Fri, 06 Jun 2025 21:02:36 +0000

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!

Re: Written Code

Thu, 17 Aug 2017 22:33:35 +0000

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.

Re: Written Code

Thu, 17 Aug 2017 20:58:09 +0000

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.

Re: Written Code

Thu, 17 Aug 2017 16:39:30 +0000

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.

Re: Written Code

Thu, 17 Aug 2017 03:20:05 +0000

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 EB→V :If U≠Ans :Then :(U

 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.



Written Code
Thu, 17 Aug 2017 00:31:26 +0000

						 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 EC 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 ED 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 FD 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 FJ 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)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 EC 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 ED 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 FD 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