Wednesday Workshop

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0|426|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-

Shoot The Ship

by Phoenix for Workshop #121

Shoot the Ship, but beware the delays

Spacebar.. Then wait!

Graphics(640, 480, 32, 2)
SetBuffer(BackBuffer())
SeedRnd(MilliSecs())

shipPos# = 640
bulletPos = 470
fired = False
del# = 2500
waittmr = -1
bulSpd# = 2
score = 0
high = 0
level = 1

timer = CreateTimer(60)

While(Not KeyHit(1))
	WaitTimer(timer)
	
	shipPos = shipPos - 1
	
	If(KeyHit(57)) Then waittmr = del+MilliSecs()
	
	If(waittmr > 0)
		If(waittmr =< MilliSecs())
			fired=True
		EndIf
	EndIf
	
	If(fired) Then bulletPos = bulletPos - bulSpd
	
	If(RectsOverlap(118, bulletPos, 4, 4, shipPos, 20, 80, 10))
		score = score + Rand(level*1000, level*10000)
		level = level + 1
		bulSpd = Rand(1, 5)
		del = Rand(25, 50)*100
		fired = False
		shipPos = 640
		bulletPos = 470
		waittmr = -1
		If(score>high) Then high=score
	Else If(bulletPos < 0 Or shipPos < -80)
		shipPos# = 640
		bulletPos = 470
		fired = False
		del# = 2500
		waittmr = -1
		bulSpd# = 2
		score = 0
		level = 1
		If(score>high) Then high=score
	EndIf
	
	Rect(118, bulletPos, 4, 4)
	
	Color(255,128,0)
	Rect(shipPos, 20, 80, 10)
	Color(255, 200, 100)
	Rect(shipPos, 20, 80, 10, 0)
	
	Color(0,128,255)
	Rect(110, 470, 20, 10)
	Line(120, 470, 120, 460)
	
	Color(255,255,255)
	Text(0,0,"Delay: "+del/1000+" seconds")
	Text(0,12,"Bullet speed: "+bulSpd)
	Text(0,24,"Score: "+score)
	Text(0,36,"Highest score: " +high)
	Flip
	Cls
Wend
End