GongFuServer/script/module/xianzhi/XianzhiLogic.lua

-- 英雄召唤+英雄置换
-- 每次抽奖会额外赠送卷轴和珠子

local Lang = require("common.Lang")
local Msg = require("core.Msg")
local XianzhiExcel = require("excel.xianzhi")
local HeroExcel = require("excel.hero")
local ItemDefine = require("bag.ItemDefine")
local BagLogic = require("bag.BagLogic")
local HeroLogic = require("hero.HeroLogic")
local Grid = require("bag.Grid")
local HeroGrid = require("hero.HeroGrid")
local HeroBook = require("hero.HeroBook")
local Broadcast = require("broadcast.Broadcast")
local HeroDefine = require("hero.HeroDefine")
local ChengjiuLogic = require("chengjiu.ChengjiuLogic")
local ChengjiuDefine = require("chengjiu.ChengjiuDefine")
local Util = require("common.Util")
local ChatPaoMaLogic = require("chat.ChatPaoMaLogic")
local DrawCardLogic = require("drawCard.DrawCardLogic")
local RoleSystemLogic = require("roleSystem.RoleSystemLogic")
local RoleSystemDefine = require("roleSystem.RoleSystemDefine")
local HeroGrowUp = require("absAct.HeroGrowUp")
local YunYingLogic = require("yunying.YunYingLogic")


local xianzhiOutPutId = 126
local xianzhiDelitem_Normal = 100
local xianzhiDelitem_Special = 300


local function makeShopElem(human,config)

end


function detail(human, camp)
	
	local xianzhiConfig = XianzhiExcel.xianzhi[camp]
	if not xianzhiConfig then return end
	
	local msgRet = Msg.gc.GC_XIANZHI_DETAIL
	local cnt = 0
	local bf = false
	local itemCnt = 0
	
	
	for heroID,heroConfig in pairs(HeroExcel.hero) do
		bf = false
		itemCnt = heroConfig.star == 5 and 50 or 30
		
		if camp == 4 then
			if (heroConfig.camp == 4 or heroConfig.camp == 5) and heroConfig.seerLv ~= 0 then
				bf =  true
			end
		else
			if heroConfig.camp == camp and heroConfig.seerLv ~= 0 then
				bf = true
			end
		end
		if bf then
			cnt = cnt + 1
			Grid.makeItem(msgRet.item[cnt], heroID, itemCnt)
		end
	end
			
	for j = 1, #xianzhiConfig.zhaohuan do 
		local tempConfig = xianzhiConfig.zhaohuan[j]
	    if cnt > 50 then
			break
		end
		
		if j == #xianzhiConfig.zhaohuan or j == #xianzhiConfig.zhaohuan - 1 then
		else
			for k, v in ipairs(tempConfig[1]) do 
                cnt = cnt + 1
				local minCnt = tempConfig[2][1]
				local maxCnt = tempConfig[2][2]
				Grid.makeItem(msgRet.item[cnt], v[1], minCnt)
			end
		end
		
	end
			
	
	msgRet.item[0] = cnt
	Msg.send(msgRet, human.fd)
end

