Week 71/Wed. Workshop (SoCoder)

<- Previous Workshop | Next Workshop ->

071 : The One-Button Challenge

Date : 18 Oct 2006

Challenge : Make a game that uses only one button! Preferably Spacebar, or a Mousebutton.. A nice easy to access button, that can be pushed.. like a button.. (You may use Esc to quit.)

The Entries in order of submission
One Button Missile Command

JL235 | Comments (0) | No Votes

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

Space to shoot. Space to detonate.

Show Sourcecode for this entry

Hide Sourcecode

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

<- Previous Workshop | Next Workshop ->