爵位捐赠,元宝捐献脚本

这几天常常有伴侣问起这个100%新开传奇网站爵位捐赠剧本，所以此刻就把这个爵位捐赠剧本分享给年夜家，具体是用元宝仍是用金币年夜家改下剧本便可以了，很是简单。

起首添加剧本NPC 爵位排行-3.txt 下面的剧本的具体内容：

(@buy @sell @upgradenow @getbackupgnow @repair @s_repair @@InPutString @@InPutInteger @ReclaimItem )

%100

+10

+11

+15

[@main]

<$USERNAME><你好,接待来到/SCOLOR=243><$SERVERNAME>.  \ 

<捐赠元宝最底数额/SCOLOR=253><50>,<请携带好后点击捐钱/SCOLOR=253>  \

<取得爵位,会给响应的埋没属性,还有灿艳的称呼/SCOLOR=253> \ \

<New./SCOLOR=250><爵位捐募/@捐钱用> <合区后无排名初始捐50小退便可/SCOLOR=241>\ 

<New.><玩家必读/@必读>    <清算前排行榜第1-5名取得>       \

<⒈司令/SCOLOR=250><+8> <⒉军长/SCOLOR=250><+6> <⒊师长/SCOLOR=250><+5> <⒋旅长/SCOLOR=250><+4> <⒌团长/SCOLOR=250><+3> <⒍营长/SCOLOR=250><+2> \

<注重;初始捐赠不要高于50以上，以防被系统默许为50/SCOLOR=254>\ 

<再次捐募最高100w元宝/SCOLOR=254> \

[@必读]

\ 

合区后因2个区同时存在排行,所以排行显示是主区排行 \

可是您本来的区的捐赠数目不会削减,只要你从头捐赠一次 \ 

系统将主动检测您的再归并后游戏中的排行,并进行调剂,插手不捐赠 \

您的排行默许为第六名,合区后假设您的名字后面加a,b,c,d了后请联系 \ 

办理员，职员调剂您的捐赠数额.建议年夜家在分歧区成立分歧人物避免重 \

复,感谢玩家对本服的撑持 \  \ 

<返回/@main>

[@捐钱用]

#IF

#ACT

GetRandomText .\QuestDiary\元宝捐钱\第一排名.txt S21

GetRandomText .\QuestDiary\元宝捐钱\第二排名.txt S22

GetRandomText .\QuestDiary\元宝捐钱\第三排名.txt S23

GetRandomText .\QuestDiary\元宝捐钱\第四排名.txt S24

GetRandomText .\QuestDiary\元宝捐钱\第五排名.txt S25

GetRandomText .\QuestDiary\元宝捐钱\第一排名元宝数.txt S31

GetRandomText .\QuestDiary\元宝捐钱\第二排名元宝数.txt S32

GetRandomText .\QuestDiary\元宝捐钱\第三排名元宝数.txt S33

GetRandomText .\QuestDiary\元宝捐钱\第四排名元宝数.txt S34

GetRandomText .\QuestDiary\元宝捐钱\第五排名元宝数.txt S35

MOV A200 <$STR(S21)>

MOV A201 <$STR(S22)>

MOV A202 <$STR(S23)>

MOV A203 <$STR(S24)>

MOV A204 <$STR(S25)>

MOV G200 <$STR(S31)>

MOV G201 <$STR(S32)>

MOV G202 <$STR(S33)>

MOV G203 <$STR(S34)>

MOV G204 <$STR(S35)>

GOTO @捐钱用1

BREAK

[@捐钱用1]

　\

<接待您利用爵位捐募系统!/SCOLOR=253>\

　\

<我要捐钱/@WYJK>         <捐钱排名/@JKPM>\

　\

<捐钱嘉奖及捐钱申明/@SHUOM>\

[@JKPM]

　\

<第一位/SCOLOR=253>:<司令>:<$STR(A200)>　　　　　　　　<所捐金额/SCOLOR=146>:<$STR(G200)>\

<第二名/SCOLOR=253>:<军长>:<$STR(A201)>　　　　　　　　<所捐金额/SCOLOR=146>:<$STR(G201)>\

<第三名/SCOLOR=253>:<师长>:<$STR(A202)>　　　　　　　　<所捐金额/SCOLOR=146>:<$STR(G202)>\

<第四名/SCOLOR=253>:<旅长>:<$STR(A203)>　　　　　　　　<所捐金额/SCOLOR=146>:<$STR(G203)>\

