钓鱼大师活动

meinvwudi

local DiaoYuDaShi = {}
DiaoYuDaShi.ID = "钓鱼大师"
local npcID = 160
local config = include("QuestDiary/cfgcsv/cfg_DiaoYuDaShi.lua") --配置
--增加一个钓位
local cost = { { "元宝", 2000000 } }
local give = { {} }
--免费次数
local freeCount = 10
--购买次数
local buyCount = 30

--[[
函数名: diao_yu_shou_huo
功能: 处理钓鱼收获逻辑，根据玩家鱼竿数量计算并发放奖励
参数说明:
    actor - 玩家对象
实现逻辑:
    1. 状态检查
        - 验证玩家是否处于钓鱼状态(N$钓鱼状态 == 1)
    2. 奖励计算
        - 获取玩家鱼竿数量(最多3个位置)
        - 根据鱼竿数量构建不同权重表(weight1/weight2/weight3)
        - 使用ransjstr随机抽取奖励索引
    3. 奖励发放
        - 根据随机索引从配置表获取奖励内容
        - 通过邮件系统发送奖励(标题:"鱼获奖励")
        - 发送客户端提示消息
    4. 状态更新
        - 发送收获消息到客户端(DiaoYuDaShi_ShouHuo)
        - 重置钓鱼状态为0
        - 同步最新状态到客户端
注意事项:
    - 奖励随机权重根据鱼竿数量分为三档
    - 每个位置的奖励独立计算
    - 所有奖励通过邮件系统发放
]]



function diao_yu_shou_huo(actor)
    if getplaydef(actor, "N$钓鱼状态") == 1 then
        local fishingRodNum = getplaydef(actor, VarCfg["B_鱼竿数量"]) + 1
        local weight1 = {}
        local weight2 = {}
        local weight3 = {}
        for index, value in ipairs(config) do
            -- 基础钓位必定存在(fishingRodNum > 0)
            if fishingRodNum > 0 then
                table.insert(weight1, string.format("%s#%s", index, value.weight1))
            end
            -- 如果有第二个鱼竿(fishingRodNum > 1)
            if fishingRodNum > 1 then
                table.insert(weight2, string.format("%s#%s", index, value.weight2))
            end
            -- 如果有第三个鱼竿(fishingRodNum > 2)
            if fishingRodNum > 2 then
                table.insert(weight3, string.format("%s#%s", index, value.weight3))
            end
        end

        local resultIndex1
        local resultIndex2
        local resultIndex3
        if #weight1 > 0 then
            resultIndex1 = ransjstr(table.concat(weight1, "|"), 1, 3)
        end
        if #weight2 > 0 then
            resultIndex2 = ransjstr(table.concat(weight2, "|"), 1, 3)
        end
        if #weight3 > 0 then
            resultIndex3 = ransjstr(table.concat(weight3, "|"), 1, 3)
        end

        -- ["1#20","2#15","3#5","4#5","5#25","6#5","7#2","8#3","9#5","10#5","11#10"]
        -- ["沙丁鱼",1]
        local gives = {}
        if resultIndex1 then
            local cfg = config[tonumber(resultIndex1)]
            table.insert(gives, cfg.give[1])
        end
        if resultIndex2 then
            local cfg = config[tonumber(resultIndex2)]
            table.insert(gives, cfg.give[1])
        end
        if resultIndex3 then
            local cfg = config[tonumber(resultIndex3)]
            table.insert(gives, cfg.give[1])
        end
        -- dump(gives)
        --发送钓鱼结果到邮箱
        local uid = Player.GetUUID(actor)
        Player.giveMailByTable(uid, 1, "鱼获奖励", "请领取您的鱼获奖励", gives, 1, true)
        Player.sendmsgEx(actor, "鱼获奖励已发送到邮箱")
        Message.sendmsg(actor, ssrNetMsgCfg.DiaoYuDaShi_ShouHuo, 0, 0, 0, gives)
        setplaydef(actor, "N$钓鱼状态", 0)
        DiaoYuDaShi.SyncResponse(actor)
    end
end

