Week 97/Wed. Workshop (SoCoder)

<- Previous Workshop | Next Workshop ->

097 : The Gameshow Challenge

Date : 25 Apr 2007

Challenge : Recreate or design your own Classic TV Gameshow.

The Entries in order of submission
Pick a card!

JL235 | Comments (2) | Rating 25%

Are you a mind reader? Pick a card to find out!

Keyboard

Show Sourcecode for this entry

Hide Sourcecode

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

Blitz3DMan | Comments (6) | Rating 50%

Answer the questions to win the cash.

1, 2, 3 or 4

Show Sourcecode for this entry

Hide Sourcecode

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

<- Previous Workshop | Next Workshop ->