GOM引擎传奇行会捐献脚本，传奇版本库开区时添加行会捐献排名教程。

趣游论坛 · 发表于 2019-9-13 07:23:17

[@main]
#if
CHECKLEVELEX > 0
#act
#CALL [\子木脚本库\行会捐献系统\【常量设置】.INI] @常量设置
MOV S89 【<$GLOBAL(HHJX-行会捐献第1名)>】
SetStringBlank S89 20 1
CALCVAR HUMAN HHJX-行会捐献第1名显示 = <$STR(S89)>

MOV S89 【<$GLOBAL(HHJX-行会捐献第2名)>】
SetStringBlank S89 20 1
CALCVAR HUMAN HHJX-行会捐献第2名显示 = <$STR(S89)>

#IF
HAVEGUILD
#ACT
GOTO @加载行会变量
#SAY
<行会捐献排名>  <我要为行会做贡献/@@InPutInteger82>  <查看行会附加属性/@查看行会附加属性>\
<--------------------------------------------------/SCOLOR=2>\
<行会排名第一名/SCOLOR=254>--<$HUMAN(HHJX-行会捐献第1名显示)> <共捐献元宝:/SCOLOR=253>【<$GLOBAL(HHJX-行会捐献第1数)>】\
<行会排名第二名/SCOLOR=254>--<$HUMAN(HHJX-行会捐献第2名显示)> <共捐献元宝:/SCOLOR=253>【<$GLOBAL(HHJX-行会捐献第2数)>】\
<--------------------------------------------------/SCOLOR=2>\
<提示：当行会有排名,全会成员都将享受属性加成！/SCOLOR=250>\
<合区后排名将会刷新！/SCOLOR=250><“所有人都可以为自己行会捐献”>\
<您目前行会累计捐献为:/SCOLOR=253><$GUILD(HHJX-行会捐献金额)><元宝/SCOLOR=253>\
<最低捐献:$(捐献最低金额)元宝  最高捐献:$(捐献最高金额)元宝/SCOLOR=242>  \
#ELSESAY
<行会捐献排名>  <我要为行会做贡献/@@InPutInteger82>  <查看行会附加属性/@查看行会附加属性>\
<--------------------------------------------------/SCOLOR=2>\
<行会排名第一名/SCOLOR=254>--<$HUMAN(HHJX-行会捐献第1名显示)> <共捐献元宝:/SCOLOR=253>【<$GLOBAL(HHJX-行会捐献第1数)>】\
<行会排名第二名/SCOLOR=254>--<$HUMAN(HHJX-行会捐献第2名显示)> <共捐献元宝:/SCOLOR=253>【<$GLOBAL(HHJX-行会捐献第2数)>】\
<--------------------------------------------------/SCOLOR=2>\
<提示：当行会有排名,全会成员都将享受属性加成！/SCOLOR=250>\
<合区后排名将会刷新！/SCOLOR=250><“所有人都可以为自己行会捐献”>\
<您目前行会累计捐献为:/SCOLOR=253>0<元宝/SCOLOR=253> \
<最低捐献:$(捐献最低金额)元宝  最高捐献:$(捐献最高金额)元宝/SCOLOR=242>  \

[@InPutInteger82]
#IF
HAVEGUILD
#ACT
GOTO @加载行会变量
#ELSEACT
messagebox 你没有行会,不能进行行会捐献！
BREAK
#IF
SMALL N82 $(捐献最低金额)
#ACT
messagebox 请输入$(捐献最低金额)~$(捐献最高金额)元宝以内的金额！
BREAK
#IF
LARGE N82 $(捐献最高金额)
#ACT
messagebox 请输入$(捐献最低金额)~$(捐献最高金额)元宝以内的金额！
BREAK
#IF
CHECKLEVELEX > 0
#ACT
MOV P61 <$GUILD(HHJX-行会捐献金额)>
INC P61 <$STR(N82)>
#IF
LARGE P61 0
#ELSEACT
messagebox 你当前所捐献的金额,累计到你们行会总额里后超出系统上限,请重新输入！\(最高累计金额21.47亿)
BREAK

#IF
CHECKGAMEGOLD < <$STR(N82)>
#ACT
messagebox 你没有<$STR(N82)>元宝,拿什么捐献？
BREAK
#ELSEACT
gamegold - <$STR(N82)>
CALCVAR GUILD HHJX-行会捐献金额 + <$STR(N82)>
SAVEVAR GUILD HHJX-行会捐献金额 ..\QuestDiary\子木脚本库\行会捐献系统\行会捐献数据.txt
GuildNoticeMsg 254 0 【行会捐献提示】：[<$USERNAME>]为他的行会[<$GUILDNAME>]
GuildNoticeMsg 254 0 　　　　　　　　　捐献了[<$STR(N82)>]元宝！
GuildNoticeMsg 254 0 　　　　　　　　　其他本行会成员,也来出点力吧！
GOTO @开始行会排名
GOTO @行会捐献系统