-- 召唤
function zhaohuanDo(human, camp, cnt, skip)
	local flag = RoleSystemLogic.isOpen(human,RoleSystemDefine.ROLE_SYS_ID_402)
	if flag ~= true then
		return Broadcast.sendErr(human, Lang.XIANZHI_OPEN_NEED_LV)
	end
    cnt = 1
	if cnt < 1 then return end 
	local xianzhiConfig = XianzhiExcel.xianzhi[camp]
	if not xianzhiConfig then return end
	
	local getID = nil
	local getCnt = nil
	
	-- 判断消耗
	local needItemID = ItemDefine.ITEM_XIANZHI_BAOZHU_ID
	local needItemCnt = cnt
	local nowItemCnt = BagLogic.getItemCnt(human, needItemID)
	if nowItemCnt < needItemCnt then 
		return Broadcast.sendErr(human, Util.format(Lang.XIANZHI_NO_ITEM,ItemDefine.getValue(needItemID,"name")))
	end
	
    getID,getCnt = zhaohuanHero(human,camp, cnt)
	if getID == nil or getCnt == nil then
		return
	end
	
    human.db.drawCard.skip = skip or 0
	-- 扣消耗
	BagLogic.delItem(human, needItemID, needItemCnt, "xianzhi_zhaohuan")
	
	-- 增加物品
	local msgRet = Msg.gc.GC_XIANZHI_ZHAOHUAN_DO
	msgRet.camp = camp
	msgRet.list[0] = #getID
	BagLogic.cleanMomentItemList()
	for i = 1, #getID do 
		local heroID = getID[i]
		local heroConfig = HeroExcel.hero[heroID]
		local isNew = nil
		if heroConfig then
			isNew = not HeroBook.isGet(human, heroConfig.id, heroConfig.star)
			ChatPaoMaLogic.broadcast(human, ChatPaoMaLogic.PAOMA_TYPE_BROAD_TYPE7, heroConfig.seerLv, heroID)
		end
		BagLogic.updateMomentItem(2, getID[i],  getCnt[i])
	--	BagLogic.addItem(human, getID[i], getCnt[i], "xianzhi_zhaohuan")
		HeroGrid.makeHeroNice(msgRet.list[i], getID[i], getCnt[i], isNew)
	end
	BagLogic.updateMomentItem(2, xianzhiOutPutId, 1) --每次召唤获得精华1个
	-- 额外增加的物品 30珠子 1转轴	
	local exItemCnt1 = cnt * 100
	BagLogic.updateMomentItem(2, ItemDefine.ITEM_XIANZHI_ZHUFU_ID,  exItemCnt1)
	BagLogic.addMomentItemList(human, "xianzhi_zhaohuan")

	msgRet.list[0] = msgRet.list[0] + 1	
	HeroGrid.makeHeroNice(msgRet.list[msgRet.list[0]], ItemDefine.ITEM_XIANZHI_ZHUFU_ID, exItemCnt1)

	Msg.send(msgRet, human.fd)

    ChengjiuLogic.onCallback(human,ChengjiuDefine.CJ_TASK_TYPE_14,cnt)
    
    HeroGrowUp.onCallback(human, HeroGrowUp.TASKTYPE2, cnt)
    YunYingLogic.onCallBack(human, "onTMDrawCard", cnt)   
end

-- 置换查询
function zhihuanQuery(human, heroID, heroIndex)
	local flag = RoleSystemLogic.isOpen(human,RoleSystemDefine.ROLE_SYS_ID_402)
	if flag ~= true then
	 	return Broadcast.sendErr(human, Lang.XIANZHI_OPEN_NEED_LV)
	end
	
	local heroGrid = HeroLogic.getHeroGrid(human, heroID, heroIndex)
	if not heroGrid then return end
	
	-- 判断是否被锁
	if heroGrid.isLock then 
		return
	end
	
	-- 阵营，星级判断
	local heroConfig = HeroExcel.hero[heroGrid.id]
	local camp = heroConfig.camp
	local star = heroConfig.star
    if heroConfig.grade ~= 4 or star ~= 5 then return end

	local needItemCnt = xianzhiDelitem_Normal
	if camp == 4 or camp == 5 then 
		needItemCnt = xianzhiDelitem_Special
	end
	
	-- 判断消耗
	local needItemID = ItemDefine.ITEM_XIANZHI_ZHUFU_ID
	local nowItemCnt = BagLogic.getItemCnt(human, needItemID)
	if nowItemCnt < needItemCnt then 
		return Broadcast.sendErr(human, Util.format(Lang.XIANZHI_NO_ITEM,ItemDefine.getValue(needItemID,"name")))
	end
	
	-- 扣消耗
	BagLogic.delItem(human, needItemID, needItemCnt, "xianzhi_zhihuan")
	
	-- 生成新ID
	local nextHero = zhihuanHero(star, camp,heroGrid.id)
	if not nextHero then 
		-- 没有置换目标
		print("[zhihuanQuery] 没有获取到置换目标 star = "..star.." camp = "..camp.." id = "..heroGrid.id)
		return 
	end
	-- 新ID不等于旧ID

    human.tempZhihuanID = nextHero
	human.tempZhihuanHeroID = heroID
	human.tempZhihuanHeroIndex = heroIndex

	-- 通知客户端
	local msgRet = Msg.gc.GC_XIANZHI_ZHIHUAN_QUERY
	msgRet.heroID = heroID
	msgRet.heroIndex = heroIndex
    msgRet.skip = human.db.drawCard.skip or 0
	HeroGrid.makeHeroSimpleByID(msgRet.heroSimple, nextHero)
	HeroGrid.makeHeroStatic(msgRet.heroStatic,nextHero)
	Msg.send(msgRet, human.fd)
end

