GOM引擎金币捐献封榜脚本

2727611031

===========================================================         
QQ交流群:①：615629963（推荐） ②：xxxxxxxx（推荐） ③：xxxxxxxx（推荐） ④：xxxxxxxx（推荐）
===========================================================

单机架设教程：https://www.30wj.com/thread-22344-1-1.html

===========================================================   

郑重申明：本论坛传奇内容只供个人学习娱乐使用，如违规违法后果自负，与本论坛无关！！!

==========================================================

资源下载：

===========================================================
金币充值比例 1/10   下载链接失效联系QQ 2727611031  处理
逐枫传奇版本库论坛业务介绍：服务器租用，版本修改，收徒，传奇一条龙
============================================================


图片介绍：



===========================================================


内容介绍：


QM登录文本


VAR Integer HUMAN 捐献积分
LOADVAR HUMAN 捐献积分 ..\QuestDiary\疯哥顶榜系统\顶榜数据.txt







[@富豪捐献更新]
#IF
CHECK [199] 1
#ACT
BREAK

#IF
#ACT
DEPRIVETITLE 捐献第一
DEPRIVETITLE 捐献第二
DEPRIVETITLE 捐献第三
DEPRIVETITLE 爱心大使

#IF
#ACT
GetListString ..\QuestDiary\疯哥顶榜系统\顶榜排行.txt 0 S$第一名字 N$第一数量
GetListString ..\QuestDiary\疯哥顶榜系统\顶榜排行.txt 1 S$第二名字 N$第二数量
GetListString ..\QuestDiary\疯哥顶榜系统\顶榜排行.txt 2 S$第三名字 N$第三数量

#IF
CHECK [199] 0
CHECKVAR HUMAN 捐献积分 > 1287
#ACT
CONFERTITLE 捐献第一
SET [199] 1
inc A20 ^-^251#<$USERNAME>
BREAK

#IF
EQUAL S$第一名字 <$USERNAME>
#ACT
CONFERTITLE 捐献第二

#IF
EQUAL S$第二名字 <$USERNAME>
#ACT
CONFERTITLE 捐献第三

#IF
NOT CHECKTITLE 捐献第一
NOT CHECKTITLE 捐献第二
NOT CHECKTITLE 捐献第三
CHECKVAR HUMAN 捐献积分 > 99
#ACT
CONFERTITLE 爱心大使



















NPC      

[@main]
#IF
#ACT
MOV S$封榜名单  <查看排行第一名单|250#封榜名单：<$STR(A20)>/SCOLOR=70>


#IF
#ACT
GetListString ..\QuestDiary\疯哥顶榜系统\顶榜排行.txt 0 S$第一名字 N$第一数量
GetListString ..\QuestDiary\疯哥顶榜系统\顶榜排行.txt 1 S$第二名字 N$第二数量
GetListString ..\QuestDiary\疯哥顶榜系统\顶榜排行.txt 2 S$第三名字 N$第三数量
GetListString ..\QuestDiary\疯哥顶榜系统\顶榜排行.txt 3 S$第四名字 N$第四数量


#IF
NOT EQUAL A20
#ACT
MOV N$第一数量A 1288

#IF
#ACT
MOV S$第一数量A <$STR(N$第一数量A)>
MOV S$第一数量 <$STR(N$第一数量)>
MOV S$第二数量 <$STR(N$第二数量)>
MOV S$第三数量 <$STR(N$第三数量)>
MOV S$第四数量 <$STR(N$第四数量)>
MOV S$第五数量 <$STR(N$第五数量)>
MOV S$第六数量 <$STR(N$第六数量)>

SetStringBlank S$第一名字 16 1
SetStringBlank S$第二名字 16 1
SetStringBlank S$第三名字 16 1
SetStringBlank S$第四名字 16 1
SetStringBlank S$第五名字 16 1
SetStringBlank S$第一数量A 4 1
SetStringBlank S$第一数量 4 1
SetStringBlank S$第二数量 4 1
SetStringBlank S$第三数量 4 1
SetStringBlank S$第四数量 4 1
SetStringBlank S$第五数量 4 1


