Forum - Socoder

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|404\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Wednesday Workshop -> #097 - The Gameshow Challenge
Page : 1 2 Next Prev
Tue, 24 Apr 2007, 17:01
Jayenkai	Wednesday Workshop #097 : The Gameshow Challenge Time until Deadline Week : 25 April 2007 The Reason : I was playing Moody's Play your Cards Right again! (I can't get the theme tune out of my head!!! ARGH!!) The Challenge : Recreate or design your own Classic TV Gameshow. Extra Info If your choice of Gameshow has multiple sections, you can shorten it to a "Best of" if you'd like.. (much like Moody's Play your Cards Right) Doing "Deal or No Deal" is not an option. It's too damn easy! Weekly Rules/How to Enter You have until Tuesday Night/Wednesday Morning 00:00 BST to submit your levels. ^ See Deadline Link! ^ Wed.Workshop is at SoCoder.co.nr. If you can read this, you're probably already there! Stick your entry underneath this post, leaving a link to your zip or the source of your game, or whatever. (I really should get round to that Upload thing, shouldn't I!) If you can't figure it out, or have a really rubbish server, send it to Jayenkai@Gmail.com and I'll stick it straight onto the SoCoder (Official Wed.Workshop) site. Entries will be collected during the week, and then entered into the next week's voting. (If there are any entries..) Please try to keep all entries within small file sizes. 2Mb is the average maximum for files. Additional Rules are available at the SoCoder (Official Wed.Workshop) site, under the list of previous workshops. Last Week's Games Last week, only Blitz3DMan entered, so he wins. -=-=- ''Load, Next List!''
Wed, 25 Apr 2007, 14:18
Blitz3Dman	"Who Wants to be a Millionare" here I come. (hopefully) -=-=- There are 10 kinds of people in this world - ( Insert 16 remarks about to what extent people know hex here )
Fri, 27 Apr 2007, 16:54
JL235	Here is my entry. It's Deal or No Deal. I made it ages ago one night when I bet my brother I could make it in Blitz quicker then he can make it in C++. I lost, but mine does have graphics and is more advanced. Even then, it's pretty simple. ;DEAL OR NO DEAL Graphics 800,600,0,2 SetBuffer BackBuffer() AppTitle "Deal or no Deal" Global no_boxes=21 ; The amount = no of boxes minus 1 Global game_order=2 Global player=0,player_x,player_y Global playerchoice=5,boxleft=no_boxes+1 Global bankoffer Global playerwin SeedRnd MilliSecs() ;box screen layout, 6,6,6,4 ;box x positions, are 65 as a margin, plus boxspacex ;box y positions, are preset: 100,220,340,460 ;BOX TYPES ;0 - closed ;1 - open - red ;2 - open - blue ;3 - player closed ;4 - player open - blue ;5 - player open - red Dim m_amo (21,1) Restore m_amodat For y=0 To 1 For x=0 To 21 Read m_amo(x,y) Next Next .m_amodat Data 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22 Data 1,2,100,200,5,50,1000,2500,10,500,15,75,20,1500,5000,10000,15000,30000,50000,75000,125000,250000 Type boxes Field bno Field bamo Field bx Field by Field btype End Type For x = 0 To no_boxes box.boxes = New boxes box\bno=m_amo(x,0) box\bamo=0 While box\bamo=0 rx=Rnd(0,21) If m_amo(rx,1)>0 box\bamo=m_amo(rx,1) m_amo(rx,1)=0 Wend If x<6 box\bx=65+115x If x>5 And x<12 box\bx=65+115(x-6) If x>11 And x<18 box\bx=65+115(x-12) If x>17 box\bx=180+115(x-18) If x<6 box\by=100 If x>5 And x<12 box\by=220 If x>11 And x<18 box\by=340 If x>17 box\by=460 box\btype=0 ; Print box\bno ; Print box\bamo Next ;MAIN LOOP While Not KeyHit(1) Cls ;the stages of the game Select game_order ;start screen Case 0: ;set-up game Case 1 ;picking your box Case 2: Color 255,255,255 Text 10,20,"Choose your box!" If KeyHit(28) For box.boxes = Each boxes If box\bno=player+1 box\btype=3 End If Next game_order=3 End If Player_Control() Show_Player() ;choosing other boxes Case 3: Color 255,255,255 Text 10,20,"Choose a box to open!" If playerchoice>0 If KeyHit(28) For box.boxes = Each boxes If box\btype=0 And box\bno=player+1 If box\bamo<1001 box\btype=2 Else If box\bamo>1001 box\btype=1 End If playerchoice=playerchoice-1 boxleft=boxleft-1 End If Next End If Else If playerchoice=0 game_order=4 End If Player_Control() Show_Player() ;banker's offer Case 4: bank_offer() ;offer taken or picked last box Case 5: Text 10,20,"Congratulations, you won £"+playerwin For box.boxes = Each boxes If box\btype=0 If box\bamo<1001 box\btype=2 Else If box\bamo>1001 box\btype=1 End If Else If box\btype=3 If box\bamo<1001 box\btype=4 Else If box\bamo>1001 box\btype=5 End If End If Next End Select Show_Boxes() Flip Wend End Function Show_Boxes() For box.boxes = Each boxes If box\btype=0 Or box\btype=1 Or box\btype=3 Or box\btype=5 Color 200,0,0 Else If box\btype=2 Or box\btype=4 Color 0,0,200 End If Rect box\bx,box\by,100,100 If box\btype=3 Color 255,255,255 Rect box\bx-5,box\by-5,110,110,0 Else If box\btype=4 Color 200,0,0 Rect box\bx-5,box\by-5,110,110,0 Else If box\btype=5 Color 0,0,200 Rect box\bx-5,box\by-5,110,110,0 End If If box\btype=1 Or box\btype=2 Or box\btype=4 Or box\btype=5 Color 255,255,255 Text box\bx+15,box\by+15,"£"+box\bamo End If Color 255,255,255 Text box\bx+15,box\by+30,box\bno Next End Function Function Player_Control() If player>17 If KeyHit(200) player=player-5 Else If player>5 If KeyHit(200) player=player-6 End If If KeyHit(203) And player>0 player=player-1 If KeyHit(205) And player<21 player=player+1 If player<13 If KeyHit(208) player=player+6 Else If player>12 If KeyHit(208) player=player+5 End If If player<0 player=0 If player>21 player=21 End Function Function Show_Player() If player<6 player_x=65+115player If player>5 And player<12 player_x=65+115(player-6) If player>11 And player<18 player_x=65+115(player-12) If player>17 player_x=180+115*(player-18) If player<6 player_y=100 If player>5 And player<12 player_y=220 If player>11 And player<18 player_y=340 If player>17 player_y=460 Color 0,180,0 Rect player_x-10,player_y-10,120,120,0 End Function Function bank_offer() bankoffer=0 For box.boxes = Each boxes If box\btype=0 Or box\btype=3 bankoffer=bankoffer+box\bamo End If Next bankoffer=bankoffer/boxleft If boxleft>2 Color 255,255,255 Text 10,20,"Time for the Bankers offer: £"+bankoffer Text 10,44,"Deal or no deal?" Text 10,56,"F11 - Deal" Text 10,68,"F12 - No Deal" If KeyHit(87) playerwin=bankoffer game_order=5 Else If KeyHit(88) playerchoice=3 game_order=3 End If Else If boxleft=2 Color 255,255,255 Text 10,20,"Will you sell your box for: "+bankoffer Text 10,44,"Deal or no deal?" Text 10,56,"F11 - Deal" Text 10,68,"F12 - No Deal" If KeyHit(87) playerwin=bankoffer game_order=5 Else If KeyHit(88) For box.boxes = Each boxes If box\btype=3 playerwin=box\bamo End If Next game_order=5 End If End If End Function --v
Fri, 27 Apr 2007, 17:05
Phoenix	Jayenkai Doing 'Deal or No Deal' is not an option. It's too damn easy!
Fri, 27 Apr 2007, 17:17
mike_g	Deal or no deal must be the worst game show ever invented. I got a friend that plays a flash version of it all the time. I don't know why, its so sad :*( Diablo, why don't you do stars in their eyes? It would be just as sad, but it would impress me
Fri, 27 Apr 2007, 17:24
JL235	I only entered it because I made it years ago. I'd like to make a proper entry. Stars in their Eyes is a brilliant idea, but how to do it? Maybe I could make some sort of sing-a-long game, where you are the Star. But that would just be singing to a picture from Stars in their Eyes.
Fri, 27 Apr 2007, 17:25
Jayenkai	Stickman + Costumes?
Sat, 28 Apr 2007, 00:22
shroom_monk	\|moan\| COUGH \|moan\| DiablosDevil I made it ages ago one night phoenixoft.com/socoder/index.php?a=11 You have 7 days to code your entry. We would prefer that you code your entry entirely within the confines of those 7 days. (although we have no real way of checking.. But we'll be watching ) \|moan\| COUGH COUGH \|moan\| -=-=- A mushroom a day keeps the doctor away... Keep It Simple, Shroom!
Sat, 28 Apr 2007, 05:49
JL235	It only says 'prefer'. Besides, 7 days, a year, what's the difference?
Sat, 28 Apr 2007, 05:59
Lineraf	358 days.
Tue, 01 May 2007, 15:42
Jayenkai	B3D man! Where's your quiz gone? Just over an hour left, and.. I'm not taking Deal or No Deal! I stated that in the first post! -=-=- ''Load, Next List!''
Tue, 01 May 2007, 15:53
JL235	I didn't see the 'no Deal or No Deal' comment. I really hope my criticism of Blitz3DMan's questions didn't put him off making a game. It's not that I was trying to have a go or put him down, it's just that many of them were wrong.
Tue, 01 May 2007, 16:22
JL235	I just made my second entry, only took 15 minutes. 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 --v
Tue, 01 May 2007, 16:40
Jayenkai	.... Is that really your entry? I mean, if that's really your entry, I'll take the Deal or No Deal!! Except I wont! -=-=- ''Load, Next List!''
Tue, 01 May 2007, 16:59
Blitz3Dman	Hey, it's tuesday evening over here and I was just wrapping up my entry by adding 8 more questions as to hit the 50 question mark. Will my entry still be accepted? -=-=- There are 10 kinds of people in this world - ( Insert 16 remarks about to what extent people know hex here )
Tue, 01 May 2007, 17:00
Jayenkai	Yeah, sure.. Post it when ready and I'll pick it up when I wake up.. Getting tired now! -=-=- ''Load, Next List!''
Tue, 01 May 2007, 17:04
JL235	What? You didn't accept my entry for the High Score challenge, and that was only 45 minutes late. I demand to be made the winner (of the High Score challenge)!
Tue, 01 May 2007, 17:15
Jayenkai	Alright. But only if you admit that you only made "Pick a Card" 'cos you thought you'd win by default.. -=-=- ''Load, Next List!''
Tue, 01 May 2007, 17:19
JL235	If I concede, will you accept 'Deal or No Deal'?
Tue, 01 May 2007, 17:22
Jayenkai	Accepting DoND would be going against my own set of rules. -=-=- ''Load, Next List!''
Tue, 01 May 2007, 17:23
Blitz3Dman	submitted 7:23 \|edit\| PM \|edit\| Tuesday 5/1/07 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 --v press the number keys 1-4 to answer. Don't peek at the code and cheat! -=-=- There are 10 kinds of people in this world - ( Insert 16 remarks about to what extent people know hex here )
Tue, 01 May 2007, 17:35
JL235	Then I'm submitting them both, and I still demand to win the Highscore challenge. I'll take the Moon on a stick too. [whispers=Blitz3dMan]Change the 'q=37;Rand(1,num_of_Qs)' bit.[/whispers]
Tue, 01 May 2007, 17:56
Blitz3Dman	[wimpers]oops, my bad[/wimpers]
Tue, 01 May 2007, 18:10
Jayenkai	Alright, I'll sort out the big-ass-Workshop-Chaos in the morning! Sigh Stupid DoND. .. And I haven't read Richard Herring's blog in ages. Must make a note to grab a bunch and stick them on my DS for Work-Reading. -=-=- ''Load, Next List!''
Tue, 01 May 2007, 18:13
JL235	Blitz3DMan, some of your questions are wrong. Of the ones I saw: Question 40, both 1422 and 76 are composite numbers. Question 43, although in some places they only refer to 2 or 3 seasons, typically there are 4 seasons in the year. On quite a few questions the correct answer given is wrong. Like it said helium was flammable and that Pi is not a Blitz Basic command.
Wed, 02 May 2007, 04:55
Jayenkai	I've now posted the entries. Go vote!
Page : 1 2 Next Prev