<第五名/SCOLOR=253>:<团长>:<$STR(A204)>　　　　　　　　<所捐金额/SCOLOR=146>:<$STR(G204)>\

<第六名/SCOLOR=253>:<营长>:<查看是不是在排名内/@查看>\

\

<返回/@捐钱用>\

[@查看]

#IF

CHECKNAMELIST ..\QuestDiary\元宝捐钱\第六排名.txt

#SAY

╔═══════════════════════════╗\

║　　　　　　　　　　　　　　　　　　　　　　　　　　　║\

║　　　　　　　　　感激您对本服的撑持　 　　　　　　　 ║\

║　　　　　　　 您上线时攻魔道同时增添1点 　　　　　　 ║\

║　　　　　　　　　　　　　　　　　　　　　　　　　　　║\

║　　　　　　　　　　　　　　　　　　　　　　　　　　　║\

╚═══════════════════════════╝\

#ELSEACT

messagebox 您不在第六排名里!

GOTO @WYJK

BREAK

[@SHUOM]

每次捐钱不得少于50元宝!\

第一位:上线攻魔道+8\

第二名:上线攻魔道+6\

第三名:上线攻魔道+5\

第四名:上线攻魔道+4\

第五名:上线攻魔道+3\ 

第六名:上线攻魔道+2\  

第六名无穷名额.只要超50元宝的都可以排到第6名！！\

\

<返回/@捐钱用>

[@WYJK]

利用申明:在输入框内输入<捐钱金额>\

每次捐钱起码为<50元宝>!最年夜<100W元宝>\

第一次捐钱最多为<50元宝>不然不列入排名\

<输入要捐钱金额/@@InPutInteger15>\

[@CallInPutInteger15]

#IF

EQUAL N15

#ACT

messagebox 请输入捐钱金额!

GOTO @WYJK

BREAK

#IF

SMALL N15 50

#ACT

messagebox 您所要的捐钱的金额小于50元宝!

GOTO @WYJK

BREAK

#IF

large N15 1000000

#ACT

messagebox 每次捐钱金额不克不及年夜于100w元宝!

GOTO @WYJK

BREAK

#IF

CHECKGAMEGOLD > <$STR(N15)>

#ACT

GOTO @JKKS

BREAK

#IF

CHECKGAMEGOLD = <$STR(N15)>

#ACT

GOTO @JKKS

BREAK

#ELSEACT

messagebox 您没有那末多的元宝!

BREAK

[@JKKS]

#IF

#ACT

GAMEGOLD - <$STR(N15)>

CALCVAR HUMAN JK + <$STR(N15)>

SAVEVAR HUMAN JK ..\QuestDiary\数据文件\元宝捐钱.txt

GOTO @JKJC

BREAK

[@JKJC]

#IF

CHECKVAR HUMAN JK > 49

CHECKNAMELIST ..\QuestDiary\元宝捐钱\第六排名.txt

#ACT

GOTO @JKPAIM

BREAK

#IF

CHECKVAR HUMAN JK > 49

#ACT

Addnamelist ..\QuestDiary\元宝捐钱\第六排名.txt

messagebox 感激您对本服的撑持!

BREAK

close

#ELSEACT

MESSAGEBOX 感激您对本服的撑持!

BREAK

close

[@JKPAIM]

#IF

CHECKVAR HUMAN JK > <$STR(G200)>

#ACT

GOTO @BAOCUN

MESSAGEBOX 感激您对本服的撑持!

BREAK

close

#ELSEACT

GOTO @JKPAIM1

BREAK

[@JKPAIM1]

#IF

CHECKVAR HUMAN JK > <$STR(G201)>

#ACT

GOTO @BAOCUN1

MESSAGEBOX 感激您对本服的撑持!

BREAK

close

#ELSEACT

GOTO @JKPAIM2

BREAK

[@JKPAIM2]

#IF

CHECKVAR HUMAN JK > <$STR(G202)>

#ACT

GOTO @BAOCUN2

MESSAGEBOX 感激您对本服的撑持!

BREAK

close

#ELSEACT

GOTO @JKPAIM3

BREAK

[@JKPAIM3]

#IF

CHECKVAR HUMAN JK > <$STR(G203)>

#ACT

GOTO @BAOCUN3

MESSAGEBOX 感激您对本服的撑持!

BREAK

close

#ELSEACT

GOTO @JKPAIM4

BREAK

[@JKPAIM4]

#IF

CHECKVAR HUMAN JK > <$STR(G204)>

#ACT

GOTO @BAOCUN4

