GUI - Music Selection

[SucreTeen123]

So what I am trying to do is add a song to each of these song names and a quit button so it will stop. The problem is I am putting 'Love the Way You Lie' with Gui but the words don't come out till I click the button and I want a gui button with different songs for each of the songs listed and I also want a quit button for each of them. I also need to be able to include pictures and background as well. Please help!!!

Here's the code.



import GUI

var hil : string (1)
var font9, font10 : int
font9 := Font.New ("Times New Roman:33")
font10 := Font.New ("arial:30:bold,underline ")
assert font9 > 0
procedure Rihanna


var his : string
Font.Draw (" Album List ", 370, maxy - 70, font10, 36)
Font.Draw ("1. S&M", 20, maxy - 140, font9, black)
Font.Draw ("2. What's My Name ft.Drake", 20, maxy - 190, font9, black)
Font.Draw ("3. Cheers (Drink to Thant)", 20, maxy - 240, font9, black)
Font.Draw ("4. Fading", 20, maxy - 290, font9, black)
Font.Draw ("5. Only Girl (In the World)", 20, maxy - 340, font9, black)
Font.Draw ("6. California King Bed", 20, maxy - 390, font9, black)
Font.Draw ("7. Man Down", 20, maxy - 440, font9, black)
Font.Draw ("8. Raining Men ft.Nicki Minai", 20, maxy - 490, font9, black)
Font.Draw ("9. Complicated", 20, maxy - 540, font9, black)
Font.Draw ("10. Skin", 20, maxy - 590, font9, black)
Font.Draw ("11. Love the Way You Lie (Part II ft. Eminem)", 20, maxy - 640, font9, black)
Music.PlayFile ("12. Love the Way You Lie (Part II) [Piano Version].mp3")
end Rihanna


View.Set ("graphics:1000;1000,nobuttonbar")
var draw : int := GUI.CreateButtonFull (50, 10, 0, "Love the Way You Lie",
Rihanna, 0, '^D', true)
var quitRihanna : int := GUI.CreateButton (200, 10, 0, "Quit", GUI.Quit)
loop
exit when GUI.ProcessEvent
end loop

[jr5000pwp]

When are your Font.Draws taking place? If you follow your code you will figure it out fairly easily.

[SucreTeen123]

Thanks I got it now! ^^