local gc,kb,sys=love.graphics,love.keyboard,love.system
local int=math.floor
local CUSTOMENV=CUSTOMENV

local sList={
    visible={"show","easy","slow","medium","fast","none"},
    freshLimit={0,1,2,4,6,8,10,12,15,30,1e99},
    opponent={"X","9S Lv.1","9S Lv.2","9S Lv.3","9S Lv.4","9S Lv.5","CC Lv.1","CC Lv.2","CC Lv.3","CC Lv.4","CC Lv.5"},
    life={0,1,2,3,5,10,15,26,42,87,500},
    pushSpeed={1,2,3,5,15},
    fieldH={1,2,3,4,6,8,10,15,20,30,50,100},
    heightLimit={2,3,4,6,8,10,15,20,30,40,70,100,150,200,1e99},
    bufferLimit={4,6,10,15,20,40,100,1e99},

    drop={0,.125,.25,.5,1,2,3,4,5,6,7,8,9,10,12,14,16,18,20,25,30,40,60,180,1e99},
    lock={0,1,2,3,4,5,6,7,8,9,10,12,14,16,18,20,25,30,40,60,180,1e99},
    wait={0,1,2,3,4,5,6,7,8,10,15,20,30,60},
    fall={0,1,2,3,4,5,6,7,8,10,15,20,30,60},
    eventSet=EVENTSETS,
    holdMode={'hold','swap'},
}

local scene={}

local sure
function scene.sceneInit()
    sure=0
    destroyPlayers()
    BG.set(CUSTOMENV.bg)
    BGM.play(CUSTOMENV.bgm)
end
function scene.sceneBack()
    BGM.play()
end

function scene.keyDown(key,isRep)
    if isRep then return end
    if key=="return"or key=="return2"then
        if CUSTOMENV.opponent~="X"then
            if CUSTOMENV.opponent:sub(1,2)=='CC'then
                if CUSTOMENV.sequence=='fixed'then
                    MES.new('error',text.cc_fixed)
                    return
                end
                if CUSTOMENV.holdMode=='swap'then
                    MES.new('error',text.cc_swap)
                    return
                end
            end
            if #BAG>0 then
                for _=1,#BAG do
                    if BAG[_]>7 then
                        MES.new('error',text.ai_prebag)
                        return
                    end
                end
            end
            if #MISSION>0 then
                MES.new('error',text.ai_mission)
                return
            end
        end
        if key=="return2"or kb.isDown("lalt","lctrl","lshift")then
            if #FIELD[1]>0 then
                FILE.save(CUSTOMENV,'conf/customEnv')
                loadGame('custom_puzzle',true)
            end
        else
            FILE.save(CUSTOMENV,'conf/customEnv')
            loadGame('custom_clear',true)
        end
    elseif key=="f"then
        SCN.go('custom_field','swipeD')
    elseif key=="s"then
        SCN.go('custom_sequence','swipeD')
    elseif key=="m"then
        SCN.go('custom_mission','swipeD')
    elseif key=="delete"then
        if sure>.3 then
            TABLE.cut(FIELD)TABLE.cut(BAG)TABLE.cut(MISSION)
            FIELD[1]=DATA.newBoard()
            TABLE.clear(CUSTOMENV)
            TABLE.complete(require"parts.customEnv0",CUSTOMENV)
            for _,W in next,scene.widgetList do W:reset()end
            FILE.save(DATA.copyMission(),'conf/customMissions')
            FILE.save(DATA.copyBoards(),'conf/customBoards')
            FILE.save(DATA.copySequence(),'conf/customSequence')
            FILE.save(CUSTOMENV,'conf/customEnv')
            sure=0
            SFX.play('finesseError',.7)
            BG.set(CUSTOMENV.bg)
            BGM.play(CUSTOMENV.bgm)
        else
            sure=1
            MES.new('info',text.sureReset)
        end
    elseif key=="f1"then
        SCN.go('mod','swipeD')
    elseif key=="c"and kb.isDown("lctrl","rctrl")or key=="cC"then
        local str="Techmino Quest:"..DATA.copyQuestArgs().."!"
        if #BAG>0 then str=str..DATA.copySequence()end
        str=str.."!"
        if #MISSION>0 then str=str..DATA.copyMission()end
        sys.setClipboardText(str.."!"..DATA.copyBoards().."!")
        MES.new('check',text.exportSuccess)
    elseif key=="v"and kb.isDown("lctrl","rctrl")or key=="cV"then
        local str=sys.getClipboardText()
        local args=STRING.split(str:sub((str:find(":")or 0)+1),"!")
        if #args<4 then goto THROW_fail end
        if not(
            DATA.pasteQuestArgs(args[1])and
            DATA.pasteSequence(args[2])and
            DATA.pasteMission(args[3])
        )then goto THROW_fail end
        TABLE.cut(FIELD)
        FIELD[1]=DATA.newBoard()
        for i=4,#args do
            if args[i]:find("%S")and not DATA.pasteBoard(args[i],i-3)and i<#args then goto THROW_fail end
        end
        MES.new('check',text.importSuccess)
        do return end
        ::THROW_fail::MES.new('error',text.dataCorrupted)
    elseif key=="escape"then
        FILE.save(CUSTOMENV,'conf/customEnv')
        SCN.back()
    else
        WIDGET.keyPressed(key)
    end