MESSAGEBOX 感激您对本服的撑持!

BREAK

close

#ELSEACT

MESSAGEBOX 感激您对本服的撑持!

BREAK

close

[@BAOCUN]

#IF

CHECKNAMELIST ..\QuestDiary\元宝捐钱\第一排名.txt

#ACT

ClearNameList ..\QuestDiary\元宝捐钱\第一排名元宝数.txt

ClearNameList ..\QuestDiary\元宝捐钱\第一排名.txt

Addnamelist ..\QuestDiary\元宝捐钱\第一排名.txt

AddTextList .\QuestDiary\元宝捐钱\第一排名元宝数.txt <$HUMAN(JK)>

BREAK

#IF

CHECKNAMELIST ..\QuestDiary\元宝捐钱\第二排名.txt

#ACT

ClearNameList ..\QuestDiary\元宝捐钱\第一排名元宝数.txt

ClearNameList ..\QuestDiary\元宝捐钱\第二排名元宝数.txt

ClearNameList ..\QuestDiary\元宝捐钱\第一排名.txt

ClearNameList ..\QuestDiary\元宝捐钱\第二排名.txt

Addnamelist ..\QuestDiary\元宝捐钱\第一排名.txt

AddTextList .\QuestDiary\元宝捐钱\第二排名.txt <$STR(A200)>

AddTextList .\QuestDiary\元宝捐钱\第一排名元宝数.txt <$HUMAN(JK)>

AddTextList .\QuestDiary\元宝捐钱\第二排名元宝数.txt <$STR(G200)>

BREAK

#IF

CHECKNAMELIST ..\QuestDiary\元宝捐钱\第三排名.txt

#ACT

ClearNameList ..\QuestDiary\元宝捐钱\第一排名元宝数.txt

ClearNameList ..\QuestDiary\元宝捐钱\第二排名元宝数.txt

ClearNameList ..\QuestDiary\元宝捐钱\第三排名元宝数.txt

ClearNameList ..\QuestDiary\元宝捐钱\第一排名.txt

ClearNameList ..\QuestDiary\元宝捐钱\第二排名.txt

ClearNameList ..\QuestDiary\元宝捐钱\第三排名.txt

Addnamelist ..\QuestDiary\元宝捐钱\第一排名.txt

AddTextList .\QuestDiary\元宝捐钱\第二排名.txt <$STR(A200)>

AddTextList .\QuestDiary\元宝捐钱\第一排名元宝数.txt <$HUMAN(JK)>

AddTextList .\QuestDiary\元宝捐钱\第二排名元宝数.txt <$STR(G200)>

AddTextList .\QuestDiary\元宝捐钱\第三排名.txt <$STR(A201)>

AddTextList .\QuestDiary\元宝捐钱\第三排名元宝数.txt <$STR(G201)>

BREAK

#IF

CHECKNAMELIST ..\QuestDiary\元宝捐钱\第四排名.txt

#ACT

ClearNameList ..\QuestDiary\元宝捐钱\第一排名元宝数.txt

ClearNameList ..\QuestDiary\元宝捐钱\第二排名元宝数.txt

ClearNameList ..\QuestDiary\元宝捐钱\第三排名元宝数.txt

ClearNameList ..\QuestDiary\元宝捐钱\第四排名元宝数.txt

ClearNameList ..\QuestDiary\元宝捐钱\第一排名.txt

ClearNameList ..\QuestDiary\元宝捐钱\第二排名.txt

ClearNameList ..\QuestDiary\元宝捐钱\第三排名.txt

ClearNameList ..\QuestDiary\元宝捐钱\第四排名.txt

Addnamelist ..\QuestDiary\元宝捐钱\第一排名.txt

AddTextList .\QuestDiary\元宝捐钱\第二排名.txt <$STR(A200)>

AddTextList .\QuestDiary\元宝捐钱\第一排名元宝数.txt <$HUMAN(JK)>

AddTextList .\QuestDiary\元宝捐钱\第二排名元宝数.txt <$STR(G200)>

AddTextList .\QuestDiary\元宝捐钱\第三排名.txt <$STR(A201)>

AddTextList .\QuestDiary\元宝捐钱\第三排名元宝数.txt <$STR(G201)>

AddTextList .\QuestDiary\元宝捐钱\第四排名.txt <$STR(A202)>

AddTextList .\QuestDiary\元宝捐钱\第四排名元宝数.txt <$STR(G202)>

BREAK

#IF

CHECKNAMELIST ..\QuestDiary\元宝捐钱\第五排名.txt

