Computer Science Canada

Fixing another button! Help ASAP!!

Author:  chibitenshi_03 [ Mon Apr 12, 2004 6:22 pm ]
Post subject:  Fixing another button! Help ASAP!!

I'm making a game that allows the user to listen to music. So i made a button to open another window to choose the song but i don't know why the button isn't working:
font4 := Font.New ("ariel:14:bold")
assert font4 > 0
Font.Draw ("MUSIC", 20, 420, font4, red)
drawbox (15, 410, 90, 440, black)
mousewhere (x, y, button)
if x >= 15 and x <= 90 and y >= 410 and y <= 440 and button = 1 then
var number, windID : int
windID := Window.Open ("position:top;center,graphics:400,400")
font5 := Font.New ("ariel:14:bold")
assert font5 > 0
put "Please choose a song:"
put "1. Under the Sea"
put "2. A Whole New World"
put "3. Hakuna Matata"
put "4. Circle of Life"
put "5. Be Our Guest"
put "6. Color of the Wind"
put "7. Can You Fell the Love Tonight"
put "8. Part of Your World"
put " "
put "Enter the number: " ..
Font.Draw ("Exit", 260, 40, font5, red)
drawbox (250, 35, 310, 60, black)
loop
if hasch then
get number
loop
if number > 8 or number < 0 then
put "Invalid number! Please try again."
get number
else
exit
end if
end loop
if number = 1 then
fork music1
elsif number = 2 then
fork music2
elsif number = 3 then
fork music3
elsif number = 4 then
fork music4
elsif number = 5 then
fork music5
elsif number = 6 then
fork music6
elsif number = 7 then
fork music7
elsif number = 8 then
fork music8
end if
end if
mousewhere (x, y, b)
if x >= 250 and x <= 310 and y >= 35 and y <= 60 and b = 1 then
Window.Close (windID)
end if
end loop
Window.Close (windID)
end if

Author:  gamer [ Mon Apr 12, 2004 6:27 pm ]
Post subject:  Re: Fixing another button! Help ASAP!!

chibitenshi_03 wrote:
... a game that allows the user to listen to music...


lol who would play games like this

i think ur structures are wrong

Author:  chibitenshi_03 [ Mon Apr 12, 2004 6:53 pm ]
Post subject: 

well the game allows the user to listen to music but that's not the whole game


: