%Declarations,Music,Background color
process playstuff
    loop
        %Music.PlayFile ("pushthetempo.MP3")
    end loop
end playstuff

fork playstuff
View.Set ("graphics:max;max")
var x2, y2, b : int
var font := Font.New ("Impact:125")
var font2 := Font.New ("Impact:75")
var x, y, c : int
var f : int := 32
colorback (7)
cls



loop

    %Title
    Font.Draw ("Asteroix", maxx div 4 + 50, 500, font, f)
    Draw.Box (553, 320, 726, 230, red)
    Font.Draw ("Play", 550, 240, font2, f)
    Draw.Box (554, 179, 691, 100, red)
    Font.Draw ("Exit", 550, 100, font2, f)

    %Mouse Commands
    mousewhere (x, y, b)
    locate (10, 10)
    color (0)
    put "X:", x
    color (0)
    put "Y", y
    if b = 1 then
        color (0)
        put "mouse clicked"
    else
        color (0)
        put "mouse not clicked"
    end if
   
    %Need Help Here
    mousewhere (x2, y2, b)
    if b = 1 then
        if x2 >= 551 and x2 <= 230 and y2 >= 320 and y2 <= 230 then
         
            color (0)
            put "hello"
        end if
    end if

    %Stars
    %randint (x, 0, maxx)
    % randint (y, 0, maxy)
    %randint (c, 1, 15)
    %delay(50)
    %drawdot (x, y, 0)



    %Color code
    f := f + 1
    delay (5)
    if f > 104 then
        f := 32
    end if

end loop