#ACT

ClearNameList ..\QuestDiary\元宝捐钱\第一排名元宝数.txt

ClearNameList ..\QuestDiary\元宝捐钱\第二排名元宝数.txt

ClearNameList ..\QuestDiary\元宝捐钱\第三排名元宝数.txt

ClearNameList ..\QuestDiary\元宝捐钱\第四排名元宝数.txt

ClearNameList ..\QuestDiary\元宝捐钱\第五排名元宝数.txt

ClearNameList ..\QuestDiary\元宝捐钱\第一排名.txt

ClearNameList ..\QuestDiary\元宝捐钱\第二排名.txt

ClearNameList ..\QuestDiary\元宝捐钱\第三排名.txt

ClearNameList ..\QuestDiary\元宝捐钱\第四排名.txt

ClearNameList ..\QuestDiary\元宝捐钱\第五排名.txt

Addnamelist ..\QuestDiary\元宝捐钱\第一排名.txt

AddTextList .\QuestDiary\元宝捐钱\第一排名元宝数.txt <$HUMAN(JK)>

AddTextList .\QuestDiary\元宝捐钱\第二排名.txt <$STR(A200)>

AddTextList .\QuestDiary\元宝捐钱\第二排名元宝数.txt <$STR(G200)>

AddTextList .\QuestDiary\元宝捐钱\第三排名.txt <$STR(A201)>

AddTextList .\QuestDiary\元宝捐钱\第三排名元宝数.txt <$STR(G201)>

AddTextList .\QuestDiary\元宝捐钱\第四排名.txt <$STR(A202)>

AddTextList .\QuestDiary\元宝捐钱\第四排名元宝数.txt <$STR(G202)>

AddTextList .\QuestDiary\元宝捐钱\第五排名.txt <$STR(A203)>

AddTextList .\QuestDiary\元宝捐钱\第五排名元宝数.txt <$STR(G203)>

BREAK

#IF

CHECKNAMELIST ..\QuestDiary\元宝捐钱\第六排名.txt

#ACT

ClearNameList ..\QuestDiary\元宝捐钱\第一排名元宝数.txt

ClearNameList ..\QuestDiary\元宝捐钱\第二排名元宝数.txt

ClearNameList ..\QuestDiary\元宝捐钱\第三排名元宝数.txt

ClearNameList ..\QuestDiary\元宝捐钱\第四排名元宝数.txt

ClearNameList ..\QuestDiary\元宝捐钱\第五排名元宝数.txt

ClearNameList ..\QuestDiary\元宝捐钱\第一排名.txt

ClearNameList ..\QuestDiary\元宝捐钱\第二排名.txt

ClearNameList ..\QuestDiary\元宝捐钱\第三排名.txt

ClearNameList ..\QuestDiary\元宝捐钱\第四排名.txt

ClearNameList ..\QuestDiary\元宝捐钱\第五排名.txt

Addnamelist ..\QuestDiary\元宝捐钱\第一排名.txt

AddTextList .\QuestDiary\元宝捐钱\第一排名元宝数.txt <$HUMAN(JK)>

AddTextList .\QuestDiary\元宝捐钱\第二排名.txt <$STR(A200)>

AddTextList .\QuestDiary\元宝捐钱\第二排名元宝数.txt <$STR(G200)>

AddTextList .\QuestDiary\元宝捐钱\第三排名.txt <$STR(A201)>

AddTextList .\QuestDiary\元宝捐钱\第三排名元宝数.txt <$STR(G201)>

AddTextList .\QuestDiary\元宝捐钱\第四排名.txt <$STR(A202)>

AddTextList .\QuestDiary\元宝捐钱\第四排名元宝数.txt <$STR(G202)>

AddTextList .\QuestDiary\元宝捐钱\第五排名.txt <$STR(A203)>

AddTextList .\QuestDiary\元宝捐钱\第五排名元宝数.txt <$STR(G203)>

AddTextList .\QuestDiary\元宝捐钱\第六排名.txt <$STR(A204)>

#CALL [\元宝捐钱\取得爵位.txt] @爵位封号

#CALL [\数据文件\全国第一\取得爵位加全国第一.txt] @爵位加全国第一

BREAK

[@BAOCUN1]

#IF

CHECKNAMELIST ..\QuestDiary\元宝捐钱\第二排名.txt

#ACT

ClearNameList ..\QuestDiary\元宝捐钱\第二排名元宝数.txt

ClearNameList ..\QuestDiary\元宝捐钱\第二排名.txt