#IF
#act
OPENMERCHANTBIGDLG 43 505 1 0 2 26 1 411 2
#SAY
<顶榜捐献：捐献金额将部分记录沙巴克奖励/SCOLOR=250>   您已捐献：{<$HUMAN(捐献积分)>/SCOLOR=69}\
<--------------------------------------------------------------/SCOLOR=7>\
<第一名/SCOLOR=254>:<『/SCOLOR=251><$STR(S$封榜名单)><』/SCOLOR=251> <捐献数量:/SCOLOR=254><≮/SCOLOR=254>{<$STR(S$第一数量A)>/SCOLOR=69}<≯/SCOLOR=254> <←查看获得属性|253#打怪切割800血^-^249#杀怪爆率+50%^-^251#攻魔道+80^-^254#体力+5%^-^249#回城即满血^-^254#伤害减免+5%/SCOLOR=243>\
<第二名/SCOLOR=132>:<『/SCOLOR=251><$STR(S$第一名字)><』/SCOLOR=251> <捐献数量:/SCOLOR=132><≮/SCOLOR=132>{<$STR(S$第一数量)>/SCOLOR=69}<≯/SCOLOR=132> <←查看获得属性|253#打怪切割300血^-^249#杀怪爆率+30%^-^251#攻魔道+25^-^254#体力+3%/SCOLOR=243>\
<第三名/SCOLOR=149>:<『/SCOLOR=251><$STR(S$第二名字)><』/SCOLOR=251> <捐献数量:/SCOLOR=149><≮/SCOLOR=149>{<$STR(S$第二数量)>/SCOLOR=69}<≯/SCOLOR=149> <←查看获得属性|253#打怪切割200血^-^249#杀怪爆率+10%^-^251#攻魔道+5^-^254#体力+1%/SCOLOR=243>\

<--------------------------------------------------------------/SCOLOR=7>\
<低于1288且排名第一只可获得第二名！/SCOLOR=253><(捐献1288金币永久获得第一属性)/SCOLOR=70>\
<--------------------------------------------------------------/SCOLOR=7>\
< 任意捐献50金币，但不在榜内，都将获得“爱心大使”称号/SCOLOR=146><打怪切割+100血/SCOLOR=251>\
<--------------------------------------------------------------/SCOLOR=7>\
<捐献说明：/SCOLOR=249><每次玩家捐献的20%金额数，会自动累计至沙巴克奖池。/SCOLOR=242>\

\                    <╔════════╗/SCOLOR=254>\
\                    <║/SCOLOR=254>    <开始捐献/@@InPutInteger88(请输入捐献金额：最低50)>    <║/SCOLOR=254>    <捐献地图/@进入3>\
\                    <╚════════╝/SCOLOR=254>\



[@进入3]

[@InPutInteger88]
#IF
EQUAL N88 0
#ACT
messagebox 请输入捐款金额!
BREAK

#IF
#ACT
MOV N$限制金额A 0
INC N$限制金额A <$STR(N88)>
INC N$限制金额A <$HUMAN(捐献积分)>


#IF
large N$限制金额A 1288
#ACT
messagebox 你捐献的数量超过了1288！！！！
BREAK

#IF
SMALL N88 50
#ACT
messagebox 您所要的捐款的金额小于50!
BREAK

#IF
NOT CHECKgold <$STR(N88)>
#ACT
messagebox 您的金币不足：<$STR(N88)>，无法捐献！
BREAK


#IF
checkgold ? <$STR(N88)>
NOT CheckContainsText <$SERVERNAME> 01区
NOT CheckContainsText <$SERVERNAME> 02区
NOT CheckContainsText <$SERVERNAME> 03区
NOT CheckContainsText <$SERVERNAME> 04区
#ACT
take 金币 <$STR(N88)>
CALCVAR HUMAN 捐献积分 + <$STR(N88)>
SAVEVAR HUMAN 捐献积分 ..\QuestDiary\疯哥顶榜系统\顶榜数据.txt
SortHumVarToListEx 捐献积分 ..\QuestDiary\疯哥顶榜系统\顶榜数据.txt 1 ..\QuestDiary\疯哥顶榜系统\顶榜排行.txt 1
GOTO @检测第一捐献
GuildNoticeMsg 251 0  玩家『<$USERNAME>』捐款了『<$STR(N88)>』金币！！！
Gmexecute 开始提问 @富豪捐献更新
MESSAGEBOX 感谢您对本服的支持！
GOTO @MAIN
BREAK

