Entry #205/Wed. Workshop (SoCoder)

kooku4kokopuffs for Workshop #062 | No Votes
No jitters, different colors, (slightly) better collisions and three powerups!
Cursors and Space
Graphics 800,600,32,2
AppTitle "BlockBlaster"
SeedRnd MilliSecs()
HidePointer()
AutoMidHandle True
Flip False

Type bubble 
	Field x
	Field y
	Field xm
	Field ym
	Field radius
	Field stucktimer#
End Type	

Type laser
	Field x
	Field y
	Field yend
	Field xend
	Field timer#
End Type 

Type p
	Field x
	Field y
	Field shottime#
End Type

p.p=New p
p\x=50
p\y=575
p\shottime#=0

score=0
hitornot=False
barial=LoadFont("Arial",24,True, False, False)
bbarial=LoadFont("Arial",30,True,False,False)
SetFont barial

.hit
SetBuffer FrontBuffer()

If hitornot=True
	SetFont bbarial
	Cls
	Color 255,0,0
	Text 300,50,"You were hit!"
	WaitKey 
	Delay (2000)
End If 

SetBuffer BackBuffer()
speed=3
.start
score=0
For bubble.bubble=Each bubble
Delete bubble
Next

hitornot=False



arial=LoadFont("Arial",18,True, False, False)
sarial=LoadFont("Arial",14,True,False,False)
SetFont arial
Repeat
SetFont arial
Cls
Color 255,0,0
Text 380,60,"Block Blaster"
Color 255,255,0
 
Text 340,90,"Press SPACE key to begin"
Color 0,0,255
SetFont sarial
Text 50,110,"Press SPACE to fire a laser at the middle of a floating block. Be sure not to be hit by one of them! Get a high-score to unlock bonuses."
Text 399,150,"score : "+score



Flip
Until KeyDown(57)





timerbonus=5

For a=1 To 3
bubble.bubble=New bubble
bubble\x=Rnd(20,780)
bubble\y=Rnd(30,570)
bubble\xm=Rnd(-1,1)
bubble\ym=Rnd(-1,1)
bubble\radius=50
bubble\stucktimer#=0
Next

While Not KeyDown(01)
Cls
Color 255,255,255
Rect p\x,p\y,20,20,0

For bubble.bubble=Each bubble 

If funky=False
Color 255,0,0
Rect bubble\x,bubble\y,bubble\radius,bubble\radius,0
End If 


If funky=True 
funkycolored=Rnd(3)
If funkycolored=1 Then Color 155,255,153
If funkycolored=2 Then Color 255,0,255
If funkycolored=3 Then Color 255,255,102
Rect bubble\x,bubble\y,bubble\radius,bubble\radius,1
End If 


Rect bubble\x,bubble\y,bubble\radius,bubble\radius,0
bubble\x=bubble\x+bubble\xm
bubble\y=bubble\y+bubble\ym
If bubble\x<=10 Or bubble\x>=700 Or bubble\xm=0
	Repeat
 		bubble\xm=Rnd(-1,1)
		bubble\ym=Rnd(-1,1)
		bubble\stucktimer#=bubble\stucktimer#+.1
	Until Not bubble\x<=10 And  bubble\x>=700
End If 

If bubble\y<=10 Or bubble\y>=550
	Repeat
		bubble\ym=Rnd(-1,1)
		bubble\xm=Rnd(-1,1)
		bubble\stucktimer#=bubble\stucktimer#+.1
	Until Not bubble\y<=10 And bubble\y>=550
End If 

If p\x>bubble\x And p\x<(bubble\x+bubble\radius) And p\y>bubble\y And p\y<(bubble\y+bubble\radius)
hitornot=True
Goto hit
End If 


If Not bubble\x<=10 Or bubble\x>=700 Or bubble\xm=10 Or bubble\y<=0 Or bubble\y>=550
bubble\stucktimer#=bubble\stucktimer#-.1
End If

If bubble\stucktimer#=10 
bubble\x=Rnd(20,780)
bubble\y=Rnd(30,570)
End If 

For laser.laser=Each laser
If laser\x>bubble\x And laser\x<bubble\x+bubble\radius Then score=score+100 : bubble\radius=bubble\radius-5
Next
Next

For laser.laser=Each laser
If chaingun=False
laser\timer#=laser\timer#-.1
End If
If chaingun=True
laser\timer#=laser\timer#-.03
End If 
If Not laser\timer#=0
Color 0,255,0
Line laser\x,laser\y,laser\xend,laser\yend
End If
If laser\timer<=0 Then Delete laser


Next

p\shottime#=p\shottime#-.1
If p\shottime#<0 Then p\shottime#=0


If KeyDown(205) Then p\x=p\x+speed
If KeyDown(203) Then p\x=p\x-speed
If KeyDown(57) And p\shottime#<=0
Color 0,255,0
laser.laser=New laser
laser\x=p\x
laser\y=p\y+1
laser\yend=p\y-600
laser\xend=p\x
laser\timer#=timerbonus

If freload=False
p\shottime#=10
End If

If freload=True
p\shottime#=5
End If 
End If 

Color 255,0,0
createabubble=Rnd(1,115)
If createabubble=3
bubble.bubble=New bubble
bubble\x=Rnd(20,780)
bubble\y=Rnd(30,570)
bubble\xm=Rnd(-1,1)
bubble\ym=Rnd(-1,1)
bubble\radius=30
End If 

Color 255,255,0
Text 5,470,info$
Text 5,500, "time until next shot "+p\shottime#
Text 5,530, "score "+score


If score>10000 Then info$="ChainGun Unlocked! (Laser lasts longer)" : chaingun=True

If score=20000 Then info$="FastReaload Unlocked! (Less timer to reload)" : freload=True

If score>40000 Then info$="FunkyColors Unlocked! (Funky colors!)" : funky=True

Flip
Wend
There are no comments for this entry.