会员VIP升级

admin

一。前端展示和事件绑定
A.UI对象D:\64client\dev\scripts\ssr\ssrgame\ui\normalui\VIPUI.lua

    for i=1,4 do
        ssrAddTouchEventListener({        
            widget = self.ui["btn_vip_level"..i],
            callback = function ()
                self:SXResponse(i)
            end,
            scale = 0.95,
        })
    end
    ssrAddTouchEventListener({     
        widget = self.ui.btn_mai,
        callback = function ()
            self:RequestZS()
        end,
        scale = 0.95,
    })
    self:updateUI()
    self:SXResponse(param)
    self:addChild(self.root)

对应的绑定事件代码

function VIPUI:SXResponse(param) --刷新页面  param=刷新 几号页面
    param = param or 1
    self:PshuaxingUI(param)
end

admin

点击不同的会员等级，刷新会员的介绍

function VIPUI:PshuaxingUI(param) 
    self.btn = param
    local cfgvip = self.cfgvip
    local zhanshi = self.zhanshi
    local level = self.obj.dqviplevel
    for i=1,#cfgvip do
        if i == param then
            local hanld = self.ui["btn_vip_level"..i]
            ssr.GUI:Button_setBright(hanld, false)
        else
            local hanld = self.ui["btn_vip_level"..i]
            ssr.GUI:Button_setBright(hanld, true)
        end
    end

    local tx_main = self.ui.tx_btn_mai
    if level >= param then
        ssr.GUI:Text_setString(tx_main,"已 激 活")
        local colorc3b = ssr.GetColorFromHexString("#C0C0C0")
        ssr.GUI:Text_setTextColor(tx_main, colorc3b)
    else
        ssr.GUI:Text_setString(tx_main,"激    活")
        local colorc3b = ssr.GetColorFromHexString("#FFFFFF")
        ssr.GUI:Text_setTextColor(tx_main, colorc3b)
    end
    
    
    local dqhuobi = ssr.GetMoneyCountById(7)

    local parent = self.ui.p_fu_tx
    ssr.GUI:removeAllChildren(parent)

    local txhanld = self.ui.tx_xvyao_lf
    ssr.GUI:Text_setString(txhanld,cfgvip[param]["NeedExp"].."灵符")

    local txhanld = self.ui.tx_bftiao
    ssr.GUI:Text_setString(txhanld,dqhuobi.."/"..(cfgvip[param]["NeedExp"]))

    local bf = dqhuobi/(cfgvip[param]["NeedExp"])
    local txhanld = self.ui.LoadingBar 
    ssr.GUI:LoadingBar_setPercent(txhanld, bf*100)

    local chhanld = self.ui.tx_goumai 
    ssr.GUI:removeAllChildren(chhanld)
    local Effhanld = ssr.GUI:Effect_Create(chhanld, "chenghao", 150, 0, 0, zhanshi[cfgvip[param]["modelinfo"]]["id"], 0, 0, 0, 1)

    if param >= 1 then
        local txhanld = self.ui.tx_vip_jiesuo2
        ssr.GUI:Text_setString(txhanld,"解锁：拾取使用")

        local colorc3b = ssr.GetColorFromHexString("#FFFF00")
        ssr.GUI:Text_setTextColor(txhanld, colorc3b)
    else
        local txhanld = self.ui.tx_vip_jiesuo2
        ssr.GUI:Text_setString(txhanld,"锁定：拾取使用")

        local colorc3b = ssr.GetColorFromHexString("#D6C6AD")
        ssr.GUI:Text_setTextColor(txhanld, colorc3b)
    end

    if param >= 2 then
        local txhanld = self.ui.tx_vip_jiesuo3
        ssr.GUI:Text_setString(txhanld,"解锁：自动回收")

        local colorc3b = ssr.GetColorFromHexString("#FFFF00")
        ssr.GUI:Text_setTextColor(txhanld, colorc3b)
    else
        local txhanld = self.ui.tx_vip_jiesuo3
        ssr.GUI:Text_setString(txhanld,"锁定：自动回收")

        local colorc3b = ssr.GetColorFromHexString("#D6C6AD")
        ssr.GUI:Text_setTextColor(txhanld, colorc3b)
    end

    if param >= 3 then
        local txhanld = self.ui.tx_vip_jiesuo4
        ssr.GUI:Text_setString(txhanld,"解锁：一键拾取")

        local colorc3b = ssr.GetColorFromHexString("#FFFF00")
        ssr.GUI:Text_setTextColor(txhanld, colorc3b)
    else
        local txhanld = self.ui.tx_vip_jiesuo4
        ssr.GUI:Text_setString(txhanld,"锁定：一键拾取")

        local colorc3b = ssr.GetColorFromHexString("#D6C6AD")
        ssr.GUI:Text_setTextColor(txhanld, colorc3b)
    end

    local bfhao = ""
    local vaul = 0

    local shuxing_tab = cfgvip[param]["shuxing"]
    local att = self.atttab

    for i=1,#shuxing_tab do
        local txhanld = self.ui["tx_vip_sx"..i]
        ssr.GUI:setVisible(txhanld, true)
       
        if #shuxing_tab <= 3 then
            ssr.GUI:setPositionX(txhanld, 120)

            local sxhanld = self.ui["tx_vip_sx"..(i+3)]
            ssr.GUI:setVisible(sxhanld, false)

            local sxhanld = self.ui["tx_vip_sx8"]
            ssr.GUI:setVisible(sxhanld, true)
            ssr.GUI:setPositionX(sxhanld, 120)
            local sxhanld = self.ui["tx_vip_sx7"]
            ssr.GUI:setVisible(sxhanld, false)
        else
            if i<=3 then
                ssr.GUI:setPositionX(txhanld, 74.77)
                local sxhanld = self.ui["tx_vip_sx8"]
                ssr.GUI:setVisible(sxhanld, true)
                ssr.GUI:setPositionX(sxhanld, 74.77)
            end
            if #shuxing_tab >= 7 then
                local sxhanld = self.ui["tx_vip_sx7"]
                ssr.GUI:setVisible(sxhanld, true)
                local sxhanld = self.ui["tx_vip_sx6"]
                ssr.GUI:setVisible(sxhanld, true)
            else
                local sxhanld = self.ui["tx_vip_sx7"]
                ssr.GUI:setVisible(sxhanld, false)
                local sxhanld = self.ui["tx_vip_sx6"]
                ssr.GUI:setVisible(sxhanld, false)
            end
        end
        
        ssr.GUI:Text_setString(txhanld,att[shuxing_tab[i][1]]["name"].." + ")
        vaul = shuxing_tab[i][2]
        
        if i >= 3 then
            bfhao = "%"
            if i == 3 then
                vaul = vaul*0.01
            end
        end
		if i == 4 then
            vaul = vaul*0.01
        end
       
        if i == 6 then
            vaul = vaul*0.01
        end
        
        local txhanld = self.ui["tx_vip_vaul"..i]
        ssr.GUI:Text_setString(txhanld,vaul..bfhao)
    end
    
    local txhanld = self.ui["tx_vip_vaul8"]
    ssr.GUI:Text_setString(txhanld,(cfgvip[param]["Recovery"]*0.01).."%")

    local item_tab = cfgvip[param]["Gift"]
    for i=1,#item_tab do
        local data = {}
        data.index = item_tab[i][1]
        data.look  = true
        data.bgVisible = true
        data.count = item_tab[i][2]
        data.color = 255
        local img_itemhanld = ssr.GUI:Image_Create(parent, "bg_"..i, (70*i), 80, "res/custom/shouchong/4.png")
        local itemhanld = ssr.GUI:ItemShow_Create(parent, "item_"..i, (70*i), 80, data)
        ssr.GUI:setScale(img_itemhanld, 0.8)
        ssr.GUI:setScale(itemhanld, 0.8)
    end
