My BreakOut Game

Big C. · December 12, 2009, 07:24:03 PM

hi markel422,

can u more explain the meaning of ItemMax and why want you dim the itemtype again?

What is your game design/logic behind the powerup grab? Normally in games like arkanoid the grab function will grab the ball at the paddle. The player can use this powerup as long as the player catch a new powerup or lost the ball. Is this what your powerup shall do?

Btw it isn't easy to read your code because i miss the recurrent theme. Your game loop is very big and i think there is many code which can perfect implemented in a Psub/Function ;)

Big C.

markel422 · December 12, 2009, 09:54:10 PM

Hi Big C. :)

Quotecan u more explain the meaning of ItemMax and why want you dim the itemtype again?

Well with the variable ItemMax, I am able to control how many items can only appear at a time when it is given the means to spawn (as to just fall down). The reason with the redim is technically why I need help on how to approach this code, because of each of the items from before labeled like this on Lines 71-85:

Code Select

;Dimension for GreenItem
ItemMax=1
Dim GIAppear(ItemMax)
Dim GIposX(ItemMax)
Dim GIposY(ItemMax)
;Dimension for BlueItem
Dim BIAppear(ItemMax)
Dim BIPosX(ItemMax)
Dim BIPosY(ItemMax)
;Dimension for YellowItem
Dim YIAppear(ItemMax)
Dim YIPosX(ItemMax)
Dim YIPosY(ItemMax)

So for me to even try and do this again I would need to find some way in order to still dim the ItemMax while still doing the Array Method.

QuoteWhat is your game design/logic behind the powerup grab? Normally in games like arkanoid the grab function will grab the ball at the paddle. The player can use this powerup as long as the player catch a new powerup or lost the ball. Is this what your powerup shall do?

Yeah that was what I was trying to aim for, but now it is because of these Arrays that I need to Fix up, I cannot fix it right now until I change the bunch of items into one array so that the the code will be more clean.

QuoteBtw it isn't easy to read your code because i miss the recurrent theme. Your game loop is very big and i think there is many code which can perfect implemented in a Psub/Function

As with the Psub/Functions, I am still kinda having trouble on how to properly put all of the code right (when it comes to Functions). I still don't know how to Correctly do that yet, but I will probably attempt it once I am able to get all of this fixed ;).

kevin · December 12, 2009, 11:00:27 PM

From what i can see, you've convert the Ball1 to an array, but the code still seems to be treating them differently.

So i've stripped your code down to leave a bouncing ball.

PlayBASIC Code: [Select]

   Setfps 60

   ///Normal BallSize
   BallSize =8

   type tBall
      x
      y ;The Position for the Balls
      speedx
      speedy ; The Speed for the Balls
      Size ; Size for each of the Balls
      Colour
   endtype

   ; create an array with space for 3 balls
   Dim Ball(3) as tball

   ; init the balls starting states
   gosub Ball_Restart


   
   ; Play game loop
   Do

      Cls 0
              
      ;Handle Ball Movement(rebound off screen edges)
      if ball(1).x + ball(1).size > getscreenwidth()
        ball(1).x = getscreenwidth() - ball(1).size
        ball(1).speedx = ball(1).speedx * -1
      endif
   
      if ball(1).x - ball(1).size < 0
         ball(1).x = 0 + ball(1).size
         ball(1).speedx=ball(1).speedx * -1     
      endif
      
      if ball(1).y - ball(1).size < 0
         ball(1).y = 0 + ball(1).size
         ball(1).speedy=ball(1).speedy * -1
      endif
   
      if ball(1).y + ball(1).size >GetScreenHeight()
         ball(1).y = GetScreenHeight()- ball(1).size
         ball(1).speedy=ball(1).speedy * -1
      endif

      ; draw it 
      circle ball(1).x,Ball(1).y,Ball(1).size,true
      ; move it for next frame
      ball(1).x=ball(1).x+ball(1).Speedx
      ball(1).y=ball(1).y+ball(1).Speedy



      ; draw the screen
   Sync
Loop


//=============================================================================
//ROUTINES
//============================================================================

Ball_Restart:

;Create Ball One, in array Index #1  
   Ball(1).x=400
   Ball(1).y=300
   Ball(1).speedx=rndrange(2,3)
   Ball(1).speedy=rndrange(3,4)
   Ball(1).Size=Ballsize
   Ball(1).Colour=RGB(0,0,200)
   
;Create Ball Two, in array Index #2  
   Ball(2).x=350
   Ball(2).y=300
   Ball(2).speedx=rndrange(2,3)
   Ball(2).speedy=rndrange(3,4)
   Ball(2).Size=Ballsize
   Ball(2).Colour=RGB(0,0,200)

;Create Ball Three, in array Index #3  
   ball(3).x = 400
   ball(3).y = 300
   ball(3).speedx = rndrange(2,3)
   ball(3).speedy = rndrange(3,4)
   ball(3).size=Ballsize
   ball(3).colour=rgb(0,0,200)

return

The code declares the Ball Objects type (what properties each ball has), then Dimensions the Ball array (See DIM, ARRAY BASIC sin the HELP->ABOUT->ARRAYBASIC) The subroutine then fills in the individual balls.

Now in the game loop, where processing & drawing ball object #1. So while the other balls exist (Run in debug mode F7 and view the Ball array), we'll never seen them. Now while the code does what we've told it, it's not actually

PlayBASIC Code: [Select]

   Setfps 60

   ///Normal BallSize
   BallSize =8

   type tBall
      x
      y ;The Position for the Balls
      speedx
      speedy ; The Speed for the Balls
      Size ; Size for each of the Balls
      Colour
   endtype

   ; create an array with space for 3 balls
   Dim Ball(3) as tball

   ; init the balls starting states
   gosub Ball_Restart


   
   ; Play game loop
   Do

      Cls 0

      ; loop through each index (ball) in the ball array and update it's logoc and draw it
      For lp=1 to 3
              
         ;Handle Ball Movement(rebound off screen edges)
         if ball(lp).x + ball(lp).size > getscreenwidth()
           ball(lp).x = getscreenwidth() - ball(lp).size
           ball(lp).speedx = ball(lp).speedx * -1
         endif
      
         if ball(lp).x - ball(lp).size < 0
            ball(lp).x = 0 + ball(lp).size
            ball(lp).speedx=ball(lp).speedx * -1     
            endif
      
          if ball(lp).y - ball(lp).size < 0
               ball(lp).y = 0 + ball(lp).size
                ball(lp).speedy=ball(lp).speedy * -1
          endif
   
         if ball(lp).y + ball(lp).size >GetScreenHeight()
            ball(lp).y = GetScreenHeight()- ball(lp).size
            ball(lp).speedy=ball(lp).speedy * -1
         endif
   
         ; draw it 
         circle ball(lp).x,Ball(lp).y,Ball(lp).size,true
         ; move it for next frame   
         ball(lp).x=ball(lp).x+ball(lp).Speedx
         ball(lp).y=ball(lp).y+ball(lp).Speedy

      next lp
      

      ; draw the screen
   Sync
Loop


//=============================================================================
//ROUTINES
//============================================================================

Ball_Restart:

;Create Ball One, in array Index #1  
   Ball(1).x=400
   Ball(1).y=300
   Ball(1).speedx=rndrange(2,3)
   Ball(1).speedy=rndrange(3,4)
   Ball(1).Size=Ballsize
   Ball(1).Colour=RGB(0,0,200)
   
;Create Ball Two, in array Index #2  
   Ball(2).x=350
   Ball(2).y=300
   Ball(2).speedx=rndrange(2,3)
   Ball(2).speedy=rndrange(3,4)
   Ball(2).Size=Ballsize
   Ball(2).Colour=RGB(0,0,200)

;Create Ball Three, in array Index #3  
   ball(3).x = 400
   ball(3).y = 300
   ball(3).speedx = rndrange(2,3)
   ball(3).speedy = rndrange(3,4)
   ball(3).size=Ballsize
   ball(3).colour=rgb(0,0,200)

return

Here we're processing all the objects in BALL array. While this works, it's clunkys, because you've hard coded what indexs the balls use.

We can eleminate that by rather than explicitly nominating what Indexs the balls use, we ask PB to find a free one for us. This will require a slight logic change to the ball processing loop, but that's it.