--[[
函数名: DiaoYuDaShi.Request
功能: 处理玩家开始钓鱼的请求
参数说明:
    actor - 玩家对象
实现逻辑:
    1. 状态检查
        - 检查玩家是否已在钓鱼状态（N$钓鱼状态 == 1）
        - 如果已在钓鱼则发送提示并返回
    2. 次数验证
        - 获取已购买次数（VarCfg["B_购买的次数"]）
        - 获取今日已钓鱼次数（VarCfg["J_今日钓鱼次数"]）
        - 计算剩余免费次数（freeCount - toDayFishingCount）
        - 计算总剩余次数（免费次数 + 购买次数）
    3. 次数更新
        - 如果有免费次数，增加今日钓鱼次数
        - 否则减少购买的次数
        - 更新今日钓鱼总次数统计
    4. 开始钓鱼
        - 同步客户端状态（DiaoYuDaShi.SyncResponse）
        - 发送开始钓鱼消息（DiaoYuDaShi_StartFishing）
        - 设置钓鱼状态为1
        - 延迟6秒后执行收获函数（diao_yu_shou_huo）
注意事项:
    - 使用#249作为消息颜色代码
    - 通过delaygoto实现延迟收获
    - 使用多个变量记录不同类型的次数统计
]]
--接收请求 开始钓鱼
function DiaoYuDaShi.Request(actor)
    if getplaydef(actor, "N$钓鱼状态") == 1 then
        Player.sendmsgEx(actor, "你已经在钓鱼了#249")
        return
    end
    --购买的次数
    local buyFishingNum = getplaydef(actor, VarCfg["B_购买的次数"])
    --今日钓鱼次数
    local toDayFishingCount = getplaydef(actor, VarCfg["J_今日钓鱼次数"])
    --剩余免费次数
    local _freeCount = freeCount - toDayFishingCount
    --剩余总次数
    local totalCount = _freeCount + buyFishingNum
    if totalCount <= 0 then
        Player.sendmsgEx(actor, "你已经没有次数了#249")
        return
    end
    if _freeCount > 0 then
        setplaydef(actor, VarCfg["J_今日钓鱼次数"], toDayFishingCount + 1)
    else
        setplaydef(actor, VarCfg["B_购买的次数"], buyFishingNum - 1)
    end
    setplaydef(actor, VarCfg["J_今日钓鱼总次数"], getplaydef(actor, VarCfg["J_今日钓鱼总次数"]) + 1)
    DiaoYuDaShi.SyncResponse(actor)
    Message.sendmsg(actor, ssrNetMsgCfg.DiaoYuDaShi_StartFishing)
    setplaydef(actor, "N$钓鱼状态", 1)
    delaygoto(actor, 6000, "diao_yu_shou_huo")
end

--购买位置
function DiaoYuDaShi.BuyPos(actor)
    local name, num = Player.checkItemNumByTable(actor, cost)
    if name then
        Player.sendmsgEx(actor, string.format("添加鱼竿失败，你的|%s#249|不足|%d#249", name, num))
        return
    end

    local fishingRodNum = getplaydef(actor, VarCfg["B_鱼竿数量"])
    if fishingRodNum >= 2 then
        Player.sendmsgEx(actor, "最多只能添加2个鱼竿#249")
        return
    end
    Player.takeItemByTable(actor, cost, "购买鱼竿")
    setplaydef(actor, VarCfg["B_鱼竿数量"], fishingRodNum + 1)
    Player.sendmsgEx(actor, "添加鱼竿成功")
    DiaoYuDaShi.SyncResponse(actor)
end

--购买钓鱼次数
function DiaoYuDaShi.BuyCount(actor)
    if querymoney(actor, 7) < 100 then
        Player.sendmsgEx(actor, "你的|非绑定灵符#249|不足|100#249")
        return
    end
    --今日购买次数
    local toDayBuyCount = getplaydef(actor, VarCfg["J_今日钓鱼购买次数"])
    if toDayBuyCount >= buyCount then
        Player.sendmsgEx(actor, "每天最多只能购买30次#249")
        return
    end
    local fishingNum = getplaydef(actor, VarCfg["B_购买的次数"])
    changemoney(actor, 7, "-", 100, "购买钓鱼次数", true)
    setplaydef(actor, VarCfg["B_购买的次数"], fishingNum + 1)
    setplaydef(actor, VarCfg["J_今日钓鱼购买次数"], toDayBuyCount + 1)
    Player.sendmsgEx(actor, "购买钓鱼次数成功")
    DiaoYuDaShi.SyncResponse(actor)
