Pong alternative

Forum Attachments

Pong alternative

vma 31 Oct 2007 09:41

Hi,

Here is one of the first programs I made to learn TI BASIC. Thought it would be nice to share it with others… It was written for the TI Voyage 200, so if you have a different model, you may need to adjust the screen settings.

()
Prgm
ClrIO
20->x
10->y
5->xx
5->yy
40->p
0->s
Loop
 x+xx->x
 y+yy->y
 If x<20 Then 
  If abs(p-y)<=10 Then 
   ­-xx->xx
   s+1->s
  Else
   ClrIO
   Disp "Game Over"
   Stop
  EndIf
 EndIf
 If x<0 or x>220 Then 
  ­-xx->xx
 EndIf
 If y<0 or y>85 Then 
  ­-yy->yy
 EndIf
 ClrIO
 Disp s
 Output y,x,"o"
 getKey()->k
 If k=344 Then 
  p+5->p
 EndIf
 If k=338 Then 
  p-5->p
 EndIf
 Output p-5,15,"#"
 Output p,15,"#"
 Output p+5,15,"#"
EndLoop
EndPrgm

Cheers,
vma

Last edited on 31 Oct 2007 09:42 by vma Show more

Re: Pong alternative

burr 01 Nov 2007 04:58

That's a nice program :) I wasn't able to try it out because I only have a TI-83+SE calculator, but you might want to add it to the Sample Programs page. As you've probably noticed, most of the content on this wiki is TI-83+ oriented, but it would be nice to have content for the other TI calculators.

By the way, you are welcome to become a member of the site. We are all nice guys, and we don't bite :D

Re: Pong alternative

Xphoenix 03 Nov 2007 22:07

Runs smoothly!

It would be better if TI's operating system didn't wait before holding down an arrow key did anything. But we can't change that. Other than that, it's nice.

Now you can implement an AI to play on the other side. :D