PlayBASIC Code: [Select]

   Setfps 60

   ///Normal BallSize
   BallSize =8

   type tBall
      x
      y ;The Position for the Balls
      speedx
      speedy ; The Speed for the Balls
      Size ; Size for each of the Balls
      Colour
   endtype

   ; create an array with space for 3 balls
   Dim Ball(3) as tball

   ; init the balls starting states
   gosub Ball_Init

   
   ; Play game loop
   Do

      Cls 0

      ; loop through each index in the ball array.
      
      For lp=1 to GetArrayElements(Ball(),1)

         ; check if this ball exists?, if it does, we update it's logic and draw it  
         if Ball(lp)
              
            ;Handle Ball Movement(rebound off screen edges)
            if ball(lp).x + ball(lp).size > getscreenwidth()
              ball(lp).x = getscreenwidth() - ball(lp).size
              ball(lp).speedx = ball(lp).speedx * -1
            endif
      
            if ball(lp).x - ball(lp).size < 0
                  ball(lp).x = 0 + ball(lp).size
               ball(lp).speedx=ball(lp).speedx * -1     
               endif
      
             if ball(lp).y - ball(lp).size < 0
                  ball(lp).y = 0 + ball(lp).size
                   ball(lp).speedy=ball(lp).speedy * -1
             endif
   
            if ball(lp).y + ball(lp).size >GetScreenHeight()
               ball(lp).y = GetScreenHeight()- ball(lp).size
               ball(lp).speedy=ball(lp).speedy * -1
            endif
   
         ; draw it 
               circle ball(lp).x,Ball(lp).y,Ball(lp).size,true
            ; move it for next frame   
            ball(lp).x=ball(lp).x+ball(lp).Speedx
            ball(lp).y=ball(lp).y+ball(lp).Speedy

         endif
      next lp
      
      
      if Spacekey()
         gosub Add_Ball
         FlushKeys
      endif
      
      

      ; draw the screen
   Sync
Loop


//=============================================================================
//ROUTINES
//============================================================================

Ball_Init:

;Create Ball One, in whatever index is free in BALL()
   Index=GetFreeCell(Ball())
   Ball(Index).x=400
   Ball(Index).y=300
   Ball(Index).speedx=rndrange(2,3)
   Ball(Index).speedy=rndrange(3,4)
   Ball(Index).Size=Ballsize
   Ball(Index).Colour=RGB(0,0,200)
   
;Create Ball Two
   Index=GetFreeCell(Ball())
   Ball(Index).x=350
   Ball(Index).y=300
   Ball(Index).speedx=rndrange(2,3)
   Ball(Index).speedy=rndrange(3,4)
   Ball(Index).Size=Ballsize
   Ball(Index).Colour=RGB(0,0,200)

;Create Ball Three
   Index=GetFreeCell(Ball())
   ball(Index).x = 400
   ball(Index).y = 300
   ball(Index).speedx = rndrange(2,3)
   ball(Index).speedy = rndrange(3,4)
   ball(Index).size=Ballsize
   ball(Index).colour=rgb(0,0,200)

return




//=============================================================================
//ROUTINES
//============================================================================

Add_Ball:

   ;Ask PB for a free index within the BALL() array.  If none exist, Pb will
   ; expand the array for us.
      Index=GetFreeCell(Ball())
         Ball(Index).x=400
      Ball(Index).y=300
      Ball(Index).speedx=rndrange(-3,3)
      Ball(Index).speedy=rndrange(-4,4)
      Ball(Index).Size=Ballsize
      Ball(Index).Colour=rndrgb()

   return

And here's a version with deletion. This version that allows the user to click a ball to kill it. Press SPACE to add balls to the scene.

PlayBASIC Code: [Select]

   Setfps 60

   ///Normal BallSize
   BallSize =20

   type tBall
      x
      y ;The Position for the Balls
      speedx
      speedy ; The Speed for the Balls
      Size ; Size for each of the Balls
      Colour
   endtype

   ; create an array with space for 3 balls
   Dim Ball(3) as tball

   ; init the balls starting states
   gosub Ball_Init

   
   ; Play game loop
   Do

      Cls 0


      NumberOfBallsAlive=0

      ; loop through each index in the ball array.
      For lp=1 to GetArrayElements(Ball(),1)

         ; check if this ball exists?, if it does, we update it's logic and draw it  
         if Ball(lp)
            inc NumberOfBallsAlive
              
            ;Handle Ball Movement(rebound off screen edges)
            if ball(lp).x + ball(lp).size > getscreenwidth()
              ball(lp).x = getscreenwidth() - ball(lp).size
              ball(lp).speedx = ball(lp).speedx * -1
            endif
      
            if ball(lp).x - ball(lp).size < 0
                  ball(lp).x = 0 + ball(lp).size
               ball(lp).speedx=ball(lp).speedx * -1     
               endif
      
             if ball(lp).y - ball(lp).size < 0
                  ball(lp).y = 0 + ball(lp).size
                   ball(lp).speedy=ball(lp).speedy * -1
             endif
   
            if ball(lp).y + ball(lp).size >GetScreenHeight()
               ball(lp).y = GetScreenHeight()- ball(lp).size
               ball(lp).speedy=ball(lp).speedy * -1
            endif
   
         ; draw it 
               circle ball(lp).x,Ball(lp).y,Ball(lp).size,true

               
            ; move it for next frame   
            ball(lp).x=ball(lp).x+ball(lp).Speedx
            ball(lp).y=ball(lp).y+ball(lp).Speedy


            ; check if the player is clicking the ball, to kill it
            if MouseButton()=1

               ; check if the user is clicking on ball
               if CirclesIntersect(MouseX(),Mousey(),5,ball(lp).x,Ball(lp).y,Ball(lp).size)=true
                  ; if it is then we kill this ball.
                     
                  ball(lp) = NULL
                  
               endif
            endif
            

         endif
      next lp
      
      
      if Spacekey()
         gosub Add_Ball
         FlushKeys
      endif
      
      ; print the number of balls that are alive
      print NumberOfBallsAlive      

      ; draw the screen
   Sync
Loop


//=============================================================================
//ROUTINES
//============================================================================

Ball_Init:

;Create Ball One, in whatever index is free in BALL()
   Index=GetFreeCell(Ball())
   Ball(Index).x=200
   Ball(Index).y=300
   Ball(Index).speedx=rndrange(2,3)
   Ball(Index).speedy=rndrange(3,4)
   Ball(Index).Size=Ballsize
   Ball(Index).Colour=RGB(0,0,200)
   
;Create Ball Two
   Index=GetFreeCell(Ball())
   Ball(Index).x=350
   Ball(Index).y=300
   Ball(Index).speedx=rndrange(2,3)
   Ball(Index).speedy=rndrange(3,4)
   Ball(Index).Size=Ballsize
   Ball(Index).Colour=RGB(0,0,200)

;Create Ball Three
   Index=GetFreeCell(Ball())
   ball(Index).x = 400
   ball(Index).y = 300
   ball(Index).speedx = rndrange(2,3)
   ball(Index).speedy = rndrange(3,4)
   ball(Index).size=Ballsize
   ball(Index).colour=rgb(0,0,200)

return




//=============================================================================
//ROUTINES
//============================================================================

Add_Ball:

   ;Ask PB for a free index within the BALL() array.  If none exist, Pb will
   ; expand the array for us.
      Index=GetFreeCell(Ball())
         Ball(Index).x=400
      Ball(Index).y=300
      Ball(Index).speedx=rndrange(-3,3)
      Ball(Index).speedy=rndrange(-4,4)
      Ball(Index).Size=Ballsize
      Ball(Index).Colour=rndrgb()

Login required to view complete source code

Rather than repeat myself. See Character Life Cycles

markel422 · December 13, 2009, 01:16:25 AM

Aahhhh...Ok, So that's how "GetFreeCell" and "GetArrayElements" work. When the Index variable represents any New Array number given, GetFreeCell automatically finds any Array space that is available and even if it can't, it still creates a new space thus Forcefully expanding the Array, while GetArrayElements checks to see how many spaces were Dimmed from the start and even when it is expanded. When I was first shown this before, I didn't understand it due to me not understanding the functionality of "Functions" at the time (which was the many various passings of variables from a Function to the Main Loop). But now after working with the Arrays all the time, I now see how important those two codes REALLY are and how I can use it in my Game. :)

Although I'm kinda having trouble understanding the Cos, Sin, and Tan logic. Is Cos what draws "Left & Right" of Degrees, Sin draws "Up & Down" of Degrees, What is Tan? Diagonal???

