Wednesday Workshop - Socoder

Wednesday Workshop - Socoder

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|564\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Wednesday Workshop #045 (19 Apr 2006) The Typing Challenge Make typing games!

Type Out! by jayparker for Workshop #045 Type the words that fall down the screen Keyboard Click to download this entry

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

Typing Arcade by Jayenkai for Workshop #045 Type to complete the classic Arcade games OMG! WTF! Keyboard! Click to download this entry

Copyright Jayenkai - 2017+ | Thanks to Shroom_Monk for CSS/Dev Tips | Uses a Jay-Tweaked version of CBParser.
Page Took : 0.095

Wednesday Workshop - Socoder