#071 - The One Button Challenge

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|533\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Wednesday Workshop -> #071 - The One Button Challenge
Tue, 17 Oct 2006, 16:53
Jayenkai	Wednesday Workshop #071 : The One Button Challenge Time until Deadline Week : 18 October 2006 The Reason : We've done this before! But not in the Wed.Workshop! The 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.) Extra Info No up, no down, no left, no right, no Mouse co-ords, no nothing.. Just One Button. And Esc to quit. Weekly Rules/How to Enter You have until Tuesday Night/Wednesday Morning 00:00 BST to submit your levels. ^ See Deadline Link! ^ Wed.Workshop is at SoCoder.co.nr. If you can read this, you're already there! Stick your entry underneith this post. (I'll get round to uploads, sometime, honest!) If you can't figure it out, send it to Jayenkai@Gmail.com and I'll stick it straight onto the SoCoder (Official Wed.Workshop) site. Entries will be collected during the week, and entered into next week's voting. (If there are any entries..) All entries will be entered into voting which will take place once a voting system has been organised.. Please try to keep all entries within small file sizes. 2Mb absolute maximum. Additional Rules are available at the SoCoder (Official Wed.Workshop) site, under the list of previous workshops. (Click the Wed.Workshop thing, over on the left!) Last Week's Games Last week things fell apart a little bit more, and there were two entries. But TNT was disqualified, on account of his "game" was even less of a game than Magicman's "game". So Magicman won, but only just.. Will this week be normal? Probably not! Lets see if we can get a few entries, this week, eh? -=-=- ''Load, Next List!''
Tue, 17 Oct 2006, 17:07
magicman	hmm, this should be entertaining......
Tue, 17 Oct 2006, 17:55
tnt23	doesn't staring count as interaction? maybe this week I'll enter something normal... maybe. -=-=- What if this were not a hypothetical question?
Wed, 18 Oct 2006, 04:54
Jayenkai	I've just started mine, and fairly quickly realised that a multiplayer mode would be fun.. If you're making a multiplayer game, you may use an extra button per player. But each player can only ever use their single button! -=-=- ''Load, Next List!''
Wed, 18 Oct 2006, 09:36
mole	Hmm.. one button.... if only i was creative XD I will think and think and think until i can think of an easy game that i can wedge onto one button.. hmmmm...
Sat, 21 Oct 2006, 20:36
JL235	One-button missile command. Space to shoot, space to detonate. Feel free to mess with the constants to see if you can make it work better or what. 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 --v
Tue, 24 Oct 2006, 16:55
Jayenkai	Congrats, Diablo. You win this week's workshop! Have another cigar! (For future reference, Diablo's current avatar is Columbo smoking a cigar.. I'm not being strange or anything!) -=-=- ''Load, Next List!''