[@开始行会排名]
#IF
CHECKLEVELEX > 0
#ACT
SortHumVarToListEx HHJX-行会捐献金额 ..\QuestDiary\子木脚本库\行会捐献系统\行会捐献数据.txt 1 ..\QuestDiary\子木脚本库\行会捐献系统\行会捐献排名.txt 1
AddTextList ..\QuestDiary\子木脚本库\行会捐献系统\行会捐献排名.txt 　:0
AddTextList ..\QuestDiary\子木脚本库\行会捐献系统\行会捐献排名.txt 　:0
#IF
CHECKLEVELEX > 0
#ACT
GetListString ..\QuestDiary\子木脚本库\行会捐献系统\行会捐献排名.txt 0 s90 N90
#IF
LARGE N90 0
#ACT
CALCVAR GLOBAL HHJX-行会捐献第1名 = <$STR(s90)>
SAVEVAR GLOBAL HHJX-行会捐献第1名 ..\QuestDiary\子木脚本库\行会捐献系统\行会捐献数据.txt
CALCVAR GLOBAL HHJX-行会捐献第1数 = <$STR(N90)>
SAVEVAR GLOBAL HHJX-行会捐献第1数 ..\QuestDiary\子木脚本库\行会捐献系统\行会捐献数据.txt
#IF
CHECKLEVELEX > 0
#ACT
GetListString ..\QuestDiary\子木脚本库\行会捐献系统\行会捐献排名.txt 1 s90 N90
#IF
LARGE N90 0
#ACT
CALCVAR GLOBAL HHJX-行会捐献第2名 = <$STR(s90)>
SAVEVAR GLOBAL HHJX-行会捐献第2名 ..\QuestDiary\子木脚本库\行会捐献系统\行会捐献数据.txt
CALCVAR GLOBAL HHJX-行会捐献第2数 = <$STR(N90)>
SAVEVAR GLOBAL HHJX-行会捐献第2数 ..\QuestDiary\子木脚本库\行会捐献系统\行会捐献数据.txt

#IF
CHECKVAR GLOBAL HHJX-上次排名第1名 = <$GLOBAL(HHJX-行会捐献第1名)>
#ELSEACT
GuildNoticeMsg 250 0 【行会捐献排名提示】:[<$GLOBAL(HHJX-行会捐献第1名)>]行会晋升到第1名
GuildNoticeMsg 250 0 　　　　　　　　　　:[<$GLOBAL(HHJX-行会捐献第1名)>]本行会所有成员HP+$(捐献排名1属性)攻魔道+$(捐献排名3属性)

#IF
CHECKVAR GLOBAL HHJX-上次排名第2名 = <$GLOBAL(HHJX-行会捐献第2名)>
#ACT
BREAK

#IF
CHECKVAR GLOBAL HHJX-上次排名第1名 = <$GLOBAL(HHJX-行会捐献第2名)>
#ACT
GuildNoticeMsg 248 0 【行会捐献排名提示】:[<$GLOBAL(HHJX-行会捐献第2名)>]行会降级到第2名
GuildNoticeMsg 248 0 　　　　　　　　　　:[<$GLOBAL(HHJX-行会捐献第2名)>]本行会所有成员HP+$(捐献排名2属性)攻魔道+$(捐献排名4属性)
#ELSEACT
GuildNoticeMsg 242 0 【行会捐献排名提示】:[<$GLOBAL(HHJX-行会捐献第2名)>]行会晋升到第2名
GuildNoticeMsg 242 0 　　　　　　　　　　:[<$GLOBAL(HHJX-行会捐献第2名)>]本行会所有成员HP+$(捐献排名2属性)攻魔道+$(捐献排名4属性)

#IF
CHECKLEVELEX > 0
#ACT
GMEXECUTE 开始提问 @行会捐献属性刷新
CALCVAR GLOBAL HHJX-上次排名第1名 = <$GLOBAL(HHJX-行会捐献第1名)>
CALCVAR GLOBAL HHJX-上次排名第2名 = <$GLOBAL(HHJX-行会捐献第2名)>

[@加载行会变量]
#IF
CheckTextList ..\QuestDiary\子木脚本库\行会捐献系统\行会变量加载名单.txt <$GUILDNAME>
#ACT
BREAK
#if
CHECKLEVELEX > 0
#act
#CALL [\子木脚本库\行会捐献系统\行会捐献数据QM触发.txt] @开始加载行会变量

[@查看行会附加属性]
#ACT
messagebox 捐献第一名行会成员HP+$(捐献排名1属性)攻魔道+$(捐献排名3属性)\捐献第二名行会成员HP+$(捐献排名2属性)攻魔道+$(捐献排名4属性)\（附加属性随着排名高低实时增加减少）

天涯 · 发表于 2019-9-13 07:23:20

晕晕的，即然稳坐一楼沙发，尔等只能仰视！

黑色的记忆 · 发表于 2019-9-13 07:39:41

支持，赞一个

九天劫 · 发表于 2019-9-13 07:42:15

介是神马？！！

三三哥 · 发表于 2019-9-13 08:03:05

支持，赞一个

竹马 · 发表于 2019-9-13 08:49:24

介是神马？！！

哎呦我去 · 发表于 2019-9-14 01:32:07

边撸边过

如若再遇 · 发表于 2019-9-14 11:24:48

珍爱生命，果断回帖。

传奇归来 · 发表于 2019-9-14 11:27:16

路过帮顶嘿嘿

一水之隔 · 发表于 2019-9-14 14:20:56

向楼主学习

`设为首页收藏本站`

[传奇一键替换包]

[GOM引擎] GOM引擎传奇行会捐献脚本，传奇版本库开区时添加行会捐献排名教程。

华夏沉默专属单职业传奇版本带假人-奇遇地

鬼书攻速超变单职业传奇版本-魔灵废墟-雪域

大汉千年暗黑铭文复古沉默三职业传奇服务端

映月传奇沉默神器三职业传奇版本-极寒宝座-

斗破苍穹单职业传奇服务端带假人系统-无双

战国传奇铭文复古三职业传奇版本-焚香谷-洪

大闹西游剧情复古单职业-真龙秘境-地狱之门

赤炎邪神复古单职业传奇版本带假人-石路小

上古问天无限刀速轻变传奇版本带假人功能-

灌水之王

活跃会员

突出贡献

优秀版主

荣誉管理

论坛元老