kevin · December 13, 2009, 09:54:55 PM

cos, sin, tan

Cos & Sin are the useful ones

Bellow is a quick revision of the example above, except this one show a contents of the array on the side of the screen. it shows the size of the array, and what cells are currently in use (have objects in them). It draws a lines between to the cell and the object on screen to give you some ideas of what index in the array is what object on screen. It also show empty cells, so you see what's actually happening.

Space bar to add objects, click on them with the mouse to delete them.

Code Select





	Setfps 60

	///Normal BallSize
	BallSize =20

	type tBall
		x
		y ;The Position for the Balls
		speedx
		speedy ; The Speed for the Balls
		Size ; Size for each of the Balls
	   Colour
	endtype

	; create an array with space for 3 balls
	Dim Ball(3) as tball

	; init the balls starting states
	gosub Ball_Init

   
	; Play game loop
	Do

		Cls 0


		NumberOfBallsAlive=0

		; loop through each index in the ball array.
		For lp=1 to GetArrayElements(Ball(),1)

			; check if this ball exists?, if it does, we update it's logic and draw it  
			if Ball(lp)
				inc NumberOfBallsAlive
	      	  
				;Handle Ball Movement(rebound off screen edges)
				if ball(lp).x + ball(lp).size > getscreenwidth()
				  ball(lp).x = getscreenwidth() - ball(lp).size
				  ball(lp).speedx = ball(lp).speedx * -1
				endif
		
				if ball(lp).x - ball(lp).size < 0
						ball(lp).x = 0 + ball(lp).size
					ball(lp).speedx=ball(lp).speedx * -1     
	  			 endif
		
				 if ball(lp).y - ball(lp).size < 0
	  				 ball(lp).y = 0 + ball(lp).size
						 ball(lp).speedy=ball(lp).speedy * -1
	   		 endif
   
				if ball(lp).y + ball(lp).size >GetScreenHeight()
					ball(lp).y = GetScreenHeight()- ball(lp).size
					ball(lp).speedy=ball(lp).speedy * -1
			   endif
	
			; draw it 
					circle ball(lp).x,Ball(lp).y,Ball(lp).size,true

					
				; move it for next frame	
				ball(lp).x=ball(lp).x+ball(lp).Speedx
				ball(lp).y=ball(lp).y+ball(lp).Speedy


				; check if the player is clicking the ball, to kill it
				if MouseButton()=1

					; check if the user is clicking on ball
					if CirclesIntersect(MouseX(),Mousey(),5,ball(lp).x,Ball(lp).y,Ball(lp).size)=true
						; if it is then we kill this ball.
							
						ball(lp) = NULL
						
					endif
				endif
				

			endif
		next lp
		
		
		if Spacekey()
			gosub Add_Ball
			FlushKeys
		endif
		
		; print the number of balls that are alive
		print "NumberOf Living Objects:"+Str$(NumberOfBallsAlive)		


		DrawBallArray(0,50)


		; draw the screen
	Sync
Loop


//=============================================================================
//ROUTINES
//============================================================================

Ball_Init:

;Create Ball One, in whatever index is free in BALL()
	Index=GetFreeCell(Ball())
   Ball(Index).x=200
   Ball(Index).y=300
   Ball(Index).speedx=rndrange(2,3)
   Ball(Index).speedy=rndrange(3,4)
   Ball(Index).Size=Ballsize
   Ball(Index).Colour=RGB(0,0,200)
   
;Create Ball Two
	Index=GetFreeCell(Ball())
   Ball(Index).x=350
   Ball(Index).y=300
   Ball(Index).speedx=rndrange(2,3)
   Ball(Index).speedy=rndrange(3,4)
   Ball(Index).Size=Ballsize
   Ball(Index).Colour=RGB(0,0,200)

;Create Ball Three
	Index=GetFreeCell(Ball())
   ball(Index).x = 400
   ball(Index).y = 300
   ball(Index).speedx = rndrange(2,3)
   ball(Index).speedy = rndrange(3,4)
   ball(Index).size=Ballsize
   ball(Index).colour=rgb(0,0,200)

return




//=============================================================================
//ROUTINES
//============================================================================

Add_Ball:

	;Ask PB for a free index within the BALL() array.  If none exist, Pb will
	; expand the array for us.
		Index=GetFreeCell(Ball())
		   Ball(Index).x=400
	   Ball(Index).y=300
	   Ball(Index).speedx=rndrange(-3,3)
	   Ball(Index).speedy=rndrange(-4,4)
	   Ball(Index).Size=Ballsize
	   Ball(Index).Colour=rndrgb()

	return


; This functions draws a graphicsl representation of what is going on in the Ball() array

Function DrawBallArray(Xpos,Ypos)

	; ask Pb how big this array currently is
	Size=getArrayElements(Ball(),1)

	CellWidth=100	
	CellHeight=GetTextHeight("Y")+5
	
	Height=CellHeight*(Size)

	c1=rgb(255,0,250)
	c2=rgb(55,10,50)
		

	ink rgb(0,255,0)
	Text Xpos,Ypos,"Array Size="+Str$(Size)
	Ypos=Ypos+CellHeight
	Shadebox xpos,ypos,xpos+CellWidth,Ypos+Height,c1,c2,c2,c1		

	PadX=5
	X=Xpos+PadX
	Y=Ypos
	
	for lp=1 to Size
		if Ball(lp)
			ink rgb(0,255,0)
			text X,Y,"#"+Digits$(lp,2)

			x2=Xpos+CellWidth
			y2=Y+CellHeight/2
			linec x2,y2,Ball(lp).x,Ball(lp).y,rgb(0,0,255)


		else
			Boxc x,y,x+CellWidth-PadX,Y+Cellheight,true,rgb(100,0,0)
			ink rgb(255,0,0)
			text X,Y,"#EMPTY"
		endif

		Y=Y+Cellheight	
	next
	ink rgb(255,255,255)

EndFunction

markel422 · December 17, 2009, 05:13:36 PM

I am completely remodifying my whole code in order for me to start from scratch to put my Array codes in. So far after changing alot things, it is going quite well, even though there were a few slow downs. Now instead of my items spawning when a Player reach a certain amount of "PlayerScore", these items will now only spawn when a random ranged number reach a certain number. But there's a problem with even using this system...the items now keep respawning in different locations everytime the Rnd number equals true, is there anyway to turn this Rnd Range System OFF while an item spawn is happening or to at least keep it from interfering with the item spawns?

Please Note: (I Put the Rnd Number Range Low on Purpose (Lines 154-157) in order to see if this strange thing is still happening.)

Here's the remodifed Code:

Code Select

openscreen 800,600,32,1
setfps 60
IWidth=8
IHeight=8
Width=90
Height=15
PlayerSize=Width
playerx=355
playery=550
Ballsize=8
PlayerNormalState=0
PlayerScore=0
sw=getscreenwidth()
sh=getscreenheight()
Green=0
Blue=0
Constant Normal=7
Constant Shrunk=8

type tBall
	x,y
	speedx
	speedy
	size
	colour
endtype
Dim Ball(1) as tBall
Dim bl(160)

type tItem
	Appear
	PosX
	PosY
endtype
Dim Item(2) as tItem
ItemCount=0
ItemMax=1
Appear=0
gosub Init_Ball


