[@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 ぐ抱歉:您不在第六名排名内.... |