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},
    hang={0,1,2,3,4,5,6,7,8,10,15,20,30,60},
    hurry={0,1,2,3,4,5,6,7,8,10,1e99},
    eventSet=EVENTSETS,
    holdMode={'hold','swap'},
}

local scene={}

function scene.sceneInit()
    destroyPlayers()
    BG.set(CUSTOMENV.bg)
    BGM.play(CUSTOMENV.bgm)
end
function scene.sceneBack()
    saveFile(CUSTOMENV,'conf/customEnv')
    BGM.play()
end

local function _play(mode)
    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
    saveFile(CUSTOMENV,'conf/customEnv')
    loadGame('custom_'..mode,true)
end

function scene.keyDown(key,isRep)
    if isRep then return true end
    if key=='return'and kb.isDown('lctrl','lalt')or key=='play1'or key=='play2'then
        if(key=='play2'or kb.isDown('lalt'))and #FIELD[1]>0 then
            _play('puzzle')
        elseif key=='play1'or kb.isDown('lctrl')then
            _play('clear')
        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 tryReset()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
            saveFile(DATA.copyMission(),'conf/customMissions')
            saveFile(DATA.copyBoards(),'conf/customBoards')
            saveFile(DATA.copySequence(),'conf/customSequence')
            saveFile(CUSTOMENV,'conf/customEnv')
            SFX.play('finesseError',.7)
            BG.set(CUSTOMENV.bg)
            BGM.play(CUSTOMENV.bgm)
        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=str:sub((str:find(":")or 0)+1):split("!")
        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)
    else
        return true
    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=450
scene.widgetList={
    WIDGET.newText{name='title',   x=40,y=15,lim=900,font=70,align='L'},

    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')},
    WIDGET.newSelector{name='hurry',       x=730,y=680,w=260,color='G',list=sList.hurry,disp=CUSval('hurry'),code=CUSsto('hurry')},
    WIDGET.newSelector{name='hang',        x=730,y=760,w=260,color='G',list=sList.hang,disp=CUSval('hang'),code=CUSsto('hang')},

    --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='play_clear',    x=1070,y=460,w=310,h=70,color='lY',font=35,code=pressKey'play1'},
    WIDGET.newButton{name='play_puzzle',   x=1070,y=540,w=310,h=70,color='lM',font=35,code=pressKey'play2',hideF=function()return #FIELD[1]==0 end},
    WIDGET.newButton{name='back',          x=1140,y=640,w=170,h=80,sound='back',font=60,fText=CHAR.icon.back,code=pressKey'escape'},

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

    --Special rules
    WIDGET.newSwitch{name='ospin',         x=850, y=830, lim=210,disp=CUSval('ospin'),    code=CUSrev('ospin')},
    WIDGET.newSwitch{name='fineKill',      x=850, y=890, lim=210,disp=CUSval('fineKill'), code=CUSrev('fineKill')},
    WIDGET.newSwitch{name='b2bKill',       x=850, y=950, lim=210,disp=CUSval('b2bKill'),  code=CUSrev('b2bKill')},
    WIDGET.newSwitch{name='lockout',       x=850, y=1010,lim=210,disp=CUSval('lockout'),  code=CUSrev('lockout')},
    WIDGET.newSwitch{name='easyFresh',     x=1170,y=830, lim=250,disp=CUSval('easyFresh'),code=CUSrev('easyFresh')},
    WIDGET.newSwitch{name='deepDrop',      x=1170,y=890, lim=250,disp=CUSval('deepDrop'), code=CUSrev('deepDrop')},
    WIDGET.newSwitch{name='bone',          x=1170,y=950, 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'),hideF=function()return CUSTOMENV.holdCount==0 end},
    WIDGET.newSlider{name='nextCount',     x=140, y=960, lim=130,w=180,axis={0,6,1},disp=CUSval('nextCount'),code=CUSsto('nextCount')},
    WIDGET.newSlider{name='holdCount',     x=140, y=1030,lim=130,w=180,axis={0,6,1},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=1090,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=1090,w=250,color='Y',list=BGM.getList(),disp=CUSval('bgm'),code=function(i)CUSTOMENV.bgm=i BGM.play(i)end},
}

return scene