◇逍遥◆MIR2◇ 发表于 2022-9-15 08:18:30

传奇一条龙提供的抢红包脚本适用于GOM引擎

;本站只提供免费下载脚本,不提供免费安装


(@@InPutString @@InPutInteger )
[@main]
#if
isadmin
#act
OPENMERCHANTBIGDLG 1 15 1 0 -10 10 0
#say
<img:11:1:408:5/@exit>\
\
　　　<①行会红包/AUTOCOLOR=251>　<行会名称：/AUTOCOLOR=250>【<$Str(A50)>】　<红包数量：/AUTOCOLOR=250>【<$Str(G50)>】\
　　　<img:13:1:8:-23|^145#点击给①号行会发红包！/@派送红包1>\
　　　<②行会红包/AUTOCOLOR=251>　<行会名称：/AUTOCOLOR=250>【<$Str(A51)>】　<红包数量：/AUTOCOLOR=250>【<$Str(G51)>】\
　　　<img:13:1:8:-23|^145#点击给②号行会发红包！/@派送红包2>\
　　　<③行会红包/AUTOCOLOR=251>　<行会名称：/AUTOCOLOR=250>【<$Str(A52)>】　<红包数量：/AUTOCOLOR=250>【<$Str(G52)>】\
　　　<img:13:1:8:-23|^145#点击给③号行会发红包！/@派送红包3>\
　　   　<全服红包/AUTOCOLOR=251>　 <红包数量：/AUTOCOLOR=250>【<$Str(G53)>】\
　　　<img:13:1:8:-23|^145#点击给全服发红包！/@派红包>\
　   　　<单人红包/AUTOCOLOR=251>　 <红包数量：/AUTOCOLOR=250>【<$Str(G54)>】\
　　　<img:13:1:8:-23|^145#点击给指定玩家发红包！/@派单人红包>\
　　　<━━━━━━━━━━━━━━/SCOLOR=69><发红包啦！/SCOLOR=254><━━━━━━━━━━━━/SCOLOR=69>\
　　　　<竞红包行会/AUTOCOLOR=249>　　 <清红包数据/AUTOCOLOR=249> 　　　 　　 　　 　<发红包规则/AUTOCOLOR=253>\
　　　<img:13:1:8:-23|^145#点击竞标红包行会！/@我也要竞标>　 <img:13:1:8:-23|^145#点击清理！/@清理>　 　　 　　 　　 　<img:13:1:8:-23|^145#查看红包规则！/@游戏规则>\
#elseact
goto @kaishi

[@kaishi]
#if
#act
OPENMERCHANTBIGDLG 1 15 1 0 -10 10 0
#say
<img:11:1:408:5/@exit>\
\
　　　<①行会红包/AUTOCOLOR=251>　<行会名称：/AUTOCOLOR=250>【<$Str(A50)>】　<红包数量：/AUTOCOLOR=250>【<$Str(G50)>】\
　　　<img:13:1:8:-23|^145#点击给①号行会发红包！/@派送红包1>\
　　　<②行会红包/AUTOCOLOR=251>　<行会名称：/AUTOCOLOR=250>【<$Str(A51)>】　<红包数量：/AUTOCOLOR=250>【<$Str(G51)>】\
　　　<img:13:1:8:-23|^145#点击给②号行会发红包！/@派送红包2>\
　　　<③行会红包/AUTOCOLOR=251>　<行会名称：/AUTOCOLOR=250>【<$Str(A52)>】　<红包数量：/AUTOCOLOR=250>【<$Str(G52)>】\
　　　<img:13:1:8:-23|^145#点击给③号行会发红包！/@派送红包3>\
　　   　<全服红包/AUTOCOLOR=251>　 <红包数量：/AUTOCOLOR=250>【<$Str(G53)>】\
　　　<img:13:1:8:-23|^145#点击给全服发红包！/@派红包>\
　   　　<单人红包/AUTOCOLOR=251>　 <红包数量：/AUTOCOLOR=250>【<$Str(G54)>】\
　　　<img:13:1:8:-23|^145#点击给指定玩家发红包！/@派单人红包>\
　　　<━━━━━━━━━━━━━━/SCOLOR=69><发红包啦！/SCOLOR=254><━━━━━━━━━━━━/SCOLOR=69>\
　　　　<竞红包行会/AUTOCOLOR=249>　 　　 　　 　　 　　 　　 　　 　<发红包规则/AUTOCOLOR=253>\
　　　<img:13:1:8:-23|^145#点击竞标红包行会！/@我也要竞标>　 　 　　 　　 　　 　　 　　 　<img:13:1:8:-23|^145#查看红包规则！/@游戏规则>\


