Wednesday Workshop - Socoder

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|551\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Wednesday Workshop #097 (25 Apr 2007) The Gameshow Challenge Recreate or design your own Classic TV Gameshow.

Pick a card! by JL235 for Workshop #097 Are you a mind reader? Pick a card to find out! Keyboard AppTitle("Pick a card!") ; card type Type Card Field suit$ Field num$ End Type ; main loop While Not KeyDown(1) myCard.Card = NewRandomCard() Print "pick a card, any card!" yourCard.Card = New Card acceptInput = False While Not acceptInput suit$ = Input$("pick the suit first (c,d,h,s): ") If cardSuitString$(suit$) = "" Print "that's not acceptable, try again" Else yourCard\suit$ = cardSuitString$(suit$) acceptInput = True EndIf Wend acceptInput = False While Not acceptInput num$ = Input$("now pick the number (1 to 13): ") If CardNumber$(Int(num$)) = "" Print "that's not acceptable, try again" Else yourCard\num$ = CardNumber$(Int(num$)) acceptInput = True EndIf Wend Print "" Print "ok, your card is the: " PrintCard( yourCard ) Print "" If yourCard\suit$ = myCard\suit$ And yourCard\num$ = myCard\num$ Print "WOW!, you must be a (pc) mind-reader!" Else Print "Sorry, that was not my card." Print "My card was the:" PrintCard( myCard ) EndIf Print "" Wend Function NewRandomCard.Card() Local c.Card = New Card c\num$ = CardNumber$(Rand(1, 13)) c\suit$ = CardSuitNum$(Rand(1, 4)) Return c End Function Function PrintCard(card.Card) Print "The " + card\num$ + " of " + card\suit$ + "." End Function Function CardNumber$(num) Select num Case 1 Return "ace" Case 2 Return "two" Case 3 Return "three" Case 4 Return "four" Case 5 Return "five" Case 6 Return "six" Case 7 Return "seven" Case 8 Return "eight" Case 9 Return "nine" Case 10 Return "ten" Case 11 Return "jack" Case 12 Return "queen" Case 13 Return "king" Default Return "" End Select End Function Function CardSuitNum$(num) Select num Case 1 Return "clubs" Case 2 Return "diamonds" Case 3 Return "hearts" Case 4 Return "spades" End Select End Function Function CardSuitString$(num$) Select num$ Case "c" Return "clubs" Case "d" Return "diamonds" Case "h" Return "hearts" Case "s" Return "spades" Default Return "" End Select End Function

