加群礼包lua实现

meinvwudi

前端发消息：ui\mainui\MainUI.lua

    --入群礼包
    ssrAddTouchEventListener({
        widget      = self.ui.btn_top_icon_5, 
        callback    = function()
            ssrMessage:sendmsg(ssrNetMsgCfg.Global_RequestOpenTTSQ)
        end,
        scale       = 0.75
    })

消息配置

ssrNetMsgCfg.Global_RequestOpenTTSQ         = 1008      --请求打开天天省钱

meinvwudi

服务端接收消息并处理

ssrNetMsgCfg.Global_RequestOpenTTSQ         = 1008      --请求打开天天省钱

处理消息方法：D:\MirServer-lua-study\Mir200\Envir\QuestDiary\game\Global.lua

--请求打开天天省钱
function Global.RequestOpenTTSQ(actor)
    qqgiftbox(actor)
end
-------------------------------监听网络---------------------------------------
Message.RegisterNetMsg(ssrNetMsgCfg.Global, Global)

meinvwudi

加群礼包处理D:\MirServer-lua-study\Mir200\Envir\Market_Def\QFunction-0.lua

------------------------------------------------------------
--QQ礼包
function qqgiftbox(actor)
    local qlibao = cfg_libao
     --if getplaydef(actor, "S$qqlibaomima") == "" then
    setplaydef(actor, "S$qqlibaomima", qlibao[1].mima)
    --end
