GM论坛»GM论坛 › GMBBS-综合工具教程 › 游戏技术教程 › 龙途传奇服务端血条显示数字修改教程
返回列表 发帖
查看: 17700|回复: 1

[龙途三端传奇] 龙途传奇服务端血条显示数字修改教程

  [复制链接]
admin

4783

主题

5079

帖子

1万

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
18913

最佳新人活跃会员热心会员推广达人宣传达人灌水之王突出贡献优秀版主荣誉管理论坛元老
发表于 2019-6-30 16:22:58 | 显示全部楼层 |阅读模式
龙途传奇服务端血条显示数字修改教程

module(..., package.seeall)

local 实用工具 = require("公用.实用工具")

m_FlytextPool = {}
m_Flytexts = {}

function pushFlytext(flytext)
        if flytext.minus then
                flytext.minus:setVisible(false)
        end
        flytext:setAlpha(1)
        flytext:reset()
        flytext:removeFromParent()
        m_Flytexts[flytext] = nil
        m_FlytextPool[#m_FlytextPool+1] = flytext
end

function popFlytext()
        if #m_FlytextPool > 0 then
                local flytext = m_FlytextPool[#m_FlytextPool]
                table.remove(m_FlytextPool, #m_FlytextPool)
                return flytext
        end
end

function showFlytext(role, dechp, crit)
        if 1 then
                return
        end
        
        local flytext = popFlytext() or F3DImage3D:new()
        if dechp == 0 then
                flytext:setWidth(0)
                flytext:setTextureFile(UIPATH.."公用/fight/miss.png")
                flytext:setOffset(-52, -35)
        elseif dechp < 0 then
                dechp = -dechp
                flytext:setTextureFile(UIPATH.."公用/fight/addHit.png")
                flytext:setWidth(22)
                if not flytext.clips then
                        flytext.clips = F3DPointVector:new()
                end
                flytext.clips:clear()
                while dechp >= 1 do
                        flytext.clips:push(math.floor(dechp%10), -flytext.clips:size()*22)
                        dechp = dechp / 10
                end
                flytext:setBatchClips(10, flytext.clips)
                flytext:setOffset(-22+flytext.clips:size()*11, -50)
                if not flytext.minus then
                        flytext.minus = F3DImage:new()
                        flytext:addChild(flytext.minus)
                end
                flytext.minus:setTextureFile(UIPATH.."公用/fight/addFlag.png")
                flytext.minus:setPositionX(-(flytext.clips:size()-1)*22-27)
                flytext.minus:setPositionY(4)
                flytext.minus:setVisible(true)
        elseif crit == 1 then
                flytext:setTextureFile(UIPATH.."公用/fight/criticalHit.png")
                flytext:setWidth(28)
                if not flytext.clips then
                        flytext.clips = F3DPointVector:new()
                end
                flytext.clips:clear()
                while dechp >= 1 do
                        flytext.clips:push(math.floor(dechp%10), -flytext.clips:size()*28)
                        dechp = dechp / 10
                end
                flytext:setBatchClips(10, flytext.clips)
                flytext:setOffset(-28+flytext.clips:size()*14, -50)
                if not flytext.minus then
                        flytext.minus = F3DImage:new()
                        flytext:addChild(flytext.minus)
                end
                flytext.minus:setTextureFile(UIPATH.."公用/fight/criticalFlag.png")
                flytext.minus:setPositionX(-(flytext.clips:size()-1)*28-55)
                flytext.minus:setPositionY(-5)
                flytext.minus:setVisible(true)
        else
                flytext:setTextureFile(UIPATH.."公用/fight/otherHit.png")
                flytext:setWidth(22)
                if not flytext.clips then
                        flytext.clips = F3DPointVector:new()
                end
                flytext.clips:clear()
                while dechp >= 1 do
                        flytext.clips:push(math.floor(dechp%10), -flytext.clips:size()*22)
                        dechp = dechp / 10
                end
                flytext:setBatchClips(10, flytext.clips)
                flytext:setOffset(-22+flytext.clips:size()*11, -50)
                if not flytext.minus then
                        flytext.minus = F3DImage:new()
                        flytext:addChild(flytext.minus)
                end
                flytext.minus:setTextureFile(UIPATH.."公用/fight/otherFlag.png")
                flytext.minus:setPositionX(-(flytext.clips:size()-1)*22-17)
                flytext.minus:setPositionY(12)
                flytext.minus:setVisible(true)
        end
        flytext:setPosition(role:getPositionX(), role:getPositionY(), role:getPositionZ() + 100)--role:getBoxHeight() + 10)
        dechpcont:addChild(flytext)
        m_Flytexts[flytext] = 1
        local prop = F3DTweenProp:new()
        prop:push("offsetY", -100, F3DTween.TYPE_SPEEDDOWN)
        prop:push("alpha", 0, F3DTween.TYPE_LINEAR)
        F3DTween:fromPool():start(flytext, prop, 1, func_n(function()
                pushFlytext(flytext)--flytext:removeFromParent(true)
        end))
end

hpbarpool = {}

function removeMergeHP(hpbar)
        if hpbar.mergehp then
                for i,v in ipairs(hpbar.mergehp) do
                        v:removeFromParent(true)
                end
                hpbar.mergehp = nil
        end
end

function createMergeHP(hpbar, hp, hpmax, mergehp)
        hpmax = hp
        for i,v in ipairs(mergehp) do
                hpmax = hpmax + (i == #mergehp and v.hpmax or v.hp)
        end
        local perc = hp / hpmax
        hpbar.hpimg:setWidth(hpbar.track:getWidth()*perc)
        hpbar.mergehp = {}
        for i,v in ipairs(mergehp) do
                local hpimg = F3DImage:new()
                local pc = (i == #mergehp and v.hpmax or v.hp) / hpmax
                hpimg:setTextureFile("tex_white")
                hpimg:setWidth(hpbar.track:getWidth()*pc-1)
                hpimg:setHeight(hpbar.track:getHeight())
                hpimg:setPositionX(hpbar.track:getWidth()*perc+1)
                hpimg:getColor():setRGB(v.color)
                hpbar.track:addChild(hpimg)
                hpbar.mergehp[#hpbar.mergehp+1] = hpimg
                perc = perc + pc
                hp = hp + v.hp
        end
        return hp, hpmax
end

function onHpBarInit(e)
        local hpbar = e:getTarget()
        hpbar.name = hpbar:findComponent("name")
        local ss = 实用工具.SplitString(hpbar.v.name,"\\")
        hpbar.name:setTitleText(txt(ss[1]))
        if #ss > 1 then
                hpbar.nameexs = hpbar.nameexs or {}
                for i=2,#ss do
                        local tf = hpbar.nameexs[i-1] or F3DTextField:new()
                        if g_mobileMode then
                                tf:setTextFont("宋体",16,false,false,false)
                        end
                        tf:setText(txt(ss))
                        tf:setTextColor(hpbar.namecolor or 0xffffff,0)
                        tf:setPivot(0.5,0.5)
                        tf:setPositionX(0)
                        tf:setPositionY(50+(i-1)*14)
                        hpbar:addChild(tf)
                        hpbar.nameexs[i-1] = tf
                end
        end
        hpbar.name:setVisible(hpbar.showname)
        hpbar.name:setTextColor(hpbar.namecolor or 0xffffff)
        hpbar.guildname = hpbar:findComponent("guildname")
        hpbar.guildname:setTitleText(txt(hpbar.v.guildname or ""))
        hpbar.guildname:setVisible(hpbar.showname)
        hpbar.guildname:setTextColor(hpbar.namecolor or 0xffffff)
        hpbar.pro = tt(hpbar:findComponent("hpbar"),F3DProgress)
        hpbar.track = hpbar.pro:getTrack()
        hpbar.hpimg = F3DImage:new()
        hpbar.hpimg:setTextureFile("tex_white")
        hpbar.hpimg:setWidth(hpbar.track:getWidth())
        hpbar.hpimg:setHeight(hpbar.track:getHeight())
        hpbar.hpimg:getColor():setRGB(hpbar.v.color)
        hpbar.track:addChild(hpbar.hpimg)
        
        
        local count = F3DTextField:new()  --创建一个文字
        count:setPivot(0.5,0.5) --血条文字改为居中
        count:setPositionX(20)--变更一下血条x位置
        count:setPositionY(-10)--变更一下血条y位置
        hpbar.pro:addChild(count)        --跟名字绑定
        hpbar.count = count  --方便下面随时修改血量
        
        hpbar.count:setText(txt(hpbar.v.hp == hpbar.v.hpmax and "" or hpbar.v.hp.."/"..hpbar.v.hpmax))--变成血量在其它动态变更的地方都做一下修改
        
        
        --hpbar.count:setText(txt(hpbar.v.hp == hpbar.v.hpmax and "" or hpbar.v.hp .."/"..hpbar.v.hpmax))--变成血量在其它动态变更的地方都做一下修改
        
        
        if not hpbar.v.mergehp then
                hpbar.mergehp = nil
                hpbar.pro:setMaxVal(hpbar.v.hpmax)
                hpbar.pro:setCurrVal(hpbar.v.hp)
                hpbar.pro:setVisible(hpbar.v.hp > 0)
        else
                local hp, hpmax = createMergeHP(hpbar, hpbar.v.hp, hpbar.v.hpmax, hpbar.v.mergehp)
                hpbar.pro:setMaxVal(hpmax)
                hpbar.pro:setCurrVal(hp)
                hpbar.pro:setVisible(hp > 0)
        end
end

function setHPBar(role, hp, hpmax, color, name, mergehp, showname, guildname, namecolor)
        local newcreate
        local hpbar
        showname = showname or 显示名字 == 1
        if role.hpbar then
                hpbar = role.hpbar
                hpbar.showname = showname
                hpbar.namecolor = namecolor
        else
                if #hpbarpool == 0 then
                        hpbar = F3DLayout:new()
                        hpbar.showname = showname
                        hpbar.namecolor = namecolor
                        hpbar:setLoadPriority(g_uiFastPriority)
                        hpbar.v = {hp = hp,hpmax = hpmax,color = color,name = name,mergehp = mergehp,guildname = guildname}
                        hpbar:addEventListener(F3DObjEvent.OBJ_INITED, func_oe(onHpBarInit))
                        hpbar:setLayout(g_mobileMode and UIPATH.."血条UIm.layout" or UIPATH.."血条UI.layout")--IS3G and UIPATH.."血条UIn.layout" or
                        newcreate = true
                else
                        hpbar = hpbarpool[#hpbarpool]
                        hpbar.showname = showname
                        hpbar.namecolor = namecolor
                        table.remove(hpbarpool)
                end
                role.hpbar = hpbar
                hpbar:setZOrder(-role:getPositionY())
                hpcont:addChild(hpbar)
        end
        if newcreate then
        elseif hpbar:isInited() then
                local ss = 实用工具.SplitString(name,"\\")
                hpbar.name:setTitleText(txt(ss[1]))
                if #ss > 1 then
                        hpbar.nameexs = hpbar.nameexs or {}
                        for i=2,#ss do
                                local tf = hpbar.nameexs[i-1] or F3DTextField:new()
                                if g_mobileMode then
                                        tf:setTextFont("宋体",16,false,false,false)
                                end
                                tf:setText(txt(ss))
                                tf:setTextColor(hpbar.namecolor or 0xffffff,0)
                                tf:setPivot(0.5,0.5)
                                tf:setPositionX(0)
                                tf:setPositionY(50+(i-1)*14)
                                hpbar:addChild(tf)
                                hpbar.nameexs[i-1] = tf
                        end
                end
                hpbar.guildname:setTitleText(txt(guildname or ""))
                hpbar.name:setVisible(hpbar.showname or role == g_hoverObj)
                hpbar.name:setTextColor(hpbar.namecolor or 0xffffff)
                hpbar.guildname:setVisible(hpbar.showname or role == g_hoverObj)
                hpbar.guildname:setTextColor(hpbar.namecolor or 0xffffff)
                if not mergehp then
                        removeMergeHP(hpbar)
                        hpbar.hpimg:setWidth(hpbar.track:getWidth())
                        hpbar.hpimg:getColor():setRGB(color)
                        hpbar.pro:setMaxVal(hpmax)
                        hpbar.pro:setCurrVal(hp)
                        hpbar.pro:setVisible(hp > 0)
                else
                        removeMergeHP(hpbar)
                        hpbar.hpimg:setWidth(hpbar.track:getWidth())
                        hpbar.hpimg:getColor():setRGB(color)
                        hp, hpmax = createMergeHP(hpbar, hp, hpmax, mergehp)
                        hpbar.pro:setMaxVal(hpmax)
                        hpbar.pro:setCurrVal(hp)
                        hpbar.pro:setVisible(hp > 0)
                end
               
                hpbar.count:setText(txt(hp == hpmax and "" or hp.."/"..hpmax))
        else
                hpbar.v = {hp = hp,hpmax = hpmax,color = color,name = name,mergehp = mergehp,guildname = guildname}
        end
        if not role:isVisible() or (hp == hpmax and not mergehp) then
                hpbar:setVisible(true)--false)
        else
                hpbar:setVisible(true)
        end
end

function delHPBar(role)
        local hpbar = role.hpbar
        if hpbar then
                hpbar.showname = nil
                hpbar.namecolor = nil
                if hpbar.titles then
                        for i,v in ipairs(hpbar.titles) do
                                v:removeFromParent(true)
                        end
                        实用工具.DeleteTable(hpbar.titles)
                end
                if hpbar.nameexs then
                        for i,v in ipairs(hpbar.nameexs) do
                                v:removeFromParent(true)
                        end
                        实用工具.DeleteTable(hpbar.nameexs)
                end
                hpbar:removeFromParent()
                hpbarpool[#hpbarpool] = hpbar
                role.hpbar = nil
        end
end

function updateHPBar(role)
        local hpbar = role.hpbar
        if hpbar then
                hpbar:setVisible(role:isVisible())
        end
        if hpbar and hpbar:isVisible() then
                hpbar:setZOrder(-role:getPositionY())
                local pt = F3DUtils:getScreenPosition(role:getPositionX(), role:getPositionY(), role:getPositionZ() + 100)--role:getBoxHeight() + 20)
                if pt then
                        hpbar:setPositionX(pt.x)
                        hpbar:setPositionY(pt.y)
                end
        end
end
【GM论坛[www.gmbbs.net]免责声明】
1、本站提供的所有资源仅供参考学习使用，版权归原著所有，禁止下载本站资源参与商业和非法行为，请在24小时之内自行删除！
2、本站所有内容均由互联网收集整理、网友上传，并且以计算机技术研究交流为目的，仅供大家参考、学习，不存在任何商业目的与商业用途。
3、若您需要商业运营或用于其他商业活动，请您购买正版授权并合法使用。 我们不承担任何技术及版权问题，且不对任何资源负法律责任。
4、论坛的所有内容都不保证其准确性，完整性，有效性。阅读本站内容因误导等因素而造成的损失本站不承担连带责任。
5、用户使用本网站必须遵守适用的法律法规,对于用户违法使用本站非法运营而引起的一切责任，由用户自行承担
6、本站所有资源来自互联网转载，版权归原著所有，用户访问和使用本站的条件是必须接受本站“免责声明”，如果不遵守，请勿访问或使用本网站
7、本站使用者因为违反本声明的规定而触犯中华人民共和国法律的，一切后果自己负责，本站不承担任何责任。
8、凡以任何方式登陆本网站或直接、间接使用本网站资料者，视为自愿接受本网站声明的约束。
9、本站以《2013 中华人民共和国计算机软件保护条例》第二章 “软件著作权” 第十七条为原则：为了学习和研究软件内含的设计思想和原理，通过安装、显示、传输或者存储软件等方式使用软件的，可以不经软件著作权人许可，不向其支付报酬。若有学员需要商用本站资源，请务必联系版权方购买正版授权！
10、本网站如无意中侵犯了某个企业或个人的知识产权，请告之，本站将立即删除。
   【提问发帖求助请点此发帖】 https://www.gmbbs.net/
回复

使用道具 举报

发表于 2022-7-2 22:27:29 | 显示全部楼层
终于找到这个东西了,又占了一个沙发！
回复 支持 反对

使用道具 举报

返回列表 发帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

快速回复 返回顶部 返回列表