传奇一条龙提供的抢红包脚本适用于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]

<竞红包行会/AUTOCOLOR=249>　 　　 　　 　　 　　 　　 　　 　<发红包规则/AUTOCOLOR=253>

<img:13:1:8:-23|^145#点击竞标红包行会！/@我也要竞标>　 　 　　 　　 　　 　　 　　 　<img:13:1:8:-23|^145#查看红包规则！/@游戏规则>

[@我也要竞标]

<行会发红包,掌门可以给成员们发福利!/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：95028102 CPJidc-小白

[@清理]

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]

<┏━━━━━━━━━━━━━━━━━━━━━━━━━━━┓ /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]

<当前②号红包行会:/SCOLOR=154> <$STR(A51)> <竞标价格:/SCOLOR=154> <$STR(G117)> <元宝/SCOLOR=154>

<竞标时间:/SCOLOR=154> <$STR(A120)>

<img:13:1:8:-23|^145#(点击竞标②号红包行会)只有行会掌门人才可以竞标哦！/@竞标开始F> <img:13:1:8:-23|^145#点击返回首页！/@main>

[@我也要竞标3]

<当前③号红包行会:/SCOLOR=154> <$STR(A52)> <竞标价格:/SCOLOR=154> <$STR(G127)> <元宝/SCOLOR=154>

<竞标时间:/SCOLOR=154> <$STR(A130)>

<img:13:1:8:-23|^145#(点击竞标③号红包行会)只有行会掌门人才可以竞标哦！/@竞标开始G> <img:13:1:8:-23|^145#点击返回首页！/@main>

[@竞标开始E]

ISGUILDMASTER

goto @竞标开始2

messagebox 对不起，你不是行会掌门

[@竞标开始F]

goto @竞标开始22

[@竞标开始G]

goto @竞标开始222

[@竞标开始2]

equal A50 <$GUILDNAME>

messagebox 错误，你所在的行会已经是中标行会！

break

goto @竞标开始2a

[@竞标开始2a]

<行会掌门人可以竞标红包行会为自己的会员发福利红包!/SCOLOR=125>

<竞标价格/AUTOCOLOR=249> <返回竞标/AUTOCOLOR=251>

<img:13:1:8:-23|^145#(点击输入竞标价格(只能为整数)！/@@InPutInteger70> <img:13:1:8:-23|^145#点击返回首页！/@我也要竞标>

[@竞标开始22]

equal A51 <$GUILDNAME>

goto @竞标开始22a

[@竞标开始22a]

<img:13:1:8:-23|^145#(点击输入竞标价格(只能为整数)！/@@InPutInteger80> <img:13:1:8:-23|^145#点击返回首页！/@我也要竞标>

[@竞标开始222]

equal A52 <$GUILDNAME>

goto @开始竞标222a

[@开始竞标222a]

<img:13:1:8:-23|^145#(点击输入竞标价格(只能为整数)！/@@InPutInteger90> <img:13:1:8:-23|^145#点击返回首页！/@我也要竞标>

[@InPutInteger70]

large n70 <$STR(G107)>

goto @竞标3

messagebox 对不起，你的出价太低！

[@InPutInteger80]

large n80 <$STR(G117)>

goto @竞标33

[@InPutInteger90]

large n90 <$STR(G127)>

goto @竞标333

[@竞标3]

CHECKGAMEGOLD < <$STR(n70)>

messagebox 对不起，你没有那么多元宝！

goto @竞标4

[@竞标33]

CHECKGAMEGOLD < <$STR(n80)>

goto @竞标44

[@竞标333]

CHECKGAMEGOLD < <$STR(n90)>

goto @竞标444

[@竞标4]

<以下是你的全部信息，点击确定提交信息：/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

<竞标价格：/SCOLOR=154><$STR(n80)>元宝

<img:13:1:8:-23|^145#(点击输入竞标价格(只能为整数)！/@竞标55> <img:13:1:8:-23|^145#点击返回首页！/@竞标开始F>

[@竞标444]

<竞标价格：/SCOLOR=154><$STR(n90)>元宝

<img:13:1:8:-23|^145#(点击输入竞标价格(只能为整数)！/@竞标555> <img:13:1:8:-23|^145#点击返回首页！/@竞标开始G>

[@竞标5]

CHECKGAMEGOLD > <$STR(n70)>

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

SENDMSG 7 [超时]

goto @main

[@竞标55]

CHECKGAMEGOLD > <$STR(n80)>

GAMEGOLD - <$STR(n80)>

mov A51 <$GUILDNAME>

mov g117 <$STR(n80)>

mov a120 <$DATETIME>

mov a122 <$USERNAME>

[@竞标555]

CHECKGAMEGOLD > <$STR(n90)>

GAMEGOLD - <$STR(n90)>

mov A52 <$GUILDNAME>

mov g127 <$STR(n90)>

mov a130 <$DATETIME>

mov a123 <$USERNAME>

[@介绍查询]

行会竞标上榜后可以行会内部发红包：

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

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

[@派送红包1]

equal G50 0

<在此输入需要发送的红包元宝数量！/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]

equal G51 0

<红包数量/AUTOCOLOR=249>　 <您输入的红包金额为:/SCOLOR=250>【<$Str(n82)>】