Addnamelist ..\QuestDiary\元宝捐钱\第二排名.txt

AddTextList .\QuestDiary\元宝捐钱\第二排名元宝数.txt <$HUMAN(JK)>

BREAK

#IF

CHECKNAMELIST ..\QuestDiary\元宝捐钱\第三排名.txt

#ACT

ClearNameList ..\QuestDiary\元宝捐钱\第二排名元宝数.txt

ClearNameList ..\QuestDiary\元宝捐钱\第二排名.txt

ClearNameList ..\QuestDiary\元宝捐钱\第三排名元宝数.txt

ClearNameList ..\QuestDiary\元宝捐钱\第三排名.txt

Addnamelist ..\QuestDiary\元宝捐钱\第二排名.txt 

AddTextList .\QuestDiary\元宝捐钱\第二排名元宝数.txt <$HUMAN(JK)>

AddTextList .\QuestDiary\元宝捐钱\第三排名.txt <$STR(A201)>

AddTextList .\QuestDiary\元宝捐钱\第三排名元宝数.txt <$STR(G201)>

BREAK

#IF

CHECKNAMELIST ..\QuestDiary\元宝捐钱\第四排名.txt

#ACT

ClearNameList ..\QuestDiary\元宝捐钱\第二排名元宝数.txt

ClearNameList ..\QuestDiary\元宝捐钱\第二排名.txt

ClearNameList ..\QuestDiary\元宝捐钱\第三排名元宝数.txt

ClearNameList ..\QuestDiary\元宝捐钱\第三排名.txt

ClearNameList ..\QuestDiary\元宝捐钱\第四排名元宝数.txt

ClearNameList ..\QuestDiary\元宝捐钱\第四排名.txt

Addnamelist ..\QuestDiary\元宝捐钱\第二排名.txt 

AddTextList .\QuestDiary\元宝捐钱\第二排名元宝数.txt <$HUMAN(JK)>

AddTextList .\QuestDiary\元宝捐钱\第三排名.txt <$STR(A201)>

AddTextList .\QuestDiary\元宝捐钱\第三排名元宝数.txt <$STR(G201)>

AddTextList .\QuestDiary\元宝捐钱\第四排名.txt <$STR(A202)>

AddTextList .\QuestDiary\元宝捐钱\第四排名元宝数.txt <$STR(G202)>

BREAK

#IF

CHECKNAMELIST ..\QuestDiary\元宝捐钱\第五排名.txt

#ACT

ClearNameList ..\QuestDiary\元宝捐钱\第二排名元宝数.txt

ClearNameList ..\QuestDiary\元宝捐钱\第二排名.txt

ClearNameList ..\QuestDiary\元宝捐钱\第三排名元宝数.txt

ClearNameList ..\QuestDiary\元宝捐钱\第三排名.txt

ClearNameList ..\QuestDiary\元宝捐钱\第四排名元宝数.txt

ClearNameList ..\QuestDiary\元宝捐钱\第四排名.txt

ClearNameList ..\QuestDiary\元宝捐钱\第五排名元宝数.txt

ClearNameList ..\QuestDiary\元宝捐钱\第五排名.txt

Addnamelist ..\QuestDiary\元宝捐钱\第二排名.txt 

AddTextList .\QuestDiary\元宝捐钱\第二排名元宝数.txt <$HUMAN(JK)>

AddTextList .\QuestDiary\元宝捐钱\第三排名.txt <$STR(A201)>

AddTextList .\QuestDiary\元宝捐钱\第三排名元宝数.txt <$STR(G201)>

AddTextList .\QuestDiary\元宝捐钱\第四排名.txt <$STR(A202)>

AddTextList .\QuestDiary\元宝捐钱\第四排名元宝数.txt <$STR(G202)>

AddTextList .\QuestDiary\元宝捐钱\第五排名.txt <$STR(A203)>

AddTextList .\QuestDiary\元宝捐钱\第五排名元宝数.txt <$STR(G203)>

BREAK

#IF

CHECKNAMELIST ..\QuestDiary\元宝捐钱\第六排名.txt

#ACT

ClearNameList ..\QuestDiary\元宝捐钱\第二排名元宝数.txt

ClearNameList ..\QuestDiary\元宝捐钱\第二排名.txt

ClearNameList ..\QuestDiary\元宝捐钱\第三排名元宝数.txt

ClearNameList ..\QuestDiary\元宝捐钱\第三排名.txt

