import GUI
var finished, finished2, finished3, finished4, finished5, finished6, finished7, finished8 : boolean := false
var music : string
var point : int
var song, song2, song3, song4, song5, song6, song7, song8 : int
var chars : array char of boolean
var p1point : int := 0
var p2point : int := 0
var name1 : string
var name2 : string
var pic : int
var font : int
font := Font.New ("timesnewroman:12")
procedure picture ()
pic := Pic.FileNew ("50-cent-wallpapers-1024.jpg")
Pic.Draw (pic, 1, 1, picCopy)
Pic.Free (pic)
end picture
picture
Font.Draw ("Hi, May I have two first names please", 1, 388, font, black)
locate(2,1)
get name1
locate(3,1)
get name2
put "Welcome to Music trivia please enjoy the game ", name1, " and ", name2
delay (3000)
cls
procedure picture1 ()
pic := Pic.FileNew ("Center-sign-music.jpg")
Pic.Draw (pic, 1, 1, picCopy)
Pic.Free (pic)
end picture1
picture1
Font.Draw ("This is a two player Trivia,the person who answers the most questions correctly wins.",1,388,font,black)
locate(4,1)
Font.Draw ("The buzzer buttons are z and m",1,370,font,black)
locate(4,1)
put "The buzzer button for you,", name1, " is z"
locate(6,1)
put "And the buzzer button for you,", name2, " is m"
Font.Draw ("What song is currently playing? (press your buzzer key if you know)",1,265,font,black)
Font.Draw ("1)Bitter Sweet Sympthony: by the Verve",1,250,font,black)
Font.Draw ("2)Into the Sea: by Dj Dean",1,235,font,black)
Font.Draw ("3)Mind Made up: by Tupac",1,220,font,black)
Font.Draw ("4)Sweet Day: by orangville",1,205,font,black)
process a
loop
Music.PlayFile ("The Verve - Bittersweet Symphony.mp3")
exit when finished
end loop
end a
fork a
loop
Input.KeyDown (chars)
if chars ('z') then
locate (14,1)
put "what song is currently playing ", name1, "(1,2,3 or 4)"
song := 1
locate(15,1)
get song
if song = 1 then
put "you got it correct"
p1point := p1point + 1
finished := true
Music.PlayFileStop
delay (1000)
cls
else
put " that is incorrect,sorry"
finished := true
Music.PlayFileStop
delay (1000)
cls
end if
elsif chars ('m') then
song := 1
put "what song is currently playing ", name2, "(1,2,3 or 4)"
locate(14,1)
get song
if song = 1 then
put " you got it correct"
p2point := p2point + 1
finished := true
Music.PlayFileStop
delay (1000)
cls
else
put "that is incorrect,sorry"
finished := true
Music.PlayFileStop
delay (1000)
cls
end if
cls
delay(3000)
end if
exit when finished
end loop
process b
loop
Music.PlayFile ("Avenged Sevenfold Second Heartbeat.mp3")
exit when finished2
end loop
end b
fork b
put "What song is currently playing? (press your buzzer key if you know)"
put " "
put "1)Prisoners of Today - Billy Talent"
put "2)Tears dont fall - Bullet for my Valentine"
put "3)Disaster - New Found Glory"
put "4)Second Heartbeat - Avenged Sevenfold"
loop
Input.KeyDown (chars)
if chars ('z') then
put "what song is currently playing ", name1, "(1,2,3 or 4)"
song2 := 4
get song2
if song2 = 4 then
put "you got it correct"
p1point := p1point + 1
finished2 := true
Music.PlayFileStop
delay (1000)
cls
else
put " that is incorrect,sorry"
finished2 := true
Music.PlayFileStop
delay (1000)
cls
end if
cls
elsif chars ('m') then
song2 := 4
put "what song is currently playing ",name2," (1,2,3 or 4)"
get song2
if song2 = 4 then
put " you got it correct"
p2point := p2point + 1
finished2 := true
Music.PlayFileStop
delay (1000)
cls
else
put " that is incorrect,sorry"
finished2 := true
Music.PlayFileStop
delay (1000)
cls
end if
cls
end if
exit when finished2
end loop
process c
loop
Music.PlayFile ("newfound glory - This Disaster.mp3")
exit when finished3
end loop
end c
fork c
put "What song is currently playing? (press your buzzer key if you know)"
put " "
put "1)Streets that Light - Dj Whirl"
put "2)All the Small Things - Blink 182"
put "3)Dig - Mudvayne"
put "4)Disaster - Newfound Glory"
loop
Input.KeyDown (chars)
if chars ('z') then
put "what song is currently playing ",name1,"(1,2,3 or 4)"
song3 := 4
get song3
if song3 = 4 then
put "you got it correct"
p1point := p1point + 1
finished3 := true
Music.PlayFileStop
delay (1000)
cls
else
put " that is incorrect,sorry"
finished3 := true
Music.PlayFileStop
delay (1000)
cls
end if
cls
elsif chars ('m') then
song3 := 4
put "what song is currently playing ",name2,"(1,2,3 or 4)"
get song3
if song3 = 4 then
put " you got it correct"
p2point := p2point + 1
finished3 := true
Music.PlayFileStop
delay (1000)
cls
else
put " that is incorrect,sorry"
finished3 := true
Music.PlayFileStop
delay (1000)
cls
end if
cls
end if
exit when finished3
end loop
process d
loop
Music.PlayFile ("Dj_Whirl-Streets_at_Night.mp3")
exit when finished4
end loop
end d
fork d
put "What song is currently playing? (press your buzzer key if you know)"
put " "
put "1)Streets At Night - Dj Whirl "
put "2)Forbidden Paradise - Dj Tiesto"
put "3)Miracle - Cascada"
put "4)So Irresistable - DJ Splash"
loop
Input.KeyDown (chars)
if chars ('z') then
put "what song is currently playing ",name1," (1,2,3 or 4)"
song4 := 1
get song4
if song4 = 1 then
put "you got it correct"
p1point := p1point + 1
finished4 := true
Music.PlayFileStop
delay (1000)
cls
else
put " that is incorrect,sorry"
finished4 := true
Music.PlayFileStop
delay (1000)
cls
end if
cls
elsif chars ('m') then
song4 := 4
put "what song is currently playing ",name2," (1,2,3 or 4)"
get song4
if song4 = 4 then
put " you got it correct"
p2point := p2point + 1
finished4 := true
Music.PlayFileStop
delay (1000)
cls
else
put " that is incorrect,sorry"
finished4 := true
Music.PlayFileStop
delay (1000)
cls
end if
cls
end if
exit when finished4
end loop
process e
loop
Music.PlayFile ("rap--Scarface - On My Block.mp3")
exit when finished5
end loop
end e
fork e
put "What song is currently playing? (press your buzzer key if you know)"
put " "
put "1)Smile - Scarface feat Tupac "
put "2)My Block - Scarface"
put "3)The Documentry- The Game"
put "4)Who is 50 cent - Wu Tang Clan"
loop
Input.KeyDown (chars)
if chars ('z') then
put "what song is currently playing ",name1," (1,2,3 or 4)"
song5 := 2
get song5
if song5 = 2 then
put "you got it correct"
p1point := p1point + 1
finished5 := true
Music.PlayFileStop
delay (1000)
cls
else
put " that is incorrect,sorry"
finished5 := true
Music.PlayFileStop
delay (1000)
cls
end if
cls
elsif chars ('m') then
song5 := 2
put "what song is currently playing ",name2,"(1,2,3 or 4)"
get song5
if song5 = 2 then
put " you got it correct"
p2point := p2point + 1
finished5 := true
Music.PlayFileStop
delay (1000)
cls
else
put " that is incorrect,sorry"
finished5 := true
Music.PlayFileStop
delay (1000)
cls
end if
cls
end if
exit when finished5
end loop
process f
loop
Music.PlayFile ("Jay-Z_ft_Linkin_Park--Numb_Encore.mp3")
exit when finished6
end loop
end f
fork f
put "What song is currently playing? (press your buzzer key if you know)"
put " "
put "1)In The End - Linkin Park "
put "2)Numb Encore - Jay Z & Linkin Park"
put "3)Bang Bang - Rammstein"
put "4)Cleaning Out My Closet - Eminem"
loop
Input.KeyDown (chars)
if chars ('z') then
put "what song is currently playing ",name1," (1,2,3 or 4)"
song6 := 2
get song6
if song6 = 2 then
put "you got it correct"
p1point := p1point + 1
finished6 := true
Music.PlayFileStop
delay (1000)
cls
else
put " that is incorrect,sorry"
finished6 := true
Music.PlayFileStop
delay (1000)
cls
end if
cls
elsif chars ('m') then
song6 := 2
put "what song is currently playing ",name2," (1,2,3 or 4)"
get song6
if song6 = 2 then
put " you got it correct"
p2point := p2point + 1
finished6 := true
Music.PlayFileStop
delay (1000)
cls
else
put " that is incorrect,sorry"
finished6 := true
Music.PlayFileStop
delay (1000)
cls
end if
cls
end if
exit when finished6
end loop
process g
loop
Music.PlayFile ("Franz_Ferdanad-Take_Me_Out.mp3")
exit when finished7
end loop
end g
fork g
put "What song is currently playing? (press your buzzer key if you know)"
put " "
put "1)Photograph - NickleBack "
put "2)WonderWall - Oasis"
put "3)Take Me Out - Franz Ferdinand"
put "4)Smile Like You Mean It - The Killers"
loop
Input.KeyDown (chars)
if chars ('z') then
put "what song is currently playing ", name1, "(1,2,3 or 4)"
song7 := 3
get song7
if song7 = 3 then
put "you got it correct"
p1point := p1point + 1
finished7 := true
Music.PlayFileStop
delay (1000)
cls
else
put " that is incorrect,sorry"
finished7 := true
Music.PlayFileStop
delay (1000)
cls
end if
cls
elsif chars ('m') then
song7 := 3
put "what song is currently playing ", name2, " (1,2,3 or 4)"
get song7
if song7 = 3 then
put " you got it correct"
p2point := p2point + 1
finished7 := true
Music.PlayFileStop
delay (1000)
cls
else
put " that is incorrect,sorry"
finished7 := true
Music.PlayFileStop
delay (1000)
cls
end if
cls
end if
exit when finished7
end loop
process h
loop
Music.PlayFile ("T.I. -What You Know About That-dirty.mp3")
exit when finished8
end loop
end h
fork h
put "What song is currently playing? (press your buzzer key if you know)"
put " "
put "1)Rappers Delight - Super Hill Gang"
put "2)What You Know About That T.I"
put "3)Notorious Thugz - Bone Thugs And Harmony"
put "4)Regulators - Warren G"
loop
Input.KeyDown (chars)
if chars ('z') then
put "what song is currently playing ", name1, "(1,2,3 or 4)"
song8 := 2
get song8
if song8 = 2 then
put "you got it correct"
p1point := p1point + 1
finished8 := true
Music.PlayFileStop
delay (1000)
cls
else
put " that is incorrect,sorry"
finished8 := true
Music.PlayFileStop
delay (1000)
cls
end if
cls
elsif chars ('m') then
song8 := 2
put "what song is currently playing ", name2, " (1,2,3 or 4)"
get song8
if song8 = 2 then
put " you got it correct"
p2point := p2point + 1
finished8 := true
Music.PlayFileStop
delay (1000)
cls
else
put " that is incorrect,sorry"
finished8 := true
Music.PlayFileStop
delay (1000)
cls
end if
cls
end if
exit when finished8
end loop
procedure points
if p1point > p2point then
put "congratulations,", name1, " you've won with ", p1point, " points"
elsif p1point < p2point then
put "congratulations,", name2, " you've won with ", p2point, " points"
else
put "tie game!"
end if
end points
points
|
Register
Wiki
Blog
Search
Turing
Chat Room
Members
