You saying theres something wrong with my code, you correct

Author

Message

Mr Monkey Man

20

Years of Service

User Offline

Joined: 22nd Feb 2004

Location: UK

Posted: 14th Apr 2004 13:12

Link

Im making a pong game to help me get to grips with Dark Basic and I have the collision for one paddle working and used to the same technique on the edges of the court and the other paddle but the collision won't work for those objects. Please help heres the code for the game. Thankyou

Color backdrop RGB(155,155,255)
Make object box 1,2,2,6:Color object 1,RGB(255,128,0):Position object 1,-18,0,0
Make object box 2,2,2,6:Color object 2,RGB(0,128,0):Position object 2,18,0,0
Make object box 3,39,2,39:Color object 3,RGB(255,255,255):Position object 3,0,-2,0
Make object sphere 4,2:Color object 4,RGB(128,0,0):yrotate object 4,-90
Make object box 5,39,2,2:Color object 5,RGB(0,0,0):Position object 5,0,0,18
Make object box 6,39,2,2:Color object 6,RGB(0,0,0):Position object 6,0,0,-18
Position camera -30,30,-30:Point camera 0,0,-5:yrotate camera 45
set object collision on 1
set object collision on 2
set object collision on 4
Set object collision on 5
Set object collision on 6
hide mouse
sync on
Do
sync
ballangle#= = object angle y(4)
Move object 4,0.5
If upkey()=1 AND object position z(1) < 14 then position object 1,object position x(1),object position y(1),object position z(1) + 1
If downkey()=1 AND object position z(1) > -14 then position object 1,object position x(1),object position y(1),object position z(1) - 1
If leftkey()=1 AND object position z(2) < 14 then position object 2,object position x(2), object position y(2),object position z(2) + 1
If rightkey()=1 AND object position z(2) > -14 then position object 2, object position x(2), object position y(2),object position z(2) - 1
If object collision(4,5)=1 then position object 4,object position x(4),object position y(4),object position z(4) - 2:yrotate object 4,wrapvalue(ballangle# * -ballangle# + 45 + rnd(20))
If object collision(4,6)=1 then position object 4,object position x(4),object position y(4),object position z(4) - 2:yrotate object 4,wrapvalue(ballabgle# * -ballangle# + 45 + rnd(20))
If object hit(4,1)=1 then position object 4,object position x(4) + 1,object position y(4),object position z(4):yrotate object 4,wrapvalue(ballangle# * -ballangle# + 45 + rnd(20))
If object hit(4,2)=1 then position object 4,object position x(4) - 1,object position y(4),object position z(4):yrotate object 4,wrapvalue(ballablge# * -ballangle# + 45 + rnd(20))
Loop

+ Code Snippet

Color backdrop RGB(155,155,255)
Make object box 1,2,2,6:Color object 1,RGB(255,128,0):Position object 1,-18,0,0
Make object box 2,2,2,6:Color object 2,RGB(0,128,0):Position object 2,18,0,0
Make object box 3,39,2,39:Color object 3,RGB(255,255,255):Position object 3,0,-2,0
Make object sphere 4,2:Color object 4,RGB(128,0,0):yrotate object 4,-90
Make object box 5,39,2,2:Color object 5,RGB(0,0,0):Position object 5,0,0,18
Make object box 6,39,2,2:Color object 6,RGB(0,0,0):Position object 6,0,0,-18
Position camera -30,30,-30:Point camera 0,0,-5:yrotate camera 45
set object collision on 1
set object collision on 2
set object collision on 4
Set object collision on 5
Set object collision on 6
hide mouse
sync on
Do
sync
ballangle#= = object angle y(4)
Move object 4,0.5
If upkey()=1 AND object position z(1) < 14 then position object 1,object position x(1),object position y(1),object position z(1) + 1
If downkey()=1 AND object position z(1) > -14 then position object 1,object position x(1),object position y(1),object position z(1) - 1
If leftkey()=1 AND object position z(2) < 14 then position object 2,object position x(2), object position y(2),object position z(2) + 1
If rightkey()=1 AND object position z(2) > -14 then position object 2, object position x(2), object position y(2),object position z(2) - 1
If object collision(4,5)=1 then position object 4,object position x(4),object position y(4),object position z(4) - 2:yrotate object 4,wrapvalue(ballangle# * -ballangle# + 45 + rnd(20))
If object collision(4,6)=1 then position object 4,object position x(4),object position y(4),object position z(4) - 2:yrotate object 4,wrapvalue(ballabgle# * -ballangle# + 45 + rnd(20))
If object hit(4,1)=1 then position object 4,object position x(4) + 1,object position y(4),object position z(4):yrotate object 4,wrapvalue(ballangle# * -ballangle# + 45 + rnd(20))
If object hit(4,2)=1 then position object 4,object position x(4) - 1,object position y(4),object position z(4):yrotate object 4,wrapvalue(ballablge# * -ballangle# + 45 + rnd(20))
Loop

*For every problem you come across you gain something from correcting it, I hope.

Back to top

Profile PM

medwayman

22

Years of Service

User Offline

Joined: 27th Aug 2002

Location: uk

Posted: 14th Apr 2004 18:49

Link

The only reason the ball bounces off the fist paddle is this line is wrong - ballangle#= = object angle y(4) - You have two equals in this line so ballangle# always =0.

You need to look at all of the collision again. You need to slow the ball movement and print values to the screen so you can see whatâ€™s going on.

Examples:
Move object 4,0.01
Text 10,10,str$(ballangle#)

Based on Amiga PD game Squigs. Early shots: http://www.custardsoft.pwp.blueyonder.co.uk/images/03.png

Back to top

Profile PM

Mr Monkey Man

20

Years of Service

User Offline

Joined: 22nd Feb 2004

Location: UK

Posted: 15th Apr 2004 12:21

Link

I followed your advice to find out what was going on. I edited the code slightyly and found that the collision between the shere and the second paddle were not being picked up by the computer and more advice for me out there. Thankyou

Color backdrop RGB(155,155,255)
Make object box 1,2,2,6:Color object 1,RGB(255,128,0):Position object 1,-18,0,0
Make object box 10,2,2,6:Color object 10,RGB(0,128,0):Position object 10,18,0,0
Make object box 3,39,2,39:Color object 3,RGB(255,255,255):Position object 3,0,-2,0
Make object sphere 4,2:Color object 4,RGB(128,0,0):yrotate object 4,-90
Position camera -30,30,-30:Point camera 0,0,-5:yrotate camera 45
set object collision on 1
set object collision on 10
set object collision on 4
Set object collision to spheres 4
Do
Move object 4,0.2
Text 2,2,str$( object angle y(4))
If upkey()=1 AND object position z(1) < 16 then position object 1,object position x(1),object position y(1),object position z(1) + 1
If downkey()=1 AND object position z(1) > -16 then position object 1,object position x(1),object position y(1),object position z(1) - 1
If leftkey()=1 AND object position z(10) < 16 then position object 10,object position x(10), object position y(10),object position z(10) + 1
If rightkey()=1 AND object position z(10) > -16 then position object 10, object position x(10), object position y(10),object position z(10) - 1
If object collision (4,1)=1 then text 10,10,"hit":position object 4,object position x(4) + 2,object position y(4),object position z(4):yrotate object 4,object angle y(4) * -object angle y(4) + rnd(30)
If object collision (4,10)=1 then text 10,10,"hit": position object 4,object position x(4) - 2,object position y(4),object position z(4):yrotate object 4,object angle y(4) * object angle y(4) + rnd(30)
If object position z(4) = 16 then yrotate object 4,object angle y(4) * -object angle y(4)
If object position z(4) = 16 then yrotate object 4,object angle y(4) * -object angle y(4)
Loop

+ Code Snippet

Color backdrop RGB(155,155,255)
Make object box 1,2,2,6:Color object 1,RGB(255,128,0):Position object 1,-18,0,0
Make object box 10,2,2,6:Color object 10,RGB(0,128,0):Position object 10,18,0,0
Make object box 3,39,2,39:Color object 3,RGB(255,255,255):Position object 3,0,-2,0
Make object sphere 4,2:Color object 4,RGB(128,0,0):yrotate object 4,-90
Position camera -30,30,-30:Point camera 0,0,-5:yrotate camera 45
set object collision on 1
set object collision on 10
set object collision on 4
Set object collision to spheres 4
Do
Move object 4,0.2
Text 2,2,str$( object angle y(4))
If upkey()=1 AND object position z(1) < 16 then position object 1,object position x(1),object position y(1),object position z(1) + 1
If downkey()=1 AND object position z(1) > -16 then position object 1,object position x(1),object position y(1),object position z(1) - 1
If leftkey()=1 AND object position z(10) < 16 then position object 10,object position x(10), object position y(10),object position z(10) + 1
If rightkey()=1 AND object position z(10) > -16 then position object 10, object position x(10), object position y(10),object position z(10) - 1
If object collision (4,1)=1 then text 10,10,"hit":position object 4,object position x(4) + 2,object position y(4),object position z(4):yrotate object 4,object angle y(4) * -object angle y(4) + rnd(30)
If object collision (4,10)=1 then text 10,10,"hit": position object 4,object position x(4) - 2,object position y(4),object position z(4):yrotate object 4,object angle y(4) * object angle y(4) + rnd(30)
If object position z(4) = 16 then yrotate object 4,object angle y(4) * -object angle y(4)
If object position z(4) = 16 then yrotate object 4,object angle y(4) * -object angle y(4)
Loop

*For every problem you come across you gain something from correcting it, I hope.

Back to top

Profile PM

Sorry your browser is not supported!

Newcomers DBPro Corner / You saying theres something wrong with my code, you correct