[@我也要竞标]
#if
#act
OPENMERCHANTBIGDLG 1 15 1 0 -10 10 0
#say
<img:11:1:408:5/@exit>\
\
　　　<行会发红包,掌门可以给成员们发福利!/SCOLOR=125>\
　　　<红包数量，元宝数量可以自己定！/SCOLOR=125>\
　　　<但是我们的发红包位置有限！只能竞标了！/SCOLOR=125>\
　　　<竟标价格，你的行会就可以中标，直到下一位竞争对手出现!/SCOLOR=125>\
\
   　　　   <①号行会/AUTOCOLOR=251>　 <行会名称：/AUTOCOLOR=250>【<$Str(A50)>】　<竞标价格:/AUTOCOLOR=250>【<$Str(G107)>】\
　　　<img:13:1:8:-23|^145#点击竞标①号红包行会！/@我也要竞标1>\
   　　　   <②号行会/AUTOCOLOR=251>　 <行会名称：/AUTOCOLOR=250>【<$Str(A51)>】　<竞标价格:/AUTOCOLOR=250>【<$Str(G117)>】\
　　　<img:13:1:8:-23|^145#点击竞标②号红包行会！/@我也要竞标2>\
   　　　   <③号行会/AUTOCOLOR=251>　 <行会名称：/AUTOCOLOR=250>【<$Str(A52)>】　<竞标价格:/AUTOCOLOR=250>【<$Str(G127)>】\
　　　<img:13:1:8:-23|^145#点击竞标③号红包行会！/@我也要竞标3>\

;唯一官网：http://www.800ji.com蓝胖子脚本库   

;站长推荐服务器QQ：95028102CPJidc-小白

;本站只提供免费下载脚本,不提供免费安装，如需要安装另收费,价格10-100不等！



[@清理]
#if
#act
MOV A50 0
MOV A51 0
MOV A52 0
mov G50 0
MOV G51 0
MOV G52 0
MOV G107 0
MOV G117 0
MOV G127 0
MOV G53 0
messagebox 数据清理完毕！


[@我也要竞标1]
#if
#act
OPENMERCHANTBIGDLG 1 15 1 0 -10 10 0
#say
<img:11:1:408:5/@exit>\
\
   　　　   <┏━━━━━━━━━━━━━━━━━━━━━━━━━━━┓ /SCOLOR=250>\
   　　　   <当前①号红包行会:/SCOLOR=154> <$STR(A50)><竞标价格:/SCOLOR=154> <$STR(G107)> <元宝/SCOLOR=154>\
   　　　   <竞标时间:/SCOLOR=154> <$STR(A110)>\
   　　　   <┗━━━━━━━━━━━━━━━━━━━━━━━━━━━┛ /SCOLOR=250>\
\
\
   　　　       <我要竞标/AUTOCOLOR=249>                            <返回首页/AUTOCOLOR=251>\
　　　    <img:13:1:8:-23|^145#(点击竞标①号红包行会)只有行会掌门人才可以竞标哦！/@竞标开始E>                        <img:13:1:8:-23|^145#点击返回首页！/@main>\


[@我也要竞标2]
#if
#act
OPENMERCHANTBIGDLG 1 15 1 0 -10 10 0
#say
<img:11:1:408:5/@exit>\
\
   　　　   <┏━━━━━━━━━━━━━━━━━━━━━━━━━━━┓ /SCOLOR=250>\
   　　　   <当前②号红包行会:/SCOLOR=154> <$STR(A51)><竞标价格:/SCOLOR=154> <$STR(G117)> <元宝/SCOLOR=154>\
   　　　   <竞标时间:/SCOLOR=154> <$STR(A120)>\
   　　　   <┗━━━━━━━━━━━━━━━━━━━━━━━━━━━┛ /SCOLOR=250>\
