Little help (new here...) - GameCreators Forum

Author

Message

Xantus

19

Years of Service

User Offline

Joined: 9th Aug 2006

Location:

Posted: 9th Aug 2006 17:59

Link

Well ive started with few tutorials, made some simple thing and wanted to make break out style game... Ive downloaded break out engine from code base, but i cant get it work good....

My problem is: ball move

at start of the game it should move up....till first collision...

Code of this :

` This code was downloaded from The Game Creators
` It is reproduced here with full permission
` http://www.thegamecreators.com

Set Display Mode 640,480,32
`------
`Load Bricks
`------
load image "paddle.png",1
load image "block1.bmp",2
load image "block2.bmp",3
load image "block3.bmp",4
load image "block4.bmp",5
load image "ball.png",6
`------
`Setup Sprites
`------
Sprite 1,10,0,2
Sprite 2,90,0,2
Sprite 3,170,0,2
Sprite 4,250,0,2
Sprite 5,330,0,2
Sprite 6,410,0,2
Sprite 7,490,0,2
Sprite 8,570,0,2

Sprite 9,10,40,3
Sprite 10,90,40,3
Sprite 11,170,40,3
Sprite 12,250,40,3
Sprite 13,330,40,3
Sprite 14,410,40,3
Sprite 15,490,40,3
Sprite 16,570,40,3

Sprite 17,10,80,4
Sprite 18,90,80,4
Sprite 19,170,80,4
Sprite 20,250,80,4
Sprite 21,330,80,4
Sprite 22,410,80,4
Sprite 23,490,80,4
Sprite 24,570,80,4

Sprite 25,10,120,5
Sprite 26,90,120,5
Sprite 27,170,120,5
Sprite 28,250,120,5
Sprite 29,330,120,5
Sprite 30,410,120,5
Sprite 31,490,120,5
Sprite 32,570,120,5

`------
`Setup Variables
`------
player_x=320
player_y=460

ball_x=320
ball_y=240

ballx_dir=0
bally_dir=0

pscore=0
lives=3

`------
`Main Loop
`------
do

`Paddle Movement
if leftkey() then DEC player_x,8
if rightkey() then INC player_x,8
`Paddle Collision
if player_x < 1 then player_x = 1
if player_x > 540 then player_x = 540

`Wall Collision
if ball_y < 1 then bally_dir = 1
if ball_y > 464 then lives = lives-1:throw_ball = 1: Delete Sprite 81
if ball_x < 1 then ballx_dir = 1
if ball_y > 624 then ballx_dir = 0

`Set Ball Direction
if ballx_dir = 0 then DEC ball_x,ball_speed
if ballx_dir = 1 then INC ball_x,ball_speed
if bally_dir = 0 then DEC ball_y,ball_speed
if ballx_dir = 1 then INC ball_y,ball_speed

Sprite 80,player_x,player_y,1
Sprite 81,ball_x,ball_y,6

`Paddle Collision With Ball
If sprite hit(80,81) = 1 then bally_dir = 0

`Block Collision
For block_hit = 1 to 32
     If sprite hit(81,block_hit) = 1 then delete sprite block_hit:pscore=pscore+1:bally_dir=1
Next block_hit

`If Ball Exits Screen, Reset
If throwball = 1

Sleep 1000
   ball_x = 320
   ball_y = 240

ballx_dir = RND(1)
   bally_dir = RND(1)

throw_ball = 0
     Endif

sync
loop

+ Code Snippet

` This code was downloaded from The Game Creators
` It is reproduced here with full permission
` http://www.thegamecreators.com

Set Display Mode 640,480,32
`------
`Load Bricks
`------
load image "paddle.png",1
load image "block1.bmp",2
load image "block2.bmp",3
load image "block3.bmp",4
load image "block4.bmp",5
load image "ball.png",6
`------
`Setup Sprites
`------
Sprite 1,10,0,2
Sprite 2,90,0,2
Sprite 3,170,0,2
Sprite 4,250,0,2
Sprite 5,330,0,2
Sprite 6,410,0,2
Sprite 7,490,0,2
Sprite 8,570,0,2

Sprite 9,10,40,3
Sprite 10,90,40,3
Sprite 11,170,40,3
Sprite 12,250,40,3
Sprite 13,330,40,3
Sprite 14,410,40,3
Sprite 15,490,40,3
Sprite 16,570,40,3

Sprite 17,10,80,4
Sprite 18,90,80,4
Sprite 19,170,80,4
Sprite 20,250,80,4
Sprite 21,330,80,4
Sprite 22,410,80,4
Sprite 23,490,80,4
Sprite 24,570,80,4

Sprite 25,10,120,5
Sprite 26,90,120,5
Sprite 27,170,120,5
Sprite 28,250,120,5
Sprite 29,330,120,5
Sprite 30,410,120,5
Sprite 31,490,120,5
Sprite 32,570,120,5

`------
`Setup Variables
`------
player_x=320
player_y=460

ball_x=320
ball_y=240

ballx_dir=0
bally_dir=0

pscore=0
lives=3

