ChangeState.elm

module ChangeState exposing (..)
import Model exposing (..)

arriveExit model player =
    player.pos.x2 >= model.map.exit.x1 && player.pos.x1 <= model.map.exit.x2
 && player.pos.y1 <= model.map.exit.y2 && player.pos.y2 >= model.map.exit.y1

changeState model =
    let
        playerDiscoverI = initPlayerDiscoverI model.player
        player2 = initPlayer2 model.player
        playerDiscoverIIWin = initPlayerDiscoverII model.player
        playerDiscoverIILose = { playerDiscoverIIWin | inrage = True }
        player3 = initPlayer3 model.player
    in

    if arriveExit model model.player then 
        case model.state of
            One -> 
                { model | map = initMapDiscoverI, state = CG2_1, player = player2, time = 0, cgtime = 5000}
            DiscoverI ->
                { model | map = initMap2, state = CG3_1, player = playerDiscoverI,time = 0, cgtime = 5000}
            Two ->
                if arriveExit model model.speedAI then
                    { model | map = initMapDiscoverII, state = Story4_Lose, player = playerDiscoverIILose, time = 0, cgtime = 5000}
                else
                    { model | map = initMapDiscoverII, state = Story4_Win, player = playerDiscoverIIWin, time = 0, cgtime = 5000}
            DiscoverII ->
                { model | map = initMap3, state = Story5_0, player = player3, time = 0, cgtime = 5000}
            Three ->
                { model | map = initMap1, state = CG6_1, player = initPlayer1, time = 0, cgtime = 5000}
            _ ->
                model
    else if model.state == Three && model.boss.anim == Dead && model.boss.frame >=5000 then
        { model | map = initMap1, state = CG6_1, player = initPlayer1, time = 0, cgtime = 5000}
    else
        model

changeCGandStory time model =
    let 
        cgtime = model.cgtime - time
    in
    if model.cgtime >= 0 then
        { model | cgtime = cgtime}
    else 
        case model.state of
            LOGO ->
                if model.player.teachtextstate == 0 then
                    { model | state = Model.Start, cgtime = 5000}
                else
                    { model | state = End, cgtime = 5000}
        -- One
            CG1_1 ->
                { model | state = Story1_1, cgtime = 5000}
            Story1_1 ->
                { model | state = CG1_2, cgtime = 5000}
            CG1_2 ->
                { model | state = Story1_2, cgtime = 5000}
            Story1_2 ->
                { model | state = CG1_3, cgtime = 5000}
            CG1_3 ->
                { model | state = Story1_3, cgtime = 5000}
            Story1_3 -> 
                { model | state = CG1_4, cgtime = 5000}
            CG1_4 ->
                { model | state = Story1_4, cgtime = 5000 }
            Story1_4 ->
                { model | state = Story1_5, cgtime = 5000 }
            Story1_5 ->
                { model | state = One, player = initPlayer1 , cgtime = 5000, time = 0}
            
        --DiscoverI
            CG2_1 ->
                { model | state = Story2_1, cgtime = 5000 }
            Story2_1 ->
                { model | state = CG2_2, cgtime = 5000 } 
            CG2_2 ->
                { model | state = Story2_2, cgtime = 5000 }
            Story2_2 ->
                { model | state = DiscoverI, player = initPlayerDiscoverI model.player, cgtime = 5000, time = 0 }
            
        --Two    
            CG3_1 ->
                { model | state = Story3_1, cgtime = 5000}
            Story3_1 ->
                { model | state = Two, player = initPlayer2 model.player, cgtime = 5000, speedAI = initSpeedAI, time = 0 }
            
        --DiscoverII        
            Story4_Lose ->
                { model | state = DiscoverII, player = initPlayerDiscoverII model.player, cgtime = 5000, time = 0 }
            Story4_Win ->
                { model | state = DiscoverII, player = initPlayerDiscoverII model.player, cgtime = 5000, time = 0 } 

        --Three
            Story5_0 ->
                { model | state = CG5_1, cgtime = 5000}
            CG5_1 ->
                { model | state = CG5_2, cgtime = 5000 }
            CG5_2 ->
                { model | state = Story5_1, cgtime = 5000 }
            Story5_1 ->
                { model | state = Story5_2, cgtime = 5000}
            Story5_2 ->
                { model | state = Three, player = initPlayer3 model.player, cgtime = 5000, time = 0 }
            
        --Ending
            CG6_1 ->
                { model | state = CG6_2, cgtime = 5000 }
            CG6_2 ->
                { model | state = Story6_1, cgtime = 5000 }
            Story6_1 ->
                { model | state = End, cgtime = 5000}
            
            _ ->
                model