Wednesday Workshop

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

QT

by Edmund for Workshop #141

Try to get the squares onto the upper platforms.

Mouse

Global score = 0

Type box
Field x,y
	Field up,dir
End Type

Type player
	Field x,y,oldx,oldy
End Type

Type plat
 Field x,y
End Type

Graphics 400, 300
SetBuffer BackBuffer()
SeedRnd MilliSecs()

Global player.player = New player
player\x = MouseX()
player\y = 250
player\oldx = player\x
player\oldy = player\y

plat.plat = New plat

plat\x = 80
plat\y = 100

plat2.plat = New plat

plat2\x = 280
plat2\y = 100

For t = 1 To 5

	box.box = New box
	box\x = Rand(10,390)
	box\y = 0
	box\up = 2
	box\dir = 0

Next

Cls

Text 0,0, "bounce boxes into the top two platforms"
Text 0,50, "this game is terrible"
Text 0,100, "press any key"

WaitKey()

While Not KeyHit(1)

	Cls

	game()

	draw()
	
	Flip

Wend

Function game()

	player\x = MouseX()

	For box.box = Each box
	
		If box\dir = 1
			box\x = box\x + 1
		EndIf
		
		If box\dir = -1
			box\x = box\x - 1
		EndIf
		
		If box\x > 400
		
		box\dir = -1
		
		EndIf
		
		If box\x < 0
		
		box\dir = 1
		
		EndIf
		If box\x > player\x And box\x < player\x + 30 And box\y > player\y And box\y < player\y + 10
		
			box\up = 1
			
			box\dir = Rand(-1,1)
			
		EndIf
		
		If box\up = 1
		
			box\y = box\y - 3
			
			If box\y < 20
			
				box\up = 2
				
			EndIf
			
		EndIf
		
		If box\y > 300
		
			Delete box
			
			Newbox()
			
			score = score - 1
			
			Exit
			
		EndIf
		
		If box\up = 2
		
			box\y = box\y + 3
			
			For plat.plat = Each plat
			
			If box\x > plat\x And box\x < plat\x + 30 And box\y > plat\y And box\y < plat\y + 10
		
				Delete box
				
				Newbox()
			
				score = score + 1
				
				Exit
			
			EndIf
			
			Next
			
		EndIf
		
		player\oldx = player\x
		
	Next
	
End Function

Function draw()

	Rect player\x,player\y,30,10,True
	
	For box.box = Each box
		Rect box\x,box\y,10,10,True
	Next
	
	For plat.plat = Each plat
		Rect plat\x,plat\y,30,10,True
	Next
	
	Text 0,0,"score: " + score
	
End Function

Function newbox()

	box.box = New box
	box\x = Rand(10,390)
	box\y = 0
	box\up = 2
	box\dir = 0
	
End Function