end

--[[  
函数名: DiaoYuDaShi.SyncResponse
功能: 同步钓鱼大师活动的状态数据到客户端
参数说明:
    actor - 玩家对象
    logindatas - 登录数据表，用于登录时批量同步数据（可选参数）
实现逻辑:
    1. 获取玩家状态数据
        - 今日购买钓鱼次数（J_今日钓鱼购买次数）
        - 鱼竿数量（B_鱼竿数量）
        - 今日钓鱼总次数（J_今日钓鱼总次数）
        - 已购买的次数（B_购买的次数）
    2. 组装同步数据包
        - 将所有数据打包成_login_data表
        - 使用DiaoYuDaShi_SyncResponse消息ID
    3. 发送数据
        - 如果是登录同步，将数据插入logindatas表
        - 否则直接发送消息到客户端
注意事项:
    - 该函数在多处被调用：登录时、每日重置时、状态变更时
    - 确保客户端UI显示的数据与服务器保持一致
    - 支持批量同步和单独同步两种模式
]]


--同步消息
function DiaoYuDaShi.SyncResponse(actor, logindatas)
    local fishingNum = getplaydef(actor, VarCfg["J_今日钓鱼购买次数"])
    local data = {fishingNum}
    local fishingRodNum = getplaydef(actor, VarCfg["B_鱼竿数量"])
    local toDayFishingCount = getplaydef(actor, VarCfg["J_今日钓鱼总次数"])
    local buyFishingNum = getplaydef(actor, VarCfg["B_购买的次数"])
    local _login_data = { ssrNetMsgCfg.DiaoYuDaShi_SyncResponse, fishingRodNum, toDayFishingCount, buyFishingNum, data }
    if logindatas then
        table.insert(logindatas, _login_data)
    else
        Message.sendmsg(actor, ssrNetMsgCfg.DiaoYuDaShi_SyncResponse, fishingRodNum, toDayFishingCount, buyFishingNum,
            data)
    end
end

--登录触发
local function _onLoginEnd(actor, logindatas)
    DiaoYuDaShi.SyncResponse(actor, logindatas)
end
--事件派发
GameEvent.add(EventCfg.onLoginEnd, _onLoginEnd, DiaoYuDaShi)
local function _onNewDay(actor)
    DiaoYuDaShi.SyncResponse(actor)
end
GameEvent.add(EventCfg.onNewDay, _onNewDay, DiaoYuDaShi)
--注册网络消息
Message.RegisterNetMsg(ssrNetMsgCfg.DiaoYuDaShi, DiaoYuDaShi)
return DiaoYuDaShi

meinvwudi

local config = {
	[1] = {
		give = {
			[1] = {
				[1] = "罗非鱼",
				[2] = 1,
			},
		},
		weight1 = 20,
		weight2 = 20,
		weight3 = 20,
	},
	[2] = {
		give = {
			[1] = {
				[1] = "沙丁鱼",
				[2] = 1,
			},
		},
		weight1 = 15,
		weight2 = 15,
		weight3 = 15,
	},
	[3] = {
		give = {
			[1] = {
				[1] = "三文鱼",
				[2] = 1,
			},
		},
		weight1 = 5,
		weight2 = 5,
		weight3 = 5,
	},
	[4] = {
		give = {
			[1] = {
				[1] = "石斑鱼",
				[2] = 1,
			},
		},
		weight1 = 5,
		weight2 = 5,
		weight3 = 5,
	},
	[5] = {
		give = {
			[1] = {
				[1] = "圣诞花环",
				[2] = 1,
			},
		},
		weight1 = 25,
		weight2 = 20,
		weight3 = 20,
	},
	[6] = {
		give = {
			[1] = {
				[1] = "圣诞老人的靴子",
				[2] = 1,
			},
		},
		weight1 = 5,
		weight2 = 10,
		weight3 = 10,
	},
	[7] = {
		give = {
			[1] = {
				[1] = "无主的宝箱",
				[2] = 1,
			},
		},
		weight1 = 2,
		weight2 = 2,
		weight3 = 2,
	},
	[8] = {
		give = {
			[1] = {
				[1] = "金手指",
				[2] = 1,
			},
		},
		weight1 = 3,
		weight2 = 3,
		weight3 = 3,
	},
	[9] = {
		give = {
			[1] = {
				[1] = "时空门票",
				[2] = 1,
			},
		},
		weight1 = 5,
		weight2 = 5,
		weight3 = 5,
	},
	[10] = {
		give = {
			[1] = {
				[1] = "异界神石",
				[2] = 1,
			},
		},
		weight1 = 5,
		weight2 = 10,
		weight3 = 10,
	},
	[11] = {
		give = {
			[1] = {
				[1] = "1元充值红包",
				[2] = 1,
			},
		},
		weight1 = 10,
		weight2 = 5,
		weight3 = 5,
	},
}
return config

