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

gergysun

Wed Nov 28, 2007 7:39 pm


Pong Collision border help

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

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.




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  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

Wed Nov 28, 2007 8:21 pm


Re: Pong Collision border help

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

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

Wed Nov 28, 2007 8:32 pm


Re: Pong Collision border help

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

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


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

gergysun

Wed Nov 28, 2007 8:48 pm


Re: Pong Collision border help

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

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

Wed Nov 28, 2007 10:05 pm


Re: Pong Collision border help

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

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.
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

Wed Nov 28, 2007 10:14 pm


Re: Pong Collision border help

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

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

Tue Dec 04, 2007 3:29 pm


Re: Pong Collision border help

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

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