Apologies its pong again - GameCreators Forum

Author

Message

Zen Master

16

Years of Service

User Offline

Joined: 6th Mar 2008

Location:

Posted: 7th May 2008 15:53

Link

Right after reading the helpful tutorials by TDK which i would suggest everyone does read before trying anything in DBPro if you new to coding like i was, I've done a couple of text games just simple guess the number and a lil text adventure with about 4 rooms. Now i decided to go ahead with a 2D Pong game, easy enough but i just cannot figure out how to bounce the ball i've spent days searching the codebase and forums and everyone is either using simple 2D like line and box etc or they are using 3D objects so it got a little confusing. Anyways i cannot get this ball to move i found TDKs pong tutorial and i can get the Position of the balls x and y but i do not understand how to get the balls direction in x and y and i've tried a lot of things =D

Please somebody explain how i would do this. Many thanks to any who answer! (Code Below)

+ Code Snippet

Rem Project: Pong
Rem Created: 4/29/2008 2:48:11 PM

Rem ***** Main Source File *****

GoSub Setup
GoSub Graphics
Global Ballposx#
Global Ballposy#
Global Ballspeedx#
Global Ballspeedy#

Do
Paddle1()
Ball()
Loop
End

Graphics:
   Load Image "Paddle1.jpg",1
   Sprite 1,99,275,1
   Set Sprite Priority 1,4
   Load Image "Paddle2.jpg",2
   Sprite 2,701,275,2
   Set Sprite Priority 2,3
   Load Image "Ball.bmp",3
   Sprite 3,395,280,3
   Set Sprite Priority 3,2
   Load Image "Background.bmp",4
   Sprite 4,0,0,4
   Set Sprite Priority 4,1
Return

Setup:
Set Display mode 800,600,16
Return

Function Paddle1()
   If Upkey()=1 Then Move Sprite 1,2
   If Downkey()=1 Then Move Sprite 1,-2
   If Sprite Y(1)<60 Then Move Sprite 1,-3
   If Sprite Y(1)>480 Then Move Sprite 1,3
EndFunction

Function Ball()
   Ballposx# = Sprite X(3)
   Ballposy# = Sprite Y(3)
   Balldirx# =
   Balldiry# =

EndFunction

"Face it, if crime didnt pay there would be very few criminals."
Laughton Lewis Burdock

Back to top

Profile PM Email

pcRaider

17

Years of Service

User Offline

Joined: 30th May 2007

Location:

Posted: 7th May 2008 17:42

Link

You please think about this.
You may have already learned it at school.

+ Code Snippet


x=200
y=10
sx=-1
sy=1

do
  cls
  x=x+sx
  y=y+sy
  if x<0 then sx=-sx
  circle x,y,30
  set cursor 0,0 :print x,"  ",sx
  set cursor 0,10:print y,"  ",sy
  wait 50
loop

Back to top

Profile PM

Zen Master

16

Years of Service

User Offline

Joined: 6th Mar 2008

Location:

Posted: 7th May 2008 18:02 Edited at: 7th May 2008 18:03

Link

Erm..... I will admit im not a how do you say... enlighted pupil from my education i ditched out and went to work so could you break it down coz that doesnt make sense to me sorry! I dont understand why draw a circle when theres a sprite in the code for it and how does it make it move and rebound in that code?

Thanks
Zen

"Face it, if crime didnt pay there would be very few criminals."
Laughton Lewis Burdock

Back to top

Profile PM Email

Zen Master

16

Years of Service

User Offline

Joined: 6th Mar 2008

Location:

Posted: 7th May 2008 19:14

Link

Ok after much confusion and grabbing a piece of graph paper If x and y are increasing it is going to the bottom right of the screen, if both decrease to top left if x increase and y decrease then its going to the top right and if x decrease and y increase then its going to the bottom left. But how would i put this into DBPro as an interger variable? Because beyond figuring that out im stumped.

Thanks
Zen

"Face it, if crime didnt pay there would be very few criminals."
Laughton Lewis Burdock

Back to top

Profile PM Email

procyon

16

Years of Service

User Offline

Joined: 29th Feb 2008

Location:

Posted: 7th May 2008 19:17

Link

