Wednesday Workshop

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

Pumps

by Ryan Moody for Workshop #011

A 2 minute physical challenge (no, it's not rude!).

Cursor Keys

Graphics 800,600
SetBuffer BackBuffer()

Global PumpPosition = 1
Global PumpState = False
Global MovementTimer
Global StartTime

Dim BucketDepths(5)

Function InitialiseBucketDepths()

	For index = 0 To 3
	
		BucketDepths(index) = 0
	
	Next
	
	BucketDepths(4) = 200

End Function

Function UpdateGame()

	FlushKeys

	If MovementTimer + 100 < MilliSecs()
		
		If KeyDown(203) And PumpPosition <> 1
		
			PumpPosition = PumpPosition - 1
			MovementTimer = MilliSecs()
		
		EndIf
		
		If KeyDown(205) And PumpPosition <> 4
		
			PumpPosition = PumpPosition + 1
			MovementTimer = MilliSecs()
		
		EndIf
	
	EndIf
	
	If KeyDown(200) And (Not KeyDown(208)) And (Not PumpState)
	
		PumpState = True
	
	EndIf
	
	If KeyDown(208) And (Not KeyDown(200)) And PumpState
	
		PumpState = False
		
		If PumpPosition = 1
		
			If BucketDepths(1) > 0
		
				BucketDepths(PumpPosition-1) = BucketDepths(PumpPosition-1) + 5
				BucketDepths(PumpPosition) = BucketDepths(PumpPosition) - 5
		
			EndIf
		
		Else
		
			If BucketDepths(PumpPosition) > 0 And BucketDepths(PumpPosition-1) <> (200/(2^(4-(PumpPosition-1)))) 
		
				BucketDepths(PumpPosition-1) = BucketDepths(PumpPosition-1) + 5
				BucketDepths(PumpPosition) = BucketDepths(PumpPosition) - 5
		
			EndIf
				
		EndIf
	
	EndIf

End Function

Function RenderGame()

	Color 255,255,255
	Rect 25,375,50,201,0

	Color 0,0,255
	Rect 26,575-BucketDepths(0),48,BucketDepths(0),1

	For index = 1 To 4
	
		Color 255,255,255
		Rect (175 * index) - 75,375,150,201,0
		Rect (175 * index) - 75,375 + (200/(2^(4-index))),150,200 - (200/(2^(4-index))),1
	
		Color 0,0,255
		Rect (175 * index) - 74,375 + (200/(2^(4-index))) - BucketDepths(index),148,BucketDepths(index),1
	
	Next

	Color 0,0,0
	Line 0,375,800,375
	
	Color 255,255,255
	Text (175 * PumpPosition) - 65,580,"^ PUMP IS HERE ^"
	
	Color 255,255,0
	Rect 35,575-BucketDepths(0)-5,30,5,1
	
	Color 0,255,255
	Oval 40,575-BucketDepths(0)-25,20,20,1
	
	Color 255,0,0
	Oval 40,350,20,20,0
	
	Color 255,0,0
	Text 40,33,"TIME"
	Rect 100,25,675 - (((MilliSecs() - StartTime)/120000.0) * 675),25,1

	If MilliSecs() - StartTime > 120000
	
		SetBuffer FrontBuffer()
		Color 255,255,255
		Text 400,300,"LOCKED IN!",True,True
		Delay 5000
		End
	
	EndIf
	
	If BucketDepths(0) = 200
	
		Flip
		SetBuffer FrontBuffer()
		Color 255,255,255
		Text 400,300,"YOU GOT THE CRYSTAL!",True,True
		Delay 5000
		End
	
	EndIf

End Function

InitialiseBucketDepths()

StartTime = MilliSecs()

While Not KeyDown(1)

	Cls

		RenderGame()

	Flip

	UpdateGame()

Wend