<img:13:1:8:-23|^145#(点击输入红包元宝数量)！/@@InPutInteger82>

<img:13:1:8:-23|^145#点击发送红包！/@开始发红包b>

[@派送红包3]

equal G52 0

<红包数量/AUTOCOLOR=249>　 <您输入的红包金额为:/SCOLOR=250>【<$Str(n92)>】

<img:13:1:8:-23|^145#(点击输入红包元宝数量)！/@@InPutInteger92>

<img:13:1:8:-23|^145#点击发送红包！/@开始发红包c>

messagebox 对不起，您行会之前还有红包没有领完！！

[@派红包]

equal G53 0

<PS:此红包为全服红包，所有人都可以抢!看手速看运气/SCOLOR=125>

<红包数量/AUTOCOLOR=249>　 <您输入的红包金额为:/SCOLOR=250>【<$Str(n93)>】

<img:13:1:8:-23|^145#(点击输入红包元宝数量)！/@@InPutInteger93>

<img:13:1:8:-23|^145#点击发送红包！/@开始发红包d>

<img:13:1:8:-23|^145#点击返回竞标界面！/@exit>

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

[@派单人红包]

equal G54 0

<玩家名字/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>

[@InPutInteger72]

CHECKOFGUILD <$Str(A50)>

goto @派送红包1

messagebox 对不起，或者你的行会还没有竞标①号行会成功！

[@InPutInteger82]

CHECKOFGUILD <$Str(A51)>

goto @派送红包2

messagebox 对不起，或者你的行会还没有竞标②号行会成功！

[@InPutInteger92]

CHECKOFGUILD <$Str(A52)>

goto @派送红包3

messagebox 对不起，你的行会还没有竞标③号行会成功！

[@InPutInteger93]

goto @派红包

[@InPutString51]

CheckOnline <$STR(S51)>

goto @派单人红包

messagebox 对不起，对方没有在线！

[@InPutInteger95]

LARGE <$Str(n95)> 100

messagebox 对不起，单人红包发送低于100元宝的红包！

[@开始发红包a]

checkgamegold > <$Str(n72)>

GameGold - <$Str(n72)>

mov G50 <$Str(n72)>

SENDMSG 6 红包发送完毕，行会玩家可以抢红包啦！

GMEXECUTE 开始提问 @我要抢红包啦1

DELAYGOTO 10000 @返还1

messagebox 对不起，您当前元宝数量不足【<$Str(n72)>】个，请重新输入 ！

[@开始发红包b]

checkgamegold > <$Str(n82)>

GameGold - <$Str(n82)>

mov G51 <$Str(n82)>

GMEXECUTE 开始提问 @我要抢红包啦2

DELAYGOTO 10000 @返还2

messagebox 对不起，您当前元宝数量不足【<$Str(n82)>】个，请重新输入 ！

[@开始发红包c]

checkgamegold > <$Str(n92)>

GameGold - <$Str(n92)>

mov G52 <$Str(n92)>

GMEXECUTE 开始提问 @我要抢红包啦3

DELAYGOTO 10000 @返还3

messagebox 对不起，您当前元宝数量不足【<$Str(n92)>】个，请重新输入 ！

[@开始发红包d]

checkgamegold > <$Str(n93)>

GameGold - <$Str(n93)>

mov G53 <$Str(n93)>

SENDMSG 6 红包发送完毕，全服所有玩家可以抢红包啦！

GMEXECUTE 开始提问 @我要抢红包啦4

DELAYGOTO 10000 @返还4

messagebox 对不起，您当前元宝数量不足【<$Str(n93)>】个，请重新输入 ！

[@开始发红包e]

checkgamegold > <$Str(n95)>

GameGold - <$Str(n95)>

mov G54 <$Str(n95)>

AddTextList ..QuestDiary红包名单.txt <$STR(S51)>

SENDMSG 6 红包发送完毕，【<$Str(S51)>】玩家将马上收到您的红包，如果10秒没有接收，那么系统将红包一起返还给你！

GMEXECUTE 开始提问 @我要抢红包啦5

DELAYGOTO 10000 @返还5

messagebox 对不起，您当前元宝数量不足【<$Str(n95)>】个，请重新输入 ！

[@返还1]

GameGold + <$Str(G50)>

SENDMSG 6 抢红包时间结束，剩余【<$Str(G50)>】的红包返还给你！请注意查收！

MOV G50 0

[@返还2]

GameGold + <$Str(G51)>

SENDMSG 6 抢红包时间结束，剩余【<$Str(G51)>】的红包返还给你！请注意查收！

[@返还3]

GameGold + <$Str(G52)>

SENDMSG 6 抢红包时间结束，剩余【<$Str(G52)>】的红包返还给你！请注意查收！

[@返还4]

GameGold + <$Str(G53)>

SENDMSG 6 抢红包时间结束，剩余【<$Str(G53)>】的红包返还给你！请注意查收！

[@返还5]

GameGold + <$Str(G54)>

SENDMSG 6 抢红包时间结束，剩余【<$Str(G54)>】的红包返还给你！请注意查收！

MOV G54 0

ClearNameList ..QuestDiary红包名单.txt

[@游戏规则]

OPENMERCHANTBIGDLG 1 14 1 0 0 0 0

<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>