ClearNameList ..\QuestDiary\元宝捐钱\第四排名元宝数.txt

ClearNameList ..\QuestDiary\元宝捐钱\第四排名.txt

ClearNameList ..\QuestDiary\元宝捐钱\第五排名元宝数.txt

ClearNameList ..\QuestDiary\元宝捐钱\第五排名.txt

Addnamelist ..\QuestDiary\元宝捐钱\第二排名.txt 

AddTextList .\QuestDiary\元宝捐钱\第二排名元宝数.txt <$HUMAN(JK)>

AddTextList .\QuestDiary\元宝捐钱\第三排名.txt <$STR(A201)>

AddTextList .\QuestDiary\元宝捐钱\第三排名元宝数.txt <$STR(G201)>

AddTextList .\QuestDiary\元宝捐钱\第四排名.txt <$STR(A202)>

AddTextList .\QuestDiary\元宝捐钱\第四排名元宝数.txt <$STR(G202)>

AddTextList .\QuestDiary\元宝捐钱\第五排名.txt <$STR(A203)>

AddTextList .\QuestDiary\元宝捐钱\第五排名元宝数.txt <$STR(G203)>

AddTextList .\QuestDiary\元宝捐钱\第六排名.txt <$STR(A203)>

#CALL [\元宝捐钱\取得爵位.txt] @爵位封号

#CALL [\数据文件\全国第一\取得爵位加全国第一.txt] @爵位加全国第一

BREAK

[@BAOCUN2]

#IF

CHECKNAMELIST ..\QuestDiary\元宝捐钱\第三排名.txt

#ACT

ClearNameList ..\QuestDiary\元宝捐钱\第三排名元宝数.txt

ClearNameList ..\QuestDiary\元宝捐钱\第三排名.txt

Addnamelist ..\QuestDiary\元宝捐钱\第三排名.txt

AddTextList .\QuestDiary\元宝捐钱\第三排名元宝数.txt <$HUMAN(JK)>

BREAK

#IF

CHECKNAMELIST ..\QuestDiary\元宝捐钱\第四排名.txt

#ACT

ClearNameList ..\QuestDiary\元宝捐钱\第三排名元宝数.txt

ClearNameList ..\QuestDiary\元宝捐钱\第三排名.txt

ClearNameList ..\QuestDiary\元宝捐钱\第四排名元宝数.txt

ClearNameList ..\QuestDiary\元宝捐钱\第四排名.txt

Addnamelist ..\QuestDiary\元宝捐钱\第三排名.txt 

AddTextList .\QuestDiary\元宝捐钱\第三排名元宝数.txt <$HUMAN(JK)>

AddTextList .\QuestDiary\元宝捐钱\第四排名.txt <$STR(A202)>

AddTextList .\QuestDiary\元宝捐钱\第四排名元宝数.txt <$STR(G202)>

BREAK

#IF

CHECKNAMELIST ..\QuestDiary\元宝捐钱\第五排名.txt

#ACT

ClearNameList ..\QuestDiary\元宝捐钱\第三排名元宝数.txt

ClearNameList ..\QuestDiary\元宝捐钱\第三排名.txt

ClearNameList ..\QuestDiary\元宝捐钱\第四排名元宝数.txt

ClearNameList ..\QuestDiary\元宝捐钱\第四排名.txt

ClearNameList ..\QuestDiary\元宝捐钱\第五排名元宝数.txt

ClearNameList ..\QuestDiary\元宝捐钱\第五排名.txt

Addnamelist ..\QuestDiary\元宝捐钱\第三排名.txt 

AddTextList .\QuestDiary\元宝捐钱\第三排名元宝数.txt <$HUMAN(JK)>

AddTextList .\QuestDiary\元宝捐钱\第四排名.txt <$STR(A202)>

AddTextList .\QuestDiary\元宝捐钱\第四排名元宝数.txt <$STR(G202)>

AddTextList .\QuestDiary\元宝捐钱\第五排名.txt <$STR(A203)>

AddTextList .\QuestDiary\元宝捐钱\第五排名元宝数.txt <$STR(G203)>

BREAK

#IF

CHECKNAMELIST ..\QuestDiary\元宝捐钱\第六排名.txt

#ACT

ClearNameList ..\QuestDiary\元宝捐钱\第三排名元宝数.txt

ClearNameList ..\QuestDiary\元宝捐钱\第三排名.txt

ClearNameList ..\QuestDiary\元宝捐钱\第四排名元宝数.txt

ClearNameList ..\QuestDiary\元宝捐钱\第四排名.txt

