Wednesday Workshop

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0|565|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
The Super Typing Game

by moleman for Workshop #045
Type the seven words that appear onscreen
OMG! Keyboard
;The Super Typing Game

Graphics 1024,768,0,1
SetBuffer BackBuffer()

AppTitle("The Super Typing Game")

Dim ThinkingDots$(9)

ThinkingDots$(0) = "."
ThinkingDots$(1) = ".."
ThinkingDots$(2) = "..."
ThinkingDots$(3) = "...."
ThinkingDots$(4) = "....."
ThinkingDots$(5) = "......"
ThinkingDots$(6) = "......."
ThinkingDots$(7) = "........"
ThinkingDots$(8) = "........."
ThinkingDots$(9) = ".........."

Dim SentencesArray$(12)

SentencesArray(0) = "each sentence will have exactly seven words"
SentencesArray(1) = "at this current moment i make sentences"
SentencesArray(2) = "none of these sentences contain any punctuation"
SentencesArray(3) = "the sentences will vary in their features"
SentencesArray(4) = "if there were any typos i apologise"
SentencesArray(5) = "i bet you are having stupendous fun"
SentencesArray(6) = "physics is a lesson in most schools"
SentencesArray(7) = "no pressure but the clock is ticking"
SentencesArray(8) = "typing with no puctuation is terribly bad"
SentencesArray(9) = "i find sentences hard to type properly"
SentencesArray(10) = "thereis is a concatanation of there is"
SentencesArray(11) = "this is actually fantasmagorically boring and uneventful"
SentencesArray(12) = "this game is deceptive this is boring"

Global PlayGame = False
Global ThinkingTimer = MilliSecs()
Global ThinkingNumber = 0
Global TotalThinkDots = 0
Global sentence$ = ""
Global SentenceToShow = 0
Global TimeLeft = 30 ;time left, in seconds.
Global TimeLeftTimer = MilliSecs()
Global HUDinfo$ = "Type the sentence A.S.A.P!"
Global score = 0

;title screen

FlushKeys()

Repeat
	Cls
	
		Text 512,150,"Welcome to this super game!",1,1
		Text 512,175,"This game is so super it had to be named 'The Super Typing Game'",1,1
		Text 512,200,"You have been warned...",1,1
		
		Text 512,300,"The aim of this arguably fantasmagorical game is one of deception, evasion and utter anihalation!",1,1
		Text 512,325,"The truth is, I am thinking of the aim as I write this very introduction, but that is our secret ;)",1,1
		Text 512,350,"So. What to do? What about...",1,1
		
		Text 512,425,"Press space bar to continue...",1,1
		If KeyHit(57) = True Then PlayGame = True
	
	Flip
Until PlayGame = True

PlayGame = False

Repeat
	Cls
	
	If MilliSecs() > ThinkingTimer + 200 Then 
		ThinkingNumber = ThinkingNumber + 1
		TotalThinkDots = TotalThinkDots + 1
			If ThinkingNumber > 9 Then ThinkingNumber = 0
		ThinkingTimer = MilliSecs()
	EndIf
	
	Text 512,384,"Thinking of game"+ThinkingDots(ThinkingNumber),1,1
	
	If TotalThinkDots = 12 Then PlayGame = True
	
	Flip
Until PlayGame = True

PlayGame = False

FlushKeys()

Repeat 
	Cls
		
		Text 512,200,"Thinking Complete!",1,1
		
		Text 512,400,"So, in this game, you have to type the sentence as fast as possible WITH NO ERRORS",1,1
		Text 512,425,"and then press enter to submit it. You have to type as many sentences as you can until",1,1
		Text 512,450,"the time runs out. The great thing is, you get a little bit of extra time added when you",1,1
		Text 512,475,"compete a sentence.",1,1
		Text 512,500,"To end the game, press ESC, which you will most likely want to know...",1,1
		Text 512,525,"Let the game Begin! We are writing this line on the 525th pixel form the top of the screen.",1,1
		Text 512,550,"Press the open square brackets key to continue I guess...",1,1
		
		If KeyHit(26) Then PlayGame = True
	
	Flip
Until PlayGame = True

Cls
Text 512,384,"The game will begin in a random time, between three seconds and eight seconds...",1,1
Flip

Delay(Rand(3000,8000))

FlushKeys()

Repeat
	Cls
		
		If MilliSecs() > TimeLeftTimer + 1000 Then
			TimeLeft = TimeLeft - 1
			TimeLeftTimer = MilliSecs()
		EndIf
		
		Rect 50,60,10,TimeLeft*20,1 
		
		Text 10,10,HUDinfo$
		Text 512,150,"Carefully but speedily type the sentence below! FUN FUN FUN!",1,1
		
		Text 512,250,SentencesArray$(SentenceToShow),1,1
	
		If KeyHit(14) And Len(sentence$)>0 Then sentence$=Left$(sentence$,Len(sentence$)-1) ;handles deleting the lst charater
		key=GetKey()
		If key>=32 And key<=148 Then sentence$=sentence$+Chr$(key) ;adds the latest keyhit the the message
		If KeyHit(28) And Len(sentence$)>0 Then CheckSentence(sentence$,SentencesArray$(SentenceToShow))
		Text 512,600,"Your sentence so far!!: "+sentence$+"_",1,1 ;show this message!
	Flip
Until KeyHit(1) Or TimeLeft <= 0

Repeat
	Cls
		
		Text 512,350,"Well, that was probably quite a traumatically boring experience!",1,1
		Text 512,375,"Fortunately, I made this thing keep track of how many sentences you typed",1,1
		Text 512,400,"correctly. I bet you are itching to find out...",1,1
		Text 512,425,"Well, what are you waiting for? Press key F8 to see your score!",1,1
		
		Text 512,475,"Press the left shift key to exit at any time...",1,1
		
		If KeyHit(66) Then 
			Text 512,550,"Your score: "+score,1,1
			Text 512,575,"That was anti-climatic, was it not?",1,1
			Text 512,600,"Do not forget to play again!",1,1
		EndIf
	Flip
Until KeyHit(42)

Function CheckSentence(UserSentence$,ArraySentence$) ;check whther the typed sentence is correct

If UserSentence$ = ArraySentence$ Then
	sentence$ = ""
	SentenceToShow = Rand(0,12)
	HUDinfo$ = "Well done! Onto the next one..."
	TimeLeft = TimeLeft + 15
	score = score + 1
Else
	sentence$ = ""
	HUDinfo$ = "AAARRRGGGHHH! You made a mistake! Try again, quickly!"
EndIf

End Function