03-09-2004, 12:55 AM
Okay, here is the code with the math simplified (there goes any hope of anyone else understanding it) :
Code:
1 : SCREEN 13
2 : IF INP(96) = 57 THEN pX = pX - -(pX > 1) ELSE pX = pX + -(pX < 39)
3 : DRAW "c0 bm" + STR$(pX + 135) + ",130 r7 bm" + STR$(bX + 158) + "," + STR$(bY + 67) + "f2 bm" + STR$(bX + 160) + "," + STR$(bY + 67) + "g2 c1 bm136,66 r45 d65 l45 u64 c2 bm" + STR$(pX + 136) + ", 130 r5 c4 bm" + STR$(bX + 159) + "," + STR$(bY + 68) + "r0"
4 : bX = bX + ((bS AND 1) * 2) - 1
5 : bY = bY + (bS AND 2) - 1
6 : IF bX <= -22 OR bX >= 21 THEN bS = bS + -(((bS AND 1) * 2) - 1)
7 : IF ((bX >= pX - 24) AND (bX <= (pX - 17)) AND (bY = 61)) OR (bY = -1) THEN bS = bS + -((bS AND 2) - 1) * 2
8 : time = TIMER
9 : IF time = TIMER AND ((dummy$ = INKEY$) OR 1) THEN GOTO 9
10 : IF (bY < 63) THEN GOTO 2 ELSE PRINT " You lose"
'10 line "Wall" pong. Made by Daniel Miller.
'Controls: Hold space bar to move to the left.
' Let go to move to the right.
'Features: No flicker
' No keyboard "clicks"
' Goes the same speed on every computer