----------------------------------- zd7000hp Sun Nov 29, 2009 7:34 pm Millionaire Game in Turing ----------------------------------- Hello I am making Who wants to be a millionaire in Turing, this is what I have so far process DoMusic loop Music.PlayFile ("%oot/support/help/Examples/Data Files/Beginning Sound.wav") end loop end DoMusic fork DoMusic % The "Pic.FileNew" program. var picID : int var x, y : int picID := Pic.FileNew ("%oot/Support/Help/Examples/Data Files/MillionaireLogo.jpg") x := (0) % Random x y := (0) % Random y Pic.Draw (picID, x, y, picCopy) put "Hit any key to start the game..." Input.Pause cls not much but I need to start making the questions. For each Question I have an audio track that goes with, the problem is I want to defiine them in my domusic procedure if thats possible, but I have no idea how to any help is MUCH APPRECIATED thanks ----------------------------------- Tony Sun Nov 29, 2009 8:44 pm RE:Millionaire Game in Turing ----------------------------------- How were you going to define your questions (the actual question/answer), and how is that different enough from using audio tracks? ----------------------------------- zd7000hp Mon Nov 30, 2009 9:27 pm Re: Millionaire Game in Turing ----------------------------------- Heres what I have so far My intro music file is being "over written" by my question one music file , or just not being played at all how do I fix this? as always any help is MUCH appreciated thanks procedure lights parallelput(2) parallelput(4) parallelput(8) parallelput(16) delay(1000) parallelput(0) delay(1000) parallelput(2) parallelput(4) parallelput(8) parallelput(16) delay(1000) parallelput(2) parallelput(0) parallelput(4) parallelput(0) parallelput(8) parallelput(0) parallelput(16) parallelput(2) parallelput(0) parallelput(4) parallelput(0) parallelput(8) parallelput(0) parallelput(16) parallelput(2) parallelput(0) parallelput(4) parallelput(0) parallelput(8) parallelput(0) parallelput(16) parallelput(2) parallelput(0) parallelput(4) parallelput(0) parallelput(8) parallelput(0) parallelput(16) parallelput(2) parallelput(0) parallelput(4) parallelput(0) parallelput(8) parallelput(0) parallelput(16) parallelput(2) parallelput(0) parallelput(4) parallelput(0) parallelput(8) parallelput(0) parallelput(16) parallelput(2) parallelput(0) parallelput(4) parallelput(0) parallelput(8) parallelput(0) parallelput(16) parallelput(2) parallelput(0) parallelput(4) parallelput(0) parallelput(8) parallelput(0) parallelput(16) parallelput(2) parallelput(0) parallelput(4) parallelput(0) parallelput(8) parallelput(0) parallelput(16) parallelput(2) parallelput(0) parallelput(4) parallelput(0) parallelput(8) parallelput(0) parallelput(16) parallelput(2) parallelput(0) parallelput(4) parallelput(0) parallelput(8) parallelput(0) parallelput(16) parallelput(2) parallelput(0) parallelput(4) parallelput(0) parallelput(8) parallelput(0) parallelput(16) parallelput(2) parallelput(0) parallelput(4) parallelput(0) parallelput(8) parallelput(0) parallelput(16) parallelput(2) parallelput(0) parallelput(4) parallelput(0) parallelput(8) parallelput(0) parallelput(16) parallelput(2) parallelput(0) parallelput(4) parallelput(0) parallelput(8) parallelput(0) parallelput(16) parallelput(0) end lights procedure lightA % Light for Switch "A" parallelput(2) delay(500) parallelput(0) parallelput(2) delay(500) parallelput(0) parallelput(2) delay(500) parallelput(0) end lightA procedure lightB % Light for Switch "B" parallelput(4) delay(500) parallelput(0) parallelput(4) delay(500) parallelput(0) parallelput(4) delay(500) parallelput(0) end lightB procedure lightC % Light for Switch "C" parallelput(8) delay(500) parallelput(0) parallelput(8) delay(500) parallelput(0) parallelput(8) delay(500) parallelput(0) end lightC procedure lightD % Light for Switch "B" parallelput(16) delay(500) parallelput(0) parallelput(16) delay(500) parallelput(0) parallelput(16) delay(500) parallelput(0) end lightD lights var finished : boolean := false process DoMusic loop exit when finished Music.PlayFile ("%oot/support/help/Examples/Data Files/Beginning Sound.wav") end loop end DoMusic fork DoMusic % The "Pic.FileNew" program. var picID : int var x, y : int picID := Pic.FileNew ("%oot/Support/Help/Examples/Data Files/MillionaireLogo.jpg") x := (0) % Random x y := (0) % Random y Pic.Draw (picID, x, y, picCopy) colour(white) colourback(black) put "Hit any key to start the game..." Input.Pause cls var font1:int font1 := Font.New ("Comicsans:14:bold,italic") Font.Draw ("What is your name...", 0, 339, font1, white) var name : string locatexy(200,339) put (" ").. get name put "Get ready to play Who wants to be a millionaire ", name delay (5000) % Stop the background music. finished := true Music.PlayFileStop %Design "Game Board" drawfillbox(0,0,639,399,grey) drawfillbox(0,266,639,399,black) drawfillbox(0,0,639,133,black) drawfilloval(100,300,15,15,red) drawfilloval(550,300,15,15,red) drawfilloval(100,100,15,15,red) drawfilloval(550,100,15,15,red) drawfilloval(327,350,15,15,red) drawfilloval(100,245,5,5,red) drawfilloval(100,155,5,5,red) drawfilloval(550,245,5,5,red) drawfilloval(550,155,5,5,red) var font2, font3, font4, font5, font6 :int font2 := Font.New ("Comicsans:20:bold,italic") Font.Draw ("A", 95, 339, font2, white) font3 := Font.New ("Comicsans:20:bold,italic") Font.Draw ("D", 90, 50, font3, white) font4 := Font.New ("Comicsans:20:bold,italic") Font.Draw ("C", 540, 50, font4, white) font5 := Font.New ("Comicsans:20:bold,italic") Font.Draw ("B", 545, 339, font5, white) font6 := Font.New ("Comicsans:20:bold,italic") Font.Draw ("Life Lines", 275, 375, font5, white) var finished1 : boolean := false %Command That Stops Intro %Play Intro process DoMusicintro loop exit when finished1 Music.PlayFile ("%oot/support/help/Examples/Data Files/Intro.wav") end loop end DoMusicintro fork DoMusicintro finished1 := true Music.PlayFileStop Question 1 process Question1 Music.PlayFile ("%oot/support/help/Examples/Data Files/Question 100$.wav") end Question1 fork Question1 ----------------------------------- Tony Mon Nov 30, 2009 9:47 pm Re: Millionaire Game in Turing ----------------------------------- for "procedure lights", please use a for-loop, you have too much repeating code. lightA/B/C/D are also identical, less the use of a particular value. Collapse all procedures into one that takes an argument. http://imgur.com/TrySJ.jpg As for your intro song -- point to the line of code where you start to play it, and also to the line of code where you stop it. Tell me how much time passes in between. ----------------------------------- zd7000hp Mon Nov 30, 2009 10:02 pm Re: Millionaire Game in Turing ----------------------------------- oh man thanks for the heads up on the loop "lights" procedure it completely passed through my mind and the intro music should play right at where is says %play intro and should stop right before question 1. The file is about 10 sec long thanks for all the help btw ----------------------------------- Tony Mon Nov 30, 2009 10:09 pm RE:Millionaire Game in Turing ----------------------------------- No, not "should", when does it actually start/stop? Maybe if you were to replace your use of processes with [tdoc]Music.PlayFileReturn[/tdoc], it would become easier to see what you are doing.