Wednesday Workshop

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0|617|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-

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)