Collison with paddle from pong

[JaxonB]

What is it you are trying to achieve?
A ball bouncing off paddle

What is the problem you are having?
I'm having an issue with my code and it wont detect my collision


Describe what you have tried to solve this problem
Asked around with friends


Post any relevant code


setscreen ("nocursor")


%Varibles

%Title Varibles
var title : int := Font.New ("Bit9x9:90")
var start, eXit : int := Font.New ("Bit9x9:15")
var startorleave : string
var madeby : int := Font.New ("Bit9x9:10")
var startbutton : string := "Start"
var x_pos : int
var y_pos : int



%Main Game Varibles
var x, y : int := 5
var chars : array char of boolean
var x_dir : int
var radius : int := 5
randint (x_dir, -1, 1)
var height1, height2, height3, height4 : int
height1 := 150
height2 := 250
height3 := 150
height4 := 250
x_pos := 320
y_pos := 200
var wall1, wall2, wall3, wall4 : int
wall1 := 0
wall2 := 640
var player1score, player2score : int := 0


%Title Screen
loop

drawfill (1, 1, black, blue)
Font.Draw ("PONG", 170, 300, title, white)
Font.Draw ("Press any Key to start", 150, 250, start, white)
Font.Draw ("Made By: Jaxon Beairsto", 190, 20, madeby, white)
View.Update
Input.Pause
cls
exit
end loop

%Main Code
setscreen ("offscreenonly")
loop

%Draws the game

%Paddles
drawfillbox (0, height1, 5, height2, black)
drawfillbox (640, height3, 635, height4, black)

%Walls
drawfillbox (wall2, 399, 0, 400, white)
drawfillbox (wall1, 0, 640, 0, white)

drawfilloval (x_pos, 300, radius, radius, black)

drawfillbox (320, 0, 320, 400, black)
View.Update ()
delay (10)
cls
drawfilloval (x_pos, 300, radius, radius, white)

drawfillbox (640, 399, 0, 400, white)
drawfillbox (0, 0, 640, 0, white)
drawfillbox (0, height1, 5, height2, black)
drawfillbox (640, height3, 634, height4, black)
drawfillbox (320, 0, 320, 400, black)
locate (1, 5)
put "Player 1: ", player1score
locate (1, 47)
put "Player 2: ", player2score

%Indentifys the keys
Input.KeyDown (chars)
if chars ('w') then
height1 := height1 + 1
height2 := height2 + 1
elsif chars ('s') then
height1 := height1 - 1
height2 := height2 - 1
end if
Input.KeyDown (chars)
if chars (KEY_UP_ARROW) then
height3 := height3 + 1
height4 := height4 + 1
elsif chars (KEY_DOWN_ARROW) then
height3 := height3 - 1
height4 := height4 - 1
end if
%Ball movements
x_pos := x_pos + x_dir
if x_pos > maxx then
x_dir := -1
end if

%What the ball bounces off of
if whatdotcolour (x_pos, x_dir) = black then
end if


%Score
if x_pos = 640 then
x_pos := 320
player1score := player1score + 1
end if
if x_pos = 0 then
x_pos := 320
player2score := player2score + 1
end if
end loop

Turing:

Please specify what version of Turing you are using
Turing4-1-1a\Turing 4.1.

[Insectoid]

Whatdotcolor() takes an (x,y) coordinate. Is x_dir a y coordinate?

[scholarlytutor]

Has anyone written a tutorial for collision detection? It's not something I've personally learned, but it's definitely something I expect a lot of students will ask about.

I'm going to direct you to this video by Ogany Surpreme on YouTube. He walks you through making a game of pong in Turing:

https://www.youtube.com/watch?v=6BsRZgQdhBg

Once you learn how collision detection works, try to see if you can make your game unique in some way, like upside-down pong, or even 4 player pong.

Good luck!

[Insectoid]

There are lots of collision detection tutorials on this site. I think it's the most common tutorial we have.

[scholarlytutor]

Insectoid: That's great. You guys have been around here a lot longer than I have.

JaxonB: So besides the video, you can also go to Turing > Turing tutorial and type in "collision" into the search box. Here's one example I found from there:

http://compsci.ca/v3/viewtopic.php?t=75&highlight=collision