Wednesday Workshop

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

Bucket Full of Numbers

by Jayenkai for Workshop #084

Catch the numbers in the bucket. The higher the number you catch, the more points you get. 50 numbers to catch.

Use 1->0 to position the bucket.

Graphics 640,480,32,2
SetBuffer BackBuffer()

Dim array(3,5)

For n=1 To 3
array(n,1)=Rand(1,10)
array(n,2)=Rand(-100,-600)
array(n,3)=Rand(0,9)
array(n,4)=Rand(4,8)
Next

font=LoadFont("Arial",24)
SetFont font

score=0


nums=3
GoX=5

Repeat
Cls


For n=1 To 10
If KeyDown(n+1) Then GoX=n
Next


For n=1 To 3
array(n,2)=array(n,2)+array(n,4)
Color 255,255,255
Text (array(n,1)*64)-32,array(n,2),array(n,3),1,1

If array(n,2)>480
If nums=50 Then fin=fin+1:array(n,1)=500:array(n,2)=-10000
If nums<50
nums=nums+1
array(n,1)=Rand(1,10)
array(n,2)=Rand(-100,-600)
array(n,3)=Rand(0,9)
array(n,4)=Rand(4,8)
EndIf
EndIf

If array(n,2)=>400 And array(n,2)<=460 And array(n,1)=GoX
Score=score+array(n,3)
If nums=50 Then fin=fin+1:array(n,1)=500:array(n,2)=-10000

If nums<50
array(n,1)=Rand(1,10)
array(n,2)=Rand(-100,-600)
array(n,3)=Rand(0,9)
array(n,4)=Rand(4,8)
nums=nums+1
EndIf
EndIf

Next


Color 128,255,128
Rect (GoX*64)-48,400,32,60,1

If fin=3 Then endofgame=1

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



Cls
Text 320,240,"You scored",1,1
Text 320,280,score,1,1
Flip
Delay 2500