Wednesday Workshop

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

Typing Carnival

by tnt23 for Workshop #043

Type the ball to the top of the poll!

Keys

;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;Typing Carnival;;;;;;;
;;;Trinitro Studios;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;
;Wednesday Workshop XXXIII;
;;;;;;;;;;;;;;;;;;;;;;;;;;

Graphics 640,480, 16,2
SeedRnd(MilliSecs())
SetBuffer BackBuffer()
AppTitle "Typing Carnival"
;;*Constants*;;
Const a = 97
Const z = 122

;;*Fonts*;;
tahoma = LoadFont("Tahoma",26,True)
times = LoadFont("Times New Roman",25)
SetFont(tahoma)

;;*Sounds/Music*;;
Global click = LoadSound(SystemProperty("windowsdir") + "\media\start.wav")
Global chimes = LoadSound(SystemProperty("windowsdir") + "\media\chimes.wav")
Global town = PlayMusic(SystemProperty("windowsdir") + "\media\town.mid") ;;<== in case of MAV comment out this line
ChannelVolume town, 0.8 				  		;;<== and this line

;;*Globals*;;
Global x = 320,y = 430
Global ckey
Global start
Global time,min,sec
Global timest$

DisplayTitle(320,240)
FreeFont tahoma : SetFont times
SetBuffer(BackBuffer())
start = MilliSecs()
While Not KeyHit(1)
	ClsColor Rand(45),Rand(65),Rand(75)
	Cls
	Color 255,255,255
	
	DrawPole()
	DrawBall()
	UpdateInput()
	UpdateTime()
	DrawHUD(50,50)
	If y <= 0 Then GameOver()
	
	If town Then 
		If Not ChannelPlaying(town) Then 
			town = PlayMusic(SystemProperty("windowsdir") + "\media\town.mid")
		EndIf
	EndIf 
	Delay 10
	Flip
Wend : End


;;*Functions*;;
Function DisplayTitle(x,y)
	TypeText x,y, "TriNitro Studios",1,1
	If KeyDown(1) Then End
	Delay 1000
	
	PlaySound chimes
	For c = 255 To 0 Step -5
		Color c,c,c
		Text x,y, "TriNitro Studios",1,1
		If KeyDown(1) Then End
		Flip
	Next
	
	Color 255,255,255
	TypeText x,y, "Typing Carnival",1,1
	If KeyDown(1) Then End
	Delay 1000
	
	PlaySound chimes
	For c = 255 To 0 Step -5
		Color c,c,c
		Text x,y, "Typing Carnival",1,1
		If KeyDown(1) Then End
		Flip
	Next
End Function

Function TypeText(x,y,tex$,centerx=0,centery=0)
	length = Len(tex$)
	If centerx Then x = x - (StringWidth(tex$)/2)
	If centery Then y = y - (StringHeight(tex$)/2)
	
	For typewriter = 1 To length
		currentstring$ = Left(tex$,typewriter)
		Text x,y,currentstring$
		PlaySound click
		Delay 100 
		Flip 
	Next

End Function

Function DrawPole()
	Color 255,255,255
	Rect x-5,0,10,480
	Color 0,255,0
	Rect x-5,0,2,480 : Rect x+4,0,2,480
	Rect x,0,1,480
	
	Color 255,0,0
	Rect x-5,y,2,480 : Rect x+4,y,2,480
	Rect x,y,1,480
End Function

Function DrawBall()
	Color 0,0,255
	Oval x-25,y,50,50,1
End Function

Function UpdateInput()
	If GetKey() = ckey
		ckey = Rand(a,z)
		y = y - 5
	EndIf
End Function 
	
Function DrawHUD(x,y)
	Color 0,0,0
	Rect x,y,200,100,1
	Color 255,0,0
	Rect x,y,200,100,0
	Rect x,y+30,200,2,1
	
	Color 255,255,255
	Text x+100,y+2,"STATS",1
	Text x+100,y+40,"Time: " + timest$,1
	Text x+100,y+70,"Press " + Upper(Chr(ckey)),1
	
End Function 

Function UpdateTime()
	time = MilliSecs()-start
	
	dec = (time/100) Mod 10
	sec = (time/1000) Mod 60
	min = (time/1000)/60
	
	timest$ = min + ":" + sec + ":" + dec
End Function 

Function GameOver()
	Cls
	Flip
	Cls
	SetBuffer(FrontBuffer())
	Delay 200 : FlushKeys()

	Text 320,240,"Your Time: " + timest$,1,1
	WaitKey
	End
End Function