ClearNameList ..\QuestDiary\元宝捐钱\第五排名元宝数.txt

ClearNameList ..\QuestDiary\元宝捐钱\第五排名.txt

Addnamelist ..\QuestDiary\元宝捐钱\第三排名.txt 

AddTextList .\QuestDiary\元宝捐钱\第三排名元宝数.txt <$HUMAN(JK)>

AddTextList .\QuestDiary\元宝捐钱\第四排名.txt <$STR(A202)>

AddTextList .\QuestDiary\元宝捐钱\第四排名元宝数.txt <$STR(G202)>

AddTextList .\QuestDiary\元宝捐钱\第五排名.txt <$STR(A203)>

AddTextList .\QuestDiary\元宝捐钱\第五排名元宝数.txt <$STR(G203)>

AddTextList .\QuestDiary\元宝捐钱\第六排名.txt <$STR(A204)>

#CALL [\元宝捐钱\取得爵位.txt] @爵位封号

#CALL [\数据文件\全国第一\取得爵位加全国第一.txt] @爵位加全国第一

BREAK

[@BAOCUN3]

#IF

CHECKNAMELIST ..\QuestDiary\元宝捐钱\第四排名.txt

#ACT

ClearNameList ..\QuestDiary\元宝捐钱\第四排名元宝数.txt

ClearNameList ..\QuestDiary\元宝捐钱\第四排名.txt

Addnamelist ..\QuestDiary\元宝捐钱\第四排名.txt

AddTextList .\QuestDiary\元宝捐钱\第四排名元宝数.txt <$HUMAN(JK)>

BREAK

#IF

CHECKNAMELIST ..\QuestDiary\元宝捐钱\第五排名.txt

#ACT

ClearNameList ..\QuestDiary\元宝捐钱\第四排名元宝数.txt

ClearNameList ..\QuestDiary\元宝捐钱\第四排名.txt

ClearNameList ..\QuestDiary\元宝捐钱\第五排名元宝数.txt

ClearNameList ..\QuestDiary\元宝捐钱\第五排名.txt

Addnamelist ..\QuestDiary\元宝捐钱\第四排名.txt 

AddTextList .\QuestDiary\元宝捐钱\第四排名元宝数.txt <$HUMAN(JK)>

AddTextList .\QuestDiary\元宝捐钱\第五排名.txt <$STR(A203)>

AddTextList .\QuestDiary\元宝捐钱\第五排名元宝数.txt <$STR(G203)>

BREAK

#IF

CHECKNAMELIST ..\QuestDiary\元宝捐钱\第六排名.txt

#ACT

ClearNameList ..\QuestDiary\元宝捐钱\第四排名元宝数.txt

ClearNameList ..\QuestDiary\元宝捐钱\第四排名.txt

ClearNameList ..\QuestDiary\元宝捐钱\第五排名元宝数.txt

ClearNameList ..\QuestDiary\元宝捐钱\第五排名.txt

Addnamelist ..\QuestDiary\元宝捐钱\第四排名.txt 

AddTextList .\QuestDiary\元宝捐钱\第四排名元宝数.txt <$HUMAN(JK)>

AddTextList .\QuestDiary\元宝捐钱\第六排名.txt <$STR(A204)>

#CALL [\元宝捐钱\取得爵位.txt] @爵位封号

#CALL [\数据文件\全国第一\取得爵位加全国第一.txt] @爵位加全国第一

BREAK

[@BAOCUN4]

#IF

CHECKNAMELIST ..\QuestDiary\元宝捐钱\第五排名.txt

#ACT

ClearNameList ..\QuestDiary\元宝捐钱\第五排名元宝数.txt

ClearNameList ..\QuestDiary\元宝捐钱\第五排名.txt

Addnamelist ..\QuestDiary\元宝捐钱\第五排名.txt

AddTextList .\QuestDiary\元宝捐钱\第五排名元宝数.txt <$HUMAN(JK)>

BREAK

#IF

CHECKNAMELIST ..\QuestDiary\元宝捐钱\第六排名.txt

#ACT

ClearNameList ..\QuestDiary\元宝捐钱\第五排名元宝数.txt

ClearNameList ..\QuestDiary\元宝捐钱\第五排名.txt

Addnamelist ..\QuestDiary\元宝捐钱\第五排名.txt 

AddTextList .\QuestDiary\元宝捐钱\第五排名元宝数.txt <$HUMAN(JK)>

AddTextList .\QuestDiary\元宝捐钱\第六排名.txt <$STR(A204)>

