[GOM]元宝捐献系统（经典坑钱）

爱上版本库

[@main]
　\
<━━━━━━━━━━━━━━━━━━━━━━━━━━━━━/SCOLOR=250>\
　　　<【亲爱的玩家】/SCOLOR=249><您好,欢迎您使用俸禄捐献系统!/SCOLOR=70>\　
　　　　 <俸禄捐献系统可以大大提升您的知名度/SCOLOR=250>\
　　　　 <只要您排到前五名就可以获得丰富的奖励/SCOLOR=254>\
　　　　<【捐献必须高于5000元宝才可以获得俸禄】>\
　 　 <捐献元宝最低数额为/SCOLOR=250><5000><,合区后清理捐献排行!/SCOLOR=250>\
　　<获得的排行,会给予相应的隐藏属性!>\
　<排行待遇/@查看待遇>　  　<我要捐款/@@InPutInteger88>　　  <捐款排名/@元宝捐献>　　  <关闭对话/@exit>\
<━━━━━━━━━━━━━━━━━━━━━━━━━━━━━/SCOLOR=250>\

[@查看待遇]
　\
<捐献元宝合区后将清理，请不要盲目捐献,根据捐献元宝的数量/SCOLOR=70>　\
<来排行,排行越高获赠神兽庇护属性就越高!共分为以下六级:↓/SCOLOR=70>　\
<第一名：/SCOLOR=250><获得  →  攻魔道属性增加 100-100点  ← /SCOLOR=70>　\
<第二名：/SCOLOR=250><获得  →  攻魔道属性增加 80- 80点   ← /SCOLOR=249> \
<第三名：/SCOLOR=250><获得  →  攻魔道属性增加 60- 60点   ← /SCOLOR=253>　\
<第四名：/SCOLOR=250><获得  →  攻魔道属性增加 40- 40点   ← /SCOLOR=252> 　\
<第五名：/SCOLOR=250><获得  →  攻魔道属性增加 20- 20点   ← /SCOLOR=254>　　\
<第六名：/SCOLOR=250><获得  →  攻魔道属性增加 10- 10点   ← /SCOLOR=250>　    \
<捐够5000以上可进排名/SCOLOR=249>     <查看自己是否在排名中/@查看是否排名>    <返回上页/@main>\


[@元宝捐献]
#act
MOV S91 　<$GLOBAL(YBJX-捐献第1名)>
SetStringBlank S91 18 0
MOV S92 　<$GLOBAL(YBJX-捐献第2名)>
SetStringBlank S92 18 0
MOV S93 　<$GLOBAL(YBJX-捐献第3名)>
SetStringBlank S93 18 0
MOV S94 　<$GLOBAL(YBJX-捐献第4名)>
SetStringBlank S94 18 0
MOV S95 　<$GLOBAL(YBJX-捐献第5名)>
SetStringBlank S95 18 0

#SAY
　\
　<第一名/SCOLOR=250> <攻魔道 100-100:/SCOLOR=70>{<$STR(S91)>/SCOLOR=253} <捐献元宝数:/SCOLOR=70>{<$GLOBAL(YBJX-捐献第1数)>/SCOLOR=250}\
　<第二名/SCOLOR=250> <攻魔道 80- 80 :/SCOLOR=249>{<$STR(S92)>/SCOLOR=253} <捐献元宝数:/SCOLOR=249>{<$GLOBAL(YBJX-捐献第2数)>/SCOLOR=250}\
　<第三名/SCOLOR=250> <攻魔道 60- 60 :/SCOLOR=253>{<$STR(S93)>/SCOLOR=253} <捐献元宝数:/SCOLOR=253>{<$GLOBAL(YBJX-捐献第3数)>/SCOLOR=250}\
　<第四名/SCOLOR=250> <攻魔道 40- 40 :/SCOLOR=252>{<$STR(S94)>/SCOLOR=253} <捐献元宝数:/SCOLOR=252>{<$GLOBAL(YBJX-捐献第4数)>/SCOLOR=250}\
　<第五名/SCOLOR=250> <攻魔道 20- 20 :/SCOLOR=254>{<$STR(S95)>/SCOLOR=253} <捐献元宝数:/SCOLOR=254>{<$GLOBAL(YBJX-捐献第5数)>/SCOLOR=250}\
　<第六名/SCOLOR=250> <攻魔道 10- 10 :/SCOLOR=250>　　　　　　　　<查看自己是否在排行/@查看是否排名>\
　\
　<【个人捐献总额】：/SCOLOR=2><$HUMAN(YBJX-个人捐献)>元宝\
　<开始捐献/@@InPutInteger88>　　　　　　　　<查看待遇/@查看待遇>　　　　　　　　<返回上页/@main>





[@查看是否排名]
#if
CHECKVAR HUMAN YBJX-个人捐献 < 5000
#ACT
messagebox 很遗憾！你不在元宝捐献排名6名之内！
#ELSEACT
messagebox 恭喜你！你在元宝捐献排名6名之内！



[@CallInPutInteger88]
#if
small N88 5000
#ACT
MESSAGEBOX ぐ【失败】：最少捐献5000元宝!
BREAK
#IF
CHECKLEVELEX > 0
#ACT
MOV P61 <$HUMAN(YBJX-个人捐献)>
INC P61 <$STR(N88)>
#IF
LARGE P61 0
#ELSEACT
messagebox 你当前所捐献的金额,累计总额里后超出系统上限,请重新输入！\(最高累计金额21.47亿)
BREAK