The following code may help you start. Sorry its not tested or finished as i don't have the time at the moment. You will need to add more code to check for bat collision and end of screen collision.

+ Code Snippet

REM *** Setup sprite constant and ball data type ***
#CONSTANT ball 3
TYPE BallType
  speed AS INTEGER
  angle AS INTEGER
  x AS INTEGER
  y AS INTEGER
ENDTYPE

REM *** Create global variable ***
GLOBAL ball AS BallType

FUNCTION InitialiseGame()
  REM *** Set sprite speed and angle ***
  ball.speed = 5
  ball.angle = 60
  REM *** Set screen resolution ***
  SET DISPLAY MODE 800,600,16
  REM *** Set up ball with origin at centre ***
  LOAD IMAGE "ball.bmp",3
  SPRITE ball,400,300,3
  OFFSET SPRITE ball,SPRITE WIDTH(ball)/2, SPRITE HEIGHT(ball)/2
ENDFUNCTION

FUNCTION HandleBall()
  REM *** Handle Ball ***
  MOVE SPRITE ball,ball.speed
  REM *** Check for top or bottome edge hit ***
  ball.x = SPRITE X(ball)
  ball.y = SPRITE Y(ball)
  IF ball.y<0+(SPRITE HEIGHT(ball)/2) or y>SCREEN HEIGHT-(SPRITE HEIGHT(ball)/2)
    ball.angle = WRAPVALUE(180 - ball.angle)
  ENDIF
  REM *** Rotate sprite to new angle ***
  ROTATE SPRITE ball, ball.angle
ENDFUNCTION

Back to top

Profile PM

IanM

Retired Moderator

22

Years of Service

User Offline

Joined: 11th Sep 2002

Location: In my moon base

Posted: 7th May 2008 20:56

Link

First, you are probably better off keeping the ball position within the ballposx# and ballposy# variables, rather than continually resetting them from the sprite position.

Next, the Ballspeedx# and Ballspeedy# can be used both to control the speed and the direction of the ball. Each loop, simply add their values to the Ballposx# and Ballposy# variables and update the sprite position from those variables. If the speed variable is negative, the ball will move up or left (depending on x or y), and if positive, will move down or right.

Assuming the paddles are left & right, when you detect collision with a paddle, simply multiply the Ballspeedx# by -1.0 - this will reverse the direction but keep the same speed. Do the same with Ballspeedy# when detecting collision with top/bottom walls.

[b]Utility plug-ins collection (updated 01/05/08) and
http://www.matrix1.demon.co.uk

Back to top

Profile PM Email Website

Zen Master

16

Years of Service

User Offline

Joined: 6th Mar 2008

Location:

Posted: 8th May 2008 04:07

Link

Thank you so much both of you i sat and tested your code procyon it worked great

but earlier 2day im on UK time so not many people here i searched in vain hope through a lot of pong threads and IanM had left a small basic example of a ball bouncing off the edge of the screen and fixed it into code take a peek below you may not recognise it without the border_width() but i needed exact coordinates

Rem Project: Pong
Rem Created: 4/29/2008 2:48:11 PM

Rem ***** Main Source File *****

GoSub Setup
GoSub Graphics

Do
Paddleball()
Loop
End

Graphics:
   Load Image "Paddle1.jpg",1
   Sprite 1,99,275,1
   Set Sprite Priority 1,4
   Load Image "Paddle2.jpg",2
   Sprite 2,701,275,2
   Set Sprite Priority 2,3
   Load Image "Ball.bmp",3
   Sprite 3,395,280,3
   Set Sprite Priority 3,2
   Load Image "Background.bmp",4
   Sprite 4,0,0,4
   Set Sprite Priority 4,1
Return

Setup:
Set Display mode 800,600,16
Return

Function Paddle1()
   If Upkey()=1 Then Move Sprite 1,2
   If Downkey()=1 Then Move Sprite 1,-2
   If Sprite Y(1)<60 Then Move Sprite 1,-3
   If Sprite Y(1)>480 Then Move Sprite 1,3
EndFunction

Function Paddleball()
xspeed = 1.5
yspeed = 1.5
xborder = 725
yborder = 520