\
\
   　　　       <我要竞标/AUTOCOLOR=249>                            <返回首页/AUTOCOLOR=251>\
　　　    <img:13:1:8:-23|^145#(点击竞标②号红包行会)只有行会掌门人才可以竞标哦！/@竞标开始F>                        <img:13:1:8:-23|^145#点击返回首页！/@main>\

[@我也要竞标3]
#if
#act
OPENMERCHANTBIGDLG 1 15 1 0 -10 10 0
#say
<img:11:1:408:5/@exit>\
\
   　　　   <┏━━━━━━━━━━━━━━━━━━━━━━━━━━━┓ /SCOLOR=250>\
   　　　   <当前③号红包行会:/SCOLOR=154> <$STR(A52)><竞标价格:/SCOLOR=154> <$STR(G127)> <元宝/SCOLOR=154>\
   　　　   <竞标时间:/SCOLOR=154> <$STR(A130)>\
   　　　   <┗━━━━━━━━━━━━━━━━━━━━━━━━━━━┛ /SCOLOR=250>\
\
\
   　　　       <我要竞标/AUTOCOLOR=249>                            <返回首页/AUTOCOLOR=251>\
　　　    <img:13:1:8:-23|^145#(点击竞标③号红包行会)只有行会掌门人才可以竞标哦！/@竞标开始G>                        <img:13:1:8:-23|^145#点击返回首页！/@main>\





[@竞标开始E]
#if
ISGUILDMASTER
#act
goto @竞标开始2
#elseact
messagebox 对不起，你不是行会掌门

[@竞标开始F]
#if
ISGUILDMASTER
#act
goto @竞标开始22
#elseact
messagebox 对不起，你不是行会掌门

[@竞标开始G]
#if
ISGUILDMASTER
#act
goto @竞标开始222
#elseact
messagebox 对不起，你不是行会掌门

[@竞标开始2]
#if
equal A50 <$GUILDNAME>
#act
messagebox 错误，你所在的行会已经是中标行会！
break
#elseact
goto @竞标开始2a

[@竞标开始2a]
#if
#act
OPENMERCHANTBIGDLG 1 15 1 0 -10 10 0
#say
<img:11:1:408:5/@exit>\
\
　　　<行会掌门人可以竞标红包行会为自己的会员发福利红包!/SCOLOR=125>\
　　　<红包数量，元宝数量可以自己定！/SCOLOR=125>\
　　　<但是我们的发红包位置有限！只能竞标了！/SCOLOR=125>\
　　　<竟标价格，你的行会就可以中标，直到下一位竞争对手出现!/SCOLOR=125>\
\
   　　　   <竞标价格/AUTOCOLOR=249>                            <返回竞标/AUTOCOLOR=251>\
　　    <img:13:1:8:-23|^145#(点击输入竞标价格(只能为整数)！/@@InPutInteger70>                        <img:13:1:8:-23|^145#点击返回首页！/@我也要竞标>\


[@竞标开始22]
#if
equal A51 <$GUILDNAME>
#act
messagebox 错误，你所在的行会已经是中标行会！
break
#elseact
goto @竞标开始22a


[@竞标开始22a]
#if
#act
OPENMERCHANTBIGDLG 1 15 1 0 -10 10 0
#say
<img:11:1:408:5/@exit>\
\
　　　<行会掌门人可以竞标红包行会为自己的会员发福利红包!/SCOLOR=125>\
　　　<红包数量，元宝数量可以自己定！/SCOLOR=125>\
　　　<但是我们的发红包位置有限！只能竞标了！/SCOLOR=125>\
　　　<竟标价格，你的行会就可以中标，直到下一位竞争对手出现!/SCOLOR=125>\
\
   　　　   <竞标价格/AUTOCOLOR=249>                            <返回竞标/AUTOCOLOR=251>\
　　    <img:13:1:8:-23|^145#(点击输入竞标价格(只能为整数)！/@@InPutInteger80>                        <img:13:1:8:-23|^145#点击返回首页！/@我也要竞标>\


