爵位募捐 俸禄募捐系统角本新开传奇发布站
发布时间:2015-12-22 00:36
内容来源:sf999点击:次
\
【敬爱的玩家】<您好,欢迎您利用俸禄募捐系统!/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] @末尾募捐排名
MOV S0
MOV s6
MOV S2
MOV S3
MOV S4
GetRandomText .\QuestDiary\抽取数据\系统限度\空格限度.txt S5 1
INC S0 <$GLOBAL(募捐第一名名字)>
INC S0 <$STR(S5)>
INC S6 <$GLOBAL(募捐第二名名字)>
INC S6 <$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 S6 16 66
DEC S2 16 66
DEC S3 16 66
DEC S4 16 66
#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
small N88 2000
#ACT
MESSAGEBOX ぐ【失败】:起码募捐2000元宝!
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 募捐元宝 > 1999
#ACT
MESSAGEBOX ぐ祝贺:您在第六名排名内...
BREAK
#elseact
MESSAGEBOX ぐ抱歉:您不在第六名排名内....
BREAK |
------分隔线----------------------------