meinvwudi

前端界面

DiaoYuDaShiOBJ = {}
DiaoYuDaShiOBJ.__cname = "DiaoYuDaShiOBJ"
--DiaoYuDaShiOBJ.config = ssrRequireCsvCfg("cfg_DiaoYuDaShi")
DiaoYuDaShiOBJ.cost = {{}}
DiaoYuDaShiOBJ.give = {{}}
--鱼竿位置
DiaoYuDaShiOBJ.fishing_pos = {
    {330,90},
    {196,108},
    {70,128},
}
local startFishingPath = "res/custom/ShuangJieHuoDongMain/DiaoYuDaShi/start/tx_"
local holdFishingPath = "res/custom/ShuangJieHuoDongMain/DiaoYuDaShi/hold/tx_"
local endFishingPath = "res/custom/ShuangJieHuoDongMain/DiaoYuDaShi/end/tx_"
-------------------------------↓↓↓ UI操作 ↓↓↓---------------------------------------
function DiaoYuDaShiOBJ:main(objcfg)
    local parent = GUI:Win_Create(self.__cname, 0, 0, 0, 0, false, false, true, true, true, objcfg.NPCID)
    GUI:LoadExport(parent, objcfg.UI_PATH)
    self._parent = parent
    self.ui = GUI:ui_delegate(parent)
    ssrSetWidgetPosition(parent, self.ui.ImageBG, 2,0)
    GUI:addOnClickEvent(self.ui.ImageBG, function()
        --ssrPrint("我是防点击穿透")
    end)
    --关闭按钮
    GUI:addOnClickEvent(self.ui.CloseButton, function()
        GUI:Win_Close(self._parent)
    end)
    -- 打开窗口缩放动画
    GUI:Timeline_Window1(self._parent)
    --网络消息示例
    GUI:addOnClickEvent(self.ui.Button_1, function()
        ssrMessage:sendmsg(ssrNetMsgCfg.DiaoYuDaShi_Request)
    end)
    GUI:addOnClickEvent(self.ui.Button_3, function()
        GUI:setVisible(self.ui.Panel_addFishingRod, true)
    end)
    GUI:addOnClickEvent(self.ui.Panel_addFishingRod, function()
        GUI:setVisible(self.ui.Panel_addFishingRod, false)
    end)
    GUI:addOnClickEvent(self.ui.Button_addFishingRodClose, function()
        GUI:setVisible(self.ui.Panel_addFishingRod, false)
    end)
    --关闭鱼获
    GUI:addOnClickEvent(self.ui.Panel_shouHuo, function()
        GUI:setVisible(self.ui.Panel_shouHuo, false)
    end)
    GUI:addOnClickEvent(self.ui.Button_ShouHuoClose, function()
        GUI:setVisible(self.ui.Panel_shouHuo, false)
    end)
    --购买位置
    GUI:addOnTouchEvent(self.ui.Panel_gouMaiCiShu, function()
        GUI:setVisible(self.ui.Panel_gouMaiCiShu, false)
    end)
    GUI:addOnTouchEvent(self.ui.Button_gouMaiCiShuClose, function()
        GUI:setVisible(self.ui.Panel_gouMaiCiShu, false)
    end)
    GUI:addOnTouchEvent(self.ui.Button_2, function()
        GUI:setVisible(self.ui.Panel_gouMaiCiShu, true)
    end)

    --[[  
    功能: 处理购买钓鱼次数按钮的点击事件
    实现逻辑:
        1. 创建确认弹窗数据
            - 设置提示文本（花费100非绑灵符）
            - 设置按钮类型为2（确认/取消）
        2. 设置确认回调函数
            - 当玩家点击确认(atype == 1)时
            - 发送购买次数请求(DiaoYuDaShi_BuyCount)
        3. 显示确认弹窗
            - 使用通用提示弹窗组件(OpenCommonTipsPop)
    注意事项:
        - 使用通用弹窗组件避免重复创建UI
        - 只在玩家确认后才发送网络请求
        - 购买费用固定为100非绑灵符
    ]]

    GUI:addOnTouchEvent(self.ui.Button_gouMaiCiShu, function()
        local data = {}
        data.str = "确定花费[100非绑灵符]增加次数？"
        data.btnType = 2
        data.callback = function(atype, param)
            if atype == 1 then
                ssrMessage:sendmsg(ssrNetMsgCfg.DiaoYuDaShi_BuyCount)
            end
        end
        SL:OpenCommonTipsPop(data)
    end)

    --购买钓位
    GUI:addOnClickEvent(self.ui.Button_buyFishingRod, function()
        local data = {}
        data.str = "确定花费[200W元宝]购买钓位？"
        data.btnType = 2
        data.callback = function(atype, param)
            if atype == 1 then
                ssrMessage:sendmsg(ssrNetMsgCfg.DiaoYuDaShi_BuyPos)
            end
        end
        SL:OpenCommonTipsPop(data)
    end)
    
    self:ShowUI()
    self:UpdateUI()