end

function scene.update(dt)
    if sure>0 then sure=sure-dt end
end

function scene.draw()
    gc.translate(0,-WIDGET.scrollPos)
    setFont(30)

    --Sequence
    if #MISSION>0 then
        gc.setColor(1,CUSTOMENV.missionKill and 0 or 1,int(TIME()*6.26)%2)
        gc.print("#"..#MISSION,70,220)
    end

    --Field content
    if #FIELD[1]>0 then
        gc.push('transform')
        gc.translate(330,240)
        gc.scale(.5)
        gc.setColor(1,1,1)
        gc.setLineWidth(3)
        gc.rectangle('line',-2,-2,304,604)
        local F=FIELD[1]
        local cross=TEXTURE.puzzleMark[-1]
        local texture=SKIN.lib[SETTING.skinSet]
        for y=1,#F do for x=1,10 do
            local B=F[y][x]
            if B>0 then
                gc.draw(texture[B],30*x-30,600-30*y)
            elseif B==-1 then
                gc.draw(cross,30*x-30,600-30*y)
            end
        end end
        gc.pop()
        if #FIELD>1 then
            gc.setColor(1,1,int(TIME()*6.26)%2)
            gc.print("+"..#FIELD-1,490,220)
        end
    end

    --Sequence
    if #BAG>0 then
        gc.setColor(1,1,int(TIME()*6.26)%2)
        gc.print("#"..#BAG,615,220)
    end

    gc.setColor(COLOR.Z)
    gc.print(CUSTOMENV.sequence,610,250)

    gc.translate(0,WIDGET.scrollPos)
end

scene.widgetScrollHeight=400
scene.widgetList={
    WIDGET.newText{name='title',   x=520,y=15,font=70,align='R'},

    WIDGET.newKey{name='reset',    x=1110,y=90,w=230,h=90,color='R',code=pressKey"delete"},
    WIDGET.newKey{name='mod',      x=1110,y=200,w=230,h=90,color='Z',code=pressKey"f1"},

    --Mission / Field / Sequence
    WIDGET.newKey{name='mission',  x=170,y=180,w=240,h=80,color='N',font=25,code=pressKey"m"},
    WIDGET.newKey{name='field',    x=450,y=180,w=240,h=80,color='A',font=25,code=pressKey"f"},
    WIDGET.newKey{name='sequence', x=730,y=180,w=240,h=80,color='W',font=25,code=pressKey"s"},

    WIDGET.newText{name='noMsn',   x=50, y=220,align='L',color='H',hideF=function()return MISSION[1]end},
    WIDGET.newText{name='defSeq',  x=610,y=220,align='L',color='H',hideF=function()return BAG[1]end},

    --Selectors
    WIDGET.newSelector{name='opponent',    x=170,y=330,w=260,color='R',list=sList.opponent,   disp=CUSval('opponent'),    code=CUSsto('opponent')},
    WIDGET.newSelector{name='life',        x=170,y=410,w=260,color='R',list=sList.life,       disp=CUSval('life'),        code=CUSsto('life')},
    WIDGET.newSelector{name='pushSpeed',   x=170,y=520,w=260,color='V',list=sList.pushSpeed,  disp=CUSval('pushSpeed'),   code=CUSsto('pushSpeed')},
    WIDGET.newSelector{name='garbageSpeed',x=170,y=600,w=260,color='V',list=sList.pushSpeed,  disp=CUSval('garbageSpeed'),code=CUSsto('garbageSpeed')},
    WIDGET.newSelector{name='visible',     x=170,y=710,w=260,color='lB',list=sList.visible,   disp=CUSval('visible'),     code=CUSsto('visible')},
    WIDGET.newSelector{name='freshLimit',  x=170,y=790,w=260,color='lB',list=sList.freshLimit,disp=CUSval('freshLimit'),  code=CUSsto('freshLimit')},

    WIDGET.newSelector{name='fieldH',      x=450,y=600,w=260,color='N',list=sList.fieldH,     disp=CUSval('fieldH'),      code=CUSsto('fieldH')},
    WIDGET.newSelector{name='heightLimit', x=450,y=710,w=260,color='S',list=sList.heightLimit,disp=CUSval('heightLimit'), code=CUSsto('heightLimit')},
    WIDGET.newSelector{name='bufferLimit', x=450,y=790,w=260,color='B',list=sList.bufferLimit,disp=CUSval('bufferLimit'), code=CUSsto('bufferLimit')},

    WIDGET.newSelector{name='drop',        x=730,y=330,w=260,color='O',list=sList.drop,disp=CUSval('drop'),code=CUSsto('drop')},
    WIDGET.newSelector{name='lock',        x=730,y=410,w=260,color='O',list=sList.lock,disp=CUSval('lock'),code=CUSsto('lock')},
    WIDGET.newSelector{name='wait',        x=730,y=520,w=260,color='G',list=sList.wait,disp=CUSval('wait'),code=CUSsto('wait')},
    WIDGET.newSelector{name='fall',        x=730,y=600,w=260,color='G',list=sList.fall,disp=CUSval('fall'),code=CUSsto('fall')},

    --Copy / Paste / Start
    WIDGET.newButton{name='copy',          x=1070,y=300,w=310,h=70,color='lR',font=25,code=pressKey"cC"},
    WIDGET.newButton{name='paste',         x=1070,y=380,w=310,h=70,color='lB',font=25,code=pressKey"cV"},
    WIDGET.newButton{name='clear',         x=1070,y=460,w=310,h=70,color='lY',font=35,code=pressKey"return"},
    WIDGET.newButton{name='puzzle',        x=1070,y=540,w=310,h=70,color='lM',font=35,code=pressKey"return2",hideF=function()return #FIELD[1]==0 end},
    WIDGET.newButton{name='back',          x=1140,y=640,w=170,h=80,font=60,fText=CHAR.icon.back,code=pressKey"escape"},

    --Rule set
    WIDGET.newSelector{name='eventSet',    x=930, y=740,w=360,color='H',list=sList.eventSet,disp=CUSval('eventSet'),code=CUSsto('eventSet')},

    --Special rules
    WIDGET.newSwitch{name='ospin',         x=850, y=810,lim=210,disp=CUSval('ospin'),    code=CUSrev('ospin')},
    WIDGET.newSwitch{name='fineKill',      x=850, y=870,lim=210,disp=CUSval('fineKill'), code=CUSrev('fineKill')},
    WIDGET.newSwitch{name='b2bKill',       x=850, y=930,lim=210,disp=CUSval('b2bKill'),  code=CUSrev('b2bKill')},
    WIDGET.newSwitch{name='easyFresh',     x=1170,y=810,lim=250,disp=CUSval('easyFresh'),code=CUSrev('easyFresh')},
    WIDGET.newSwitch{name='deepDrop',      x=1170,y=870,lim=250,disp=CUSval('deepDrop'), code=CUSrev('deepDrop')},
    WIDGET.newSwitch{name='bone',          x=1170,y=930,lim=250,disp=CUSval('bone'),     code=CUSrev('bone')},

    --Next & Hold
    WIDGET.newSelector{name='holdMode',    x=310, y=890, w=300,color='lY',list=sList.holdMode,disp=CUSval('holdMode'),code=CUSsto('holdMode')},
    WIDGET.newSlider{name='nextCount',     x=140, y=960, lim=130,w=180,unit=6,disp=CUSval('nextCount'),code=CUSsto('nextCount')},
    WIDGET.newSlider{name='holdCount',     x=140, y=1030,lim=130,w=180,unit=6,disp=CUSval('holdCount'),code=CUSsto('holdCount')},
    WIDGET.newSwitch{name='infHold',       x=560, y=960, lim=200,             disp=CUSval('infHold'),code=CUSrev('infHold'),hideF=function()return CUSTOMENV.holdCount==0 end},
    WIDGET.newSwitch{name='phyHold',       x=560, y=1030,lim=200,             disp=CUSval('phyHold'),code=CUSrev('phyHold'),hideF=function()return CUSTOMENV.holdCount==0 end},

    --BG & BGM
    WIDGET.newSelector{name='bg',          x=840, y=1030,w=250,color='Y',list=BG.getList(),disp=CUSval('bg'),code=function(i)CUSTOMENV.bg=i BG.set(i)end},
    WIDGET.newSelector{name='bgm',         x=1120,y=1030,w=250,color='Y',list=BGM.getList(),disp=CUSval('bgm'),code=function(i)CUSTOMENV.bgm=i BGM.play(i)end},
}

return scene