跨区捐献传奇脚本

admin

[@main]
        #if
        #act
        GetListString ..QuestDiary开区状态.txt 0 S$状态
       
        #if
        equal S$状态 老区
        #act
        GetListString ..........老1区奖励.txt 0 N$奖励1
        GetListString ..........老2区奖励.txt 0 N$奖励2
        GetListString ..........老3区奖励.txt 0 N$奖励3
        GetListString ..........老4区奖励.txt 0 N$奖励4
        #elseact
        GetListString ..........新1区奖励.txt 0 N$奖励1
        GetListString ..........新2区奖励.txt 0 N$奖励2
        GetListString ..........新3区奖励.txt 0 N$奖励3
        GetListString ..........新4区奖励.txt 0 N$奖励4
       
       
        #if
        #act
        mov N$奖励 0
        inc N$奖励
        inc N$奖励
        inc N$奖励
        inc N$奖励
        ;---------------------
        MOV N$奖励99
        mul N$奖励99 90
        div N$奖励99 100
        ;---------------------
        mov N$胜利方
        mul N$胜利方 53
        div N$胜利方 100
        mov N$失败方
        mul N$失败方 37
        div N$失败方 100
        mov N$累计方
        mul N$累计方 10
        div N$累计方 100
       
       
       
       
        #if
        #Act
        GetListString ..........累计沙奖励.txt 0 N$累计奖励_独立
        OPENMERCHANTBIGDLG 15 867 1 0 280 150 1
        #say
          
         　　　　　　  　 　     
          
                
             
            
       
       
                { 元/FCOLOR=253}
                { 元/FCOLOR=253}
                { 元/FCOLOR=253}
                { 元/FCOLOR=253}
               { 元/FCOLOR=249}
       
                { 元/FCOLOR=70}
                { 元/FCOLOR=215}
            
             {(总金额扣除10%作为平台开支/FCOLOR=243},{(10%累积统战发放)/FCOLOR=215}
            ,
       
        [@1111]
        #act
        set [339] 1
        CONFERTITLE 沙城捐献
        SendCenterMsg 0 254 恭喜:玩家【】捐献了【30RMB点】,当前沙巴克累积胜利方奖励:【】元,失败方奖励:【】元 1 5
        SENDMSG 1 恭喜:玩家【】捐献了【30RMB点】,当前沙巴克累积胜利方奖励:【】元,失败方奖励:【】元
       
       
       
        [@充值]
        #IF
        #ACT
        OpenWebSite partition_list_ui?p=32f8ab9dfd3c7ac0503411c03b6e6e95
       
       
        [@领取]
        #if
        CHECKLEVELEX > 0
        #ACT
        CLOSEMERCHANTBIGDLG
        #CALL [充值Rmb点Rmb点Rmb点.txt] @领取Rmb点
       
       
        [@提取]
        #if
        EQUAL G222 1
        #act
        messagebox 当前沙城奖池已经停止,新区拿沙结束关闭沙城奖池！
        break
       
        #if
        checkGAMEPOINT < 11
        #act
        messagebox 你的沙城积分不足11点,无法提取！
        BREAK
       
        #if
        checkGAMEPOINT < 11
        #act
        messagebox 你的沙城积分不足11点,无法提取！
        BREAK
       
        #if
        checkGAMEPOINT > 10
        #act
        GAMEPOINT - 11
        give 沙城积分*10 1
        GuildNoticeMsg 250 0 【ぐ【沙城积分】：『提取沙城积分*10成功』获得沙城积分卷*10一张 SELF
       
       
        [@捐献]
        #if
        EQUAL G222 1
        #act
        messagebox 当前沙城奖池已经停止,新区拿沙结束关闭沙城奖池！
        break
       
        #if
        checkGAMEPOINT < 30
        #act
        messagebox 领取该属性需要充值大于30才能领取！
        BREAK
       
       
        #IF
        CHECK [339] 1
        #ACT
        MESSAGEBOX 你已经领取过该属性,无法重复领取！
        BREAK
       
        #if
        #act
        CONFERTITLE 沙城捐献
        GOTO @判断大区
        GetListString .......... 0 N$奖励
        inc N$奖励 30
        clearnamelist ..........
        addtextlist ..........
        GAMEPOINT - 30
        SETICON 2 12 776 0 -50 10 0 200 0
        set [339] 1
        CONFERTITLE 沙城捐献
        #CALL [刷新游戏速度.TXT] @刷新游戏速度
        MESSAGEBOX 感谢您的支持,所有玩家捐献均作为沙城奖励反馈给玩家！
        SendCenterMsg 0 254 恭喜:玩家【】捐献了【30RMB点】,当前沙巴克累积胜利方奖励:【】元,失败方奖励:【】元 1 5
        SENDMSG 1 恭喜:玩家【】捐献了【30RMB点】,当前沙巴克累积胜利方奖励:【】元,失败方奖励:【】元
        goto @main
       
       
        [@判断大区]
        #if
        equal S$状态 老区
        #act
        mov S$TEXTNAME 老
        #elseact
        mov S$TEXTNAME 新
        #if
        CheckContainsText  1区
        #act
        INC S$TEXTNAME 1区奖励.txt
       
        #if
        CheckContainsText  2区
        #act
        INC S$TEXTNAME 2区奖励.txt
       
        #if
        CheckContainsText  3区
        #act
        INC S$TEXTNAME 3区奖励.txt
       
        #if
        CheckContainsText  4区
        #act
        INC S$TEXTNAME 4区奖励.txt