Wednesday Workshop

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

Catch A Cold

by Forklift_Fred for Workshop #127

Catch a Cold!

Cursors

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;										;;
;;			One Hour Challenge			;;
;;          ==================          ;;
;;		   Take 2: Catch A Cold			;;
;;                                      ;;
;;           By Forklift_Fred           ;;
;;   For SoCodor's Wednesday Workshop   ;;
;;      #127 (28/11/07 - 04/12/07)      ;;
;;	Start 	- 19:15						;;
;;	Finish	- 20:24						;;
;;                                      ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

AppTitle "60 Minutes - Catch A Cold"

Graphics 800,600,32,2
SetBuffer BackBuffer()

Type letter
	Field x
	Field y
	Field speed
	Field letter
	Field red
	Field green
	Field blue
End Type

Global fntArial,fntArialB,fntArialI,fntArialU 

; Load fonts to a file handle variables 
fntArial=LoadFont("Arial",24) 
fntArialB=LoadFont("Arial",18,True) 
fntArialI=LoadFont("Arial",32,False,True) 
fntArialU=LoadFont("Arial",14,False,False,True) 
SetFont fntArialB

SeedRnd MilliSecs()

t=MilliSecs()
dt=t+1000
player=400
time=100
wt=101

While Not KeyHit(1)
	Cls
	If MilliSecs()>dt Then
		t=dt
		dt=t+1000
		time=time-1
	End If
	If t>wt Then
		wt=t-Rnd(0,5)
		letter.letter=New letter
		letter\x=Rnd(0,600)
		letter\y=0
		letter\speed=Rnd(1,5)
		letter\letter=Rnd(65,90)
		letter\red=Rnd(10,245)
		letter\green=Rnd(10,245)
		letter\blue=Rnd(10,245)
	End If
	If KeyDown(203) Then player=player-3
	If KeyDown(205) Then player=player+3
	If player<0 Then player=0
	If player>800 Then player=800
	For letter.letter=Each letter
		letter\y=letter\y+letter\speed
		Color letter\red,letter\green,letter\blue
		Text letter\x,letter\y,Chr$(letter\letter),1,1
		If letter\y=>590 Then
			If letter\x>player-(StringWidth("___")/2) And letter\x<player+(StringWidth("___")/2) Then
				score=score+1
				If letter\letter=67 Then
					score=score+1
					c=c+1
					If c=10 Then c=9
				Else If letter\letter=79 Then
					score=score+1
					o=o+1
					If o=10 Then o=9
				Else If letter\letter=76 Then
					score=score+1
					l=l+1
					If l=10 Then l=9
				Else If letter\letter=68 Then
					score=score+1
					d=d+1
					If d=10 Then d=9
				End If
				If c>0 And o>0 And l>0 And d>0 Then
					c=c-1
					o=o-1
					l=l-1
					d=d-1
					score=score+1000
					colds=colds+1
				End If
				lastletter=letter\letter
				Delete letter
			End If
		End If
	Next
	Color 255,255,255
	Text player,590,"___",1,1
	Color 180,200,255
	Rect 0,0,800,22,1
	Color 0,0,0
	Text 3,3,time
	Text 793-StringWidth(RSet(score,4)),3,RSet(score,4)
	Color 0,0,255
	If c>0 Then Text 120,3,"C"
	If o>0 Then Text 130,3,"O"
	If l>0 Then Text 140,3,"L"
	If d>0 Then Text 150,3,"D"
	Color 255,255,255
	Text 120,20,c
	Text 130,20,o
	Text 140,20,l
	Text 150,20,d
	Color 255,0,0
	Text 400,3,"Last letter caught : "+Chr$(lastletter),1,0
	If time=0 Then
		Color 180,200,255
		Rect 300,250,200,140
		Color 255,0,0
		Text 400,280,"GAME OVER",1,1
		Text 400,305,"Your Score : "+score,1,1
		Text 400,330,"Colds Caught : "+colds,1,1
		Text 400,360,"Press Enter To Play Again",1,1
		Flip
		FlushKeys()
		While Not KeyDown(28)
		Wend
		time=100
		For letter.letter=Each letter
			Delete letter
		Next
		score=0
		c=0
		o=0
		l=0
		d=0
		colds=0
	End If
	Flip
Wend
End