end

admin

点击开通会员，发送网络消息

function VIPObj:RequestZS(btn)
    ssrMessage:sendmsg(ssrNetMsgCfg.VIP_RequestZS,btn)
end

VIP网络消息配置

ssrNetMsgCfg.VIP                        = "VIP"      
ssrNetMsgCfg.VIP_SyncResponse           = 31000     
ssrNetMsgCfg.VIP_RequestZS              = 31001
ssrNetMsgCfg.VIP_ZSResponse             = 31002

admin

服务端接收网络消息，开通会员：
D:\MirServer-lua-study\Mir200\Envir\QuestDiary\game\C\VIP.lua


function VIP.RequestZS(actor,btn)
    --LOGPrint("服务端==VIP=="..id)
    btn = tonumber(btn)
    local viplevel = getplayvar(actor,"C_QsQVIP")
    if viplevel == #_cfgkb then
        sendmsg(actor,1,'{"Msg":"<font color=\'#ff0000\'>VIP等级已满</font>","Type":9}')
        return
    end
    if btn < (viplevel+1) then
        sendmsg(actor,1,'{"Msg":"<font color=\'#ff0000\'>你已激活'.._cfgkb[btn]["Txt"]..'</font>","Type":9}')
        return
    end
    if btn > (viplevel+1) then
        sendmsg(actor,1,'{"Msg":"<font color=\'#ff0000\'>'.._cfgkb[btn-1]["Txt"]..'未激活无法购买</font>","Type":9}')
        return
    end

    local huibi = querymoney(actor,7)
    if huibi < _cfgkb[btn]["NeedExp"] then
        sendmsg(actor, ConstCfg.notice.own, '{"Msg":"<font color=\'#ff0000\'>灵符不足</font>","Type":9}')
        return
    end



    local gezhi = #_cfgkb[btn]["Gift"]
    local bag_num = getbagblank(actor)
    --LOGWrite("111="..bag_num)
    if gezhi > bag_num then
        sendmsg(actor, ConstCfg.notice.own, '{"Msg":"<font color=\'#ff0000\'>背包格子不足</font>","Type":9}')
        return
    end
    
    changemoney(actor,7,"-",_cfgkb[btn]["NeedExp"],"激活VIP",true)
    for i=1,gezhi do
        if Item.isCurrency(_cfgkb[btn]["Gift"][i][1]) then  --判断是否是货币
            changemoney(actor,_cfgkb[btn]["Gift"][i][1],"+",_cfgkb[btn]["Gift"][i][2],"VIP",true)
        else
            giveitem(actor, Item.getNameByIdx(_cfgkb[btn]["Gift"][i][1]),_cfgkb[btn]["Gift"][i][2])
        end
    end
    
    local att1 = {}
    if btn == 1 then
        att1 = {}
    else
        att1 = _cfgkb[btn-1]["shuxing"]
    end
    
    local att2 = _cfgkb[btn]["shuxing"]
    Player.updateSomeAddr(actor, att1, att2)

    QaQADDtite(actor,_cfgkb[btn]["modelinfo"],"C_QsQFashiontite")
    if QaQIsPliaertite(actor,"C_QsQFashiontite") == 0 then
        QaQShowtite(actor,_cfgkb[btn]["modelinfo"],"C_QsQFashiontite")
    else
        QaQShuttite(actor,"C_QsQFashiontite")
        QaQShowtite(actor,_cfgkb[btn]["modelinfo"],"C_QsQFashiontite")
    end


    setplayvar(actor, "HUMAN","C_QsQVIP",viplevel+1,1) 
    sendmsg(actor,1,'{"Msg":"<font color=\'#ff0000\'>激活成功</font>","Type":9}')

