Wednesday Workshop - BlitzCoder.net

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|507\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Wednesday Workshop #071 (18 Oct 2006) The One-Button 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.)

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 - 300Cos(enemy\angle) enemy\y# = GraphicsHeight()/2 - 300Sin(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# - MissileSpeedCos(missileAngle) missileY# = missileY# - MissileSpeedSin(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# + EnemySpeedCos(enemy\angle) enemy\y# = enemy\y# + EnemySpeedSin(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 - PlayerLengthCos(playerAngle#), GraphicsHeight()/2 - PlayerLengthSin(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

Wednesday Workshop #071

The One-Button Challenge

One Button Missile Command