Do 
	Cls 0
	   PlayerState=Normal
	   playerx=MouseX()
	   
      NumberOfBalls=0
	   for lp=1 to GetArrayElements(Ball(),1)
	   	
	   	;To see if the Balls exist
	   	if ball(lp)
	   		
	   		
	   		inc NumberOfBalls
	   		x = ball(lp).x+ball(lp).speedx
	   		y = ball(lp).y+ball(lp).speedy
	   		radius=ball(lp).size
	   		colour=ball(lp).colour
	   		
	   		if x-radius < 0
	   		   x = 0+radius
	   		   ball(lp).speedx=ball(lp).speedx*-1
   		   endif
	   		
	   		if x+radius > sw 
	   			x = sw-radius
	   			ball(lp).speedx=ball(lp).speedx*-1
   		   endif
	   		
	   		if y-radius < 0 
	   			y = 0+radius
	   			ball(lp).speedy=ball(lp).speedy*-1
   			endif
               
 NumberOfBlocksLeft=0
	BA =0
	for blocky = 100 to 280 step 20
	 for blockx = 1 to 751 step 50

			; check if block exists
	    if bl(ba)=0 
					; draw block 
	    	    if blocky>99 and blocky<140 then BoxC blockx,blocky,blockx+48,blocky+18,1,RGB(180,0,0)
	    	    if blocky>139 and blocky<180 then BoxC blockx,blocky,blockx+48,blocky+18,1,RGB(180,100,0)
	    	    if blocky>179 and blocky<220 then BoxC blockx,blocky,blockx+48,blocky+18,1,RGB(100,180,0)
	    	    if blocky>219 and blocky<260 then BoxC blockx,blocky,blockx+48,blocky+18,1,RGB(0,180,100)
	    	    if blocky>259 and blocky<300 then BoxC blockx,blocky,blockx+48,blocky+18,1,RGB(0,100,160)

					; check if the ball might be hitting this block
	          if PointInBox (x,y,blockx,blocky,blockx+48,blocky+18)
		          	bl(ba)=1
		          	ball(lp).speedy=ball(lp).speedy * -1
		          	PlayerScore=PlayerScore+50
               endif
             
					; bump our counter that represents the number of blocks that are still alive
					inc NumberOfBlocksLeft
	    endif

	      Inc BA
      next
   next
        
        	  
        
        
        If PlayerGotShrunk=1
	    	  If Playernormalstate=0
	  	        PlayerState=Shrunk
           Endif
        Endif
       
        If PlayerState=Shrunk
     	     PlayerNormalState=timer()+10000 ;Add 10 second timer
		     PlayerSize=width/2 ;Shrink Player Half it's Width
        Endif
     
    	  If Timer()>PlayerNormalState ;Did timer pass 10 seconds? If did then...
	        PlayerNormalState = 0 ;Player is Back to Normal
	        PlayerGotShrunk=0
	        PlayerSize=Width ;Player will Come to back to it's origial width
	        PlayerState=Normal
        Endif  
            
            if Playerx < 0 then Playerx = 0 + PLayerSize
            if Playerx+PlayerSize > sw then Playerx = sw - PlayerSize
   
            if PointinBox (x,y,playerx,playery,playerx+PlayerSize,Playery+Height)
            	ball(lp).speedy=ball(lp).speedy*-1
            endif
	   		
            boxc playerx,playery,playerx+PlayerSize,playery+Height,1,RGB(180,0,0) 
	   		circlec x,y,radius,1,colour
	   		
	   		ball(lp).x=x
	   		ball(lp).y=y
	   		
   	   Endif;End of "Ball(obj)"....
	   
	   if ball(lp).y > sh
	   	ball(lp)=NULL
	   endif
	   
      next lp		  
      
//BALL LOOP ENDS HERE----------------------------------------------------------------
       
         if Rnd(50)=5
         	Green=1
         endif
         if Rnd(60)=6 
         	Blue=1
         endif
         
         if Green=1 
         	gosub GreenItemSpawn
            Green=2
         endif
         if Green=2
         	gosub GreenItem
         endif
         
         If Blue=1
         	gosub BlueItemSpawn
            Blue=2
         endif
         if Blue=2
         	gosub BlueItem
         endif
         
	  if NumberOfBalls=0
	   	gosub Init_Ball
      endif
	  if spacekey()=true
	     gosub Add_Ball
	  endif
	  print "Number Of Balls: "+Str$(NumberOfBalls)
	  print "ItemCount: "+Str$(ItemCount)
	  print "PlayerScore: "+Str$(PlayerScore)
	  print "PlayerNormalState: "+Str$(playernormalstate)
	  print "PlayerState: "+Str$(PlayerState)
	  print "Green: "+Str$(Green)
	  print "BLue: "+Str$(Blue)
	Sync
Loop
//Ball Variable Arrays---------------------------------------------------------
Init_Ball:
   Index=GetFreeCell(ball())
   ball(Index).x=400
   ball(Index).y=300
   ball(Index).speedx=rndrange(3,4)
   ball(Index).speedy=rndrange(4,5)
   ball(Index).size=ballsize
   ball(Index).colour=RGB(0,0,200)
Return

Add_Ball:
   Index=GetFreeCell(ball())
   ball(Index).x=400
   ball(Index).y=300
   ball(Index).speedx=rndrange(3,4)
   ball(Index).speedy=rndrange(4,5)
   ball(Index).size=ballsize
   ball(Index).colour=RGB(0,0,200)
   
   Index=GetFreeCell(ball())
   ball(Index).x=350
   ball(Index).y=300
   ball(Index).speedx=rndrange(3,4)
   ball(Index).speedy=rndrange(4,5)
   ball(Index).size=ballsize
   ball(Index).colour=RGB(0,0,200)
Return
//End of Ball Variable Arrays-----------------------------------------------------
GreenItemSpawn:
For I=0 to ItemMax
   Item(1).PosX=rndrange(20,780)
   Item(1).PosY=300
Next I
Return
BlueItemSpawn:
For I=0 to ItemMax
   Item(2).PosX=rndrange(20,780)
   Item(2).PosY=300
Next I
Return
GreenItem:
	for obj= 1 to ItemMax
		if Item(1)
			
	   Boxc Item(1).PosX,Item(1).PosY,Item(1).PosX+IWidth,Item(1).PosY+IHeight,1,RGB(20,200,0)
	   Item(1).PosY=Item(1).PosY+3
	   Inc ItemCount 
	   
	   If ItemCount > 0 then ItemCount=ItemMax
	   
	   If PointinBox(item(1).PosX,item(1).PosY,playerx,playery,playerx+playersize,playery+height)
	   	Item(1)=NULL
	   	PlayerGotShrunk=1
	   	Dec ItemCount
	   	Green=0
      endif
      If Item(1).PosY > sh
	   	Dec ItemCount
	   	Green=0
      endif
      if Green=0
      	Item(1)=NULL
      	Exit
      endif
      Endif
      
      print "GreenItemY: "+Str$(Item(1).PosY)
   Exit
   next obj
Return

BlueItem:
	for obj= 1 to ItemMax
		if Item(2)
			
	   Boxc Item(2).PosX,Item(2).PosY,Item(2).PosX+IWidth,Item(2).PosY+IHeight,1,RGB(0,0,200)
	   Item(2).PosY=Item(2).PosY+3
	   Inc ItemCount 
	   
	   If ItemCount > 0 then ItemCount=ItemMax
	   
	   If PointinBox(item(2).PosX,item(2).PosY,playerx,playery,playerx+playersize,playery+height)
	   	Item(2)=NULL
	   	PlayerGotShrunk=1
	   	Dec ItemCount
	   	Blue=0
      endif
      If Item(2).PosY > sh
	   	item(2)=NULL
	   	Dec ItemCount
	   	Blue=0
      endif
      if Blue = 0 
      	Item(2)=NULL
      	Exit
      endif
      Endif
      
      print "BlueItemY: "+Str$(Item(2).PosY)
   Exit
   next obj
Return

kevin · December 18, 2009, 08:12:57 AM

Quoteam completely remodifying my whole code in order for me to start from scratch to put my Array codes in. So far after changing alot things, it is going quite well, even though there were a few slow downs.

Well, we've actually covered this problem previously.. See post

QuoteNow instead of my items spawning when a Player reach a certain amount of "PlayerScore", these items will now only spawn when a random ranged number reach a certain number. But there's a problem with even using this system...the items now keep respawning in different locations everytime the Rnd number equals true, is there anyway to turn this Rnd Range System OFF while an item spawn is happening or to at least keep it from interfering with the item spawns?

ok so you're talking about this right ?

Code Select

 

         if Rnd(50)=5
         	Green=1
         endif
         
         if Green=1 
         	gosub GreenItemSpawn
               Green=2
         endif
         if Green=2
         	gosub GreenItem
         endif

ok, so one of the problems with the Items is in triggering. There are others, but we'll get to those.

Lets follow the logic of this code through and see what it's doing.

In the first IF/ENDIF you're comparing with a Rnd(50)=5. Sooner or later this is going to be true and PB will run the code inside the IF/ENDIF, therefore setting the 'Green' variable to 1.

So when PB falls though to the next IF/ENDIF, Green will indeed equal 1, and PB will run the code inside this IF/ENDIF. Which calls the 'init' sub routine to initialize the green item and set the Green Variable to 2. So PB won't call this init routine again on the next loop.

When PB hits the 3rd IF/ENDIF the Green variable will now equal 2, so the GreenItem subroutine is called..

