Wednesday Workshop

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

Ball-Up

by Jayenkai for Workshop #001

This game features a ball bouncing up a rather large staircase.

Cursors Left+Right

;Ball Up
Graphics 640,480,0,2
SetBuffer BackBuffer()
Dim array(2000)

.restart
SeedRnd MilliSecs()
x=9
For y=1 To 2000
array(y)=x*32
x=x+Rand(-3,3)
If x<0 Then x=Rand(0,2)
If x>19 Then x=Rand(17,19)
Next

bally=0
ballx=320
jumparc=0
scry=0
py=0

Repeat
jumparc=jumparc+4
If jumparc=>180 Then jumparc=jumparc-180
Cls

Color 140,80,40
baty=(446-bally)-(Sin(jumparc)*180)
baty=baty+scry
Oval ballx,baty,16,16

ballx=ballx+((KeyDown(205)-KeyDown(203))*4)

Color 80,140,40
If bally>-32 Then Rect 0,460+bally,640,32

land=1

For x=1 To 2000
atx=array(x)
aty=(460-(x*140))+scry
If aty>0 And aty<480
 Rect atx,aty,32,32

If jumparc>89 And jumparc<110 And aty>baty And aty<baty+60 And atx<ballx+8 And atx+32>ballx+8
py=py+140
EndIf


If jumparc=0 And aty>baty-16 And (atx>ballx+8 Or atx+32<ballx+8) Then land=0


EndIf

Next

If land=0 Then dead=1

If py<>0 Then scry=scry+20:bally=bally+20:py=py-20

Flip
If KeyDown(1) Then dead=9
Until dead>0
Repeat
Cls
If dead=9 Then End
If dead=1 Then Text 320,240,"You Fell",1,1:Text 320,280,"Hit Space to Try Again",1,1
Flip
Until KeyDown(57)
dead=0
Goto restart