Wednesday Workshop

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

One Button Missile Command

by JL235 for Workshop #071

Feel free to mess with the constants to see if you can make it work better or what.

Space to shoot. Space to detonate.

Graphics 800,600,0,2
AppTitle "one-button missile command"
SetBuffer BackBuffer()

;general info
Const PointsAdd# = 0.1
Global points# = 100
Global score = 0
Global gameoverFlag = False

;player info
Const PlayerSize = 35
Const PlayerLength = 50
Const PlayerSpeedIncrease# = 0.001
Global playerSpeed# = 2.8
Global playerShotType = False
Global playerAngle# = 0

;missile info
Const MissileDelay = 800
Const MissileSpeed = 2
Const MissileSize = 7

Global missileTimer = 0
Global missileX# = GraphicsWidth()/2
Global missileY# = GraphicsHeight()/2
Global missileAngle = playerAngle

;enemy info
Const EnemySize = 5
Const EnemySpeed = 1
Const EnemyGenerateMinimumDelay = 1250

Global enemyGenerateDelay = 3000
Global enemyGenerateTimer = MilliSecs() + enemyGenerateDelay

Type Enemy
	Field x#
	Field y#
	Field angle
End Type

;explosion info
Const ExplosionSpeed# = 2.5
Const ExplosionMinimumSize = 0
Const ExplosionMaximumSize = 90

Type Explosion
	Field x#
	Field y#
	Field size#
End Type


;MAIN LOOP
While Not KeyDown(1)
Cls
	;enemies - check and generate them
	If enemyGenerateTimer < MilliSecs()
		enemy.Enemy = New Enemy
			enemy\angle = Rnd(0,360)
			enemy\x# = GraphicsWidth()/2 - 300*Cos(enemy\angle)
			enemy\y# = GraphicsHeight()/2 - 300*Sin(enemy\angle)
		
		If enemyGenerateDelay > EnemyGenerateMinimumDelay
			enemyGenerateDelay = enemyGenerateDelay - 100
		Else
			enemyGenerateDelay = EnemyGenerateMinimumDelay
		EndIf
		enemyGenerateTimer = MilliSecs() + enemyGenerateDelay
	EndIf
	
	;if space pressed
	If KeyHit(57)
		If playerShotType = False And missileTimer < MilliSecs()
				missileX# = GraphicsWidth()/2
				missileY# = GraphicsHeight()/2
				missileAngle = playerAngle
				missileTimer = MilliSecs() + MissileDelay
				
				playerShotType = True
		ElseIf playerShotType ;if missile
			explosion.Explosion = New Explosion
				explosion\x# = missileX#
				explosion\y# = missileY#
				explosion\size# = ExplosionMinimumSize
				
				playerShotType = False
		EndIf
	EndIf
	
	;missile - move it
	If playerShotType
		missileX# = missileX# - MissileSpeed*Cos(missileAngle)
		missileY# = missileY# - MissileSpeed*Sin(missileAngle)
	
		If missileX# < 0 Or missileY# < 0 Or missileX# > GraphicsWidth() Or missileY# > GraphicsHeight()
			playerShotType = False
		EndIf
	EndIf
	
	;explosion - increase size
	For explosion.Explosion = Each Explosion
		;check for explosion to enemy collision
		For enemy.Enemy = Each Enemy
			If ((enemy\x# - explosion\x#)*(enemy\x# - explosion\x#) + (enemy\y# - explosion\y#)*(enemy\y# - explosion\y#))^0.5 < explosion\size/2
				score = score + Points
				Delete enemy
			EndIf
		Next
		
		If explosion\size# < explosionMaximumSize
			explosion\size# = explosion\size# + explosionSpeed#
		Else
			Delete explosion
		EndIf
	Next
	
	;enemies - move them
	For enemy.Enemy = Each Enemy
		enemy\x# = enemy\x# + EnemySpeed*Cos(enemy\angle)
		enemy\y# = enemy\y# + EnemySpeed*Sin(enemy\angle)
		
		;check for enemy to player collision
		If ((enemy\x# - GraphicsWidth()/2)*(enemy\x# - GraphicsWidth()/2) + (enemy\y# - GraphicsHeight()/2)*(enemy\y# - GraphicsHeight()/2))^0.5 < playerSize/2
			gameoverFlag = True
		EndIf
	Next
	
	;draw explosion
	Color 130,30,30
		For explosion.Explosion = Each Explosion
			Oval explosion\x# - explosion\size/2, explosion\y# - explosion\size/2, explosion\size, explosion\size
		Next
	
	;draw player
	Color 244,244,244
		playerSpeed = playerSpeed + PlayerSpeedIncrease#
		playerAngle# = playerAngle# + playerSpeed#
		Oval GraphicsWidth()/2 - PlayerSize/2, GraphicsHeight()/2 - PlayerSize/2, PlayerSize, PlayerSize
		Line GraphicsWidth()/2, GraphicsHeight()/2, GraphicsWidth()/2 - PlayerLength*Cos(playerAngle#), GraphicsHeight()/2 - PlayerLength*Sin(playerAngle#)
	
	;draw missile
	Color 50,50,180
		If playerShotType
			Rect missileX# - MissileSize/2, missileY# - MissileSize/2, MissileSize, MissileSize
		EndIf
	
	;draw enemies
	Color 60,160,30
		For enemy.Enemy = Each Enemy
			Oval enemy\x# - EnemySize/2, enemy\y# - EnemySize/2, EnemySize, EnemySize
		Next
	
	;write score
	points# = points# + PointsAdd#
	Color 255,255,255
		Text 10,12,"Score: " + score
	
	;if gameover
	If gameoverFlag = True
		Text 10,32,"GAME OVER!"
		Flip
		FlushKeys
		WaitKey
		End
	EndIf
Flip
Wend
End