Wednesday Workshop

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

Ball hole!

by Magicman for Workshop #115

Get the ball through the hole.

Spacebar to drop.

AppTitle "3.1415926535897932384" ;Pure memory,not to exciting but, meh.
Graphics 800,600,16,2
AutoMidHandle True



ball = CreateImage(30,30)
SetBuffer ImageBuffer(ball)
Color 255,255,255
Oval 0,0,30,30,0

Global ballx# 
Global bally# 
Global ballyv# 
Global ballxv# 
Global ballfall 
Global bn#
Global nb#


wall = CreateImage(800,3)
SetBuffer ImageBuffer(wall)
Color 255,255,255
Rect 0,0,800,3

Global wallx# 
Global wally# 


wall2 = CreateImage(800,3)
SetBuffer ImageBuffer(wall2)
Color 255,255,255
Rect 0,0,800,3

Global wall2x# 
Global wall2y# 


wall3 = CreateImage(100,3)
SetBuffer ImageBuffer(wall3)
Color 255,255,255
Rect 0,0,100,3

Global wall3x# 
Global wall3y#


wall4 = CreateImage(100,3)
SetBuffer ImageBuffer(wall4)
Color 255,255,255
Rect 0,0,100,3

Global wall4x# 
Global wall4y#




Global begin = 1
Global level = 1


SetBuffer BackBuffer()
While Not KeyDown(1)
Cls


If begin = 1 setuplevel()



If KeyHit(57) ballfall = 1



	If ImagesCollide(ball,ballx,bally,0,wall,wallx,wally,0)
	 begin = 1
	 level = 1
	EndIf
	
	If ImagesCollide(ball,ballx,bally,0,wall2,wall2x,wall2y,0)
	 begin = 1
	 level = 1
	EndIf
	
	If ImagesCollide(ball,ballx,bally,0,wall3,wall3x,wall3y,0)
	 begin = 1
	 level = 1	
	EndIf
	
	If ImagesCollide(ball,ballx,bally,0,wall4,wall4x,wall4y,0)
	 begin = 1
	 level = 1	
	EndIf


DrawImage wall,wallx,wally
DrawImage wall2,wall2x,wall2y
DrawImage wall3,wall3x,wall3y
DrawImage wall4,wall4x,wall4y

DrawImage ball,ballx,bally
updateball()


Text 360,10,"LEVEL: " + level

If gameend = 1 

Text 350,300,"Y0|_|  \/\/0|\|"
fin = fin + 1
If fin = 200 End

EndIf

Flip
Wend
End





Function updateball()

	ballx = ballx + ballxv
	bally = bally + ballyv
	
	If ballx > 785 ballxv = -ballxv
	If ballx < 15 ballxv = -ballxv
	
	If ballfall = 1 ballyv = ballyv + .0981
	
	If bally > 700 
		begin = 1
		level = level + 1
	EndIf
End Function


Function setuplevel()

	nb = Rnd(0,1)
	If nb => .5 bn = 3
	If nb < .5 bn = -3

	If level = 1
		wallx = -50
		wally = 500
		wall2x = 850
		wall2y = 500
		wall3x = 0
		wall3y = 900
		wall4x = 0
		wall4y = 900
		ballx = 400
		bally = 50
		ballxv = bn
		ballyv = 0
		ballfall = 0
		begin = 0
	EndIf

	If level = 2
		wallx = 330
		wally = 500
		wall2x = 1200
		wall2y = 500			
		ballx = 400
		bally = 50
		ballxv = bn
		ballyv = 0
		ballfall = 0
		begin = 0
	EndIf
	
	If level = 3
		wallx = -35
		wally = 500
		wall2x = 835
		wall2y = 500			
		ballx = 400
		bally = 50
		ballxv = bn
		ballyv = 0
		ballfall = 0
		begin = 0
	EndIf
	
	If level = 4
		wallx = -35
		wally = 500
		wall2x = 835
		wall2y = 500
		wall3x = 260
		wall3y = 300
		wall4x = 540
		wall4y = 300			
		ballx = 400
		bally = 50
		ballxv = bn
		ballyv = 0
		ballfall = 0
		begin = 0
	EndIf
	
	If level = 5
		wallx = 280
		wally = 500
		wall2x = 1150
		wall2y = 500
		wall3x = 660
		wall3y = 400
		wall4x = 540
		wall4y = 1300			
		ballx = 400
		bally = 50
		ballxv = bn
		ballyv = 0
		ballfall = 0
		begin = 0
	EndIf
	
	If level = 6
		wallx = -35
		wally = 300
		wall2x = 835
		wall2y = 300
		wall3x = 260
		wall3y = 500
		wall4x = 540
		wall4y = 500			
		ballx = 400
		bally = 50
		ballxv = bn
		ballyv = 0
		ballfall = 0
		begin = 0
	EndIf
	
	If level = 7
		wallx = -35
		wally = 80
		wall2x = 835
		wall2y = 80
		wall3x = 260
		wall3y = 1500
		wall4x = 540
		wall4y = 1500			
		ballx = 400
		bally = 50
		ballxv = bn
		ballyv = 0
		ballfall = 0
		begin = 0
	EndIf
	
	If level = 8
		wallx = -35
		wally = 590
		wall2x = 835
		wall2y = 590
		wall3x = 260
		wall3y = 1500
		wall4x = 540
		wall4y = 1500			
		ballx = 400
		bally = 50
		ballxv = bn
		ballyv = 0
		ballfall = 0
		begin = 0
	EndIf
	
	If level = 9
	
	wallx = 10000
	wall2x = 10000
	wall3x = 10000
	wall4x = 10000
	gameend = 1
	
	EndIf
	
	

End Function