[@竞标开始222]
#if
equal A52 <$GUILDNAME>
#act
messagebox 错误，你所在的行会已经是中标行会！
break
#elseact
goto @开始竞标222a

[@开始竞标222a]
#if
#act
OPENMERCHANTBIGDLG 1 15 1 0 -10 10 0
#say
<img:11:1:408:5/@exit>\
\
　　　<行会掌门人可以竞标红包行会为自己的会员发福利红包!/SCOLOR=125>\
　　　<红包数量，元宝数量可以自己定！/SCOLOR=125>\
　　　<但是我们的发红包位置有限！只能竞标了！/SCOLOR=125>\
　　　<竟标价格，你的行会就可以中标，直到下一位竞争对手出现!/SCOLOR=125>\
\
   　　　   <竞标价格/AUTOCOLOR=249>                            <返回竞标/AUTOCOLOR=251>\
　　    <img:13:1:8:-23|^145#(点击输入竞标价格(只能为整数)！/@@InPutInteger90>                        <img:13:1:8:-23|^145#点击返回首页！/@我也要竞标>\


[@InPutInteger70]
#if
large n70 <$STR(G107)>
#act
goto @竞标3
#elseact
messagebox 对不起，你的出价太低！

[@InPutInteger80]
#if
large n80 <$STR(G117)>
#act
goto @竞标33
#elseact
messagebox 对不起，你的出价太低！

[@InPutInteger90]
#if
large n90 <$STR(G127)>
#act
goto @竞标333
#elseact
messagebox 对不起，你的出价太低！

[@竞标3]
#if
CHECKGAMEGOLD < <$STR(n70)>
#act
messagebox 对不起，你没有那么多元宝！
#elseact
goto @竞标4

[@竞标33]
#if
CHECKGAMEGOLD < <$STR(n80)>
#act
messagebox 对不起，你没有那么多元宝！
#elseact
goto @竞标44

[@竞标333]
#if
CHECKGAMEGOLD < <$STR(n90)>
#act
messagebox 对不起，你没有那么多元宝！
#elseact
goto @竞标444



[@竞标4]
#if
#act
OPENMERCHANTBIGDLG 1 15 1 0 -10 10 0
#say
<img:11:1:408:5/@exit>\
\
　　　<以下是你的全部信息，点击确定提交信息：/SCOLOR=250>\
　　　<行会名称：/SCOLOR=154><$GUILDNAME>\
　　　<行会掌门：/SCOLOR=154><$USERNAME>\
　　　<竞标价格：/SCOLOR=154><$STR(n70)>元宝\
　　　<竞标时间：/SCOLOR=154><$DATETIME>\
\
   　　　   <确定提交/AUTOCOLOR=249>                            <重新填写/AUTOCOLOR=251>\
　　    <img:13:1:8:-23|^145#(点击输入竞标价格(只能为整数)！/@竞标5>                        <img:13:1:8:-23|^145#点击返回首页！/@竞标开始E>\



[@竞标44]
#If
#act
OPENMERCHANTBIGDLG 1 15 1 0 -10 10 0
#say
<img:11:1:408:5/@exit>\
\
　　　<以下是你的全部信息，点击确定提交信息：/SCOLOR=250>\
　　　<行会名称：/SCOLOR=154><$GUILDNAME>\
　　　<行会掌门：/SCOLOR=154><$USERNAME>\
　　　<竞标价格：/SCOLOR=154><$STR(n80)>元宝\
　　　<竞标时间：/SCOLOR=154><$DATETIME>\
\
   　　　   <确定提交/AUTOCOLOR=249>                            <重新填写/AUTOCOLOR=251>\
　　    <img:13:1:8:-23|^145#(点击输入竞标价格(只能为整数)！/@竞标55>                        <img:13:1:8:-23|^145#点击返回首页！/@竞标开始F>\


[@竞标444]
#If
#act
OPENMERCHANTBIGDLG 1 15 1 0 -10 10 0
#say
<img:11:1:408:5/@exit>\
\
　　　<以下是你的全部信息，点击确定提交信息：/SCOLOR=250>\
　　　<行会名称：/SCOLOR=154><$GUILDNAME>\
　　　<行会掌门：/SCOLOR=154><$USERNAME>\
　　　<竞标价格：/SCOLOR=154><$STR(n90)>元宝\
　　　<竞标时间：/SCOLOR=154><$DATETIME>\
\
   　　　   <确定提交/AUTOCOLOR=249>                            <重新填写/AUTOCOLOR=251>\
