全新捐献系统脚本|带效果图

捐献系统脚本

[@main]

　\

　　　【亲爱的玩家】<您好,欢迎您使用俸禄捐献系统!/SCOLOR=68>\　\

　　　　  <俸禄捐献系统可以大大提升您的知名度/SCOLOR=254>\

　　　　 <只要您排到前五名就可以获得丰富的奖励/SCOLOR=254>\

　　　　<【捐献必须高于5000元宝才可以获得俸禄】>\

　 　<捐献元宝最低数额为/SCOLOR=250><5000><,合区后清理捐献排行!/SCOLOR=250>\

　　 <获得的爵位,会给予相应的隐藏属性,还有绚丽的称号!>\

　<查看爵位待遇/@查看待遇>　　　<我要捐款/@@InPutInteger88>　　　<捐款排名/@沙城捐献1>　　<关闭对话/@exit>

[@查看待遇]

沙城捐献:所有捐献的元宝累积将作为攻沙奖励,根据捐献元宝的数量　\

来排行爵位,爵位越高获赠属性就越高!共分为以下六级:0　\

第一名：总统→属性额外增加<60-60/SCOLOR=250>点　\

第二名：公爵→属性额外增加<50-50/SCOLOR=253>点　　<查看自己是否在排名中/@查看是否排名>　\

第三名：侯爵→属性额外增加<40-40/SCOLOR=253>点　\

第四名：伯爵→属性额外增加<30-30/SCOLOR=253>点　  <捐够5000以上可进排名/SCOLOR=249>　\

第五名：子爵→属性额外增加<20-20/SCOLOR=253>点　　\

第六名：少爵→属性额外增加<10-10/SCOLOR=254>点　        <返回上页/@main>\

[@沙城捐献1]

#ACT

#CALL [\游戏登陆\捐献排名.txt] @开始捐献排名

MOV S0

MOV S1

MOV S2

MOV S3

MOV S4

GetRandomText .\QuestDiary\抽取数据\系统限制\空格限制.txt S5 1

INC S0 <$GLOBAL(捐献第一名名字)>

INC S0 <$STR(S5)>

INC S1 <$GLOBAL(捐献第二名名字)>

INC S1 <$STR(S5)>

INC S2 <$GLOBAL(捐献第三名名字)>

INC S2 <$STR(S5)>

INC S3 <$GLOBAL(捐献第四名名字)>

INC S3 <$STR(S5)>

INC S4 <$GLOBAL(捐献第五名名字)>

INC S4 <$STR(S5)>

DEC S0 16 66

DEC S1 16 66

DEC S2 16 66

DEC S3 16 66

DEC S4 16 66

#SAY

第一名<属性60-60/SCOLOR=253>  →<总统/SCOLOR=70>：{<$STR(S0)>/SCOLOR=253} 所捐献元宝数：{<$GLOBAL(捐献第一名个数)>/SCOLOR=250}\

第二名<属性50-50/SCOLOR=249>  →<公爵/SCOLOR=70>：{<$STR(S1)>/SCOLOR=253} 所捐献元宝数：{<$GLOBAL(捐献第二名个数)>/SCOLOR=250}\

第三名<属性40-40/SCOLOR=249>  →<侯爵/SCOLOR=70>：{<$STR(S2)>/SCOLOR=253} 所捐献元宝数：{<$GLOBAL(捐献第三名个数)>/SCOLOR=250}\

第四名<属性30-30/SCOLOR=249>  →<伯爵/SCOLOR=70>：{<$STR(S3)>/SCOLOR=253} 所捐献元宝数：{<$GLOBAL(捐献第四名个数)>/SCOLOR=250}\

第五名<属性20-20/SCOLOR=249>  →<子爵/SCOLOR=70>：{<$STR(S4)>/SCOLOR=253} 所捐献元宝数：{<$GLOBAL(捐献第五名个数)>/SCOLOR=250}\

第六名<属性10-10/SCOLOR=254>  →<少爵/SCOLOR=70>：　　　　　　　　<查看自己是否在排行/@查看是否排名>\　\

<开始捐献/@@InPutInteger88>　　　　　　　　<查看待遇/@查看待遇>　　　　　　　　<返回上页/@main>

[@CALLInPutInteger88]

#if

small N88 5000

#ACT

MESSAGEBOX ぐ【失败】：最少捐献5000元宝!

GOTO @沙城捐献1

BREAK

#IF

CHECKGAMEGOLD < <$STR(N88)>

#ACT

MESSAGEBOX ぐ【失败】：您身上元宝不足<$STR(N88)>个!

GOTO @沙城捐献1

BREAK

#ELSEACT

GAMEGOLD - <$STR(N88)>

CALCVAR HUMAN 捐献元宝 + <$STR(N88)>

SAVEVAR HUMAN 捐献元宝 ..\QuestDiary\数据文件\捐献元宝.txt

CALCVAR GLOBAL 捐献总额 + <$STR(N88)>

SAVEVAR GLOBAL 捐献总额 ..\QuestDiary\数据文件\捐献排名数据.txt

GOTO @沙城捐献1

BREAK

[@查看是否排名]

#IF

CHECKVAR HUMAN 捐献元宝 > 4999

#ACT

MESSAGEBOX ぐ恭喜：您在第六名排名内...

BREAK

#elseact

MESSAGEBOX ぐ抱歉：您不在第六名排名内....

BREAK