News:

PlayBASIC2DLL V0.99 Revision I Commercial Edition released! - Convert PlayBASIC programs to super fast Machine Code. 

Main Menu

My BreakOut Game

Started by markel422, November 12, 2009, 08:21:07 PM

Previous topic - Next topic
Print
Go Down Pages 1 2 3
User actions

Big C.

#30
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

#31
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

#32
December 12, 2009, 11:00:27 PM Last Edit: January 31, 2013, 09:11:46 PM by kevin
  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

#33
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

#34
December 13, 2009, 09:54:55 PM Last Edit: December 13, 2009, 09:58:17 PM by kevin
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

#35
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

#36
December 18, 2009, 08:12:57 AM Last Edit: December 18, 2009, 08:17:46 AM by kevin
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.

#37
December 19, 2009, 07:55:41 AM Last Edit: January 31, 2013, 09:13:16 PM by kevin
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

#38
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

#39
December 19, 2009, 11:37:56 PM Last Edit: January 31, 2013, 09:14:19 PM by kevin
 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

#40
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...
|
|
|
|
\/
Print
Go Up Pages 1 2 3
User actions