I'm sure everyone's played one of these classic block busting games. I'm not even sure what the correct name is, but I thought I'd give it a try even though I honestly can't stand playing this game anymore
Too many remakes for me. But I believe its good to try all types of games
compressed:
sync on : hide mouse : x# = 320 : y# = 440 : lives = 9 : ballx# = 320 : bally# = 400 : current_ball_speed# = .25 : ballspeedx# = current_ball_speed# : ballspeedy# = -current_ball_speed# : dim blockx#(10,5) : dim blocky#(10,5)
for y = 1 to 5 : for x = 1 to 10 : blockx#(x,y) = -32+x*64 : blocky#(x,y) = y*10 : next x : next y
do : cls : box x#-50,y#-10,x#+50,y#+10,rgb(0,0,255),rgb(0,255,0),rgb(0,0,255),rgb(0,255,0) : ink rgb(100,100,255),0 : for x = 1 to 7 : circle ballx#,bally#,x : next x
for y = 1 to 5 : for x = 1 to 10 : ink rgb(y*50,100,x*50),0 : box blockx#(x,y)-32,blocky#(x,y)-5,blockx#(x,y)+32,blocky#(x,y)+5 : next x : next y
if rightkey()=1 then inc x#, 0.3
if leftkey()=1 then dec x#, 0.3
if x#>590 then x#=590
if x#<50 then x#=50
if y#>440 then y#=440
if y#<50 then y#=50
inc ballx#, ballspeedx# : inc bally#, ballspeedy#
if ballx# > 640 then ballspeedx# = -current_ball_speed#
if ballx# < 0 then ballspeedx# = current_ball_speed#
if bally# < 0 then ballspeedy# = current_ball_speed#
if bally# > y#-10 and ballx# > x#-50 and ballx# < x#+50 then ballspeedy# = -current_ball_speed#
if bally# > 480 then ballx# = 320 : bally# = 400 : ballspeedx# = current_ball_speed# : ballspeedy# = -current_ball_speed# : dec lives
if score = 45 then score = 50 : for y = 1 to 5 : for x = 1 to 10 : dec blocky#(x,y), 900 : next x : next y
for y = 1 to 5 : for x = 1 to 10 : if bally#<blocky#(x,y)+5 and bally#>blocky#(x,y)-5 and ballx#<blockx#(x,y)+32 and ballx#>blockx#(x,y)-32 then dec blocky#(x,y), 900 : ballspeedy# = current_ball_speed# : inc score
next x : next y : if lives <0 then lives=0
set cursor 10,300 : print "score ",score : set cursor 10,320 : print "lives ",lives : sync : loop
uncompressed:
Rem Project: Fugi (Oceanside Blockbuster)
Rem Created: Friday, May 20, 2011
sync on : hide mouse
`background
`load image "Underwater.jpg",1
`music
`load sound "Underneath the Waves.wav",1
`loop sound 1
`sprites
`load image "starfish.jpg",2
`position main bar
x# = 320
y# = 440
`set lives
lives = 9
`position ball
ballx# = 320
bally# = 400
current_ball_speed# = .25
ballspeedx# = current_ball_speed#
ballspeedy# = -current_ball_speed#
`position blocks
dim blockx#(10,5)
dim blocky#(10,5)
for y = 1 to 5
for x = 1 to 10
blockx#(x,y) = -32+x*64
blocky#(x,y) = y*10
next x
next y
`main loop
do
cls
`paste background
`paste image 1,0,0
`main bar
box x#-50,y#-10,x#+50,y#+10,rgb(0,0,255),rgb(0,255,0),rgb(0,0,255),rgb(0,255,0)
`ball
`sprite 2,ballx#,bally#,2
ink rgb(100,100,255),0
for x = 1 to 7
circle ballx#,bally#,x
next x
`blocks
for y = 1 to 5
for x = 1 to 10
ink rgb(y*50,100,x*50),0
box blockx#(x,y)-32,blocky#(x,y)-5,blockx#(x,y)+32,blocky#(x,y)+5
next x
next y
`controls
if upkey()=1 then dec y#, 0.3
if downkey()=1 then inc y#, 0.3
if rightkey()=1 then inc x#, 0.3
if leftkey()=1 then dec x#, 0.3
if x#>590 then x#=590
if x#<50 then x#=50
if y#>440 then y#=440
if y#<50 then y#=50
`move ball
inc ballx#, ballspeedx#
inc bally#, ballspeedy#
`hit walls
if ballx# > 640 then ballspeedx# = -current_ball_speed#
if ballx# < 0 then ballspeedx# = current_ball_speed#
if bally# < 0 then ballspeedy# = current_ball_speed#
`hit main bar
if bally# > y#-10 and ballx# > x#-50 and ballx# < x#+50 then ballspeedy# = -current_ball_speed#
`lose
if bally# > 480 then ballx# = 320 : bally# = 400 : ballspeedx# = current_ball_speed# : ballspeedy# = -current_ball_speed# : dec lives
if score = 45
score = 50
for y = 1 to 5
for x = 1 to 10
dec blocky#(x,y), 900
next x
next y
endif
`hit blocks
for y = 1 to 5
for x = 1 to 10
if bally#<blocky#(x,y)+5 and bally#>blocky#(x,y)-5 and ballx#<blockx#(x,y)+32 and ballx#>blockx#(x,y)-32 then dec blocky#(x,y), 900 : ballspeedy# = current_ball_speed# : inc score
next x
next y
`lives
if lives <0 then lives=0
`text
set cursor 10,300
print "score ",score
set cursor 10,320
print "lives ",lives
`update
sync
loop
yrotate when you can spin?
God Bless!
/2007/dngsig.png[/img][/href]
