Pong Collision border help

[gergysun]

This game is realy ticking me off,

I cannot seem to make the ball bounce off the top, and right inside the box that i have made...the left one works, and i ive tried but i cant get the ball to *end* when the paddle misses it, its just keeps on bouncing.... ergggg

anyways, here is my code.

Turing:

colourback (blue) cls setscreen ("offscreenonly") var ballx, bally, rise, run, rad, u, yy, xx : int ballx := maxx div 1 bally := maxy div 4 rad := 10 rise := 1 run := - 1 loop     var x, y, button : int     Mouse.Where (x, y, button)     Draw.FillOval (ballx, bally, rad, rad, yellow)     ballx := ballx + run     bally := bally + rise     if ballx > maxx or ballx < 85 then         run := run * -1     end if     if bally > maxy or bally < 85 then         rise := rise * -1     end if         if bally = 10 and ballx <- 80 and ballx < + 80 then exit end if         View.Update   delay (10)     cls     Draw.Box (50, 50, maxx - 50, maxy - 50, white)     drawfillbox (x - 80, 66, x + 80, 75, red)     end loop

[CodeMonkey2000]

Basically, you need to remember that ballx and bally are the mid points of the ball. To see if the edge of the ball collides with the wall, you need to add/subtract the radius to ballx and bally.

Turing:

colourback (blue) cls setscreen ("offscreenonly") var ballx, bally, rise, run, rad, u, yy, xx : int ballx := maxx div 2 bally := maxy div 2 rad := 10 rise := 1 run := -1 loop     var x, y, button : int     Mouse.Where (x, y, button)     Draw.FillOval (ballx, bally, rad, rad, yellow)     ballx := ballx + run     bally := bally + rise     if ballx < 50 + rad or ballx > maxx - 50 - rad then         run := run * -1     end if     if bally < 50 + rad or bally > maxy - 50 - rad then         rise := rise * -1     end if     if bally = 10 and ballx < -80 and ballx < +80 then         exit     end if     View.Update     delay (10)     cls     Draw.Box (50, 50, maxx - 50, maxy - 50, white)     drawfillbox (x - 80, 66, x + 80, 75, red) end loop

[gergysun]

Awsome thanks, but theres still 2 problems.....
first of all, the bll doesnt bounce off the paddle,

second, the ball doesnt stop when it misses the paddle ( thwn it hits the bottom line )

[Jestar]

for the ball boucing off the paddle you could use whatdotcolor.

[gergysun]

I know i sound like to complete newbie, but
lets say the following syntax is my paddle... Would i write whatdotcolor ( 80, 75: int ) : int ?

drawfillbox (x - 80, 66, x + 80, 75, red)

because thats what it said in the Turing help file as the syntax.

[Zampano]

gergysun @ Wed Nov 28, 2007 8:48 pm wrote:

I know i sound like to complete newbie, but
lets say the following syntax is my paddle... Would i write whatdotcolor ( 80, 75: int ) : int ?

drawfillbox (x - 80, 66, x + 80, 75, red)

because thats what it said in the Turing help file as the syntax.

That's one large paddle. But shouldn't the whatdotcolour which determines whether to bounce off not be a constant number (80,75)?
In my mind it should be this.

Turing:

if whatdotcolour(ballx,bally-ballradius-1)=paddlecolour then yinc:=yinc * 1 end if

If you had a whatdotcoour relating to the position of the paddle, you'd have to check every point on the top of the paddle, but the ball should hit the paddle on only one spot: the pixel below the direct centre, which is what the above checks.

[gergysun]

THanks, but it doesnt solve my problem
here is my code

drawfill (1, 399, 150, 150)

var font1 : int
font1 := Font.New ("Stencil:20")
assert font1 > 0
Font.Draw ("Greg's Ping Pong Game", 160, 325, font1, red)
Font.Free (font1)
colorback (6)
locate (7, 30)
var title1 : int
title1 := 10

loop
%Title wiper
drawfilloval (title1, 335, 20, 20, 12)
exit when title1 = 600
delay (50)
drawfilloval (title1, 335, 20, 20, 158)
title1 := title1 + 10
end loop

put " ---The intructions are ---- "
put " "
put " Move the Paddle with mouse "
put " Each time you keep the ball up in the air you reieve a point"
put " If you miss the ball, you lose "
put " "
put " "
put " Press any key to begin "
Input.Pause

colourback (blue)
cls
setscreen ("offscreenonly")

var ballx, bally, rise, run, rad, u, yy, xx : int
ballx := maxx div 2
bally := maxy div 2

rad := 10
rise := 1
run := -1






loop


var x, y, button : int
Mouse.Where (x, y, button)
Draw.FillOval (ballx, bally, rad, rad, yellow)
ballx := ballx + run
bally := bally + rise
if ballx < 50 + rad or ballx > maxx - 50 - rad then
run := run * -1
end if
if bally < 50 + rad or bally > maxy - 50 - rad then
rise := rise * -1
end if

if bally = 10 and ballx < -80 and ballx < +80 then
exit
end if
if whatdotcolour(ballx,bally-rad-1)=brightcyan then
rise:=rise * 1
end if

View.Update
delay (10)
cls
Draw.Box (50, 50, maxx - 50, maxy - 50, white)
drawfill (50,40,white, white)
drawfillbox (x - 80, 66, x + 80, 75, brightcyan)
drawline (40,30,40,370,black)
drawline (40,30,600,30, black)
drawline (600,30,600,370,black)
drawline (600,370,40,370,black)
drawfill (0,10,brightred,black)
end loop

[gergysun]

lol, sorry, but ive got everything to work now..Thanks to all for helping me