#CALL [\元宝捐钱\取得爵位.txt] @爵位封号

#CALL [\数据文件\全国第一\取得爵位加全国第一.txt] @爵位加全国第一

BREAK

在QManage.txt登录剧本内添加以下登录触发内容。

#CALL [\元宝捐钱\元宝捐钱数据.txt] @刷新

#CALL [\元宝捐钱\元宝捐钱嘉奖.txt] @嘉奖

#CALL [\游戏登岸\检测IP.txt] @检测检测

#CALL [\游戏登岸\登岸剧本.txt] @登岸设置

#CALL [\元宝捐钱\爵位封号.txt] @爵位封号

QuestDiary\元宝捐钱\元宝捐钱嘉奖.txt内添加以下内容

[@嘉奖]

{

#IF

CHECKNAMELIST ..\QuestDiary\元宝捐钱\第一排名.txt

#ACT

ChangeHumAbility 6 + 8

ChangeHumAbility 8 + 8

ChangeHumAbility 10 + 8

SENDMSG 5 您是元宝捐钱第一位,嘉奖攻魔道上限+8

BREAK

#IF

CHECKNAMELIST ..\QuestDiary\元宝捐钱\第二排名.txt

#ACT

ChangeHumAbility 6 + 6

ChangeHumAbility 8 + 6

ChangeHumAbility 10 + 6

SENDMSG 5 您是元宝捐钱第二名,嘉奖攻魔道上限+6

BREAK

#IF

CHECKNAMELIST ..\QuestDiary\元宝捐钱\第三排名.txt

#ACT

ChangeHumAbility 6 + 5

ChangeHumAbility 8 + 5

ChangeHumAbility 10 + 5

SENDMSG 5 您是元宝捐钱第三名,嘉奖攻魔道上限+5

BREAK

#IF

CHECKNAMELIST ..\QuestDiary\元宝捐钱\第四排名.txt

#ACT

ChangeHumAbility 6 + 4

ChangeHumAbility 8 + 4

ChangeHumAbility 10 + 4

SENDMSG 5 您是元宝捐钱第四名,嘉奖攻魔道上限+4

BREAK

#IF

CHECKNAMELIST ..\QuestDiary\元宝捐钱\第五排名.txt

#ACT

ChangeHumAbility 6 + 3

ChangeHumAbility 8 + 3

ChangeHumAbility 10 + 3

SENDMSG 5 您是元宝捐钱第五名,嘉奖攻魔道上限+3

BREAK

#IF

CHECKNAMELIST ..\QuestDiary\元宝捐钱\第六排名.txt

#ACT

ChangeHumAbility 6 + 2

ChangeHumAbility 8 + 2

ChangeHumAbility 10 + 2

SENDMSG 5 您是元宝捐钱第六名,嘉奖攻魔道上限+2

BREAK

#ELSEACT

BREAK

}

\元宝捐钱\元宝捐钱数据.txt内添加以下内容。

[@刷新]

{

#IF

#ACT

GetRandomText .\QuestDiary\元宝捐钱\第一排名.txt S21

GetRandomText .\QuestDiary\元宝捐钱\第二排名.txt S22

GetRandomText .\QuestDiary\元宝捐钱\第三排名.txt S80

GetRandomText .\QuestDiary\元宝捐钱\第四排名.txt S24

GetRandomText .\QuestDiary\元宝捐钱\第五排名.txt S25

GetRandomText .\QuestDiary\元宝捐钱\第一排名元宝数.txt S31

GetRandomText .\QuestDiary\元宝捐钱\第二排名元宝数.txt S32

GetRandomText .\QuestDiary\元宝捐钱\第三排名元宝数.txt S33

GetRandomText .\QuestDiary\元宝捐钱\第四排名元宝数.txt S34

GetRandomText .\QuestDiary\元宝捐钱\第五排名元宝数.txt S35

MOV A200 <$STR(S21)>

MOV A201 <$STR(S22)>

MOV A202 <$STR(S80)>

MOV A203 <$STR(S24)>

MOV A204 <$STR(S25)>

MOV G200 <$STR(S31)>

MOV G201 <$STR(S32)>

MOV G202 <$STR(S33)>

MOV G203 <$STR(S34)>

MOV G204 <$STR(S35)>

BREAK

}

如许一个完全的元宝捐募剧本就添加完成了，具体嘉奖的属性年夜家也能够点窜。

• 0
• 0
• 0
• 0
• 0
• 0
• 0
• 0