#IF
CHECKtextlist ..\QuestDiary\开区状态.txt 测试
#ACT
take 金币 <$STR(N88)>
CALCVAR HUMAN 捐献积分 + <$STR(N88)>
SAVEVAR HUMAN 捐献积分 ..\QuestDiary\疯哥顶榜系统\顶榜数据.txt
SortHumVarToListEx 捐献积分 ..\QuestDiary\疯哥顶榜系统\顶榜数据.txt 1 ..\QuestDiary\疯哥顶榜系统\顶榜排行.txt 1
GOTO @检测第一捐献
GuildNoticeMsg 251 0  玩家『<$USERNAME>』捐款了『<$STR(N88)>』金币！！！
Gmexecute 开始提问 @富豪捐献更新
MESSAGEBOX 感谢您对本服的支持！
GOTO @MAIN
BREAK

#IF
checkgold ? <$STR(N88)>
CheckContainsText <$SERVERNAME> 01区
#ACT
take 金币 <$STR(N88)>
CALCVAR HUMAN 捐献积分 + <$STR(N88)>
SAVEVAR HUMAN 捐献积分 ..\QuestDiary\疯哥顶榜系统\顶榜数据.txt
Percent N35 N88 500
INC G98 <$STR(N35)>
SortHumVarToListEx 捐献积分 ..\QuestDiary\疯哥顶榜系统\顶榜数据.txt 1 ..\QuestDiary\疯哥顶榜系统\顶榜排行.txt 1
GOTO @检测第一捐献
GuildNoticeMsg 251 0  玩家『<$USERNAME>』捐款了『<$STR(N88)>』金币！！！
CLEARNAMELIST ..\..\..\..\!游戏配置\通区捐献\<$STR(A98)>\今日01区.txt
AddTextListEx ..\..\..\..\!游戏配置\通区捐献\<$STR(A98)>\今日01区.txt 今日首区:<$STR(G98)> 0
Gmexecute 开始提问 @富豪捐献更新
MESSAGEBOX 感谢您对本服的支持！
GOTO @MAIN
BREAK

#IF
checkgold ? <$STR(N88)>
CheckContainsText <$SERVERNAME> 02区
#ACT
take 金币 <$STR(N88)>
CALCVAR HUMAN 捐献积分 + <$STR(N88)>
SAVEVAR HUMAN 捐献积分 ..\QuestDiary\疯哥顶榜系统\顶榜数据.txt
Percent N35 N88 500
INC G98 <$STR(N35)>
SortHumVarToListEx 捐献积分 ..\QuestDiary\疯哥顶榜系统\顶榜数据.txt 1 ..\QuestDiary\疯哥顶榜系统\顶榜排行.txt 1
GOTO @检测第一捐献
GuildNoticeMsg 251 0  玩家『<$USERNAME>』捐款了『<$STR(N88)>』金币！！！
CLEARNAMELIST ..\..\..\..\!游戏配置\通区捐献\<$STR(A98)>\今日02区.txt
AddTextListEx ..\..\..\..\!游戏配置\通区捐献\<$STR(A98)>\今日02区.txt 今日二区:<$STR(G98)> 0
Gmexecute 开始提问 @富豪捐献更新
MESSAGEBOX 感谢您对本服的支持！
GOTO @MAIN
BREAK

#IF
checkgold ? <$STR(N88)>
CheckContainsText <$SERVERNAME> 03区
#ACT
take 金币 <$STR(N88)>
CALCVAR HUMAN 捐献积分 + <$STR(N88)>
SAVEVAR HUMAN 捐献积分 ..\QuestDiary\疯哥顶榜系统\顶榜数据.txt
Percent N35 N88 500
INC G98 <$STR(N35)>
SortHumVarToListEx 捐献积分 ..\QuestDiary\疯哥顶榜系统\顶榜数据.txt 1 ..\QuestDiary\疯哥顶榜系统\顶榜排行.txt 1
GOTO @检测第一捐献
GuildNoticeMsg 251 0  玩家『<$USERNAME>』捐款了『<$STR(N88)>』金币！！！
CLEARNAMELIST ..\..\..\..\!游戏配置\通区捐献\<$STR(A98)>\今日03区.txt
AddTextListEx ..\..\..\..\!游戏配置\通区捐献\<$STR(A98)>\今日03区.txt 今日三区:<$STR(G98)> 0
Gmexecute 开始提问 @富豪捐献更新
MESSAGEBOX 感谢您对本服的支持！
GOTO @MAIN
BREAK