　　    <img:13:1:8:-23|^145#(点击输入竞标价格(只能为整数)！/@竞标555>                        <img:13:1:8:-23|^145#点击返回首页！/@竞标开始G>\


[@竞标5]
#if
CHECKGAMEGOLD > <$STR(n70)>
large n70 <$STR(G107)>
#act
GAMEGOLD - <$STR(n70)>
mov A50 <$GUILDNAME>
mov g107 <$STR(n70)>
mov a110 <$DATETIME>
mov a121 <$USERNAME>
mov g109 0
mov g110 0
SENDMSG 0 <$USERNAME>为自己的行会竞标成功、可以给成员们发福利啦！
close
#elseact
SENDMSG 7 [超时]
goto @main


[@竞标55]
#if
CHECKGAMEGOLD > <$STR(n80)>
large n80 <$STR(G117)>
#act
GAMEGOLD - <$STR(n80)>
mov A51 <$GUILDNAME>
mov g117 <$STR(n80)>
mov a120 <$DATETIME>
mov a122 <$USERNAME>
mov g109 0
mov g110 0
SENDMSG 0 <$USERNAME>为自己的行会竞标成功、可以给成员们发福利啦！
close
#elseact
SENDMSG 7 [超时]
goto @main

[@竞标555]
#if
CHECKGAMEGOLD > <$STR(n90)>
large n90 <$STR(G127)>
#act
GAMEGOLD - <$STR(n90)>
mov A52 <$GUILDNAME>
mov g127 <$STR(n90)>
mov a130 <$DATETIME>
mov a123 <$USERNAME>
mov g109 0
mov g110 0
SENDMSG 0 <$USERNAME>为自己的行会竞标成功、可以给成员们发福利啦！
close
#elseact
SENDMSG 7 [超时]
goto @main

[@介绍查询]
行会竞标上榜后可以行会内部发红包：\

　　　　　<返回上一页/@main>　　　　　<关　　闭/@exit>\





;只写第一个其他类似，先设定下G50=2w，可以行会掌门自定义那发！

[@派送红包1]
#if
equal G50 0
#act
OPENMERCHANTBIGDLG 1 15 1 0 -10 10 0
#say
<img:11:1:408:5/@exit>\
\
　　　<在此输入需要发送的红包元宝数量！/SCOLOR=125>\
　　　<发送完成之后，10秒后系统将会把剩余的元宝返还给你！/SCOLOR=125>\
　　　<当然如果你发送的红包被抢完了！！/SCOLOR=125>\
　　　<那么系统也就没有办法给你返还了!/SCOLOR=125>\
\
   　　　   <红包数量/AUTOCOLOR=249>　 <您输入的红包金额为:/SCOLOR=250>【<$Str(n72)>】\
　　    <img:13:1:8:-23|^145#(点击输入红包元宝数量)！/@@InPutInteger72>\
   　　　<开始发红包/AUTOCOLOR=249>\
　　    <img:13:1:8:-23|^145#点击发送红包！/@开始发红包a>\
   　　　   <返    回/AUTOCOLOR=249>\
　　    <img:13:1:8:-23|^145#点击返回竞标界面！/@我也要竞标>\
#elsesay
messagebox 对不起，您行会之前还有红包没有领完！

[@派送红包2]
#if
equal G51 0
#act
OPENMERCHANTBIGDLG 1 15 1 0 -10 10 0
#say
<img:11:1:408:5/@exit>\
\
　　　<在此输入需要发送的红包元宝数量！/SCOLOR=125>\
　　　<发送完成之后，10秒后系统将会把剩余的元宝返还给你！/SCOLOR=125>\
　　　<当然如果你发送的红包被抢完了！！/SCOLOR=125>\
　　　<那么系统也就没有办法给你返还了!/SCOLOR=125>\
\
   　　　   <红包数量/AUTOCOLOR=249>　 <您输入的红包金额为:/SCOLOR=250>【<$Str(n82)>】\