end

--[[  
函数名: DiaoYuDaShiOBJ:StartFishing
功能: 实现钓鱼动画和进度条显示
实现逻辑:
    1. 开始钓鱼动画
        - 设置动画参数(count=5, speed=200, loop=1)
        - 清除现有鱼竿节点
        - 根据鱼竿数量创建开始钓鱼动画
        - 使用startFishingPath路径加载动画资源
    2. 进度条更新
        - 初始化进度值为0
        - 创建updateJindu函数递归更新进度
        - 每0.04秒更新一次进度条和文本显示
        - 进度达到100%时停止更新
    3. 持续钓鱼动画
        - 0.9秒后切换到持续钓鱼动画
        - 设置新动画参数(count=2, speed=200, loop=-1)
        - 使用holdFishingPath路径加载动画资源
        - 显示进度条面板并开始进度更新
参数说明:
    无输入参数
注意事项:
    - 动画资源路径通过全局变量startFishingPath和holdFishingPath指定
    - 鱼竿位置使用预设的fishing_pos数组
    - loop=-1表示无限循环播放动画
    - 进度条更新间隔为0.04秒
]]


--显示界面
function DiaoYuDaShiOBJ:ShowUI()
    local ext = {
        count = 20,
        speed = 100,
        loop  =  -1,
        finishhide = 0
    }
    GUI:Frames_Create(self.ui.Node_1, "frame_bg", 0, 0, "res/custom/ShuangJieHuoDongMain/DiaoYuDaShi/frames/bg_", ".png", 1, 20,ext)
end

--开始钓鱼
function DiaoYuDaShiOBJ:StartFishing()
    local ext = {
        count = 5,
        speed = 200,
        loop  =  1,
        finishhide = 1
    }
    GUI:removeAllChildren(self.ui.Node_fishingRod)
    for i = 1, self.fishingRodNum do
        local pos = self.fishing_pos[i]
        GUI:Frames_Create(self.ui.Node_fishingRod, "fishingRod_"..i, pos[1], pos[2], startFishingPath, ".png", 1, 5,ext)
    end
    
    local jindu = 0
    local function updateJindu()
        jindu = jindu + 1
        GUI:LoadingBar_setPercent(self.ui.LoadingBar_1, jindu)
        GUI:Text_setString(self.ui.Text_jinDuFont, "钓鱼中.."..jindu.."%")
        SL:scheduleOnce(self.ui.Node_fishingRod, function()
            if jindu < 100 then
                updateJindu()
            end
        end, 0.04)
    end
    SL:ScheduleOnce(function()
        ext = {
            count = 2,
            speed = 200,
            loop  =  -1,
            finishhide = 1
        }
        for i = 1, self.fishingRodNum do
            local pos = self.fishing_pos[i]
            GUI:Frames_Create(self.ui.Node_fishingRod, "holdFishingRod_"..i, pos[1], pos[2], holdFishingPath, ".png", 1, 2,ext)
        end
        GUI:setVisible(self.ui.Panel_jinDu, true)
        updateJindu()
    end, 0.9)
