Techmino/parts/scenes/dict.lua

local gc=love.graphics

local floor,abs=math.floor,math.abs
local ins=table.insert
local find=string.find

local scene={}

local dict-- Dict list
local result-- Result Lable
local localeFile -- Language file name, used for force reload

local lastTickInput
local searchWait-- Searching animation timer

local lastSearch-- Last searched string
local lastSelected -- Last selected item

local currentFontSize=25 -- Current font size, default: 25

local typeColor={
    help=COLOR.Y,
    org=COLOR.lF,
    game=COLOR.lC,
    term=COLOR.lR,
    setup=COLOR.lY,
    pattern=COLOR.lJ,
    command=COLOR.lN,
    english=COLOR.B,
    name=COLOR.lV,
}

-- Scan the dictionary and return the list
local function _filter(word_org)
    local word=word_org
    word=word:gsub("[Tt][Ee][Tt][Rr][Ii][Ss]",CHAR.zChan.thinking)
    if FNNS then word=word:gsub("[Pp]\97\116\114\101\111\110",CHAR.zChan.qualified) end
    return word,word_org
end
local function _scanDict(D)
    if not D[1][1] then return end
    local cut=TABLE.cut
    for i=1,#D do
        local O=D[i]
        O.title,O.title_Org=_filter(O[1])
        O.keywords=O[2]
        O.type=O[3]
        O.content,O.content_Org=_filter(O[4])
        O.url=O[5]
        cut(O)
    end
end
local function _getList() return result[1] and result or dict end

local textBox =WIDGET.newTextBox {name='infoBox',x=320,y=180,w=862,h=526,font=25,fix=true}
local inputBox=WIDGET.newInputBox{name='input',  x=20, y=110,w=762,h=60, font=40,limit=32}
local listBox =WIDGET.newListBox {name='listBox',x=20, y=180,w=280,h=526,font=30,lineH=35,drawF=function(item,id,ifSel)
    -- Background
    if ifSel then
        gc.setColor(1,1,1,.4)
        gc.rectangle('fill',0,0,280,35)
    end
    setFont(30)
    -- Name & color
    GC.shadedPrint(item.title,10,-3,'left',1,COLOR.D,typeColor[item.type])
end}

-- Necessary local functions
-- Update the infobox
local function _updateInfoBox(c)
    local _t,t
    if c==nil then
        if listBox.selected==0 then
            if text.dict.helpText then
                _t,t=true,text.dict.helpText:repD(
                    CHAR.key.up,CHAR.key.down,CHAR.key.left,CHAR.key.right,
                    CHAR.controller.dpadU,CHAR.controller.dpadD,CHAR.controller.dpadL,CHAR.controller.dpadR,
                    CHAR.controller.xboxX,CHAR.controller.xboxY,CHAR.controller.xboxA,CHAR.controller.xboxB,
                    CHAR.icon.help,CHAR.icon.copy,CHAR.icon.globe,CHAR.key.winMenu
                )
            else    -- Fallback
                listBox.selected=lastSelected
                scene.widgetList.help.color=COLOR.Z
                MES.new("error","Cannot found the Help text! Maybe just a mistake?")
                return
            end
        else
            _t,t=pcall(function() return _getList()[listBox.selected].content end)
        end
        if _t then c=t else c={""} end
        _t,t=nil,nil
    end
    local _w,c=FONT.get(currentFontSize):getWrap(c,840)
    textBox:setTexts(c)
end
-- Clear the result
local function _clearResult()
    TABLE.cut(result)
    listBox.selected,lastSelected,searchWait,lastSearch=1,1,0,false
    scene.widgetList.copy.hide=false
    _updateInfoBox()
end
-- Search through the dictionary
local function _search()
    local input=inputBox:getText()
    local pos
    _clearResult()
    local first
    if dict=='vi' then
        local success,input=pcall(function() STRING.lowerUTF8(input) end)
        if not success then input=input:lower() end
    else
        input=input:lower() end
    for i=1,#dict do
        if dict=='vi' then
            pos=find(STRING.lowerUTF8(dict[i].title),input,nil,true) or find(STRING.lowerUTF8(dict[i].keywords),input,nil,true)
        else
            pos=find(dict[i].title:lower(),input,nil,true) or find(dict[i].keywords:lower(),input,nil,true)
        end
        if pos==1 and not first then
            ins(result,1,dict[i])
            first=true
        elseif pos then
            ins(result,dict[i])
        end
    end

    listBox:setList(_getList())

    if #result>0 then SFX.play('reach') end
    lastSearch=input
    _updateInfoBox()