`------
`Main Loop
`------
do

`Paddle Movement
if leftkey() then DEC player_x,8
if rightkey() then INC player_x,8
`Paddle Collision
if player_x < 1 then player_x = 1
if player_x > 540 then player_x = 540

`Wall Collision
if ball_y < 1 then bally_dir = 1
if ball_y > 464 then lives = lives-1:throw_ball = 1: Delete Sprite 81
if ball_x < 1 then ballx_dir = 1
if ball_y > 624 then ballx_dir = 0

`Set Ball Direction
if ballx_dir = 0 then DEC ball_x,ball_speed
if ballx_dir = 1 then INC ball_x,ball_speed
if bally_dir = 0 then DEC ball_y,ball_speed
if ballx_dir = 1 then INC ball_y,ball_speed

Sprite 80,player_x,player_y,1
Sprite 81,ball_x,ball_y,6

`Paddle Collision With Ball
If sprite hit(80,81) = 1 then bally_dir = 0

`Block Collision
For block_hit = 1 to 32
     If sprite hit(81,block_hit) = 1 then delete sprite block_hit:pscore=pscore+1:bally_dir=1
Next block_hit

`If Ball Exits Screen, Reset
If throwball = 1

     Sleep 1000
   ball_x = 320
   ball_y = 240

   ballx_dir = RND(1)
   bally_dir = RND(1)

   throw_ball = 0
     Endif

  sync
loop

when i add dec ball_y it of course go up....but never stops even at collision etc... How to make this right ?

Its prabably easy....but im new at this...

Back to top

Profile PM

Xantus

19

Years of Service

User Offline

Joined: 9th Aug 2006

Location:

Posted: 9th Aug 2006 19:49

Link

Since i cant edit (Unknown System Error appears).

I manage to get it working.

But the collision system is kinda wierd when i hit block from bottom its ok , but when ball comes from the top of the screen there is no collision - ball just go throu blocks from top like throu air no Y movement change etc...

Beside that how can i make its more precise (collision system) not just "when collision ball_y = -1" but something like angle of dropping ball when collision = ball new move = - angle of dropping, accurate one like in good break out games.

Sorry for my bad english, im from pl

Back to top

Profile PM

Matt Rock

21

Years of Service

User Offline

Joined: 5th Mar 2005

Location: Binghamton NY USA

Posted: 11th Aug 2006 19:24

Link

This belongs in one of the programming sections. A mod will probably end up moving it, so don't be surprised if it vanishes... it just means it was moved

Also, you shouldn't double-post. Use the "edit" button in the forums if you forgot to mention something. I see that you tried to use edit, but some people assume the feature doesn't work and they keep double-posting after the issue is fixed. Anyway, just a few friendly bits of advice

You're new so I'm trying to keep others from flaming ya hehe.

Try playing around with variables and experiment with the code. Add to it, subtract from it, etc. Try to figure out why certain variables make certain things happen.

"In an interstellar burst, I'm back to save the universe"

Back to top

Profile PM Email Website

Zergei

21

Years of Service

User Offline

Joined: 9th Feb 2005

Location: Everywhere

Posted: 11th Aug 2006 23:56 Edited at: 11th Aug 2006 23:58

Link

I found the answer to your problem... or so i think, but it must be this...

check the following...

+ Code Snippet

if ball_y < 1 then bally_dir = 1
if ball_y > 464 then lives = lives-1:throw_ball = 1: Delete Sprite 81
if ball_x < 1 then ballx_dir = 1
if ball_y > 624 then ballx_dir = 0

Notice that you set the borders for where the ball should collide... well, if you see a bit better, you'll see that the last "if" statement checks for "ball_y" when it should do for "ball_x".

Also here...

+ Code Snippet

`Set Ball Direction
if ballx_dir = 0 then DEC ball_x,ball_speed
if ballx_dir = 1 then INC ball_x,ball_speed
if bally_dir = 0 then DEC ball_y,ball_speed
if ballx_dir = 1 then INC ball_y,ball_speed

Same here but viceversa, you are checking for "ballx_dir" where you should check for "bally_dir", same place, on the last "if" statement.

So basically, just change it to like this

` This code was downloaded from The Game Creators
` It is reproduced here with full permission
` http://www.thegamecreators.com

Set Display Mode 640,480,32
`------
`Load Bricks
`------
load image "paddle.png",1
load image "block1.bmp",2
load image "block2.bmp",3
load image "block3.bmp",4
load image "block4.bmp",5
load image "ball.png",6
`------
`Setup Sprites
`------
Sprite 1,10,0,2
Sprite 2,90,0,2
Sprite 3,170,0,2
Sprite 4,250,0,2
Sprite 5,330,0,2
Sprite 6,410,0,2
Sprite 7,490,0,2
Sprite 8,570,0,2

Sprite 9,10,40,3
Sprite 10,90,40,3
Sprite 11,170,40,3
Sprite 12,250,40,3
Sprite 13,330,40,3
Sprite 14,410,40,3
Sprite 15,490,40,3
Sprite 16,570,40,3

Sprite 17,10,80,4
Sprite 18,90,80,4
Sprite 19,170,80,4
Sprite 20,250,80,4
Sprite 21,330,80,4
Sprite 22,410,80,4
Sprite 23,490,80,4
Sprite 24,570,80,4