Who Wants to Win a Lump of Money by Blitz3DMan for Workshop #097 Answer the questions to win the cash. 1, 2, 3 or 4 Graphics 640,480,0,2 SeedRnd MilliSecs() SetBuffer BackBuffer() Const num_of_Qs=50 ;Const num_of_Qs=50 Dim question$(num_of_Qs) Dim o1$(num_of_Qs) Dim o2$(num_of_Qs) Dim o3$(num_of_Qs) Dim o4$(num_of_Qs) Dim oreal$(num_of_Qs) Restore questions For dump=1 To 6 Read dumpdata Next For getq=1 To num_of_Qs Read question(getq) Read o1(getq) Read o2(getq) Read o3(getq) Read o4(getq) Read oreal(getq) Next Global money=0 Repeat q=Rand(1,num_of_Qs) display$="" done=0 correct=0 Repeat Cls Text 10,10,question(q) Text 10,100,"1. "+o1(q) Text 10,130,"2. "+o2(q) Text 10,160,"3. "+o3(q) Text 10,190,"4. "+o4(q) Text 10,400,"Current score: $"+money If KeyHit(2) Then done=1:c=1:display=o1(q):If oreal(q)=1 Then correct=1 If KeyHit(3) Then done=1:c=2:display=o1(q):If oreal(q)=2 Then correct=1 If KeyHit(4) Then done=1:c=3:display=o1(q):If oreal(q)=3 Then correct=1 If KeyHit(5) Then done=1:c=4:display=o1(q):If oreal(q)=4 Then correct=1 Flip If KeyDown(1) Then End Until done=1 FlushKeys If correct=0 Then Repeat Cls Text 320,220,"You answered incorrectly. You chose "+c+". The correct answer was:",1,1 Text 320,240,oreal(q)+" - "+display,1,1 Text 320,260,"Your final score: $"+money,1,1 Flip If KeyDown(1) Then End Until KeyDown(57) End Else Repeat Cls Text 320,240,"Correct!",1,1 Flip If KeyDown(1) Then End Until KeyDown(57) If money=0 Then money=100 Else money=money*1.1 EndIf Forever .questions Data"#: ?","","","","",0 Data"#001: What company published Blitz Basic?","Pascal","Idigicon","Silby","BlitzCoder",2 Data"#002: What is the chemical symbol for Sodium?","Na","So","Iu","Fe",1 Data"#003: Approximately what is the square root of 3?","1.4","1.5","1.6","1.7",4 Data"#004: How many millions of miles is the Earth from the Sun?","93,000,000","604","93","10,804",3 Data"#005: Which of the following is a semicolon?",":","\",";","#",3 Data"#006: Which of these gaming systems was made by Sega?","Dreamcast","Wii","Xbox","SNES",1 Data"#007: How many chambers are there in a human heart?","1","3","4","2",3 Data"#008: Which of these colors is not primary (referring to light)?","Green","Blue","Yellow","Red",3 Data"#009: Which of the following elements is flammable?","Helium","Chlorine","Sodium","Hydrogen",4 Data"#010: What did Nintendo sell before it sold video games?","Trading cards","Board games","Books","Nothing",1 Data"#011: As of 2007, what is Pluto considered to be?","An asteroid","A panet","A minor planet","Space debris",3 Data"#012: What is the cube root of 8?","3","4","1.6","2",4 Data"#013: Which of the following is a valid scientific definition of inertia?","The state of being lazy","The fact that every action has an equal and opposite reaction","When momentum continues to move an object after it stops","Inertia is not a real scientific term",3 Data"#014: In what language does 'enero' mean February?","Spanish","French","Russian","None of the above",4 Data"#015: Which of these is an actor in TV Land's The Andy Griffith Show?","Ronny Howard","Sally Robinson","Barney Fife","Jeffrey Wilcocks",1 Data"#016: How many continents are there on the Earth?","6","7","8","9",2 Data"#017: How many feet are in a mile?","3,440","5,280","5,000","5,420",2 Data"#018: A rectangular prism has sides 12, 16, and 40. What is its area?","6730","7680","5860","8760",2 Data"#019: How many faces does a cube have?","4","6","5","8",2 Data"#020: What is 1^2352?","2352","4322","7","1",4 Data"#021: Approximately what is the square root of 2?","1.2","1.3","1.4","1.5",3 Data"#022: What is the cube root of 27?","4","3","2","1",2 Data"#023: What is the cube root of 125?","4","25","5","50",3 Data"#024: Which of the following is a prime number?","69","67","63","68",2 Data"#025: What is the chemical makeup of table salt?","H2O","Na2O","2NC","NaCl",4 Data"#026: What is the mathematical term LCM short for?","Least Common Multiple","Length of Connical Math","Least Confusing Math","Length of Confusing Multiples",1 Data"#027: Sonic is a character created by which company?","Nintendo","Sega","Sony","Microsoft",2 Data"#028: Who signed the Constitution of the US in remarkably big letters?","George Washington","John Hancock","Benjamin Franklin","Thomas Jefferson",2 Data"#029: Which was not one of the 12 disciples of Jesus in the Bible?","Matthias","Peter","James","Methuselah",4 Data"#030: What does 'un poco' mean in Spanish?","a little","big mouth","funny comedian","very huge",1 Data"#031: Which of the following is not an element?","Gold","Uranium","Helium","Water",4 Data"#032: Which of the following is not a state of matter?","Gas","Plasma","Solid","Sugar",4 Data"#033: Approximately what is the cube root of 3?","1.00","1.44","1.50","1.63",2 Data"#034: Which of the following most accurately shows Pi?","3.141596","3.151496","3.141569","3.149615",0 Data"#035: What is not a characteristic of all mammals?","Give birth to live young","Have hair","Have lungs","Care for their young",1 Data"#036: What does CIA stand for?","Center of Intelligent Animals","Cats of Independance of Alabama","Cheese Is Awesome","Central Intelligence Agency",4 Data"#037: What was Mario's original name before he was named Mario?","Jumpman","Luigi","Donkey King","Donkey Kong",1 Data"#038: Who was Nintendo's Mario named after?","Nintendo's Landlord","The CEO of Nintendo","Animal Planet's Mario Lopez","Nobody, they just came up with the name",1 Data"#039: What game show is this based off of?","Deal or no Deal","Who Wants to be a Millionare","Jeapordy","The Price is Right",2 Data"#040: Which of the following is a composite number?","1422","1","57","76",1 Data"#041: What is the square root of 400?","10","20","30","40",2 Data"#042: Which of the following is not a valid Blitz3D command?","Pi","Graphics","DebugText","Write",3 Data"#043: How many different seasons are there in a year?","2","3","4","5",3 Data"#044: Which is not a force?","Gravity","Inertia","Friction","Centrifugal force",2 Data"#045: A pie a day causes what?","Happiness","Heart failure","Good hearing","Brain freeze",2 Data"#046: Which of the following was not used by Roman soldiers as a weapon?","Shield","Sword","Spear","Battleaxe",4 Data"#047: What two rivers border Mesopotamia?","Tigris and Euphrates","Nile and Po","Po and Tigris","Nile and Euphrates",1 Data"#048: The Sahara Desert is located on which continent?","Africa","Asia","Antarctica","Australia",1 Data"#049: The Gobi Desert is located on which continent?","Africa","Asia","Antarctica","Australia",2 Data"#050: Which country does not contain part of the Hymalayan mountain range?","China","India","Nepaul","Mongolia",4

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

Wednesday Workshop - Socoder