【常用脚本】全新俸禄捐献系统脚本|带效果图传奇脚本

2018-11-05    来源:未知    编辑:680GM
[@main] \ 【亲爱的玩家】您好,欢迎您使用俸禄捐献系统!/SCOLOR=68\ \ 俸禄捐献系统可以大大提升您的知名度/SCOLOR=254\ 只要您排到前五名就可以获得丰富的奖励/SCOLOR=254\ 【


[@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

1
3