|
|
发表于 2020-2-25 16:05:55
|
显示全部楼层
@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
|
|
楼主: 22pk论坛