　　    <img:13:1:8:-23|^145#(点击输入红包元宝数量)！/@@InPutInteger82>\
   　　　<开始发红包/AUTOCOLOR=249>\
　　    <img:13:1:8:-23|^145#点击发送红包！/@开始发红包b>\
   　　　   <返    回/AUTOCOLOR=249>\
　　    <img:13:1:8:-23|^145#点击返回竞标界面！/@我也要竞标>\
#elsesay
messagebox 对不起，您行会之前还有红包没有领完！

[@派送红包3]
#if
equal G52 0
#act
OPENMERCHANTBIGDLG 1 15 1 0 -10 10 0
#say
<img:11:1:408:5/@exit>\
\
　　　<在此输入需要发送的红包元宝数量！/SCOLOR=125>\
　　　<发送完成之后，10秒后系统将会把剩余的元宝返还给你！/SCOLOR=125>\
　　　<当然如果你发送的红包被抢完了！！/SCOLOR=125>\
　　　<那么系统也就没有办法给你返还了!/SCOLOR=125>\
\
   　　　   <红包数量/AUTOCOLOR=249>　 <您输入的红包金额为:/SCOLOR=250>【<$Str(n92)>】\
　　    <img:13:1:8:-23|^145#(点击输入红包元宝数量)！/@@InPutInteger92>\
   　　　<开始发红包/AUTOCOLOR=249>\
　　    <img:13:1:8:-23|^145#点击发送红包！/@开始发红包c>\
   　　　   <返    回/AUTOCOLOR=249>\
　　    <img:13:1:8:-23|^145#点击返回竞标界面！/@我也要竞标>\
#elsesay
messagebox 对不起，您行会之前还有红包没有领完！！

[@派红包]
#if
equal G53 0
#act
OPENMERCHANTBIGDLG 1 15 1 0 -10 10 0
#say
<img:11:1:408:5/@exit>\
\
　　　<在此输入需要发送的红包元宝数量！/SCOLOR=125>\
　　　<发送完成之后，10秒后系统将会把剩余的元宝返还给你！/SCOLOR=125>\
　　　<当然如果你发送的红包被抢完了！！/SCOLOR=125>\
　　　<那么系统也就没有办法给你返还了!/SCOLOR=125>\
　　　<PS:此红包为全服红包，所有人都可以抢!看手速看运气/SCOLOR=125>\
\
   　　　   <红包数量/AUTOCOLOR=249>　 <您输入的红包金额为:/SCOLOR=250>【<$Str(n93)>】\
　　    <img:13:1:8:-23|^145#(点击输入红包元宝数量)！/@@InPutInteger93>\
   　　　<开始发红包/AUTOCOLOR=249>\
　　    <img:13:1:8:-23|^145#点击发送红包！/@开始发红包d>\
   　　　   <返    回/AUTOCOLOR=249>\
　　    <img:13:1:8:-23|^145#点击返回竞标界面！/@exit>\
#elsesay
messagebox 对不起，之前的红包还没有结算完毕！！


[@派单人红包]
#if
equal G54 0
#act
OPENMERCHANTBIGDLG 1 15 1 0 -10 10 0
#say
<img:11:1:408:5/@exit>\
\
　　　<在此输入需要发送的红包元宝数量！/SCOLOR=125>\
　　　<发送完成之后，10秒后系统将会把剩余的元宝返还给你！/SCOLOR=125>\
　　　<当然如果你发送的红包被抢完了！！/SCOLOR=125>\
　　　<那么系统也就没有办法给你返还了!/SCOLOR=125>\
　　　<PS:此红包为全服红包，所有人都可以抢!看手速看运气/SCOLOR=125>\
\
   　　　   <玩家名字/AUTOCOLOR=249>　 <您输入玩家名字:/SCOLOR=250>【<$Str(S51)>】\
　　    <img:13:1:8:-23|^145#(点击输入接收红包的玩家名字)！/@@InPutString51>\
   　　　   <红包数量/AUTOCOLOR=249>　 <您输入的红包金额为:/SCOLOR=250>【<$Str(n95)>】\
