Sorry your browser is not supported!

BubbleSortArray:

REM x/y are to increment the loop
REM Setting them to 1,0 before doing the loop 
x=1
y=0


For y = 0 to 7    

   For x = 1 to 7 

            IF GameBoardBubble(x,y) =0      ` check if current position is a 0
            GBTEMP=GameBoardBubble(x,y)     ` if so store the 0 in GBTEMP
            GameBoardBubble(x,y)=GameBoardBubble(x-1,y)     ` Now store the value in the position above in the current position
            GameBoardBubble(x-1,y)=GBTEMP                   ` Finally store the GBTemp in the position above
            endif
                                                      
    Next x
  
Next y    

return

For x = 1 to 7 

            IF GameBoardBubble(x,y) =0      ` check if current position is a 0
            GBTEMP=GameBoardBubble(x,y)     ` if so store the 0 in GBTEMP
            GameBoardBubble(x,y)=GameBoardBubble(x-1,y)     ` Now store the value in the position above in the current position
            GameBoardBubble(x-1,y)=GBTEMP                   ` Finally store the GBTemp in the position above
            endif
                                                      
    Next x

Rem Project: Dark Basic Pro Project
Rem Created: Sunday, March 04, 2012

Rem ***** Main Source File *****
dim GameBoardBubble(8)
restore GridData
for x = 1 to 8
    read GameBoardBubble(x)
next x
gosub SortItOut
repeat
    gosub DisplayTheArray
until spacekey() = 1
end

SortItOut:
for y = 1 to 8
      For x = 2 to 8
          If GameBoardBubble(x) = 0      ` check if current position is a 0
              // swap with the previous one
              GBTEMP=GameBoardBubble(x - 1)    ` if so store the 0 in GBTEMP
              GameBoardBubble(x - 1) = 0
              GameBoardBubble(x ) = GBTEMP
          endif
      Next x
   next y
return    

DisplayTheArray:
cls
for y = 1 to 8
    text 10,y * 30,str$(y) + ":        " + str$(GameBoardBubble(y))
next y
return
    
GridData:
data 2,0,3,1,0,2,4,5

Rem ***** Main Source File *****
Rem Project: Dark Basic Pro Project
Rem Created: Sunday, March 04, 2012
dim GameBoardBubble(8,8)
for x = 1 to 8
    restore GridData
    for y = 1 to 8
        read GameBoardBubble(x,y)
    next y
next x
gosub SortItOut
repeat
    gosub DisplayTheArray
until spacekey() = 1
end

SortItOut:
for z = 1 to 8
for y = 2 to 8
      For x = 1 to 8
          If GameBoardBubble(x,y) = 0      ` check if current position is a 0
              // swap with the previous one
              GBTEMP=GameBoardBubble(x,y-1)    ` if so store the 0 in GBTEMP
              GameBoardBubble(x,y-1) = 0
              GameBoardBubble(x,y) = GBTEMP
          endif
      Next x
   next y
next z
return    

DisplayTheArray:
cls
for y = 1 to 8
    text 10,y * 30,str$(y) + ":        " 
    for x = 1 to 8
        
        text 10 + (x * 30),y * 30,str$(GameBoardBubble(x,y))
    next x
next y
return
    
GridData:
data 2,0,3,1,0,2,4,5

for z = 0 to 7
for y = 0 to 7
      For x = 1 to 7
          If GameBoardBubble(x,y) = 0      ` check if current position is a 0
              // swap with the previous one
              GBTEMP=GameBoardBubble(x-1,y)    ` if so store the 0 in GBTEMP
              GameBoardBubble(x-1,y) = 0
              GameBoardBubble(x,y) = GBTEMP
          endif
      Next x
   next y
next z
return