SelectQuit = false
TipTimer = 1
TitleAlpha = 0
BackAlpha = 1
SoulAlpha = 0
RedIntensity = 0
FrameFight = -1
MenuMoveX = 20
Seletion = 1
Counter = 0
Timer = 0
WaitTimer = 0
none = 0

-- Do not remove this or the menu wont work!
require "retrostorage"

backtitle = CreateSprite("title")
backtitle.layer = "Top"
backtitle.x = 320
backtitle.y = 240
backtitle.color = {0, 0, 0}
title = CreateSprite("title")
title.layer = "Top"
title.x = 320
title.y = 240
soul = CreateSprite("ut-heart")
soul.layer = "Top"
soul.x = 60
soul.y = 114
soul.alpha = 0
soul.color = {1, 0, 0}

menu = CreateText({"[font:uidialog][voice:monsterfont][color:FFFFFF][instant]Start\n(Placeholder)\nTips\nToggle Intro\nCredits\nQuit"}, {906, 125}, 900, "Top", 2)
menu.HideBubble()
menu.progressmode = "none"
menu.y = 160

Player.SetControlOverride(true)

function Update()
    soul.alpha = SoulAlpha
    title.alpha = TitleAlpha
    backtitle.alpha = BackAlpha
    Player.sprite.color = {RedIntensity, 0, 0}
    if MenuMoveX > 0 then
        MenuMoveX = MenuMoveX - 0.25
        menu.x = menu.x - MenuMoveX
    elseif MenuMoveX < 0 then
        MenuMoveX = MenuMoveX - 0.25
        if menu.isactive == true then
            menu.x = menu.x - MenuMoveX
        end
        if MenuMoveX <= -40 then
            if menu.isactive == true then
                menu.x = -940
            end
            MenuMoveX = -300
            if FrameFight == -1 then
                if SelectQuit == true then
                    State("DONE")
                else
                    FrameFight = 0
                end
            end
        elseif MenuMoveX <= -29 then
            if RedIntensity < 1  and SelectQuit == false then
                RedIntensity = RedIntensity + 0.1
            end
        end
        if SoulAlpha > 0 then
            SoulAlpha = SoulAlpha - 0.1
            TitleAlpha = TitleAlpha - 0.1
        end
    elseif MenuMoveX == 0 then
        if TipTimer > 0 then
            TipTimer = TipTimer - 1
        end
        if SoulAlpha < 1 then
            SoulAlpha = SoulAlpha + 0.1
            TitleAlpha = TitleAlpha + 0.1
        end
        if Seletion > 1 and Input.Up == 1 and WaitTimer == 0 then
            Audio.PlaySound("menumove")
            Seletion = Seletion - 1
        elseif Seletion < 6 and Input.Down == 1 and WaitTimer == 0 then
            Audio.PlaySound("menumove")
            Seletion = Seletion + 1
        end
        if Seletion == 1 then
            soul.y = 169
        elseif Seletion == 2 then
            soul.y = 139
        elseif Seletion == 3 then
            soul.y = 109
        elseif Seletion == 4 then
            soul.y = 79
        elseif Seletion == 5 then
           soul.y = 49
        elseif Seletion == 6 then
           soul.y = 19
        end
        if Input.GetKey("Z") == 1 or Input.GetKey("Return") == 1 then
            if Seletion == 1 and WaitTimer == 0 then
                Audio.PlaySound("menuconfirm")
                MenuMoveX = -0.1
                nextwaves = {"bullettest_bouncy"}
                -- Do not remove this or it cause a error.
                if none == 0 then
                end
            elseif Seletion == 4 and WaitTimer == 0 then
            Audio.PlaySound("menuconfirm")
if Intro == 1 then
Off()
Intro = 0
else
On()
Intro = 1
            end
            elseif Seletion == 5 and WaitTimer == 0 then
            -- hmmm
            elseif Seletion == 6 and WaitTimer == 0 then
            Audio.PlaySound("menuconfirm")
                MenuMoveX = -0.1
                SelectQuit = true
            end
        end
    end
    if FrameFight >= 0 and FrameFight <= 4 then
        Timer = Timer + 1
        if Timer == 10 then
            if BackAlpha == 1 then
                BackAlpha = 0
            else
                BackAlpha = 1
            end
            Audio.PlaySound("BeginBattle2")
            FrameFight = FrameFight + 1
            Timer = 0
        end
    elseif FrameFight > 4 then
           Audio.PlaySound("BeginBattle3")
    State("ENEMYDIALOGUE")
        if Intro == 1 then
        EndWave()
        else
        SetGlobal("intro", false)
        EndWave()
        end
    end
    if WaitTimer <= 9999 and WaitTimer >= 1 then
    WaitTimer = WaitTimer - 1
end
end

function Off()
off = CreateText({"[color:FFFFFF][font:uidialog][noskip]Intro Has Toggled To \n[color:FF0000]OFF.[w:10][next]", "[noskip][next]"}, {316, 125}, 900, "Top", 2)
off.HideBubble()
off.progressmode = "none"
WaitTimer = WaitTimer + 110
end

function On()
on = CreateText({"[color:FFFFFF][font:uidialog][noskip]Intro Has Toggled To \n[color:FFFF00]ON.[w:10][next]", "[noskip][next]"}, {316, 125}, 900, "Top", 2)
on.HideBubble()
on.progressmode = "none"
WaitTimer = WaitTimer + 110
end