　　    <img:13:1:8:-23|^145#(点击输入红包元宝数量)！/@@InPutInteger95>\
   　　　<开始发红包/AUTOCOLOR=249>   　　　<返    回/AUTOCOLOR=249>\
　　    <img:13:1:8:-23|^145#点击发送红包！/@开始发红包e>　　    <img:13:1:8:-23|^145#点击返回竞标界面！/@exit>\

#elsesay
messagebox 对不起，之前的红包还没有结算完毕！！



[@InPutInteger72]
#if
CHECKOFGUILD <$Str(A50)>
#act
goto @派送红包1
#elseact
messagebox 对不起，或者你的行会还没有竞标①号行会成功！

[@InPutInteger82]
#if
CHECKOFGUILD <$Str(A51)>
#act
goto @派送红包2
#elseact
messagebox 对不起，或者你的行会还没有竞标②号行会成功！


[@InPutInteger92]
#if
CHECKOFGUILD <$Str(A52)>
#act
goto @派送红包3
#elseact
messagebox 对不起，你的行会还没有竞标③号行会成功！

[@InPutInteger93]
#if
#act
goto @派红包

[@InPutString51]
#if
CheckOnline <$STR(S51)>
#act
goto @派单人红包
break
#elseact
messagebox 对不起，对方没有在线！

[@InPutInteger95]
#if
LARGE <$Str(n95)> 100
#act
goto @派单人红包
break
#elseact
messagebox 对不起，单人红包发送低于100元宝的红包！


[@开始发红包a]
#if
checkgamegold > <$Str(n72)>
#act
GameGold - <$Str(n72)>
mov G50 <$Str(n72)>
SENDMSG 6 红包发送完毕，行会玩家可以抢红包啦！
GMEXECUTE 开始提问 @我要抢红包啦1
DELAYGOTO 10000 @返还1
#elseact
messagebox 对不起，您当前元宝数量不足【<$Str(n72)>】个，请重新输入 ！

[@开始发红包b]
#if
checkgamegold > <$Str(n82)>
#act
GameGold - <$Str(n82)>
mov G51 <$Str(n82)>
SENDMSG 6 红包发送完毕，行会玩家可以抢红包啦！
GMEXECUTE 开始提问 @我要抢红包啦2
DELAYGOTO 10000 @返还2
#elseact
messagebox 对不起，您当前元宝数量不足【<$Str(n82)>】个，请重新输入 ！

[@开始发红包c]
#if
checkgamegold > <$Str(n92)>
#act
GameGold - <$Str(n92)>
mov G52 <$Str(n92)>
SENDMSG 6 红包发送完毕，行会玩家可以抢红包啦！
GMEXECUTE 开始提问 @我要抢红包啦3
DELAYGOTO 10000 @返还3
#elseact
messagebox 对不起，您当前元宝数量不足【<$Str(n92)>】个，请重新输入 ！


[@开始发红包d]
#if
checkgamegold > <$Str(n93)>
#act
GameGold - <$Str(n93)>
mov G53 <$Str(n93)>
SENDMSG 6 红包发送完毕，全服所有玩家可以抢红包啦！
GMEXECUTE 开始提问 @我要抢红包啦4
DELAYGOTO 10000 @返还4
#elseact
messagebox 对不起，您当前元宝数量不足【<$Str(n93)>】个，请重新输入 ！


[@开始发红包e]
#if
checkgamegold > <$Str(n95)>
#act
GameGold - <$Str(n95)>
mov G54 <$Str(n95)>
AddTextList ..\QuestDiary\红包名单.txt <$STR(S51)>
SENDMSG 6 红包发送完毕，【<$Str(S51)>】玩家将马上收到您的红包，如果10秒没有接收，那么系统将红包一起返还给你！
GMEXECUTE 开始提问 @我要抢红包啦5
DELAYGOTO 10000 @返还5
#elseact
messagebox 对不起，您当前元宝数量不足【<$Str(n95)>】个，请重新输入 ！


[@返还1]
#if
#act
GameGold + <$Str(G50)>
SENDMSG 6 抢红包时间结束，剩余【<$Str(G50)>】的红包返还给你！请注意查收！
MOV G50 0