Do
Rem Paddle1
   If Upkey()=1 Then Move Sprite 1,2
   If Downkey()=1 Then Move Sprite 1,-2
   If Sprite Y(1)<60 Then Move Sprite 1,-3
   If Sprite Y(1)>480 Then Move Sprite 1,3
Rem Paddle2

Rem Ball
   sprx = Sprite x(3)
   spry = Sprite y(3)
   Inc sprx, xspeed
   Inc spry, yspeed
   If sprx <= 60 Then xspeed = abs(xspeed)
   If spry <= 58 Then yspeed = abs(yspeed)
   If sprx >= xborder Then xspeed = -abs(xspeed)
   If spry >= yborder Then yspeed = -abs(yspeed)
   If Sprite Collision (3,1) Then xspeed = abs(xspeed)
   If Sprite Collision (3,2) Then xspeed = -abs(xspeed)
   Sprite 3,sprx,spry,3
Loop
Endfunction

+ Code Snippet

Rem Project: Pong
Rem Created: 4/29/2008 2:48:11 PM

Rem ***** Main Source File *****

GoSub Setup
GoSub Graphics

Do
Paddleball()
Loop
End

Graphics:
   Load Image "Paddle1.jpg",1
   Sprite 1,99,275,1
   Set Sprite Priority 1,4
   Load Image "Paddle2.jpg",2
   Sprite 2,701,275,2
   Set Sprite Priority 2,3
   Load Image "Ball.bmp",3
   Sprite 3,395,280,3
   Set Sprite Priority 3,2
   Load Image "Background.bmp",4
   Sprite 4,0,0,4
   Set Sprite Priority 4,1
Return

Setup:
Set Display mode 800,600,16
Return

Function Paddle1()
   If Upkey()=1 Then Move Sprite 1,2
   If Downkey()=1 Then Move Sprite 1,-2
   If Sprite Y(1)<60 Then Move Sprite 1,-3
   If Sprite Y(1)>480 Then Move Sprite 1,3
EndFunction


Function Paddleball()
xspeed = 1.5
yspeed = 1.5
xborder = 725
yborder = 520

Do
Rem Paddle1
   If Upkey()=1 Then Move Sprite 1,2
   If Downkey()=1 Then Move Sprite 1,-2
   If Sprite Y(1)<60 Then Move Sprite 1,-3
   If Sprite Y(1)>480 Then Move Sprite 1,3
Rem Paddle2

Rem Ball
   sprx = Sprite x(3)
   spry = Sprite y(3)
   Inc sprx, xspeed
   Inc spry, yspeed
   If sprx <= 60 Then xspeed = abs(xspeed)
   If spry <= 58 Then yspeed = abs(yspeed)
   If sprx >= xborder Then xspeed = -abs(xspeed)
   If spry >= yborder Then yspeed = -abs(yspeed)
   If Sprite Collision (3,1) Then xspeed = abs(xspeed)
   If Sprite Collision (3,2) Then xspeed = -abs(xspeed)
   Sprite 3,sprx,spry,3
Loop
Endfunction

"Face it, if crime didnt pay there would be very few criminals."
Laughton Lewis Burdock

Back to top

Profile PM Email

pcRaider

17

Years of Service

User Offline

Joined: 30th May 2007

Location:

Posted: 8th May 2008 16:57

Link

gosub is global.

Rem Project: Pong
Rem Created: 4/29/2008 2:48:11 PM

Rem ***** Main Source File *****

GoSub _Setup
GoSub _Graphics

xspeed = 1.5
yspeed = 1.5
xborder = 725
yborder = 520

Do
  gosub _Paddle1
  gosub _Ball
Loop
End

_Graphics:
   Load Image "Paddle10.jpg",1
   Sprite 1,99,275,1
   Set Sprite Priority 1,4
   Load Image "Paddle20.jpg",2
   Sprite 2,701,275,2
   Set Sprite Priority 2,3
   Load Image "Ball0.bmp",3
   Sprite 3,395,280,3
   Set Sprite Priority 3,2
   Load Image "Background0.bmp",4
   Sprite 4,0,0,4
   Set Sprite Priority 4,1
Return

_Setup:
Set Display mode 800,600,16
set text font "arial",0
set text size 16

cls
print "I"
print "I"
get image 11,0,0,16,32,1
   save Image "Paddle10.jpg",11