What's happening, is the logic is structured to always try and trigger a new Green item when the rnd() equals 5 . So we need to restructure the code, so that when a green item is triggered (the first if/endif condition is true), another one can't be triggered until the 'Green' variable is reset to zero again (assuming the when the green item leaves the screen or is collected by the player, that the Green variable is reset to zero)

This can be done in a few ways..

Code Select



         ; check if Green=0 and RND(50)=5  ..  So both conditions need to be met, for PB to run the code inside this IF/ENDIF  
         if Green=0 and Rnd(50)=5
         	Green=1
         endif
         
         if Green=1 
         	gosub GreenItemSpawn
               Green=2
         endif
         if Green=2
         	gosub GreenItem
         endif

or

Code Select



         ; check if Green=0 
         if Green=0 
            ; if RND(50)=5  .. 
             if Rnd(50)=5
                ; So both conditions need to be met, for PB to run the code inside the inner IF/ENDIF  
         	Green=1
             endif
         endif
         
         if Green=1 
         	gosub GreenItemSpawn
               Green=2
         endif
         if Green=2
         	gosub GreenItem
         endif

While these will both work, but we can clean this up a bit more by removing the middle IF/ENDIF statement, it's not needed.

Code Select



         ; check if Green=0 and RND(50)=5  ..  So both conditions need to be met, for PB to run the code inside this IF/ENDIF  
         if Green=0 and Rnd(50)=5
         	gosub GreenItemSpawn
         	Green=2
         endif

         if Green=2
         	gosub GreenItem
         endif

Big C. · December 19, 2009, 07:55:41 AM

Hi Markel422,

Kevin gives you the main hint and some solution... I use them to modify your code a little bit :P

So, examine it carefully to understand... I do changes to your gosub routines Green- and BlueItemSpawn ==> make them more flexible to use if more than 2 powerups will have to init, spawn and use by player. I renamed it to Init_Item_Spawn. The same thing I have done with the routine Green/BlueSpawn ==> also put them in one flexible routine named Spawn_Item.

Question: I don't understand the using of the variable ItemMax because in the moment you have two Items to init and spawn. Have a look at

QuoteType tItem
   Appear
   PosX
   PosY
   RGB_Item_Color
EndType
Dim Item(2) As tItem <== Here you dimmed 2 Items of tItem ==> this means the Max of Items is 2 (in fact Item(0) is Nr.3 ;-)) for init and spawn.

To demonstrate the flexibility of the new routines I initiate a third PowerUp by using Item(0) ;-)

BTW: 1. I have limit the fps to 30... so you can better watch what happened ;) 2. This modified code isn't optimized because I think you are in a learning phase... But I will give you a Question to think about: What are you making if you want to implement a Background image?

greetings Big C.

modified code:

PlayBASIC Code: [Select]

OpenScreen 800,600,32,1
;SetFPS 60
SetFPS 30
IWidth=8
IHeight=8
Width=90
Height=15
PlayerSize=Width
playerx=355
playery=550
Ballsize=8
PlayerNormalState=0
PlayerScore=0
sw=GetScreenWidth()
sh=GetScreenHeight()
Green=0
Blue=0
Constant Normal=7
Constant Shrunk=8

Type tBall
   x,y
   speedx
   speedy
   size
   colour
EndType
Dim Ball(1) As tBall
Dim bl(160)

Type tItem
   Appear
   PosX
   PosY
   RGB_Item_Color
EndType
Dim Item(2) As tItem

ItemCount=0
ItemMax=1
Appear=0
Gosub Init_Ball


Do 
   Cls 0
      PlayerState=Normal
      playerx=MouseX()
      
      NumberOfBalls=0
      For lp=1 To GetArrayElements(Ball(),1)
         
         ;To see if the Balls exist
         If ball(lp)
            
            
            Inc NumberOfBalls
            x = ball(lp).x+ball(lp).speedx
            y = ball(lp).y+ball(lp).speedy
            radius=ball(lp).size
            colour=ball(lp).colour
            
            If x-radius < 0
               x = 0+radius
               ball(lp).speedx=ball(lp).speedx*-1
            EndIf
            
            If x+radius > sw 
               x = sw-radius
               ball(lp).speedx=ball(lp).speedx*-1
            EndIf
            
            If y-radius < 0 
               y = 0+radius
               ball(lp).speedy=ball(lp).speedy*-1
            EndIf
               
 NumberOfBlocksLeft=0
   BA =0
   For blocky = 100 To 280 Step 20
    For blockx = 1 To 751 Step 50

         ; check if block exists
       If bl(ba)=0 
               ; draw block 
              If blocky>99 And blocky<140 Then BoxC blockx,blocky,blockx+48,blocky+18,1,RGB(180,0,0)
              If blocky>139 And blocky<180 Then BoxC blockx,blocky,blockx+48,blocky+18,1,RGB(180,100,0)
              If blocky>179 And blocky<220 Then BoxC blockx,blocky,blockx+48,blocky+18,1,RGB(100,180,0)
              If blocky>219 And blocky<260 Then BoxC blockx,blocky,blockx+48,blocky+18,1,RGB(0,180,100)
              If blocky>259 And blocky<300 Then BoxC blockx,blocky,blockx+48,blocky+18,1,RGB(0,100,160)

               ; check if the ball might be hitting this block
             If PointInBox (x,y,blockx,blocky,blockx+48,blocky+18)
                   bl(ba)=1
                   ball(lp).speedy=ball(lp).speedy * -1
                   PlayerScore=PlayerScore+50
               EndIf
             
               ; bump our counter that represents the number of blocks that are still alive
               Inc NumberOfBlocksLeft
       EndIf

         Inc BA
      Next
   Next
        
             
        
        
        If PlayerGotShrunk=1
            If Playernormalstate=0
                PlayerState=Shrunk
           EndIf
        EndIf
       
        If PlayerState=Shrunk
             PlayerNormalState=Timer()+10000 ;Add 10 second timer
           PlayerSize=width/2 ;Shrink Player Half it's Width
        EndIf
     
         If Timer()>PlayerNormalState ;Did timer pass 10 seconds? If did then...
           PlayerNormalState = 0 ;Player is Back to Normal
           PlayerGotShrunk=0
           PlayerSize=Width ;Player will Come to back to it's origial width
           PlayerState=Normal
        EndIf  
            
            If Playerx < 0 Then Playerx = 0 + PLayerSize
            If Playerx+PlayerSize > sw Then Playerx = sw - PlayerSize
   
            If PointInBox (x,y,playerx,playery,playerx+PlayerSize,Playery+Height)
               ball(lp).speedy=ball(lp).speedy*-1
            EndIf
            
            BoxC playerx,playery,playerx+PlayerSize,playery+Height,1,RGB(180,0,0) 
            CircleC x,y,radius,1,colour
            
            ball(lp).x=x
            ball(lp).y=y
            
         EndIf;End of "Ball(obj)"....
      
      If ball(lp).y > sh
         ball(lp)=null
      EndIf
      
      Next lp        
      
//BALL LOOP ENDS HERE----------------------------------------------------------------

Login required to view complete source code

markel422 · December 19, 2009, 10:22:48 PM

Hi Big C. and Thanks ;)

I think I understand what this code you gave me does. You First created a variable which is (ItemSpawn) to represent the Rnd Range System, so it can be used for a Select/Case Function that is coming up.

Code Select

Select ItemSpawn
       		
       		Case 5
       			ItemGreen = 5 
       			If Item(1).Appear = 0
       				ItemNr = 1
       				Gosub Init_Item_Spawn
       			EndIF
       			ContCase
      		Case 10
      		if PlayerGotBall=0
      			ItemBlue = 10 
      			If Item(2).Appear = 0
       				ItemNr = 2
       				Gosub Init_Item_Spawn
       			EndIF
       		endif
       		
       		;here we use Item(0) to spawn powerup 3 ;)
       		Case 15
      			ItemRed = 15 
      			If Item(0).Appear = 0
       				ItemNr = 0
       				Gosub Init_Item_Spawn
       			EndIF
       			ContCase
        	EndSelect

If ItemSpawn "case 5" which is (If Rnd(100)=5) then use my type variable Appear to if it only equals 0 then get ready to display the items. Setting the ItemNr=5 is to give the next code which is the "gosub Init_Item_Spawn" the number code to which color to display if the number is the same as the next Case Function for its case is "Green" and the same goes for the next two cases. Now looking at the Select/Case Init_Item_Spawn itself:

