----------------------------------- Weapon X Mon May 08, 2006 4:40 pm [Q-Basic] Pong Game ----------------------------------- hey all, i have just started learning Qbaisc and since i already know vb i can easily program in qbasic. so now i made a pong game in qbasic but the ball and the 2 paddles keep flikering, if anyone can help me stop the fliker that would be awesome. thanx DIM x AS INTEGER DIM xmod AS INTEGER DIM y AS INTEGER DIM ymod AS INTEGER DIM delay AS DOUBLE DIM c AS DOUBLE DIM linex AS INTEGER DIM liney AS INTEGER DIM linex2 AS INTEGER DIM liney2 AS INTEGER DIM dc AS INTEGER x = 320 y = 240 xmod = 1 ymod = 1 delay = 1 c = 0 linex = 10 liney = 240 linex2 = 630 liney2 = 240 DO x = x + xmod y = y + ymod liney2 = y press$ = INKEY$ IF press$ = "a" THEN liney = liney - 8 ELSEIF press$ = "z" THEN liney = liney + 8 END IF IF x > 623 THEN xmod = -xmod ELSEIF x < 17 THEN xmod = -xmod ELSEIF y < 17 THEN ymod = -ymod ELSEIF y > 463 THEN ymod = -ymod ELSEIF liney + 40 = 480 THEN liney = liney - 8 ELSEIF liney - 40 = 0 THEN liney = liney + 8 END IF REM IF (y = liney + 40 OR y = liney - 40) AND (x = linex + 5 OR x = linex - 5) THEN REM xmod = -xmod REM ymod = -ymod REM END IF SCREEN 12 CIRCLE (x, y), 17, 120 LINE (linex - 5, liney - 40)-(linex + 5, liney + 40), 120, BF LINE (linex2 - 5, liney2 - 40)-(linex2 + 5, liney2 + 40), 120, BF CIRCLE (x, y), 17, 0 LINE (linex - 5, liney - 40)-(linex + 5, liney + 40), 0, BF LINE (linex2 - 5, liney2 - 40)-(linex2 + 5, liney2 + 40), 0, BF press$ = "" LOOP ----------------------------------- Weapon X Sun May 14, 2006 12:16 am aww :( ----------------------------------- ...anyone? :( ----------------------------------- [Gandalf] Sun May 14, 2006 12:38 am ----------------------------------- Sure, seeing as how I first got into programming using QBASIC and some other BASIC variants... It's been a while since I've done much in BASIC, but one improvement I can suggest is to make your code more dynamic. If you ever decided to improve it it would become difficult to keep track of all the co-ordinate values, which you seem to have hardcoded a lot of, ie: ELSEIF y > 463 THEN The game itself is functional, though you could have the score be outputted. Instead of learning BASIC now, you could choose a more modern and interesting language like Ruby to learn, though ultimately it's up to you. I'm sure you would get a larger response from the compsci.ca community as well.