Wednesday Workshop

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

Shitty Lunar Lander

by magicman for Workshop #125

Try not to smash into the floor too fast.

Cursors

;Started 7:44
;finished 8:16
;Time to make, 32 minutes

AppTitle "SHITTY LUNAR LANDER!"
Graphics 800,600,16,2
AutoMidHandle True

Type part
Field x#,y#,xv#,yv#,c
End Type


Global x# = 400
Global y# = 50
Global xv# = 0
Global yv# = 0

Global gravity# = .1




ship = CreateImage(20,30)
SetBuffer ImageBuffer(ship)
Color 255,255,255
Rect 0,0,20,30,0




Global numpoints 


Global newgame = 0


SetBuffer BackBuffer()

While Not KeyDown(1)
Cls

If newgame = 0
;createscape()
newgame = 1
EndIf




If KeyDown(200) yv = yv - .15

If KeyDown(203) xv = xv -.05
If KeyDown(205) xv = xv + .05


If y > 535 
	If yv > 1 crash = True
	If yv =< 1 crash = False
	land = True
EndIf


If land = True

If crash = False
yv = 0
Text 300,300,"YOU LANDED! PLAY AGAIN? Y/N"


Else


For i = 0 To 36
p.part = New part
p\x = x
p\y = y
p\xv = Cos(angle)*3
p\yv = Sin(angle)*3
p\c = 255
angle = angle + 10
Next

y = -2555
yv = 0

Text 300,300,"YOU CRASHED! PLAY AGAIN? Y/N"




EndIf

If KeyHit(21)
y = 50
x = 400
xv = 0
yv = 0
land = False
EndIf

If KeyHit(49) End

EndIf


DrawImage ship,x,y

x =x + xv
y = y + yv

yv = yv + gravity

Color 255,255,255

Line 0,550,800,550



For p.part = Each part

Color p\c,p\c,p\c
Rect p\x,p\y,12,12,0

p\x = p\x + p\xv
p\y = p\y + p\yv

p\c = p\c - 1
If p\c < 0 Delete p

Next


Delay 1



Flip
Wend
End










Function createscape()
numpoints = Rnd(3,8)

pox = 0
poy = Rnd(400,600)

For i = 0 To numpoints

px = Rnd(50,100)+pox
py = Rnd(400,600)

Color 255,255,255
Line pox,poy,px,py

pox = px
poy = py



Next


End Function