Code Select

Init_Item_Spawn:
;For I=0 To ItemMax
   	If Item(ItemNr).Appear = 0
   		Item(ItemNr).Appear = 1
   		Select ItemNr
   			Case 1
   				Item(ItemNr).RGB_Item_Color = RGB(20,200,0) ; Green
   			Case 2
   				Item(ItemNr).RGB_Item_Color = RGB(0,0,200) ; Blue
   			;color for Item 3
   			Case 0
   				Item(ItemNr).RGB_Item_Color = RGB(255,0,0) ; red
   		EndSelect
   			
   		Item(ItemNr).PosX=RndRange(20,780)
   		Item(ItemNr).PosY=300
   	EndIf
;Next I
Return

It just gives the color for each of the items along with setting up the positioning spawns for each of them. Next, after when the "ItemSpawn Select/Case" is done, I will find another gosub "Spawn_Item":

Code Select

Spawn_Item:
	;For obj= 1 To ItemMax
		For ItemLP = 0 to 2
			If Item(ItemLP).Appear = 1
				
	   		BoxC Item(ItemLP).PosX,Item(ItemLP).PosY,Item(ItemLP).PosX+IWidth,Item(ItemLP).PosY+IHeight,1,Item(ItemLP).RGB_Item_Color
	   		Item(ItemLP).PosY=Item(ItemLP).PosY+3
	   		;Inc ItemCount 
	   
	   		;If ItemCount > 0 Then ItemCount=ItemMax
	   
	   		If PointInBox(item(ItemLP).PosX,item(ItemLP).PosY,playerx,playery,playerx+playersize,playery+height)
	   			Item(ItemLP)=0
	   		
	   			Select ItemLP
	   				Case 1
	   					;Init PowerUp "Shrunk"
	   					PlayerGotShrunk=1
	   					ItemGreen = 0 ; testcode
	   				Case 2
	   					;Init PowerUp "Multiball"
	   					PlayerGotBall=1
	   					ItemBlue = 0 ; testcode
	   				Case 0
	   					;Init PowerUp "??????"
	   					ItemRed = 0; testcode
   				Endselect
	   			ExitFor
	   			;Dec ItemCount
	   			;Green=0
      		EndIf
     			
     			If Item(ItemLP).PosY > sh
	   			;Dec ItemCount
	   			Item(ItemLP)=0
	   			If ItemLP = 1
	   				ItemGreen =0
   				ElseIf ItemLP = 2
	   				ItemBlue = 0
   				Else
	   				ItemRed = 0
	   			EndIf	
	   			ExitFor
     			EndIf
     			
      		;If Item(ItemLP).Appear=0
      		;	Item(ItemLP)=null
      		;	Exit
      		;EndIf
      	EndIf
      
      	Print "Item_" +Str$(ItemLP)+"_Y: "+Str$(Item(ItemLP).PosY)
  			;Exit
  		Next ItemLP
   ;Next obj
Return

What this is doing is the same Routine Functions I had before, except it is all done in one Routine. After creating a For/Loop variable "ItemLP" to represent 0 to 2 (Which means that it can show all three items)and creating a Item(ItemLP)=0 to represent if it touches the player or the screen, it will delete. You then created a Select/Case for ItemLP that if any of these numbers are given to the gosub, it will finally show the items going down the screen until each either hits the player or the screen and also setting up the Powers for the Items. :)

I've worked on the code you gave me alittle and tried to put in the "MultiBall" function, but am apparently having trouble preventing the blue item to respawn after when a Power is happening but it doesn't matter.;)

QuoteQuestion: I don't understand the using of the variable ItemMax because in the moment you have two Items to init and spawn.

The ItemMax variable isn't controlling how many "Item Types" it is to have, it is to controlling how many items can appear on screen for each of my items like with one of my codes found in my GreenItem and BlueItem Routine:

Note:"This was originally for it to be used back when I had the "GetFreeCell" and "GetArrayElements" Functions".

Code Select

If ItemCount > 0 then ItemCount=ItemMax

If I don't put that code in there it will either not show anything on screen or (in some other case), Spawn Items LIKE CRAZY! If I wanted the ItemMax to represent the Item Types itself I could of put the code I think like this or something.

Code Select

Dim Item(ItemMax) as tBall

Me setting up my For/Loop like this:

Code Select

for obj= 1 to ItemMax

I control how many items can show at a time when they are spawning, which in this case is only 1. But now I don't need that variable anymore :), since I now again hard-coded my items to a specific number to only spawn once.

Quote2. This modified code isn't optimized because I think you are in a learning phase...

Huh???

QuoteWhat are you making if you want to implement a Background image?

