爵位捐献俸禄捐献系统传奇脚本

[@Main]
#SAY


　\
　　　【亲爱的玩家】<您好欢迎您使用俸禄捐献系统!/SCOLOR=68>\　\
　　　　<俸禄捐献系统可以大大提升您的知名度/SCOLOR=254>\
　　　　<只要您排到前五名就可以获得丰富的奖励/SCOLOR=254>\
　　　　<【捐献必须高于2000元宝才可以获得俸禄】>\
　　<捐献元宝最低数额为/SCOLOR=250><2000><每10天清理捐献排行!/SCOLOR=250>\
　　<获得的爵位会给予相应的隐藏属性还有绚丽的称号!>\
　<查看爵位待遇/@查看待遇>　　　<我要捐款/@@InPutInteger88>　　　<捐款排名/@沙城捐献1>　　<关闭对话/@exit>


[@查看待遇]
沙城捐献:所有捐献的元宝累积将作为攻沙奖励根据捐献元宝的数量　\
来排行爵位爵位越高获赠属性就越高!共分为以下六级:0　\　\
第一名：<玛法首富/SCOLOR=151>→属性额外增加<150-150/SCOLOR=250>点　\
第二名：<富可敌国/SCOLOR=151>→属性额外增加<120-120/SCOLOR=253>点　<查看自己是否在排名中/@查看是否排名>　\
第三名：<富甲一方/SCOLOR=151>→属性额外增加<100-100/SCOLOR=253>点　\
第四名：<腰缠万贯/SCOLOR=151>→属性额外增加<80-80/SCOLOR=253>点　<捐够4000以上可进排名/SCOLOR=249>　\
第五名：<财大气粗/SCOLOR=151>→属性额外增加<50-50/SCOLOR=253>点　　\
第六名：<小有资产/SCOLOR=151>→属性额外增加<30-30/SCOLOR=254>点　<返回上页/@main>\


[@沙城捐献1]
#ACT
#CALL[\游戏登陆\捐献排名.txt]@开始捐献排名
MOVS0
MOVs6
MOVS2
MOVS3
MOVS4
GetRandomText.\QuestDiary\抽取数据\系统限制\空格限制.txtS51
INCS0<$GLOBAL(捐献第一名名字)>
INCS0<$STR(S5)>
INCS6<$GLOBAL(捐献第二名名字)>
INCS6<$STR(S5)>
INCS2<$GLOBAL(捐献第三名名字)>
INCS2<$STR(S5)>
INCS3<$GLOBAL(捐献第四名名字)>
INCS3<$STR(S5)>
INCS4<$GLOBAL(捐献第五名名字)>
INCS4<$STR(S5)>
DECS01666
DECS61666
DECS21666
DECS31666
DECS41666
#SAY
\\
第一名：<玛法首富/SCOLOR=151>→{<$STR(S0)>/SCOLOR=253}所捐献元宝数：{<$GLOBAL(捐献第一名个数)>/SCOLOR=250}\
第二名：<富可敌国/SCOLOR=151>→{<$STR(S6)>/SCOLOR=253}所捐献元宝数：{<$GLOBAL(捐献第二名个数)>/SCOLOR=250}\
第三名：<富甲一方/SCOLOR=151>→{<$STR(S2)>/SCOLOR=253}所捐献元宝数：{<$GLOBAL(捐献第三名个数)>/SCOLOR=250}\
第四名：<腰缠万贯/SCOLOR=151>→{<$STR(S3)>/SCOLOR=253}所捐献元宝数：{<$GLOBAL(捐献第四名个数)>/SCOLOR=250}\
第五名：<财大气粗/SCOLOR=151>→{<$STR(S4)>/SCOLOR=253}所捐献元宝数：{<$GLOBAL(捐献第五名个数)>/SCOLOR=250}\
第六名：<小有资产/SCOLOR=151>　　　　　　　　<查看自己是否在排行/@查看是否排名>\　\
<开始捐献/@@InPutInteger88>　　　　　　　　<查看待遇/@查看待遇>　　　　　　　　<返回上页/@main>

[@CALLInPutInteger88]
#if
smallN882000
#ACT
MESSAGEBOXぐ【失败】：最少捐献2000元宝!
GOTO@沙城捐献1
BREAK
#IF
CHECKGAMEGOLD<<$STR(N88)>
#ACT
MESSAGEBOXぐ【失败】：您身上元宝不足<$STR(N88)>个!
GOTO@沙城捐献1
BREAK
#ELSEACT
GAMEGOLD-<$STR(N88)>
CALCVARHUMAN捐献元宝+<$STR(N88)>
SAVEVARHUMAN捐献元宝..\QuestDiary\数据文件\捐献元宝.txt
CALCVARGLOBAL捐献总额+<$STR(N88)>
SAVEVARGLOBAL捐献总额..\QuestDiary\数据文件\捐献排名数据.txt
GOTO@沙城捐献1
BREAK
[@查看是否排名]
#IF
CHECKVARHUMAN捐献元宝>1999
#ACT
MESSAGEBOXぐ恭喜：您在第六名排名内...
BREAK
#elseact
MESSAGEBOXぐ抱歉：您不在第六名排名内....
BREAK