process Play1     %Allows it to become background music
    loop
        Music.PlayFile ("Halo1OpeningSuite.mp3")
    end loop
end Play1
process Play2     %Second music part
    loop
        Music.PlayFile ("Halo- Rock Anthem for Saving the World.mp3")
    end loop
end Play2
procedure Animation
    setscreen ("offscreenonly")
    c := 1
    fork Play1     %Starts music
    loop         %Begins animation, redbox standing in middle, followed by other boxes coming in
        current := Time.Elapsed
        if c = 1 then
            ay3 := 800
            drum := 15
            inc := 1
        end if
        if (current - timepassed) < 18890 then
            if drum > 20 then
                inc *= -1
            elsif drum < 15 then
                inc *= -1
            end if
            drum += inc
        end if
        colourback (red)
        drawfillbox (0, 140, 100, 340, 8)      %Speakers in background and outline. This is speaker #1
        Draw.ThickLine (0, 140, 0, 340, 5, black)        %2D Outline part
        Draw.ThickLine (0, 340, 100, 340, 5, black)
        Draw.ThickLine (100, 140, 100, 340, 5, black)
        Draw.ThickLine (0, 140, 100, 140, 5, black)
end animation
procedure Play
    Instructions
    Game
end Play
procedure Replay
    Intro
    Animation
end Replay
var button1:int:=GUI.CreateButton(20, 100, 0, "Play Game", Play)
var button2:int:=GUI.CreateButton(20, 70, 0, "Play Animation", Replay)
loop
    Font.Draw ("ISU : Animation with Special 'FX'", 20, 350, fontdefault, black)
    exit when GUI.ProcessEvent
    View.Update
end loop

process Play1     %Allows it to become background music
loop
        Music.PlayFile ("Halo1OpeningSuite.mp3")
end loop
end Play1