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

[@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属性)\（附加属性随着排名高低实时增加减少）

版权声明

1、本站所有内容均由互联网收集整理、网友上传，仅供大家参考、学习研究使用，不存在任何商业目的与商业用途。

2、论坛的所有内容都不保证其准确性，完整性，有效性，因本站内容因误导等因素而造成的损失本站不承担连带责任。

3、本站以《2013 中华人民共和国计算机软件保护条例》第二章 “软件著作权” 第十七条为原则：为了学习和研究软件内含的设计思想和原理，通过安装、显示、传输或者存储软件等方式使用软件的，可以不经软件著作权人许可，若有用户需要商用本站资源，请务必联系版权方购买正版授权！

比较全的传奇脚本分享网站，站长辛苦了。

这个帖子不回对不起自己！

楼主发贴辛苦了，谢谢楼主分享！感谢楼主提供这么好的论坛！

下次在来看脚本

谢谢.脚本收到.很好用

比较全的传奇脚本分享网站，站长辛苦了。

楼主发贴辛苦了，谢谢楼主分享！感谢楼主提供这么好的论坛！

下次在来看脚本

比较全的传奇脚本分享网站，站长辛苦了。