大富翁活动

meinvwudi

local XingYunDaFuWeng = {}
XingYunDaFuWeng.ID = "幸运大富翁"
local npcID = 158
--local config = include("QuestDiary/cfgcsv/cfg_XingYunDaFuWeng.lua") --配置

local GiveData = { [5]  = {"异界神石", 5},[10] = {"圣诞花环", 5},[15] = {"圣诞幸运星", 3},[20] = {"圣诞花环", 10},[25] = {"圣诞幸运星", 3},[30] = {"圣诞花环", 15},[35] = {"圣诞幸运星", 3},
                   [40] = {"圣诞花环", 20},[45] = {"圣诞幸运星", 3},[50] = {"大富翁礼包", 1}}

local NumData = {50000, 100000, 200000, 300000, 400000, 500000}
--获取数据
function XingYunDaFuWeng.getVariableState(actor)
    local num1 = getplaydef(actor, VarCfg["J_大富翁次数"])
    local num2 = getplaydef(actor, VarCfg["J_大富翁位置"])

    if num2 == 0 then
        setplaydef(actor, VarCfg["J_大富翁位置"], 1)
        num2 = getplaydef(actor, VarCfg["J_大富翁位置"])
    end
    return num1, num2
end

function fa_fang_jiang_li(actor,var)
    local var = tonumber(var)
    if GiveData[var] then
       giveitem(actor, GiveData[var][1], GiveData[var][2], ConstCfg.binding, "大富翁给与")
       Player.sendmsgEx(actor, "提示#251|:#255|恭喜你,获得|".. GiveData[var][1] .."#249|数量|x".. GiveData[var][2] .."#249|...")
    end
end

function checkitemex(actor)
    local time1 = getplaydef(actor, "N$大富翁时间戳")
    local time2 = os.time()
    if time1 == 0 then
        return true
    end

    if time2 - time1 >= 3 then
        return true
    else
        return false
    end
end


--[[  
函数名: XingYunDaFuWeng.Request
功能: 处理玩家投掷骰子请求，实现大富翁游戏的核心玩法
参数: 
    actor: 玩家对象
    var: 骰子类型(1:普通骰子, 2:金骰子)
实现逻辑:
    1. 状态检查
        - 检查玩家是否在移动中(checkitemex)
        - 验证是否已到达终点(位置>=50)
    2. 普通骰子(var=1)处理
        a) 前5次免费:
            - 增加使用次数
            - 随机1-6步数
            - 更新位置并同步
        b) 5次后收费:
            - 计算元宝消耗(根据NumData表)
            - 检查并扣除元宝
            - 随机1-6步数
            - 更新位置并同步
    3. 金骰子(var=2)处理
        - 检查非绑灵符是否足够(200枚)
        - 扣除非绑灵符
        - 固定前进6步
        - 更新位置并同步
    4. 奖励发放
        - 发送动画消息(XingYunDaFuWeng_PlayAnimation)
        - 同步状态(SyncResponse)
        - 延迟3秒发放奖励(delaygoto)
        - 更新时间戳
注意事项:
    - 普通骰子前5次免费，之后需要消耗元宝
    - 金骰子固定消耗200非绑灵符
    - 位置达到50为终点，新的一天重置
    - 使用delaygoto延迟发放奖励，确保动画播放完成
    - 通过时间戳控制投骰子间隔，防止连续点击
]]