--if getplaydef(actor, "N$libaoitem_count") == 0 then
    setplaydef(actor, "N$libaoitem_count", #qlibao[1].items)
    setplaydef(actor, "S$qqerweima", qlibao[1].bianhao)
    setplaydef(actor, "S$qqqunhao", qlibao[1].qun)
    setplaydef(actor, "S$qqqunkey", qlibao[1].key)
    for l1=1, #qlibao[1].items do
        setplaydef(actor, "S$libaoitem_"..l1, qlibao[1].items[l1][1])
        setplaydef(actor, "N$libaoitem_"..l1, qlibao[1].items[l1][2])
    end
--end
    callscript(actor, "../QuestDiary/callscript/qqlibao", "@qqlibao")
    Qlbsay(actor)
end

meinvwudi

设置玩家变量
格式：setplaydef(对像，变量名，变量值)

meinvwudi setplaydef(actor, “N$libaoitem_count”, #qlibao[1].items)

meinvwudi

meinvwudi callscript(actor, “../QuestDiary/callscript/qqlibao”, “@qqlibao”)

callscript(actor, ‘测试’， ‘@测试’) //表示调用执行“测试.txt”文件中的[@测试]标签内容
//“测试.txt”默认读取 Mir200\Envir\Market_def\ 文件夹下，如果有子文件夹，则加载文件名之前

callscript(actor, '盟重/测试'， '@测试') //“测试.txt” 位于 Mir200\Envir\Market_def\盟重\ 文件夹下

meinvwudi

加群礼包配置：D:\MirServer-lua-study\Mir200\Envir\QuestDiary\cfgcsv\cfg_libao.lua

[1] = {
		mingzi = "QQ礼包",
		mima = "jyjn666",
		items = {
			[1] = {
				[1] = 7340306,
				[2] = 5,
			},
			[2] = {
				[1] = 7340301,
				[2] = 5,
			},
			[3] = {
				[1] = 7340302,
				[2] = 5,
			},
			[4] = {
				[1] = 7340303,
				[2] = 5,
			},
			[5] = {
				[1] = 7340304,
				[2] = 5,
			},
			[6] = {
				[1] = 7203107,
				[2] = 1,
			},
			[7] = {
				[1] = 6203110,
				[2] = 1,
			},
			[8] = {
				[1] = 8000101,
				[2] = 1,
			},
			[9] = {
				[1] = 8000201,
				[2] = 1,
			},
			[10] = {
				[1] = 8000301,
				[2] = 1,
			},
		},
		qun = 476026469,
		key = "Q-ljVm5lL5RvpU8jdp3wMs6zUo3mJh9b",
		bianhao = "custom/erweima/100000.png",
		leixing = 1,
	},

meinvwudi

加群礼包弹出界面

function Qlbsay(actor)
    local str2 = parsetext([[   
    <Img|x=250.0|y=27.0|reset=1|show=0|bg=1|move=0|img=custom/mapmove/00312.png|bg=1|move=1|esc=1>
    <Layout|x=545|y=0|width=80|height=80|link=@exit>
    <Button|x=792.0|y=117.0|nimg=public/1900000510.png|pimg=public/1900000511.png|link=@exit>
    <Img|x=507.0|y=160.0|img=<$str(S$qqerweima)>|esc=0>
    <Effect|a=4|percentx=120.2|percenty=83.7|effecttype=0|effectid=5110>
    <Text|x=673.0|y=179.0|color=254|size=18|text=<$str(S$qqqunhao)>>
    <Button|a=4|percentx=121.2|percenty=79.4|nimg=private/hzlb/<$str(s$领取按钮)>.png|submitInput=3|link=@Qqlqlb>
    <Button|x=650.0|y=209.0|color=251|size=18|nimg=public/bg_hhzy_01_1.png|text=一键加群|link=@Qqyjjq>
    <Img|x=497.0|y=382.0|width=130|height=25|esc=0|img=public/1900000668.png>
    <Input|x=497.0|y=382.0|width=130|height=25|type=0|inputid=3|errortips=1|place=输入礼包码|color=250|maxcount=60|size=17|mincount=2>
    <ListView|children={<$str(S$界面ID)>}|x=440|y=304|width=350|height=80|direction=2|bounce=1|margin=3|loadDelay=0>
    <$str(S$奖励物品)>
    ]], actor)
	return say(actor, str2)
end


function Qqyjjq(actor)
	callscript(actor, "../QuestDiary/callscript/qqlibao", "@一键加群")
end

function Qqlqlb(actor)
	callscript(actor, "../QuestDiary/callscript/qqlibao", "@领取Q礼包")
end

meinvwudi

meinvwudi @一键加群

[@qqlibao]
#IF
check [20] 0
#act
mov s$领取按钮 hz_lqhz0
#ELSEACT
mov s$领取按钮 hz_ylq1

#IF
#act
mov N9 100
mov N10 0
mov S$界面ID
mov S$奖励物品
while N10 < <$str(N$libaoitem_count)>
inc N10 1
inc N9 <$str(N10)>
inc S$界面ID <$str(N9)>,
inc S$奖励物品 <ItemShow|id=<$str(N9)>|x=0|y=5000|width=70|height=70|itemid=<$str(S$libaoitem_<$str(N10)>)>|itemcount=<$str(N$libaoitem_<$str(N10)>)>|showtips=1|bgtype=1>
EndWhile



[@领取Q礼包]
#IF
check [20] 1
#act
sendmsg 9 您已经领取过了！
break

#or
equal <$NPCINPUT(3)>
not equal <$NPCINPUT(3)> <$str(S$qqlibaomima)>
#act
sendmsg 9 请输入正确的礼包码！
break

#IF
check [20] 0
#act
while N10 > 0
GetDBIdxItemFieldValue <$str(S$libaoitem_<$str(N10)>)> Name S10
GiveStateItem <$str(S10)> <$str(N$libaoitem_<$str(N10)>)> 1 1 0 1 1 1 0 1
dec N10 1
set [20] 1
EndWhile
sendmsg 9 恭喜您成功领取Q群礼包!
close
break




[@一键加群]
#or
Equal <$CLIENTFLAG> 1
Equal <$SIMULATOR> 1
#act
OpenWebSite https://qm.qq.com/cgi-bin/qm/qr?k=28WdzurxMWY-g8KoxzKpmU2PsGtzwi1b&jump_from=webapi
break

#IF
#act
SENDFORQQWX 3 <$str(S$qqqunhao)> <$str(S$qqqunkey)>
OpenWebSite https://qm.qq.com/cgi-bin/qm/qr?k=28WdzurxMWY-g8KoxzKpmU2PsGtzwi1b&jump_from=webapi
break