function zhihuanDo(human, heroID, heroIndex)
	local heroGrid = HeroLogic.getHeroGrid(human, heroID, heroIndex)
	if not heroGrid then return end
	
	-- 判断是否被锁
	if heroGrid.isLock then 
		return
	end
	
	if human.tempZhihuanHeroID ~= heroID then return end
	if human.tempZhihuanHeroIndex ~= heroIndex then return end
	
	local tempGrid = heroGrid
	tempGrid.id = human.tempZhihuanID
	
	-- 先删
	HeroLogic.delHeroByIndex(human, heroIndex, "xianzhi_zhihuan")
	human.tempZhihuanID = nil
	human.tempZhihuanHeroID = nil
	human.tempZhihuanHeroIndex = nil
	
	-- 改db
	local newIndex = HeroLogic.addHeroByGrid(human, tempGrid, "xianzhi_zhihuan")
	
	-- 通知客户端
	local msgRet = Msg.gc.GC_XIANZHI_ZHIHUAN_DO
	HeroGrid.makeHeroSimple(msgRet.heroSimple, tempGrid, newIndex, human)
	
	Msg.send(msgRet, human.fd)	
end
--------------------------功能函数---------------------------------
function zhaohuanHero(human,camp, cnt)
	local xianzhiConfig = Util.copyTable(XianzhiExcel.xianzhi[camp])
	if not xianzhiConfig then return end
	
	local totalWeight = 0
    local totalWeight1 = 0
	for i = 1, #xianzhiConfig.zhaohuan do 
		totalWeight = totalWeight + xianzhiConfig.zhaohuan[i][3]
	end

    for i = 1, #xianzhiConfig.zhaohuan1 do 
		totalWeight1 = totalWeight1 + xianzhiConfig.zhaohuan1[i][3]
	end
	
    cnt = cnt * 5
    local cjPrivilege = ChengjiuLogic.checkPrivilege(human,ChengjiuDefine.PRIVILEGE_TYPE_4)
    if cjPrivilege then
        local randNum = math.random(1,100)
        if randNum == 1 then
            cnt = cnt + 1
        end
    end


	local getID = {}
	local getCnt = {}
	for i = 1, cnt do 
        if camp == 4 or camp == 5 then
            camp = math.random(4,5)
        end

        local tWeight = totalWeight
        local zhaohuan = xianzhiConfig.zhaohuan
        if i == 5 then
           zhaohuan = xianzhiConfig.zhaohuan1
           tWeight = totalWeight1
        end

		local randNum = math.random(1, tWeight)
		for j = 1, #zhaohuan do 
			local tempConfig = zhaohuan[j]
			local tempWeight = tempConfig[3]
			if randNum <= tempWeight then  --抽中
				if j == #zhaohuan or j == #zhaohuan - 1 then    --抽中五星英雄 
                    local allWeight = 0
                    for k,v in ipairs(tempConfig[1]) do
                        allWeight = allWeight + v[2]
                    end
                    local nowNum = math.random(1, allWeight)
                    for k, v in ipairs(tempConfig[1]) do 
					    local nowWeight = v[2]
					    if nowNum <= nowWeight then 
						    local rate = v[1]
                            local chipId = {}
                            local index = 1
                            for heroID,heroConfig in pairs(HeroExcel.hero) do
                                if heroConfig.camp == camp and heroConfig.seerLv == rate then
                                    chipId[index] = heroID
                                    index = index + 1
                                end
                            end
                            local randomNum = 0
                            if index == 1 then 
                                return 
                            else
                               randomNum =  math.random(1,index -1)
                            end
                            getID[i] = chipId[randomNum] 
						    local minCnt = tempConfig[2][1]
						    local maxCnt = tempConfig[2][2]
						    getCnt[i] = math.random(minCnt,maxCnt)
                            break
                        end
                        nowNum = nowNum - nowWeight
                    end
                    break
                else        -- 抽到其他物品
                    local allWeight = 0
				    for k, v in ipairs(tempConfig[1]) do 
					    allWeight = allWeight + v[2]
				    end
				    local nowNum = math.random(1, allWeight)
				    for k, v in ipairs(tempConfig[1]) do 
					    local nowWeight = v[2]
					    if nowNum <= nowWeight then 
						    getID[i] = v[1]
						    local minCnt = tempConfig[2][1]
						    local maxCnt = tempConfig[2][2]
						    getCnt[i] = math.random(minCnt,maxCnt)
						    break
					    end
					    nowNum = nowNum - nowWeight
				    end
				    break
                end
			end
			randNum = randNum - tempWeight
		end
	end
	return getID, getCnt