end

-- Jump over n items
local function _jumpover(key,n)
    local dir=(key=='left' or key=='pageup') and 'up' or 'down'
    for _=1,n or 1 do scene.widgetList.listBox:arrowKey(dir) end
    
    _updateInfoBox()
    lastSelected=listBox.selected
    scene.widgetList.copy.hide=false
end

-- Copy the content
local function _copy()
    local t=_getList()[listBox.selected]
    t=t.title_Org..":\n"..t.content_Org..(t.url and "\n[ "..t.url.." ]\n" or "\n")..text.dictNote
    love.system.setClipboardText(t)
    scene.widgetList.copy.hide=true
    MES.new('info',text.copyDone)
end

-- Changing font size, z=0 --> reset
local function _setZoom(z)
    currentFontSize=MATH.clamp(z~=0 and currentFontSize+z or 25,15,40)
    textBox.font=currentFontSize
    textBox.lineH=currentFontSize*7/5   -- Recalculate the line's height
    textBox.capacity=math.ceil((textBox.h-10)/textBox.lineH)
    _updateInfoBox()
    MES.new("check",z~=0 and text.dict.sizeChanged:repD(currentFontSize) or text.dict.sizeReset,1.26)
end

-- Reset everything when opening Zictionary
function scene.enter()
    localeFile='parts.language.dict_'..(SETTING.locale:find'zh' and 'zh' or SETTING.locale:find'ja' and 'ja' or SETTING.locale:find'vi' and 'vi' or 'en')
    dict=require(localeFile)
    _scanDict(dict)

    inputBox:clear()
    result={}

    searchWait=0
    lastSelected=0
    lastSearch=false
    listBox:setList(_getList())
    scene.widgetList.help.color=COLOR.Z

    if not MOBILE then WIDGET.focus(inputBox) end
    BG.set('rainbow')
end

function scene.wheelMoved(_,y)
    if WIDGET.sel==listBox then
        listBox:scroll(-y)
    else
        textBox:scroll(-y)
    end
end
function scene.keyDown(key)
    local inputBoxFocus=WIDGET.isFocus(inputBox)

    -- Switching selected items
    if key=='up' or key=='down' then
        textBox:scroll(key=='up' and -1 or 1)

    elseif (key=='left' or key=='pageup' or key=='right' or key=='pagedown') then
        _jumpover(key,love.keyboard.isDown('lctrl','rctrl','lalt','ralt','lshift','rshift') and 12)

    elseif key=='cC' or key=='c' and love.keyboard.isDown('lctrl','rctrl') then
        if listBox.selected>0 then
            _copy()
        end

    elseif (key=='-' or key=='=' or key=='0') and (inputBox:getText()=="" or not inputBoxFocus) and not MOBILE then
        WIDGET.unFocus(true)
        _setZoom(key=='0' and 0 or key=='-' and -5 or 5)

    elseif key=='application' and listBox.selected>=0 then
        local url=_getList()[listBox.selected].url
        if url then love.system.openURL(url) end
    elseif key=='delete' then
        if inputBox:hasText() then
            _clearResult()
            inputBox:clear()
            SFX.play('hold')
            _updateInfoBox()
        end
    elseif key=='escape' then
        if inputBox:hasText() then
            scene.keyDown('delete')
        else
            SCN.back()
        end
    elseif key=='f1' then
        -- inputBox:clear()
        -- _clearResult()
        listBox.selected=listBox.selected==0 and lastSelected or 0
        scene.widgetList.help.color=listBox.selected==0 and COLOR.W or COLOR.Z
        searchWait=0
        _updateInfoBox()

    -- ***ONLY USE FOR HOTLOADING ZICTIONARY WHILE IN GAME!***
    -- ***Please commenting out this code if you don't use***
    -- elseif key=='f5' then
    --     local _
    --     local success,_r=pcall(function()
    --         package.loaded[localeFile]=nil
    --         dict=require(localeFile)
    --         _scanDict(dict)
    --     end
    --     )
    --     if not success then
    --         SFX.play('finesseError_long')
    --         _,_r=FONT.get(30):getWrap(tostring(_r),1000)
    --         MES.new("error","Hotload failed! May need restarting!\n\n"..table.concat(_r,"\n"))
    --     else
    --         local lastLscrollPos=listBox.scrollPos
    --         local lastTscrollPos=textBox.scrollPos
    --         listBox:setList(_getList())
    --         if #inputBox:getText()>0 then _search() end
    --         listBox.selected=lastSelected<#dict and lastSelected or #dict   -- In case the last item is removed!
    --         listBox.scrollPos=lastLscrollPos
    --         _updateInfoBox()
    --         textBox.scrollPos=lastTscrollPos
    --         SFX.play('pc')
    --     end
    else
        if not inputBoxFocus then WIDGET.focus(inputBox) end
        return true
    end