function XingYunDaFuWeng.Request(actor, var)
    
    if not checkitemex(actor) then
        Player.sendmsgEx(actor,"[提示]:#251|人物移动中,请等待结束...")
        return
    end


    local num1, num2 = XingYunDaFuWeng.getVariableState(actor)
    if num2 >= 50 then
        Player.sendmsgEx(actor,"[提示]:#251|你今天已经|到达终点#249|请明天再来...")
        return
    end
    --普通骰子
    if var == 1 then
        if num1 >= 5 then
            local _num = num1 - 5 + 1
            local num = (_num >= 6 and 6) or _num
            local CostNum = NumData[num]
            local cost = {{"元宝", CostNum}}

            local ItemName, ItemNum = Player.checkItemNumByTable(actor, cost)
            if ItemName then
                Player.sendmsgEx(actor, string.format("[提示]:#251|对不起,你的|%s#249|不足|%d枚#249|投掷失败...", ItemName, ItemNum))
                return
            end

            Player.takeItemByTable(actor, cost, "大富翁骰子")

            setplaydef(actor, VarCfg["J_大富翁次数"], num1 + 1)
            local Steps = math.random(1, 6) --步数
            -- local Steps = 4 --步数
            local site = (num2 + Steps >= 50 and 50) or num2 + Steps
            setplaydef(actor, VarCfg["J_大富翁位置"], site)
            Message.sendmsg(actor, ssrNetMsgCfg.XingYunDaFuWeng_PlayAnimation, num2, site, Steps, nil)
            XingYunDaFuWeng.SyncResponse(actor)
            delaygoto(actor, 3000, "fa_fang_jiang_li,"..site)
            setplaydef(actor, "N$大富翁时间戳", os.time())
        else
            num1 = num1 + 1
            setplaydef(actor, VarCfg["J_大富翁次数"], num1)
            local Steps = math.random(1, 6) --步数
            -- local Steps = 4 --步数
            local site = (num2 + Steps >= 50 and 50) or num2 + Steps
            setplaydef(actor, VarCfg["J_大富翁位置"], site)
            Message.sendmsg(actor, ssrNetMsgCfg.XingYunDaFuWeng_PlayAnimation, num2, site, Steps, nil)
            XingYunDaFuWeng.SyncResponse(actor)
            delaygoto(actor, 3000, "fa_fang_jiang_li,"..site)
            setplaydef(actor, "N$大富翁时间戳", os.time())
        end
    end

    --金骰子
    if var == 2 then
        if querymoney(actor, 7) < 200 then
            Player.sendmsgEx(actor,"[提示]:#251|对不起,你的|非绑灵符#249|不足|200枚#249|投掷失败...")
            return
        end
        changemoney(actor, 7, "-", 200, "购买大富翁骰子", true)
        local Steps = 6 --步数
        local site = (num2 + Steps >= 50 and 50) or num2 + Steps
        setplaydef(actor, VarCfg["J_大富翁位置"], site)
        Message.sendmsg(actor, ssrNetMsgCfg.XingYunDaFuWeng_PlayAnimation, num2, site, Steps, nil)
        XingYunDaFuWeng.SyncResponse(actor)
        delaygoto(actor, 3000, "fa_fang_jiang_li,"..site)
        setplaydef(actor, "N$大富翁时间戳", os.time())
    end
end


--同步消息
function XingYunDaFuWeng.SyncResponse(actor, logindatas)
    local num1, num2 = XingYunDaFuWeng.getVariableState(actor)
    local _login_data = {ssrNetMsgCfg.XingYunDaFuWeng_SyncResponse, 0, 0, 0, {num1, num2}}
    if logindatas then
        table.insert(logindatas, _login_data)
    else
        Message.sendmsg(actor, ssrNetMsgCfg.XingYunDaFuWeng_SyncResponse, 0, 0, 0, {num1, num2})
    end
end

--登录触发
local function _onLoginEnd(actor, logindatas)
    XingYunDaFuWeng.SyncResponse(actor, logindatas)
end
GameEvent.add(EventCfg.onLoginEnd, _onLoginEnd, XingYunDaFuWeng)

--0:0:10 新的一天触发
local function _onNewDay(actor)
    XingYunDaFuWeng.SyncResponse(actor)
end
GameEvent.add(EventCfg.onNewDay, _onNewDay, XingYunDaFuWeng)


--注册网络消息
Message.RegisterNetMsg(ssrNetMsgCfg.XingYunDaFuWeng, XingYunDaFuWeng)
return XingYunDaFuWeng

meinvwudi

XingYunDaFuWengOBJ = {}
XingYunDaFuWengOBJ.__cname = "XingYunDaFuWengOBJ"
--XingYunDaFuWengOBJ.config = ssrRequireCsvCfg("cfg_XingYunDaFuWeng")
XingYunDaFuWengOBJ.give = {{"异界神石", 5},{"圣诞花环", 5},{"圣诞幸运星", 3},{"圣诞花环", 10},{"圣诞幸运星", 3},{"圣诞花环", 15},{"圣诞幸运星", 3},{"圣诞花环", 20},{"圣诞幸运星", 3},{"大富翁礼包", 1}}

XingYunDaFuWengOBJ.NumData = {5, 10, 20, 30, 40, 50}



-------------------------------↓↓↓ UI操作 ↓↓↓---------------------------------------
function XingYunDaFuWengOBJ: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, -20)
    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.OpenButton, function()
        local bool = GUI:getVisible(self.ui.Button_All)
        if bool then
            GUI:setVisible(self.ui.Button_All, false)
        else
            GUI:setVisible(self.ui.Button_All, true)
        end
    end)

    GUI:addOnClickEvent(self.ui.Button_1, function()
        ssrMessage:sendmsg(ssrNetMsgCfg.XingYunDaFuWeng_Request, 1)
    end)

    GUI:addOnClickEvent(self.ui.Button_2, function()
        ssrMessage:sendmsg(ssrNetMsgCfg.XingYunDaFuWeng_Request, 2)
    end)
    for i, v in ipairs(self.give) do
        --[[  
        显示奖励物品图标:
        1. 使用ssrAddItemListX函数在UI上显示物品图标
        2. 参数说明:
           - self.ui["ItemShow_".. i * 5]: 获取每5格位置的物品显示节点
           - {v}: 传入物品数据表，包含物品名称和数量
           - "奖励1": 显示标题
           - {imgRes = ""}: 自定义背景图配置，此处使用默认背景
        3. 注意事项:
           - i * 5确保物品图标间隔均匀显示
           - 物品数据来自self.give表格
           - 每个位置显示对应的物品和数量信息
        ]]
        ssrAddItemListX(self.ui["ItemShow_".. i * 5], {v},"奖励1",{imgRes = ""})
    end

    self:UpdateUI()
    self:InitialSite()