Sprite 25,10,120,5
Sprite 26,90,120,5
Sprite 27,170,120,5
Sprite 28,250,120,5
Sprite 29,330,120,5
Sprite 30,410,120,5
Sprite 31,490,120,5
Sprite 32,570,120,5

`------
`Setup Variables
`------
player_x=320
player_y=460

ball_x=320
ball_y=240

ballx_dir=0
bally_dir=0

pscore=0
lives=3

`------
`Main Loop
`------
do

`Paddle Movement
if leftkey() then DEC player_x,8
if rightkey() then INC player_x,8
`Paddle Collision
if player_x < 1 then player_x = 1
if player_x > 540 then player_x = 540

`Wall Collision
if ball_y < 1 then bally_dir = 1
if ball_y > 464 then lives = lives-1:throw_ball = 1: Delete Sprite 81
if ball_x < 1 then ballx_dir = 1
if ball_x > 624 then ballx_dir = 0

`Set Ball Direction
if ballx_dir = 0 then DEC ball_x,ball_speed
if ballx_dir = 1 then INC ball_x,ball_speed
if bally_dir = 0 then DEC ball_y,ball_speed
if bally_dir = 1 then INC ball_y,ball_speed

Sprite 80,player_x,player_y,1
Sprite 81,ball_x,ball_y,6

`Paddle Collision With Ball
If sprite hit(80,81) = 1 then bally_dir = 0

`Block Collision
For block_hit = 1 to 32
     If sprite hit(81,block_hit) = 1 then delete sprite block_hit:pscore=pscore+1:bally_dir=1
Next block_hit

`If Ball Exits Screen, Reset
If throwball = 1

Sleep 1000
   ball_x = 320
   ball_y = 240

ballx_dir = RND(1)
   bally_dir = RND(1)

throw_ball = 0
     Endif

sync
loop

+ Code Snippet

` This code was downloaded from The Game Creators
` It is reproduced here with full permission
` http://www.thegamecreators.com

Set Display Mode 640,480,32
`------
`Load Bricks
`------
load image "paddle.png",1
load image "block1.bmp",2
load image "block2.bmp",3
load image "block3.bmp",4
load image "block4.bmp",5
load image "ball.png",6
`------
`Setup Sprites
`------
Sprite 1,10,0,2
Sprite 2,90,0,2
Sprite 3,170,0,2
Sprite 4,250,0,2
Sprite 5,330,0,2
Sprite 6,410,0,2
Sprite 7,490,0,2
Sprite 8,570,0,2

Sprite 9,10,40,3
Sprite 10,90,40,3
Sprite 11,170,40,3
Sprite 12,250,40,3
Sprite 13,330,40,3
Sprite 14,410,40,3
Sprite 15,490,40,3
Sprite 16,570,40,3

Sprite 17,10,80,4
Sprite 18,90,80,4
Sprite 19,170,80,4
Sprite 20,250,80,4
Sprite 21,330,80,4
Sprite 22,410,80,4
Sprite 23,490,80,4
Sprite 24,570,80,4

Sprite 25,10,120,5
Sprite 26,90,120,5
Sprite 27,170,120,5
Sprite 28,250,120,5
Sprite 29,330,120,5
Sprite 30,410,120,5
Sprite 31,490,120,5
Sprite 32,570,120,5

`------
`Setup Variables
`------
player_x=320
player_y=460

ball_x=320
ball_y=240

ballx_dir=0
bally_dir=0

pscore=0
lives=3

`------
`Main Loop
`------
do

`Paddle Movement
if leftkey() then DEC player_x,8
if rightkey() then INC player_x,8
`Paddle Collision
if player_x < 1 then player_x = 1
if player_x > 540 then player_x = 540

`Wall Collision
if ball_y < 1 then bally_dir = 1
if ball_y > 464 then lives = lives-1:throw_ball = 1: Delete Sprite 81
if ball_x < 1 then ballx_dir = 1
if ball_x > 624 then ballx_dir = 0

`Set Ball Direction
if ballx_dir = 0 then DEC ball_x,ball_speed
if ballx_dir = 1 then INC ball_x,ball_speed
if bally_dir = 0 then DEC ball_y,ball_speed
if bally_dir = 1 then INC ball_y,ball_speed

Sprite 80,player_x,player_y,1
Sprite 81,ball_x,ball_y,6

`Paddle Collision With Ball
If sprite hit(80,81) = 1 then bally_dir = 0

`Block Collision
For block_hit = 1 to 32
     If sprite hit(81,block_hit) = 1 then delete sprite block_hit:pscore=pscore+1:bally_dir=1
Next block_hit

`If Ball Exits Screen, Reset
If throwball = 1

     Sleep 1000
   ball_x = 320
   ball_y = 240

   ballx_dir = RND(1)
   bally_dir = RND(1)

   throw_ball = 0
     Endif

  sync
loop

Further on my stuff at...

Back to top

Profile PM Email Website

Sorry your browser is not supported!

2D All the way! / Little help (new here...)