end

function scene.gamepadDown(key)
    local Joystick=love.joystick.getJoysticks()[love.joystick.getJoystickCount()]

    if key=='dpup' or key=='dpdown' then
        if Joystick:isGamepadDown('a') then
            _setZoom(key=='dpup' and 5 or -5)
        else
            textBox:scroll(key=='dpup' and -3 or 3)
        end
    elseif key=='dpleft' or key=='dpright' then
        _jumpover(key:gsub('dp',''),Joystick:isGamepadDown('a') and 12)
    elseif key=='y' then
        scene.keyDown('f1')
    elseif key=='back' then
        SCN.back()
    end
end

function scene.update(dt)
    local input=inputBox:getText()
    if input~=lastTickInput then
        if #input==0 then
            _clearResult()
            listBox:setList(_getList())
        else
            searchWait=.8
        end
        lastTickInput=input
    end
    if searchWait>0 then
        searchWait=searchWait-dt
        if searchWait<=0 and #input>0 and input~=lastSearch then
            _search()
        end
    end
    if listBox.selected~=lastSelected and listBox.selected~=0 then
        if listBox.selected==0 then scene.keyDown('f1') end
        lastSelected=listBox.selected
        scene.widgetList.copy.hide=false
        _updateInfoBox()
    end
end

function scene.draw()
    -- Draw background
    gc.setColor(COLOR.dX)
    gc.rectangle('fill',1194,335,80,370,5)
    gc.rectangle('fill',1194,180,80,80 ,5) -- Help key
    -- Draw outline
    gc.setLineWidth(2)
    gc.setColor(COLOR.Z)
    gc.rectangle('line',1194,335,80,370,5)
    gc.line(1194,555,1274,555)
    gc.rectangle('line',1194,180,80,80 ,5) -- Help key

    if searchWait>0 then
        local r=TIME()*2
        local R=floor(r)%7+1
        gc.setColor(1,1,1,1-abs(r%1*2-1))
        gc.draw(TEXTURE.miniBlock[R],821,140,TIME()*10%6.2832,7,7,2*DSCP[R][0][2]+1,2*(#BLOCKS[R][0]-DSCP[R][0][1])-1)
    end
end

scene.widgetList={
    WIDGET.newText  {name='book',    x=20,  y=15, font=70,align='L',fText=CHAR.icon.zBook},
    WIDGET.newText  {name='title',   x=100, y=15, font=70,align='L'},
    listBox,
    inputBox,
    textBox,
    WIDGET.newKey   {name='link',     x=1234,y=595,w=60,font=45,fText=CHAR.icon.globe,      code=pressKey'application',hideF=function() return not (listBox.selected>0 and _getList()[listBox.selected].url) end},
    WIDGET.newKey   {name='copy',     x=1234,y=665,w=60,font=40,fText=CHAR.icon.copy,       code=pressKey'cC',hideF=function() return not (listBox.selected>0) end},

    WIDGET.newKey   {name='zoomin',   x=1234,y=375,w=60,font=40,fText=CHAR.icon.zoomIn,     code=function() _setZoom(5)  end},
    WIDGET.newKey   {name='zoomout',  x=1234,y=445,w=60,font=40,fText=CHAR.icon.zoomOut,    code=function() _setZoom(-5) end},
    WIDGET.newKey   {name='resetzoom',x=1234,y=515,w=60,font=40,fText=CHAR.icon.zoomDefault,code=function() _setZoom(0)  end},

    WIDGET.newKey   {name='help',     x=1234,y=220,w=60,font=40,fText=CHAR.icon.help,       code=pressKey'f1'},

    WIDGET.newButton{name='back',     x=1185,y=60, w=170,h=80,sound='back',font=60,fText=CHAR.icon.back,code=backScene},
    WIDGET.newText  {name='buttontip',x=1274,y=110,w=762,h=60,font=40,align='R',fText=CHAR.controller.xboxY.."/[F1]: "..CHAR.icon.help}
}
-- NOTE: The gap between Link-Copy, Zoom is 60*1.5-10=80 :) The gap between 2 buttons in one group is 60+10=70
return scene