end

function XingYunDaFuWengOBJ:InitialSite()
    --local AllTbl = GUI:getChildren(self.ui.Node_All)
    --for _, v in ipairs(AllTbl) do
    --    GUI:removeAllChildren(v)
    --end
    --绘制所在点的动画
    local SiteNum = self.data[2]
	local SiteEffects = GUI:Frames_Create(self.ui["Panel_"..SiteNum], "SiteEffects", 30.00, 40.00, "res/custom/ShuangJieHuoDongMain/XingYunDaFuWeng/rwj/tx", ".png", 1, 8, {count=8, speed=100, loop=-1, finishhide=0})
	GUI:setAnchorPoint(SiteEffects, 0.50, 0.50)
end


function XingYunDaFuWengOBJ:UpdateUI()

    if self.data[1] >= 5 then
        local _num = self.data[1] - 5 + 1
        local num = (_num >= 6 and 6) or _num
        SL:Print(self.data[1],_num,num)
        local NumShow = self.NumData[num]
        GUI:Text_setString(self.ui.ShaiZiLooks_1,NumShow .."万元宝一次")
    else
        GUI:Text_setString(self.ui.ShaiZiLooks_1,"免费:".. self.data[1] .."/5")
    end

    --清空所有节点的动画
end

--转动骰子
function XingYunDaFuWengOBJ:PlayAnimation(OldSite, NewSite, Steps, data)
    local imgnum = 12 + Steps
	local Frames_1 = GUI:Frames_Create(self.ui.ShaiZiShow, "Frames_1", 30.00, 47.00, "res/custom/ShuangJieHuoDongMain/XingYunDaFuWeng/sztx/sz", ".png", 1, imgnum, {count=imgnum, speed=50, loop=1, finishhide=0})
	GUI:setAnchorPoint(Frames_1, 0.50, 0.50)
    SL:scheduleOnce(self.ui.ImageBG, function()
        GUI:removeAllChildren(self.ui.ShaiZiShow) --清空骰子的动画
        GUI:removeAllChildren(self.ui["Panel_"..OldSite]) --删除原有动画
        local SiteEffects = GUI:Frames_Create(self.ui["Panel_"..OldSite], "SiteEffects1", 30.00, 89.00, "res/custom/ShuangJieHuoDongMain/XingYunDaFuWeng/rwt/tx", ".png", 1, 8, {count=8, speed=100, loop=1, finishhide=1})
        GUI:setAnchorPoint(SiteEffects, 0.50, 0.50)

            SL:scheduleOnce(self.ui.ImageBG, function()--开启一个定时器 绘制落点动画
                local SiteEffects = GUI:Frames_Create(self.ui["Panel_".. NewSite], "SiteEffects2", 30.00, 89.00, "res/custom/ShuangJieHuoDongMain/XingYunDaFuWeng/rwl/tx", ".png", 1, 8, {count=8, speed=100, loop=1, finishhide=1})
                GUI:setAnchorPoint(SiteEffects, 0.50, 0.50)

                SL:scheduleOnce(self.ui.ImageBG, function()--开启一个定时器 落完后 绘制固定动画
                    GUI:removeAllChildren(self.ui["Panel_".. NewSite]) --删除原有动画
                    local SiteEffects = GUI:Frames_Create(self.ui["Panel_"..NewSite], "SiteEffects", 30.00, 40.00, "res/custom/ShuangJieHuoDongMain/XingYunDaFuWeng/rwj/tx", ".png", 1, 8, {count=8, speed=100, loop=-1, finishhide=0})
                    GUI:setAnchorPoint(SiteEffects, 0.50, 0.50)
                end , 0.5)
            end , 0.5)
    end , 2)
end





-------------------------------↓↓↓ 网络消息 ↓↓↓---------------------------------------
function XingYunDaFuWengOBJ:SyncResponse(arg1, arg2, arg3, data)
    self.data = data
    if GUI:GetWindow(nil, self.__cname) then
        self:UpdateUI()
    end
end
return XingYunDaFuWengOBJ