-----------------------------------

dude3000

Sun Jan 11, 2004 12:44 pm


Does someone know how to make paddles for pong that work?

-----------------------------------

Does someone know how to make paddles for pong that work? I got the bouncing ball but i have a problem with making a counter and making the paddles move


-----------------------------------

poly

Sun Jan 11, 2004 12:49 pm



-----------------------------------

If you search you should be able to find a few topics on pong. I think there was a pong game posted in the Submissions forum you could checkout and see how to do


-----------------------------------

dude3000

Sun Jan 11, 2004 2:00 pm



-----------------------------------

If you search you should be able to find a few topics on pong. I think there was a pong game posted in the Submissions forum you could checkout and see how to do

I know that there are games, but I need the actual text so I can see how they made it


-----------------------------------

Andy

Sun Jan 11, 2004 2:29 pm



-----------------------------------

read up on the Input.KeyDown


-----------------------------------

Thuged_Out_G

Sun Jan 11, 2004 2:56 pm



-----------------------------------

drawing the paddle is the easiest part of pong lol

drawbox(x,y,x1,y1,color)



-----------------------------------

CITC

Sun Jan 11, 2004 6:06 pm



-----------------------------------

drawfillbox (10, 10, 60, 15, 12)
var paddle : int := Pic.New (10, 10, 60, 15)
cls
var paddlex : int := 50
var keys : array char of boolean
loop

    Input.KeyDown (keys)
    if keys (KEY_RIGHT_ARROW) then
        paddlex -= 1
    end if

    if keys (KEY_LEFT_ARROW) then
        paddlex += 1
    end if
    
    Pic.Draw (paddle, paddlex, 20,picCopy)
end loop

you should also use View.Set ("offscreenonly") if you aren't already.


-----------------------------------

dude3000

Sun Jan 11, 2004 10:32 pm



-----------------------------------

drawfillbox (10, 10, 60, 15, 12)
var paddle : int := Pic.New (10, 10, 60, 15)
cls
var paddlex : int := 50
var keys : array char of boolean
loop

    Input.KeyDown (keys)
    if keys (KEY_RIGHT_ARROW) then
        paddlex -= 1
    end if

    if keys (KEY_LEFT_ARROW) then
        paddlex += 1
    end if
    
    Pic.Draw (paddle, paddlex, 20,picCopy)
end loop

you should also use View.Set ("offscreenonly") if you aren't already.


THANK YOU VERY MUCH!!!!


-----------------------------------

McKenzie

Sun Jan 11, 2004 10:48 pm



-----------------------------------

Dude, poly is actually not trying to be a jerk (I was earlier, but that's beside the point). I just spent 2 min following his advice, guess what? it was not hard to find full versions of pong. no, not .exe, .t