#IF
checkgold ? <$STR(N88)>
CheckContainsText <$SERVERNAME> 04区
#ACT
take 金币 <$STR(N88)>
CALCVAR HUMAN 捐献积分 + <$STR(N88)>
SAVEVAR HUMAN 捐献积分 ..\QuestDiary\疯哥顶榜系统\顶榜数据.txt
Percent N35 N88 500
INC G98 <$STR(N35)>
SortHumVarToListEx 捐献积分 ..\QuestDiary\疯哥顶榜系统\顶榜数据.txt 1 ..\QuestDiary\疯哥顶榜系统\顶榜排行.txt 1
GOTO @检测第一捐献
GuildNoticeMsg 251 0  玩家『<$USERNAME>』捐款了『<$STR(N88)>』金币！！！
CLEARNAMELIST ..\..\..\..\!游戏配置\通区捐献\<$STR(A98)>\今日04区.txt
AddTextListEx ..\..\..\..\!游戏配置\通区捐献\<$STR(A98)>\今日04区.txt 今日四区:<$STR(G98)> 0
Gmexecute 开始提问 @富豪捐献更新
MESSAGEBOX 感谢您对本服的支持！
GOTO @MAIN
BREAK



[@检测第一捐献]
#IF
#ACT
GetListString ..\QuestDiary\疯哥顶榜系统\顶榜排行.txt 0 S$第一名字AA N$第一数量AA

#IF
EQUAL N$第一数量AA 1288
#ACT
DelTextList ..\QuestDiary\疯哥顶榜系统\顶榜排行.txt <$STR(S$第一名字AA)>:<$STR(N$第一数量AA)>
GOTO @检测第一捐献
#ELSEACT
BREAK




顶榜排行.txt 空白记录文本
顶榜数据.txt 空白记录文本

定邦触发



[@顶榜触发]
{

#IF
CHECK [199] 1
NOT CheckContainsText <$STR(A20)> <$USERNAME>
#ACT
inc A20 ^-^251#<$USERNAME>



#IF
CHECK [199] 1
#ACT
SENDMSG 5 您是捐款排行第一名,排名属性已生效！
GuildNoticeMsg 200 245 伟大的捐献[第一名]【%s】上线了,大家欢呼吧！！
BREAK

#IF
#ACT
DEPRIVETITLE 捐献第一
DEPRIVETITLE 捐献第二
DEPRIVETITLE 捐献第三
DEPRIVETITLE 爱心大使

#IF
#ACT
GetListString ..\QuestDiary\疯哥顶榜系统\顶榜排行.txt 0 S$第一名字 N$第一数量
GetListString ..\QuestDiary\疯哥顶榜系统\顶榜排行.txt 1 S$第二名字 N$第二数量
GetListString ..\QuestDiary\疯哥顶榜系统\顶榜排行.txt 2 S$第三名字 N$第三数量




#IF
EQUAL S$第一名字 <$USERNAME>
#ACT
CONFERTITLE 捐献第二
SENDMSG 5 您是捐款排行第二名,排名属性已生效！

#IF
EQUAL S$第二名字 <$USERNAME>
#ACT
CONFERTITLE 捐献第三
SENDMSG 5 您是捐款排行第三名,排名属性已生效！

#IF
NOT CHECKTITLE 捐献第一
NOT CHECKTITLE 捐献第二
NOT CHECKTITLE 捐献第三
CHECKVAR HUMAN 捐献积分 > 99
#ACT
CONFERTITLE 爱心大使



}




===========================================================

一笑而过

有没有传奇好的传奇发布站介绍个

wx_U778fUcb

好，很好，非常好！我爱 逐枫版本库