-----------------------------------

chibitenshi_03

Mon Apr 12, 2004 6:22 pm


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 = 410 and y  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 = 35 and y