I don't understand that Question... :'(

UPDATE ON GAME!

Ok, now I am currently having a problem with the Level Functioning which is "GameState=Win" for some reason when I put:

Code Select

If Spacekey()=true then GameState=Win

It Works but if I put this:

Code Select

If NumberOfBlocksLeft=0 then GameState=Win

It also works but for some reason it counts the Level Twice, pausing the game for two 4 seconds of the message "HOORAY YOU WIN!!". I thought it was because PB somehow thinks that after when that if statement is executed, it does it again because of how "NumberOfBlocksLeft=0" and then redraws it and executes it again. I tried to fix this by doing this to get away from the Blocks variable:

Code Select

If NumberOfBlocksLeft=0
            State=1
         Endif
         If State=1
            GameState=Win
            State=0
         Endif

But to no success, I even tried putting the code on top, bottom, and even in the inside of the ball loop "for lp".

Heres the Original Game Code:

Code Select

openscreen 800,600,32,1
setfps 60
loadfont "Arial",1,24,0
IWidth=8
IHeight=8
Width=90
Height=15
PlayerSize=Width
playerx=355
playery=550
Ballsize=8
PlayerNormalState=0
PlayerScore=0
PlayerLives=3
Level=1
sw=getscreenwidth()
sh=getscreenheight()
Green=0
Blue=0

//GAMESTATES
Constant StartGame = 1
Constant Playing   = 2
Constant Win 		= 3
Constant Gameover  = 4
Constant LevelUp	= 5
Constant LostLife	= 6

//PLAYERSTATES
Constant Normal=7
Constant Shrunk=8
Constant MultiBall=9

type tBall
	x,y
	speedx
	speedy
	size
	colour
endtype
Dim Ball(1) as tBall
Dim bl(160)

type tItem
	Appear
	PosX
	PosY
endtype
Dim Item(2) as tItem
ItemCount=0
ItemMax=1
Appear=0
Won=0
Dim Power$(4)
Power$(1)="Normal"
Power$(2)="Shrunk"
Power$(3)="MultiBall"
Power$(4)="Shrunk & MultiBall"

gosub Init_Ball

Menu()
GameState=Playing

Do 
	Cls 0
	
	   PlayerState=Normal
	   playerx=MouseX()
	   
      NumberOfBalls=0
	   for lp=1 to GetArrayElements(Ball(),1)
	   	
	   	;To see if the Balls exist
	   	if ball(lp)
	   		
	   		
	   		inc NumberOfBalls
	   		x = ball(lp).x+ball(lp).speedx
	   		y = ball(lp).y+ball(lp).speedy
	   		radius=ball(lp).size
	   		colour=ball(lp).colour
	   		
	   		if x-radius < 0
	   		   x = 0+radius
	   		   ball(lp).speedx=ball(lp).speedx*-1
   		   endif
	   		
	   		if x+radius > sw 
	   			x = sw-radius
	   			ball(lp).speedx=ball(lp).speedx*-1
   		   endif
	   		
	   		if y-radius < 0 
	   			y = 0+radius
	   			ball(lp).speedy=ball(lp).speedy*-1
   			endif
               
   NumberOfBlocksLeft=0
	BA =0
	for blocky = 100 to 280 step 20
	 for blockx = 1 to 751 step 50

			; check if block exists
	    if bl(ba)=0 
					; draw block 
	    	    if blocky>99 and blocky<140 then BoxC blockx,blocky,blockx+48,blocky+18,1,RGB(180,0,0)
	    	    if blocky>139 and blocky<180 then BoxC blockx,blocky,blockx+48,blocky+18,1,RGB(180,100,0)
	    	    if blocky>179 and blocky<220 then BoxC blockx,blocky,blockx+48,blocky+18,1,RGB(100,180,0)
	    	    if blocky>219 and blocky<260 then BoxC blockx,blocky,blockx+48,blocky+18,1,RGB(0,180,100)
	    	    if blocky>259 and blocky<300 then BoxC blockx,blocky,blockx+48,blocky+18,1,RGB(0,100,160)

					; check if the ball might be hitting this block
	          if PointInBox (x,y,blockx,blocky,blockx+48,blocky+18)
		          	bl(ba)=1
		          	ball(lp).speedy=ball(lp).speedy * -1
		          	PlayerScore=PlayerScore+50
               endif
             
					; bump our counter that represents the number of blocks that are still alive
					inc NumberOfBlocksLeft
	    endif

	      Inc BA
      next
   next
        
        
        
        If PlayerGotShrunk=1
	    	  If Playernormalstate=0
	  	        PlayerState=Shrunk
           Endif
        Endif
       
        If PlayerState=Shrunk
     	     PlayerNormalState=timer()+10000 ;Add 10 second timer
		     PlayerSize=width/2 ;Shrink Player Half it's Width
		     DisplayMode=1
        Endif
     
    	  If Timer()>PlayerNormalState ;Did timer pass 10 seconds? If did then...
	        PlayerNormalState = 0 ;Player is Back to Normal
	        PlayerGotShrunk=0
	        PlayerSize=Width ;Player will Come to back to it's origial width
	        PlayerState=Normal
	        DisplayMode=0
        Endif  
            
            if Playerx < 0 then Playerx = 0 + PLayerSize
            if Playerx+PlayerSize > sw then Playerx = sw - PlayerSize
   
            if PointinBox (x,y,playerx,playery,playerx+PlayerSize,Playery+Height)
            	ball(lp).speedy=ball(lp).speedy*-1
            endif
	   		
            boxc playerx,playery,playerx+PlayerSize,playery+Height,1,RGB(180,0,0) 
	   		circlec x,y,radius,1,colour
	   		
	   		ball(lp).x=x
	   		ball(lp).y=y
	   		
	      
   	   Endif;End of "Ball(obj)"....
	   if GameState=Win then ball(lp)=NULL
	   if ball(lp).y > sh
	   	ball(lp)=NULL
	   endif
	  
      next lp		  
      
//BALL LOOP ENDS HERE----------------------------------------------------------------
       
         ; check if Green=0 and RND(50)=5  ..  So both conditions need to be met, for PB to run the code inside this IF/ENDIF  
         if Green=0 and Rnd(50)=5 and PlayerGotShrunk=0
         	gosub GreenItemSpawn
         	Green=1
         endif
         if Blue=0 and Rnd(60)=6 and NumberOfBalls=1
         	gosub BlueItemSpawn
         	Blue=1
         endif
         
         if Green=1 
         	gosub GreenItem
         endif
         if Blue=1
         	gosub BlueItem
         endif
     
     if PlayerGotBall=1
	  	  PlayerState=MultiBall
	     gosub Add_Balls
     endif
     if NumberOfBalls>1
        DisplayMode=2
     endif
	  if NumberOfBalls=1
	     DisplayMode=0
	  	  PlayerState=Normal
	  	  PlayerGotBall=0
	  endif   
	  if NumberOfBalls=0
	     GameState=LostLife
     endif
     if PlayerState=Shrunk and PlayerState=MultiBall
     	  DisplayMode=3
     endif
     ; check if the number of blocks left is zero. If it is, then all the blocks have been be killed
     ; so we can 
	  
     	  
     If GameState=LostLife
	
		  text 310,getscreenheight()/2,"Player Has Missed Ball!"
		  sync
		  for lp=1 to 3
		  wait 1000
		  next
        DisplayMode=0
        gosub Init_Ball
        
        PlayerSize=Width
        ; take a life away from player 
		  Dec PlayerLives
        
			; if they've no more lives, then this is game over
			if PlayerLives=0
				GameState = GameOver		
			else
				; Else, set the game back to PLAYING, to continue playing the game
				GameState=Playing
			endif
	   Endif 
	  
   ; check if the game state is set to WIN.  If so, the player must have cleared the level
	If GameState=Win
	 	text 310,280,"HOORAY YOU WIN!"
		sync
		for lp=1 to 4
			wait 1000
      next lp
      DisplayMode=0
		GameState=LevelUp

	Endif

   If GameState=LevelUp
	   Inc Level
		; Init all the game character variables and array to start a new level.. 
		; a Sub routine would be 
      PlayerState=Normal
      PlayerSize=Width
         gosub Init_Ball

		; re-dim the Blocks (alive?) array. This will destory the old one and create a new clear one in it's place
		; this will reset the blocks
		Dim bl(160)

		; set the game state playing..  
		GameState=Playing
   Endif
   if NumberOfBlocksLeft=150
   	State=1
   endif
   if State=1
      GameState=Win
      State=0
   endif
	; The Game has ended, so lets end the program	
   if GameState = GameOver
   	cls 0 
   	End
   Endif
   
//Display Messages-------------------------------------------------------------
		text 345,10,"PlayerScore: "+Str$(PlayerScore)
		text 350,40,"PlayerLives: "+Str$(PlayerLives)
		text 650,25,"Level: "+str$(Level)
			If DisplayMode=0
		      text 20,20,"Power: "+(Power$(1))
	      Endif
		
		   If DisplayMode=1
		   	ink RGB(0,255,0)
		      text 20,20,"Power: "+(Power$(2))	
		   	ink RGB(255,255,255)
	      Endif
		  
		   If DisplayMode=2
		      text 20,20,"Power: "+(Power$(3))
	      Endif
		   If DisplayMode=3
		   	text 20,20,"Power: "+(Power$(4))
		   Endif
	Sync
Loop

//FUNCTIONS--------------------------------------------------------------------
Function Menu()
	repeat 
	cls 0
	centertext 395,275,"Let's Play BreakOut!"
	centertext 395,305,"Press the Left Button To Play!"
	sync
	until LeftMouseButton()=true
EndFunction

//Ball Variable Arrays---------------------------------------------------------
Init_Ball:
   Index=GetFreeCell(ball())
   ball(Index).x=400
   ball(Index).y=300
   ball(Index).speedx=rndrange(3,4)
   ball(Index).speedy=rndrange(4,5)
   ball(Index).size=ballsize
   ball(Index).colour=RGB(0,0,200)
Return

Add_Balls:
   Index=GetFreeCell(ball())
   ball(Index).x=400
   ball(Index).y=300
   ball(Index).speedx=rndrange(3,4)
   ball(Index).speedy=rndrange(4,5)
   ball(Index).size=ballsize
   ball(Index).colour=RGB(0,0,200)
   
   Index=GetFreeCell(ball())
   ball(Index).x=350
   ball(Index).y=300
   ball(Index).speedx=rndrange(3,4)
   ball(Index).speedy=rndrange(4,5)
   ball(Index).size=ballsize
   ball(Index).colour=RGB(0,0,200)
Return
//End of Ball Variable Arrays-----------------------------------------------------
GreenItemSpawn:
For I=0 to ItemMax
   Item(1).PosX=rndrange(20,780)
   Item(1).PosY=300
Next I
Return
BlueItemSpawn:
For I=0 to ItemMax
   Item(2).PosX=rndrange(20,780)
   Item(2).PosY=300
Next I
Return
GreenItem:
		if Item(1)
			
	   Boxc Item(1).PosX,Item(1).PosY,Item(1).PosX+IWidth,Item(1).PosY+IHeight,1,RGB(20,200,0)
	   Item(1).PosY=Item(1).PosY+3
	   Inc ItemCount 
	   
	   
	   
	   If PointinBox(item(1).PosX,item(1).PosY,playerx,playery,playerx+playersize,playery+height)
	   	Item(1)=NULL
	   	PlayerGotShrunk=1
	   	Dec ItemCount
	   	Green=0
      endif
      If Item(1).PosY > sh
      	item(1)=NULL
	   	Dec ItemCount
	   	Green=0
      endif
      if Green=0
      	Item(1)=NULL
      	
      endif
      Endif
      
      print "GreenItemY: "+Str$(Item(1).PosY)
   
Return

BlueItem:
	for obj= 1 to ItemMax
		if Item(2)
			
	   Boxc Item(2).PosX,Item(2).PosY,Item(2).PosX+IWidth,Item(2).PosY+IHeight,1,RGB(0,0,200)
	   Item(2).PosY=Item(2).PosY+3
	   Inc ItemCount 
	   
	   If ItemCount > 0 then ItemCount=ItemMax
	   
	   If PointinBox(item(2).PosX,item(2).PosY,playerx,playery,playerx+playersize,playery+height)
	   	Item(2)=NULL
	   	PlayerGotBall=1
	   	Dec ItemCount
	   	Blue=0
      endif
      If Item(2).PosY > sh
	   	item(2)=NULL
	   	Dec ItemCount
	   	Blue=0
      endif
      if Blue = 0 
      	Item(2)=NULL
      	Exit
      endif
      Endif
      
      print "BlueItemY: "+Str$(Item(2).PosY)
   Exit
   next obj
Return

I also seem to notice that when it comes to me entering code for like if GameState=LostLife and put a variable to play if it does happen like "If NumberOfBalls=0 then GameState=LostLife" and I put this code on top of that GameState function, it doesn't work, how ever if I put it understand the function it will work. There are also functions that needs to go in number order from highest to lowest for some reason like:

Code Select

if PlayerGotBall=1
	  	  PlayerState=MultiBall
	     gosub Add_Balls
     endif
     if NumberOfBalls>1
        DisplayMode=2
     endif
	  if NumberOfBalls=1
	     DisplayMode=0
	  	  PlayerState=Normal
	  	  PlayerGotBall=0
	  endif   
	  if NumberOfBalls=0
	     GameState=LostLife
     endif

Because if I try to switch any of them around from the order in which they are, they don't seem to work, any idea why?

kevin · December 19, 2009, 11:37:56 PM

Can you explain why this is set out in two comparisons ?

PlayBASIC Code: [Select]

   if NumberOfBlocksLeft=150
      State=1
   endif
   if State=1
      GameState=Win
      State=0
   endif

The state variable and secondary compare seem redundant.. So we can represent the same action using.

PlayBASIC Code: [Select]

   if NumberOfBlocksLeft=150
      GameState=Win
   endif

So when the blocks hit the certain limit, we flip the GameState variable to whatever condition we want.

If the player wins a level, then depending upon what you want, you'd normally reset all the game variables/arrays to their starting values and go again. So what's probably happening is that something isn't be reset correctly between levels.

PlayBASIC Code: [Select]

openscreen 800,600,32,1
setfps 60
loadfont "Arial",1,24,0
IWidth=8
IHeight=8
Width=90
Height=15
PlayerSize=Width
playerx=355
playery=550
Ballsize=8
PlayerNormalState=0
PlayerScore=0
PlayerLives=3
Level=1
sw=getscreenwidth()
sh=getscreenheight()
Green=0
Blue=0

//GAMESTATES
Constant StartGame = 1
Constant Playing   = 2
Constant Win       = 3
Constant Gameover  = 4
Constant LevelUp   = 5
Constant LostLife   = 6

//PLAYERSTATES
Constant Normal=7
Constant Shrunk=8
Constant MultiBall=9

type tBall
   x,y
   speedx
   speedy
   size
   colour
endtype
Dim Ball(1) as tBall
Dim bl(160)

type tItem
   Appear
   PosX
   PosY
endtype
Dim Item(2) as tItem
ItemCount=0
ItemMax=1
Appear=0
Won=0
Dim Power$(4)
Power$(1)="Normal"
Power$(2)="Shrunk"
Power$(3)="MultiBall"
Power$(4)="Shrunk & MultiBall"

gosub Init_Ball

Menu()
GameState=Playing

Do 
   Cls 0
   
      PlayerState=Normal
      playerx=MouseX()
      
      NumberOfBalls=0
      for lp=1 to GetArrayElements(Ball(),1)
         
         ;To see if the Balls exist
         if ball(lp)
            
            
            inc NumberOfBalls
            x = ball(lp).x+ball(lp).speedx
            y = ball(lp).y+ball(lp).speedy
            radius=ball(lp).size
            colour=ball(lp).colour
            
            if x-radius < 0
               x = 0+radius
               ball(lp).speedx=ball(lp).speedx*-1
            endif
            
            if x+radius > sw 
               x = sw-radius
               ball(lp).speedx=ball(lp).speedx*-1
            endif
            
            if y-radius < 0 
               y = 0+radius
               ball(lp).speedy=ball(lp).speedy*-1
            endif
               
   NumberOfBlocksLeft=0
   BA =0
   for blocky = 100 to 280 step 20
    for blockx = 1 to 751 step 50

         ; check if block exists
       if bl(ba)=0 
               ; draw block 
              if blocky>99 and blocky<140 then BoxC blockx,blocky,blockx+48,blocky+18,1,RGB(180,0,0)
              if blocky>139 and blocky<180 then BoxC blockx,blocky,blockx+48,blocky+18,1,RGB(180,100,0)
              if blocky>179 and blocky<220 then BoxC blockx,blocky,blockx+48,blocky+18,1,RGB(100,180,0)
              if blocky>219 and blocky<260 then BoxC blockx,blocky,blockx+48,blocky+18,1,RGB(0,180,100)
              if blocky>259 and blocky<300 then BoxC blockx,blocky,blockx+48,blocky+18,1,RGB(0,100,160)

               ; check if the ball might be hitting this block
             if PointInBox (x,y,blockx,blocky,blockx+48,blocky+18)
                   bl(ba)=1
                   ball(lp).speedy=ball(lp).speedy * -1
                   PlayerScore=PlayerScore+50
               endif
             
               ; bump our counter that represents the number of blocks that are still alive
               inc NumberOfBlocksLeft
       endif

         Inc BA
      next
   next
        
        
        
        If PlayerGotShrunk=1
            If Playernormalstate=0
                PlayerState=Shrunk
           Endif
        Endif
       
        If PlayerState=Shrunk
             PlayerNormalState=timer()+10000 ;Add 10 second timer
           PlayerSize=width/2 ;Shrink Player Half it's Width
           DisplayMode=1
        Endif
     
         If Timer()>PlayerNormalState ;Did timer pass 10 seconds? If did then...
           PlayerNormalState = 0 ;Player is Back to Normal
           PlayerGotShrunk=0
           PlayerSize=Width ;Player will Come to back to it's origial width
           PlayerState=Normal
           DisplayMode=0
        Endif  
            

Login required to view complete source code

In this version, the Level is reset (mostly, the Blocks and Balls are at least) so the next level starts a fresh. Normally, this type of initialization done in a subroutine/function.

So you could wrap up a sub routine that init's the level and just call it when ever you need to restart the level... less code, less chance of errors creeping in.

markel422 · January 07, 2010, 12:57:21 AM

UPDATE!

-Sound has been added! :D ;D

-Grab Function has been remodified!

-Speed Increase been added for Ball! ;)

-Level Changes Color after each Level Completion.

-Ability to gain Extra Life!

-Display Power Labels changed to Color.

The Good News:

This Game is becoming more closer to completion than I originally had in mind. In fact, I over did everything in this game than what was originally planned and am very pleased on how much things were added here.

As far as the Sound, I am more surprised that I was able to pull this off. All Sound was made by me using a program know as "SFXR" with this, I was able to make 8-bit sounds that made sense of what is happening on screen. Even as far as the Power-Ups and Extra Life. ;P

Displays are now given color so that to represent how good or bad it is to have more Power-Ups going on.

When you now score a certain amount of points, you are automatically given an Extra Life; also added Scoring.

Another Incredible thing in my accomplishment was that I was able to make the ball increase in speed each time it successfully touches the player paddle, giving this game extra challenge! 8)

I am very glad of my progress with this, even as far as my knowledge of programming. I feel like I have leveled up a few levels due to me getting "Programming EXP. Points". lol ;) I just now figured out that when creating variables, that they can only control one thing and one thing only and that if I wanted to make another thing within that variable then I need another variable to represent what I want to happen within that variable.

The Bad News:

There are still a few things that I wish to add in this game but kept failing, which was to add an already active ball inside of the blocks (as if it is trapped) and can only break the other blocks if it set free breaking the specific block areas in the screen.

There are also a few Bugs in this game that has been haunting me since I started making this and they are:

-The Mouse Glitch: If you make your mouse travel to far to the right of the screen, for some reason the ball will no longer bounce off of your paddle.

-Player & Ball Collsion Glitch: When the ball hits either the left side or the right side of the paddle, it will cause the computer the calculate that it is still hitting the paddle up & down inside of the paddle really fast.

Code is In File Below...
|
|
|
|
\/