#078 - The Flying Challenge

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|734\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Wednesday Workshop -> #078 - The Flying Challenge
Tue, 05 Dec 2006, 16:52
Jayenkai	Wednesday Workshop #078 : The Flying Challenge Time until Deadline Week : 06 November 2006 The Reason : No real reason. Just a random idea. The Challenge : Make a game about Flying. Anything will do.. Planes, Kites, even Flys. 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 here! Stick your entry underneith this post. (I'll get round to uploads, sometime, honest!) If you can't figure it out, or have a really rubbish server, 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 if there's more than one entry.. 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 There weren't any entries again.. -=-=- ''Load, Next List!''
Wed, 06 Dec 2006, 04:36
mike_g	Okay heres a crap one to start off AppTitle"Mega Glider" glider = CreateImage(32, 32) SetBuffer ImageBuffer(glider) Color 150, 50, 50 For i = 1 To 16 Line i, 0+i, i, 32-i Next SetBuffer BackBuffer() py=18 While Not KeyHit(1) Cls Color 100, 100, 20: Rect 0-px, 50, 100, 300 Color 30, 120, 30: Rect 0-px, 50, 102, 6 Color 20, 50, 120: Rect 0, 260, 400, 40 DrawImage glider, px-s, py If KeyDown(205) px = px+1 If px > 52 If KeyDown(205) s=s+1 py = py +1 EndIf If KeyHit(200) Then py = py -4 Flip If py > 260 Cls Print"GAME OVER" Print"YOU MADE IT "+px +"METERS" Print"PRESS ESC TO QUIT" Flip While Not KeyHit(1) Wend End EndIf Wend --v press right key to move right. Hit up to move up. Fly you glider as far as you can!
Fri, 08 Dec 2006, 09:20
Jayenkai	Hmm.. I hadn't actually tested your game until just now, and suddenly realised it's more or less the same!! Bugger. Aw well.. Move mouse up to go up a bit... Graphics 800,600,32,2 SetBuffer BackBuffer() HidePointer() mex#=0 mey#=0 Repeat Cls Color 0,128,0 Rect 0,0,800,600,1 Color 0,128,255 Rect 0,0,800,500,1 If started=0 Color 0,0,0 Text 400,300,"Click in the circle to start",1,1 Oval 4,4,12,12,0 mex=MouseX() mey=MouseY() e=MouseYSpeed() EndIf If MouseDown(1) And MouseX()<16 And MouseY()<16 Then started=1 If started=1 mey=mey+((MouseY()-wmey)/25) mey=mey+2.5 mex=mex+1 MoveMouse mex,mey EndIf wmey=mey Color 0,0,0 If started=1 And mey>500 Then endofgame=2:score=0:Text 400,300,"Awwww, you crashed.",1,1 If started=1 And mex>800 Then endofgame=1:score=500-mey:Text 400,300,"You got to the other side! Score "+score,1,1 Color 255,255,255 Line mex-4,mey-2,mex+2,mey Line mex-4,mey+2,mex+2,mey Line mex-4,mey-2,mex-2,mey Line mex-4,mey-2,mex-2,mey Flip If KeyDown(1) Then endofgame=99 Until endofgame<>0 Repeat Flip Until KeyDown(1) Or MouseDown(1) --v -=-=- ''Load, Next List!''
Tue, 12 Dec 2006, 16:57
Jayenkai	Two entries this week! You can vote by leaving a comment and a vote on the WW pages! The game with the highest overall % will be declared the winner. Next up.. Xmas 1! -=-=- ''Load, Next List!''