Wednesday Workshop

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

Rolly Polly Bally

by Jayenkai for Workshop #084

Guide the ball atop the platforms.

Cursors

Graphics 600,600,32,2
Graphics 200,200,32,3
SetBuffer BackBuffer()

SeedRnd MilliSecs()

Dim array(4,3)

atx=68
aty=68
r=Rand(1,4)
For n=1 To 3
array(n,1)=atx
array(n,2)=aty
array(n,3)=255*n
r=Rand(1,4)
If r=1 Then atx=atx-64
If r=2 Then aty=aty+64
If r=3 Then atx=atx+64
If r=4 Then aty=aty-64
Next

gx=0
gy=0
speed=2

score=3

Repeat
Cls


For n=1 To 2
If array(n,3)>array(n+1,3)
For e=1 To 3
array(4,e)=array(n,e)
array(n,e)=array(n+1,e)
array(n+1,e)=array(4,e)
Next
EndIf
Next

on=0

For n=1 To 3
c=array(n,3)/3
If c>255 Then c=255

array(n,3)=array(n,3)-Speed

If array(n,3)<0
array(n,1)=atx
array(n,2)=aty
array(n,3)=255*3
r=Rand(1,4)
If r=1 Then atx=atx-64
If r=2 Then aty=aty+64
If r=3 Then atx=atx+64
If r=4 Then aty=aty-64
score=score+1
st=st+1
If st=10 Then st=0:speed=speed+1
If speed>25 Then speed=25
EndIf

array(n,1)=array(n,1)-(gx/3)
array(n,2)=array(n,2)-(gy/3)

Color c,c,c
Rect array(n,1),array(n,2),64,64,1

If RectsOverlap(array(n,1),array(n,2),64,64,94,94,12,12) Then on=1
Next

If on=0 Then endofgame=1


atx=atx-(gx/3)
aty=aty-(gy/3)


gx=gx+KeyDown(205)-KeyDown(203)
gy=gy+KeyDown(208)-KeyDown(200)
If KeyDown(205)=0 And gx>0 Then gx=gx-1
If KeyDown(203)=0 And gx<0 Then gx=gx+1

If KeyDown(200)=0 And gy<0 Then gy=gy+1
If KeyDown(208)=0 And gy>0 Then gy=gy-1



Color 255,100,100
Oval 92,92,16,16,1




Flip
If KeyDown(1) Then endofgame=99
Until endofgame<>0


Cls

Text 100,75,"You scored",1,1
Text 100,125,score,1,1
Flip
Delay 2500