end

function zhihuanHero(star, camp,heroId)
    local xianzhiConfig = XianzhiExcel.xianzhi[camp]
    if not xianzhiConfig then return end

    local nextHero = nil
    local preStarConfig = xianzhiConfig.preStarFive
    if not preStarConfig then return end

    local totalWeight = 0
    for k, v in ipairs(preStarConfig) do
        totalWeight = totalWeight + v[2]
    end

    local randNum = math.random(1, totalWeight)
    for k, v in ipairs(preStarConfig) do
        tempWeight = v[2]
        if randNum <= tempWeight then
            local rate = v[1]
            local chipId = { }
            local index = 0
            for heroID, heroConfig in pairs(HeroExcel.hero) do
                if heroID ~= heroId and  heroConfig.camp == camp and heroConfig.zhihuanLv == rate then
                    index = index + 1
                    chipId[index] = heroID
                end
            end
			if index == 0 then 
				return
			end
            local randomNum = math.random(1, index)
            nextHero = chipId[randomNum]
            break
        end
        randNum = randNum - tempWeight
    end

    return nextHero
end


function preview(human, camp, star)
	local msgRet = Msg.gc.GC_XIANZHI_ZHIHUAN_PREVIEW
	
    if star < 5 then return end

	local xianzhiConfig = XianzhiExcel.xianzhi[camp]
	if not xianzhiConfig then return end
	local nextHero = nil
	local len = 0
	for k, v in ipairs (xianzhiConfig.preStarFive) do 
		if len >= 50 then
			break
		end
		local rate = v[1]
        for heroID,heroConfig in pairs(HeroExcel.hero) do
            if heroConfig.camp == camp and heroConfig.zhihuanLv == rate then
				len = len + 1
                HeroGrid.makeHeroSimpleByID(msgRet.heroSimple[len], heroID)
            end
        end
	end

	msgRet.heroSimple[0] = len
	Msg.send(msgRet, human.fd)
end

function shopQuery(human)
	local xianzhiShopCfg = XianzhiExcel.xianzhiShop
	local msgRet = Msg.gc.GC_XIANZHI_SHOP_QUERY
	
	--配置错误需要通知策划 或者分段传输
	local maxLength = 50
	if maxLength < #xianzhiShopCfg then 
		Broadcast.sendErr(human, Lang.SKIN_CONF_ERR)
		return
	end
	msgRet.currency[0] = 1 
	local totalCoin = BagLogic.getItemCnt(human,xianzhiOutPutId)
	Grid.makeItem(msgRet.currency[1],xianzhiOutPutId,totalCoin)
	local length = 0
	for id,cfg in pairs(xianzhiShopCfg) do
	    length = length + 1
	    --local goods = {}
	    msgRet.production[length].id = id
		msgRet.production[length].price = cfg.price
	    msgRet.production[length].goods[0] = 1
		Grid.makeItem(msgRet.production[length].goods[1],cfg.goods[1],cfg.goods[2])
	end
	msgRet.production[0] = length
	Msg.send(msgRet, human.fd)
end

function shopBuy(human,id,count)
	-- 判断道具是否足够
	local goodsCfg = XianzhiExcel.xianzhiShop[id]
	-- 
	if not goodsCfg then 
		return Broadcast.sendErr(human, Util.format(Lang.XIANZHI_GOODS_NOT_FOUND,id))
	end
	local  cnt = BagLogic.getItemCnt(human,xianzhiOutPutId)
	local needCnt = goodsCfg.price * count 
	if cnt < needCnt then 
		return Broadcast.sendErr(human, Util.format(Lang.XIANZHI_NO_ITEM,ItemDefine.getValue(xianzhiOutPutId,"name")))
	end
	-- 先扣款 再发道具
	BagLogic.delItem(human,xianzhiOutPutId,needCnt,"xianzhi_buy")
	BagLogic.addItemList(human,{{goodsCfg.goods[1],goodsCfg.goods[2] * count}},"xianzhi_buy")
	-- 同步客户端最新先知精华数量
	local msgRet = Msg.gc.GC_XIANZHI_SHOP_BUY
	msgRet.xianzhiCoin = BagLogic.getItemCnt(human,xianzhiOutPutId)
	Msg.send(msgRet, human.fd)
end