#IF
CHECKGAMEGOLD < <$STR(N88)>
#ACT
messagebox 你没有<$STR(N88)>元宝,拿什么捐献？
BREAK
#ELSEACT
gamegold - <$STR(N88)>
CALCVAR HUMAN YBJX-个人捐献 + <$STR(N88)>
SAVEVAR HUMAN YBJX-个人捐献 ..\QuestDiary\92vk.com元宝捐献\92vk.com元宝捐献排行数据.txt
GOTO @开始捐献排名
GuildNoticeMsg 254 0 【元宝捐献提示】：[<$USERNAME>]捐献了[<$STR(N88)>]元宝!当前排名:<$STR(S96)>
GOTO @元宝捐献

;;;;;;;;;;;↓这里自行查询GM命令 管理命令  提问代码
GMEXECUTE 开始提问 @92vk.com元宝捐献属性刷新












[@开始捐献排名]
#IF
CHECKLEVELEX > 0
#ACT
SortHumVarToListEx YBJX-个人捐献 .\QuestDiary\92vk.com元宝捐献\92vk.com元宝捐献排行数据.txt 1 .\QuestDiary\92vk.com元宝捐献\92vk.com元宝捐献排行排名.txt 1
AddTextList .\QuestDiary\92vk.com元宝捐献\92vk.com元宝捐献排行排名.txt 　:0
AddTextList .\QuestDiary\92vk.com元宝捐献\92vk.com元宝捐献排行排名.txt 　:0
AddTextList .\QuestDiary\92vk.com元宝捐献\92vk.com元宝捐献排行排名.txt 　:0
AddTextList .\QuestDiary\92vk.com元宝捐献\92vk.com元宝捐献排行排名.txt 　:0
AddTextList .\QuestDiary\92vk.com元宝捐献\92vk.com元宝捐献排行排名.txt 　:0

#IF
CHECKLEVELEX > 0
#ACT
GetListString .\QuestDiary\92vk.com元宝捐献\92vk.com元宝捐献排行排名.txt 0 s90 N90
#IF
LARGE N90 0
#ACT
CALCVAR GLOBAL YBJX-捐献第1名 = <$STR(s90)>
CALCVAR GLOBAL YBJX-捐献第1数 = <$STR(N90)>
#ELSEACT
CALCVAR GLOBAL YBJX-捐献第1名 = 　
CALCVAR GLOBAL YBJX-捐献第1数 =
#IF
CHECKLEVELEX > 0
#ACT
GetListString .\QuestDiary\92vk.com元宝捐献\92vk.com元宝捐献排行排名.txt 1 s90 N90
#IF
LARGE N90 0
#ACT
CALCVAR GLOBAL YBJX-捐献第2名 = <$STR(s90)>
CALCVAR GLOBAL YBJX-捐献第2数 = <$STR(N90)>
#ELSEACT
CALCVAR GLOBAL YBJX-捐献第2名 = 　
CALCVAR GLOBAL YBJX-捐献第2数 =
#IF
CHECKLEVELEX > 0
#ACT
GetListString .\QuestDiary\92vk.com元宝捐献\92vk.com元宝捐献排行排名.txt 2 s90 N90
#IF
LARGE N90 0
#ACT
CALCVAR GLOBAL YBJX-捐献第3名 = <$STR(s90)>
CALCVAR GLOBAL YBJX-捐献第3数 = <$STR(N90)>
#ELSEACT
CALCVAR GLOBAL YBJX-捐献第3名 = 　
CALCVAR GLOBAL YBJX-捐献第3数 =
#IF
CHECKLEVELEX > 0
#ACT
GetListString .\QuestDiary\92vk.com元宝捐献\92vk.com元宝捐献排行排名.txt 3 s90 N90
#IF
LARGE N90 0
#ACT
CALCVAR GLOBAL YBJX-捐献第4名 = <$STR(s90)>
CALCVAR GLOBAL YBJX-捐献第4数 = <$STR(N90)>
#ELSEACT
CALCVAR GLOBAL YBJX-捐献第4名 = 　
CALCVAR GLOBAL YBJX-捐献第4数 =
#IF
CHECKLEVELEX > 0
#ACT
GetListString .\QuestDiary\92vk.com元宝捐献\92vk.com元宝捐献排行排名.txt 4 s90 N90
#IF
LARGE N90 0
#ACT
CALCVAR GLOBAL YBJX-捐献第5名 = <$STR(s90)>
CALCVAR GLOBAL YBJX-捐献第5数 = <$STR(N90)>
#ELSEACT
CALCVAR GLOBAL YBJX-捐献第5名 = 　
CALCVAR GLOBAL YBJX-捐献第5数 =

#if
CHECKVAR GLOBAL YBJX-捐献第1名 = <$USERNAME>
#act
MOV S96 第一名
BREAK
#if
CHECKVAR GLOBAL YBJX-捐献第2名 = <$USERNAME>
#act
MOV S96 第二名
BREAK
#if
CHECKVAR GLOBAL YBJX-捐献第3名 = <$USERNAME>
#act
MOV S96 第三名
BREAK
#if
CHECKVAR GLOBAL YBJX-捐献第4名 = <$USERNAME>
#act
MOV S96 第四名
BREAK
#if
CHECKVAR GLOBAL YBJX-捐献第5名 = <$USERNAME>
#act
MOV S96 第五名
#ELSEACT
MOV S96 第六名

游客，如果您要查看本帖隐藏内容请回复

xieme123

[GOM]元宝捐献系统（经典坑钱） [修改