Millionaire Game in Turing

[zd7000hp]

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]

How were you going to define your questions (the actual question/answer), and how is that different enough from using audio tracks?

[zd7000hp]

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]

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.

code:

font2 := Font.New ("Comicsans:20:bold,italic") font3 := Font.New ("Comicsans:20:bold,italic") font4 := Font.New ("Comicsans:20:bold,italic") ...

Why are those different fonts? Also..



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]

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]

No, not "should", when does it actually start/stop?

Maybe if you were to replace your use of processes with Music.PlayFileReturn, it would become easier to see what you are doing.