get image 12,0,0,16,32,1
   save Image "Paddle20.jpg",12
cls
print "@"
get image 13,0,0,16,16,1
   save Image "Ball0.bmp",13
cls
print "#"
get image 14,0,0,16,16,1
   save Image "Background0.bmp",14
Return

_Paddle1:
Rem Paddle1
   If Upkey()=1 Then Move Sprite 1,2
   If Downkey()=1 Then Move Sprite 1,-2
   If Sprite Y(1)<60 Then Move Sprite 1,-3
   If Sprite Y(1)>480 Then Move Sprite 1,3
return

Rem Paddle2

_Ball:
Rem Ball
`   sprx = Sprite x(3)
`   spry = Sprite y(3)
   Inc sprx, xspeed
   Inc spry, yspeed
   If sprx <= 60 Then xspeed = abs(xspeed)
   If spry <= 58 Then yspeed = abs(yspeed)
   If sprx >= xborder Then xspeed = -abs(xspeed)
   If spry >= yborder Then yspeed = -abs(yspeed)
   If Sprite Collision (3,1) Then xspeed = abs(xspeed)
   If Sprite Collision (3,2) Then xspeed = -abs(xspeed)
   Sprite 3,sprx,spry,3
return

+ Code Snippet


Rem Project: Pong
Rem Created: 4/29/2008 2:48:11 PM

Rem ***** Main Source File *****

GoSub _Setup
GoSub _Graphics

xspeed = 1.5
yspeed = 1.5
xborder = 725
yborder = 520

Do
  gosub _Paddle1
  gosub _Ball
Loop
End



_Graphics:
   Load Image "Paddle10.jpg",1
   Sprite 1,99,275,1
   Set Sprite Priority 1,4
   Load Image "Paddle20.jpg",2
   Sprite 2,701,275,2
   Set Sprite Priority 2,3
   Load Image "Ball0.bmp",3
   Sprite 3,395,280,3
   Set Sprite Priority 3,2
   Load Image "Background0.bmp",4
   Sprite 4,0,0,4
   Set Sprite Priority 4,1
Return

_Setup:
Set Display mode 800,600,16
set text font "arial",0
set text size 16

cls
print "I"
print "I"
get image 11,0,0,16,32,1
   save Image "Paddle10.jpg",11
get image 12,0,0,16,32,1
   save Image "Paddle20.jpg",12
cls
print "@"
get image 13,0,0,16,16,1
   save Image "Ball0.bmp",13
cls
print "#"
get image 14,0,0,16,16,1
   save Image "Background0.bmp",14
Return

_Paddle1:
Rem Paddle1
   If Upkey()=1 Then Move Sprite 1,2
   If Downkey()=1 Then Move Sprite 1,-2
   If Sprite Y(1)<60 Then Move Sprite 1,-3
   If Sprite Y(1)>480 Then Move Sprite 1,3
return

Rem Paddle2

_Ball:
Rem Ball
`   sprx = Sprite x(3)
`   spry = Sprite y(3)
   Inc sprx, xspeed
   Inc spry, yspeed
   If sprx <= 60 Then xspeed = abs(xspeed)
   If spry <= 58 Then yspeed = abs(yspeed)
   If sprx >= xborder Then xspeed = -abs(xspeed)
   If spry >= yborder Then yspeed = -abs(yspeed)
   If Sprite Collision (3,1) Then xspeed = abs(xspeed)
   If Sprite Collision (3,2) Then xspeed = -abs(xspeed)
   Sprite 3,sprx,spry,3
return

Back to top

Profile PM

Zen Master

16

Years of Service

User Offline

Joined: 6th Mar 2008

Location:

Posted: 8th May 2008 20:54

Link

Aha! So variable set at the top go sub uses them globally? that would explain why my curvevalue for paddle 2 ai is all funky, shame my paddle likes to jump out of bounds when chasing balls as well, i'll clean it up get some rudimentary ai n stuff n prob turn it into a tutorial coz there doesnt seem to be many deep 2d pong tutorials even though its many peoples first game.

"Face it, if crime didnt pay there would be very few criminals."
Laughton Lewis Burdock

Back to top

Profile PM Email

Sorry your browser is not supported!

Newcomers DBPro Corner / Apologies its pong again