------------------------------------------根据等级解锁功能
    local viplevel = getplayvar(actor,"C_QsQVIP")
    Message.sendmsg(actor, ssrNetMsgCfg.VIP_ZSResponse, btn,viplevel)
    if _cfgkb[viplevel]["DropToMap"] == 1 then
        local jl = checkspritelevel(actor,"狗哥")
        if type(jl) == "boolean" then
            if not jl then
                createsprite(actor,"狗哥")
                pickupitems(actor,0,10,500)
            end
        end
    end
    GameEvent.push(EventCfg.goVIPlvelup, actor,viplevel)
end

admin

admin Player.updateSomeAddr(actor, att1, att2)

开通会员后，更新人物属性😃:\MirServer-lua-study\Mir200\Envir\Extension\UtilServer\Player.lua

--更新部分属性
function Player.updateSomeAddr(actor, cur_attr, next_attr)
    local newattr = {}
    if cur_attr then
        for _,attr in ipairs(cur_attr) do
            local attridx, attrvalue = attr[1], attr[2]
            newattr[attridx] = newattr[attridx] or gethumnewvalue(actor, attridx)
            newattr[attridx] = newattr[attridx] - attrvalue
            if newattr[attridx] < 0 then newattr[attridx] = 0 end
        end
    end

    -- LOGDump(newattr)

    if next_attr then
        for _,attr in ipairs(next_attr) do
            local attridx, attrvalue = attr[1], attr[2]
            newattr[attridx] = newattr[attridx] or gethumnewvalue(actor, attridx)
            newattr[attridx] = newattr[attridx] + attrvalue
        end
    end

    -- LOGDump(newattr)

    --cfg_att_score.xls 属性
    for attridx,attrvalue in pairs(newattr) do
        changehumnewvalue(actor, attridx, attrvalue, ConstCfg.attrtime)
    end
end

admin

会员的配置文件：D:\MirServer-lua-study\Mir200\Envir\QuestDiary\cfgcsv\cfg_vip.lua

[1] = {
		Txt = "铂金会员",
		NeedExp = 10000,
		dajin = 1,
		Recovery = 2000,
		use = 1,
		Pet = 0,
		ronglian = 0,
		DropToMap = 0,
		Gift = {
			[1] = {
				[1] = 103004,
				[2] = 1,
			},
			[2] = {
				[1] = 7340301,
				[2] = 25,
			},
			[3] = {
				[1] = 7340302,
				[2] = 25,
			},
			[4] = {
				[1] = 7500001,
				[2] = 1,
			},
			[5] = {
				[1] = 7203109,
				[2] = 1,
			},
			[6] = {
				[1] = 4,
				[2] = 50000,
			},
			[7] = {
				[1] = 7400002,
				[2] = 1000,
			},
		},
		modelinfo = 1,
		shuxing = {
			[1] = {
				[1] = 200,
				[2] = 2400,
			},
			[2] = {
				[1] = 74,
				[2] = 24000,
			},
			[3] = {
				[1] = 65,
				[2] = 1000,
			},
		},
	},

admin

admin changehumnewvalue

修改人物临时属性（带有效期）
changehumnewvalue

参数	类型	空	默认	注释
play	object	否		玩家对象
nWhere	int	否		位置 对应cfg_att_score 属性ID
nValue	int	否		对应属性值
nTime	int	否		有效时间，秒
function main(self)
    changehumnewvalue(self,10,10,10)
end