end

--[[  
函数名: DiaoYuDaShiOBJ:UpdateUI
功能: 更新钓鱼大师界面的显示状态
实现逻辑:
    1. 界面状态处理
        - 检查并隐藏添加鱼竿面板（如果显示）
        - 清除所有鱼竿节点的子节点
    2. 鱼竿显示更新
        - 根据当前鱼竿数量(fishingRodNum)创建对应数量的鱼竿图标
        - 使用fishing_pos数组中预设的位置放置鱼竿图标
        - 使用startFishingPath路径加载鱼竿图片资源
    3. 添加按钮位置调整
        - 根据鱼竿数量(1个/2个/3个)调整Button_3的位置
        - 当鱼竿数量为1时，设置位置(420,186)
        - 当鱼竿数量为2时，设置位置(283,186)
        - 当鱼竿数量为3时，隐藏按钮
    4. 文本显示更新
        - 计算剩余可钓鱼次数（免费次数10减去已使用次数）
        - 显示总剩余次数（剩余免费次数加上购买的次数）
        - 显示今日剩余可购买次数（30减去已购买次数）
注意事项:
    - 鱼竿位置使用预设的坐标数组
    - 免费钓鱼次数上限为10次
    - 每日购买次数上限为30次
    - 界面元素位置根据鱼竿数量动态调整
]]

function DiaoYuDaShiOBJ:UpdateUI()
    --如果界面显示则隐藏
    if GUI:getVisible(self.ui.Panel_addFishingRod) then
        GUI:setVisible(self.ui.Panel_addFishingRod, false)
    end
    GUI:removeAllChildren(self.ui.Node_fishingRod)
    for i = 1, self.fishingRodNum do
        local pos = self.fishing_pos[i]
        if pos then
            GUI:Image_Create(self.ui.Node_fishingRod, "Image_"..i, pos[1], pos[2], startFishingPath.."1.png")
        end
    end
    if self.fishingRodNum == 1 then
          GUI:setPosition(self.ui.Button_3, 420, 186)
    elseif self.fishingRodNum == 2 then
        GUI:setPosition(self.ui.Button_3, 283, 186)
    else
        GUI:setVisible(self.ui.Button_3, false)
    end
    local shengYuCiShu = 10 - self.toDayFishingCount
    if shengYuCiShu <= 0 then
        shengYuCiShu = 0
    end
    GUI:Text_setString(self.ui.Text_1, shengYuCiShu + self.buyFishingNum)
    GUI:Text_setString(self.ui.Text_sygmcs, string.format("今日还可购买%d次", 30 - self.fishingNum))
end

function DiaoYuDaShiOBJ:ShouHuo(arg1, arg2, arg3, data)
    GUI:setVisible(self.ui.Panel_jinDu, false)
    GUI:setVisible(self.ui.Panel_shouHuo, true)
    ssrAddItemListX(self.ui.Panel_shouHuoShou, data, "item_list", {spacing = 49, imgRes = "res/custom/ShuangJieHuoDongMain/DiaoYuDaShi/itembg.png"})
    GUI:Timeline_Window1(self.ui.Image_5)
    GUI:removeAllChildren(self.ui.Node_fishingRod)
end

-------------------------------↓↓↓ 网络消息 ↓↓↓---------------------------------------
function DiaoYuDaShiOBJ:SyncResponse(arg1, arg2, arg3, data)
    self.fishingRodNum = arg1 + 1
    self.toDayFishingCount = arg2
    self.buyFishingNum = arg3
    self.fishingNum = data[1]
    if GUI:GetWindow(nil, self.__cname) then
        self:UpdateUI()
    end
end
return DiaoYuDaShiOBJ