当前位置: 主页 > 传奇信息资讯 > 传奇开服 > 全新募捐系统脚本|带效果图传奇私服发布网

全新募捐系统脚本|带效果图传奇私服发布网

发布时间:2015-12-22 04:59内容来源:sf999点击:

募捐系统脚本

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

顶一下
(0)
0%
踩一下
(0)
0%
------分隔线----------------------------
  • 挑错
  • 打印