[@返还2]
#if
#act
GameGold + <$Str(G51)>
SENDMSG 6 抢红包时间结束，剩余【<$Str(G51)>】的红包返还给你！请注意查收！
MOV G51 0


[@返还3]
#if
#act
GameGold + <$Str(G52)>
SENDMSG 6 抢红包时间结束，剩余【<$Str(G52)>】的红包返还给你！请注意查收！
MOV G52 0


[@返还4]
#if
#act
GameGold + <$Str(G53)>
SENDMSG 6 抢红包时间结束，剩余【<$Str(G53)>】的红包返还给你！请注意查收！
MOV G53 0

[@返还5]
#if
#act
GameGold + <$Str(G54)>
SENDMSG 6 抢红包时间结束，剩余【<$Str(G54)>】的红包返还给你！请注意查收！
MOV G54 0
ClearNameList ..\QuestDiary\红包名单.txt


[@游戏规则]
#if
#act
OPENMERCHANTBIGDLG 1 14 1 0 0 0 0
#say
　<img:11:1:412:5/@exit>\
\
　　　<行会红包：/SCOLOR=146> \
　　　<行会红包：顾名思义就是行会内部,非本行会的玩家领不到红包。/SCOLOR=253> \   
　　　<发送条件：必须在竞价板上争取一个行会位置,不然不能发送红包。/SCOLOR=253> \
　　　<领取条件：同一行会的成员均可领取,领取时间限制10秒。/SCOLOR=253> \
　　　          <超过10秒将返回给发送此红包的玩家,手速决定一切。/SCOLOR=253> \
　　　<全服红包：/SCOLOR=146> \
　　　<全服红包：顾名思义就是发送给所有玩家,只要在线均有机会得红包。/SCOLOR=253> \
　　　<发送条件：没有特殊条件只要你有元宝就可以发送。/SCOLOR=253> \
　　　<领取条件：在线玩家均可领取，领取时间超过10秒自动返还发红包玩家。/SCOLOR=253> \
　　　<指定红包：/SCOLOR=146> \
　　　<指定红包：发送给你指定的玩家,只要收红包的玩家在线就可以发红包。/SCOLOR=253> \
　　　<发送条件：必须对方在线，不在线发不出此红包。/SCOLOR=253> \
　　　<领取条件：领取时间超过10秒自动返还给发此红包的玩家。/SCOLOR=253> \
　　　<注意事项：/SCOLOR=146> \
　　　<红包说明：不管发行会,或者全服,发送小于100元宝只有一包,只能一个人/SCOLOR=249> \
　　　          <领取反之发送大于100元宝的红包系统将随机拆解分包发送给/SCOLOR=249> \
　　　          <玩家，有时候拆解成10包,运气好拆解成4-5包,所有玩家得到/SCOLOR=249>\
　　　          <元宝数量都不等/SCOLOR=249>\
　　　<作者寄语：/SCOLOR=146> \
　　　<本脚本由/SCOLOR=125>：<战盟网络管理小组>.<独家奉献,谢谢大家/SCOLOR=125>\
　　　<战盟全体成员恭祝大家/SCOLOR=125>：<万事如意/SCOLOR=251>,<财源滚滚/SCOLOR=250>,<身体健康/SCOLOR=254>\


lixi19901223 发表于 2022-9-15 08:50:06

感恩无私的分享与奉献 :)

科技 发表于 2022-9-15 21:34:09

激动人心，无法言表！

w0x0000w0x 发表于 2022-9-18 10:31:55

真是被感动的痛哭流涕……

?_Μaggie 发表于 2022-9-20 17:48:28

强烈支持楼主ing……

雁城孤客逸彦 发表于 2022-9-23 02:52:27

看到这帖子真是高兴！

lujie701 发表于 2022-9-26 15:40:10

真是难得给力的帖子啊。

回忆Childhoo 发表于 2022-10-10 15:56:37

真是难得给力的帖子啊。

gzymq 发表于 2022-10-11 04:32:54

真是被感动的痛哭流涕……

122025848 发表于 2022-10-11 07:15:34

淡定，淡定，淡定……
页: [1] 2
查看完整版本: 传奇一条龙提供的抢红包脚本适用于GOM引擎