Wednesday Workshop - Socoder

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|543\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Wednesday Workshop #078 (06 Dec 2006) The Flying Challenge Make a game about Flying. Anything will do.. Planes, Kites, even Flys.

Mega Glider by mike_g for Workshop #078 Fly you glider as far as you can! Right to go Right, Up to go Up 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

Mouse Fly by Jayenkai for Workshop #078 Glide the plane across without crashing it. Move Mouse Up! 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)

Copyright Jayenkai - 2017+ | Thanks to Shroom_Monk for CSS/Dev Tips | Uses a Jay-Tweaked version of CBParser.
Page Took : 0.105

Wednesday Workshop - Socoder