22pk论坛

查看: 544865|回复: 249

[传奇脚本] 爵位捐献脚本

  [复制链接]
  • TA的每日心情
    慵懒
    2015-4-16 12:50
  • 签到天数: 58 天

    [LV.5]常住居民I

    125

    主题

    171

    帖子

    3801

    积分

    至高VIP无尚

    谁人不识君

    Rank: 5Rank: 5

    元宝
    1916

    最佳新人活跃会员推广达人宣传达人灌水之王突出贡献优秀版主荣誉管理论坛元老

    发表于 2014-7-9 18:11:50 | 显示全部楼层 |阅读模式
    [@捐款用]
    {
    #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>\
    <收取爵位捐献金额提供给沙城每天的攻沙奖励!/SCOLOR=146>\
     \
    <我要捐款[url=]/@WYJK[/url]>         <捐款排名[url=]/@JKPM>\[/url]
     \
    <捐款奖励及捐款说明[url=]/@SHUOM>\[/url]
    [@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
    ╔═══════════════════════════╗\
    ║                           ║\
    ║         感谢您对本服的支持          ║\
    ║        您上线时攻魔道同时增加2点        ║\
    ║                           ║\
    ║                           ║\
    ╚═══════════════════════════╝\
    #ELSEACT
    messagebox 您不在第六排名里!
    GOTO @WYJK
    BREAK

    [@SHUOM]
    每次捐款不得少于50元宝!\
    第一名:上线攻魔道+6\
    第二名:上线攻魔道+5\
    第三名:上线攻魔道+4\
    第四名:上线攻魔道+3\
    第五名:上线攻魔道+2\
    第六名:上线攻魔道+1\  
    第六名无限名额.只要超50元宝的都可以排到第6名!!\
    \
    <返回/@捐款用>
    [@WYJK]
    使用说明:在输入框内输入<捐款金额>\
    每次捐款最少为<50元宝>!\
    第一次捐款最多为<50元宝>否则不列入排名\
    <输入要捐款金额[url=]/@@InPutInteger15>\[/url]
    [@CallInPutInteger15]
    #IF
    EQUAL N15
    #ACT
    messagebox 请输入捐款金额!
    GOTO @WYJK
    BREAK
    #IF
    SMALL N15 50
    #ACT
    messagebox 您所要的捐款的金额小于50元宝!
    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)>
    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)>
    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)>
    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)>
    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)>
    BREAK
    }


    QManage.txt
    [@Login]
    #if
    CHECKLEVELEX > 0
    #act
    CHANGENAMECOLOR 254
    #CALL [\游戏登陆\别号.txt] @称号
    VAR Integer HUMAN JK
    VAR Integer HUMAN guaji
    VAR Integer HUMAN 元宝消费
    VAR Integer HUMAN 消费积分
    LOADVAR HUMAN 元宝消费 ..\QuestDiary\充值排行榜\元宝消费Save.txt
    LOADVAR HUMAN 消费积分 ..\QuestDiary\充值排行榜\消费积分Save.txt
    LOADVAR HUMAN guaji    ..\QuestDiary\游戏登陆\封挂机\挂机数据.txt
    LOADVAR HUMAN JK       ..\QuestDiary\数据文件\元宝捐款.txt
    #CALL [\充值排行榜\重读排行.txt] @重新排行
    #CALL [\元宝捐款\元宝捐款数据.txt] @刷新
    #CALL [\元宝捐款\元宝捐款奖励.txt] @奖励
    #CALL [\游戏登陆\检测IP.txt] @检测检测
    #CALL [\游戏登陆\登陆脚本.txt] @登陆设置
    #CALL [\元宝捐款\爵位封号.txt] @爵位封号
    #CALL [\数据文件\天下第一\爵位加天下第一.txt] @爵位加天下第一
    #CALL [\数据\神力.txt] @神力

    该会员没有填写今日想说内容.
    回复

    使用道具 举报

    该用户从未签到

    0

    主题

    374

    帖子

    2621

    积分

    省长

    Rank: 6Rank: 6

    元宝
    731
    发表于 2014-9-14 08:58:12 | 显示全部楼层
    纯粹路过,没任何兴趣,仅仅是看在老用户份上回复一下
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    0

    主题

    349

    帖子

    2436

    积分

    省长

    Rank: 6Rank: 6

    元宝
    686
    发表于 2014-9-19 22:05:13 | 显示全部楼层
    占坑编辑ing
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    0

    主题

    357

    帖子

    2497

    积分

    省长

    Rank: 6Rank: 6

    元宝
    698
    发表于 2014-9-22 05:33:39 | 显示全部楼层
    楼主呀,,,您太有才了。。。
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    0

    主题

    344

    帖子

    2383

    积分

    省长

    Rank: 6Rank: 6

    元宝
    663
    发表于 2014-9-22 12:35:16 | 显示全部楼层
    求沙发
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    0

    主题

    377

    帖子

    2632

    积分

    省长

    Rank: 6Rank: 6

    元宝
    739
    发表于 2014-9-25 13:09:35 | 显示全部楼层
    ……
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    0

    主题

    388

    帖子

    2705

    积分

    省长

    Rank: 6Rank: 6

    元宝
    765
    发表于 2014-9-26 18:35:29 | 显示全部楼层
    站位支持
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    0

    主题

    368

    帖子

    2556

    积分

    省长

    Rank: 6Rank: 6

    元宝
    716
    发表于 2014-9-29 02:52:52 | 显示全部楼层
    真可爱
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    0

    主题

    371

    帖子

    2603

    积分

    省长

    Rank: 6Rank: 6

    元宝
    730
    发表于 2014-9-29 15:00:06 | 显示全部楼层
    在线等在线等
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    0

    主题

    376

    帖子

    2618

    积分

    省长

    Rank: 6Rank: 6

    元宝
    729
    发表于 2014-9-29 22:15:48 | 显示全部楼层
    感謝樓主
    回复 支持 反对

    使用道具 举报

    您需要登录后才可以回帖 登录 | QQ注册登录

    本版积分规则

    GM基地开传奇一条龙服务及商业服务端下载

    All rights reserved.www.22pk.com 版权所有 网站分类 网站地图

    22pk论坛打造行业第一传奇版本论坛,所有商业版本均免费开放下载,力争做行业最大的教程及版本发布基地

    © 2001-2015 爱上gm论坛

    快速回复 返回顶部 返回列表