传奇GOM引擎公益沙城捐献脚本，爆率增加人物倍攻增加物抗魔坑专

admin

传奇GOM引擎公益沙城捐献脚本，爆率增加人物倍攻增加物抗魔坑专属称号，捐献为公益捐献作为沙城奖励，只需要30游戏点即可获得属性，人物爆率增加:1000%,人物倍攻增加:40%，物抗.魔坑+5%塔配某称号双减免捐献专属称号:无需佩戴属性叠加。

        [@main]
        #IF
        #act
        OPENMERCHANTBIGDLG 36 94 1 4 -20 -80 1 580 45
        GetListString ........156598018通区捐献今日01区.txt 0 S$今日首区 S$捐献金额0
        GetListString ........156598018通区捐献今日02区.txt 0 S$今日二区 S$捐献金额1
        GetListString ........156598018通区捐献今日03区.txt 0 S$今日三区 S$捐献金额2
        GetListString ........156598018通区捐献今日04区.txt 0 S$今日四区 S$捐献金额3
        GetListString ........156598018通区捐献今日05区.txt 0 S$今日五区 S$捐献金额4
        GetListString ........156598018通区捐献今日06区.txt 0 S$今日六区 S$捐献金额5
        GetListString ........156598018通区捐献今日07区.txt 0 S$今日七区 S$捐献金额6
        GetListString ........156598018通区捐献今日08区.txt 0 S$今日八区 S$捐献金额7
        MOV N$总金额 0
        INC N$总金额
        INC N$总金额
        INC N$总金额
        INC N$总金额
        INC N$总金额
        INC N$总金额
        INC N$总金额
        INC N$总金额
        SetStringBlank S$今日首区 15 1
        SetStringBlank S$今日二区 15 1
        SetStringBlank S$今日三区 15 1
        SetStringBlank S$今日四区 15 1
        SetStringBlank S$今日五区 15 1
        SetStringBlank S$今日六区 15 1
        SetStringBlank S$今日七区 15 1
        SetStringBlank S$今日八区 15 1
       
        SetStringBlank S$捐献金额0 5 1
        SetStringBlank S$捐献金额1 5 1
        SetStringBlank S$捐献金额2 5 1
        SetStringBlank S$捐献金额3 5 1
        SetStringBlank S$捐献金额4 5 1
        SetStringBlank S$捐献金额5 5 1
        SetStringBlank S$捐献金额6 5 1
        SetStringBlank S$捐献金额7 5 1
       
        #SAY
        　   
           { 元/SCOLOR=254}
       
          
          
          
            {/FCOLOR=215} {/FCOLOR=254}
            {/FCOLOR=215} {/FCOLOR=254}
            {/FCOLOR=215} {/FCOLOR=254}
            {/FCOLOR=215} {/FCOLOR=254}
            {/FCOLOR=215} {/FCOLOR=254}
            {/FCOLOR=215} {/FCOLOR=254}
            {/FCOLOR=215} {/FCOLOR=254}
            {/FCOLOR=215} {/FCOLOR=254}
        　       刷新必爆BOSS     
        　                {/SCOLOR=254}
          
          
          
       
       
       
        [@进入]
        #IF
        CHECK [7] 1
        #ACT
        mapmove gycx 98 99
        SENDMSG 0 251 241 {[公益捐献地图]：|151:0:1}◆尊贵公益捐献玩家◆{「」|254:0:1}进入{『公益捐献地图』|250:0:1}开始打宝，此地图刷新必爆BOSS！！！
        SENDMSG 0 251 241 {[公益捐献地图]：|151:0:1}◆尊贵公益捐献玩家◆{「」|254:0:1}进入{『公益捐献地图』|250:0:1}开始打宝，此地图刷新必爆BOSS！！！
        SENDMSG 0 251 241 {[公益捐献地图]：|151:0:1}◆尊贵公益捐献玩家◆{「」|254:0:1}进入{『公益捐献地图』|250:0:1}开始打宝，此地图刷新必爆BOSS！！！
        SENDMSG 0 251 241 {[公益捐献地图]：|151:0:1}◆尊贵公益捐献玩家◆{「」|254:0:1}进入{『公益捐献地图』|250:0:1}开始打宝，此地图刷新必爆BOSS！！！
        SENDMSG 0 251 241 {[公益捐献地图]：|151:0:1}◆尊贵公益捐献玩家◆{「」|254:0:1}进入{『公益捐献地图』|250:0:1}开始打宝，此地图刷新必爆BOSS！！！
        break
        #elseact
        messagebox 　对不起!!!公益捐献地图不是每个人都可以进的！!!必需捐献后才可以进入！　　
       
       
       
       
        [@开始捐献]
       
        ;#IF
        ;CHECKTEXTLIST ..QuestDiary数据文件合区检测.txt 测试
        ;#ACT
        ;MESSAGEBOX 当前还是测试区无法捐献！
        ;break
       
        ;#IF
        ;CHECKTEXTLIST ..QuestDiary数据文件合区检测.txt 总区
        ;#ACT
        ;MESSAGEBOX 当前区已经合区了，捐献通道已关闭，务必合区前开通!
        ;break
       
       
       
       
       
        #IF
        Check [7] 1
        #ACT
        MESSAGEBOX 您已经捐献过了，且永久增加属性!
        break
       
        #IF
        not CHECKGAMEGLORY > 29
        #ACT
        MESSAGEBOX 当前游戏币不够！
        break
       
       
        #IF
        Check [7] 0
        CHECKGAMEGLORY > 29
        CheckContainsText  01区
        #ACT
        GAMEGLORY - 30
        INC G8 30
        SET [7] 1
        CONFERTITLE 沙城捐献
        ;#CALL [封号系统属性更改.txt] @属性更改
        SendMsg 6 恭喜你！捐献成功，获得永久属性加成！！！
        CLEARNAMELIST ........156598018通区捐献今日01区.txt
        AddTextListEx ........156598018通区捐献今日01区.txt 今日首区: 0
        GOTO @main
        break
       
       
        #IF
        Check [7] 0
        CHECKGAMEGLORY > 29
        CheckContainsText  02区
        #ACT
        GAMEGLORY - 30
        INC G8 30
        SET [7] 1
        CONFERTITLE 沙城捐献
        ;#CALL [封号系统属性更改.txt] @属性更改
        SendMsg 6 恭喜你！捐献成功，获得永久属性加成！！！
        CLEARNAMELIST ........156598018通区捐献今日02区.txt
        AddTextListEx ........156598018通区捐献今日02区.txt 今日二区: 0
        GOTO @main
        break
       
        #IF
        Check [7] 0
        CHECKGAMEGLORY > 29
        CheckContainsText  03区
        #ACT
        GAMEGLORY - 30
        INC G8 30
        SET [7] 1
        CONFERTITLE 沙城捐献
        ;#CALL [封号系统属性更改.txt] @属性更改
        SendMsg 6 恭喜你！捐献成功，获得永久属性加成！！！
        CLEARNAMELIST ........156598018通区捐献今日03区.txt
        AddTextListEx ........156598018通区捐献今日03区.txt 今日三区: 0
        GOTO @main
        break
       
        #IF
        Check [7] 0
        CHECKGAMEGLORY > 29
        CheckContainsText  04区
        #ACT
        GAMEGLORY - 30
        INC G8 30
        SET [7] 1
        CONFERTITLE 沙城捐献
        ;#CALL [封号系统属性更改.txt] @属性更改
        SendMsg 6 恭喜你！捐献成功，获得永久属性加成！！！
        CLEARNAMELIST ........156598018通区捐献今日04区.txt
        AddTextListEx ........156598018通区捐献今日04区.txt 今日四区: 0
        GOTO @main
        break
       
        #IF
        Check [7] 0
        CHECKGAMEGLORY > 29
        CheckContainsText  05区
        #ACT
        GAMEGLORY - 30
        INC G8 30
        SET [7] 1
        CONFERTITLE 沙城捐献
        ;#CALL [封号系统属性更改.txt] @属性更改
        SendMsg 6 恭喜你！捐献成功，获得永久属性加成！！！
        CLEARNAMELIST ........156598018通区捐献今日05区.txt
        AddTextListEx ........156598018通区捐献今日05区.txt 今日五区: 0
        GOTO @main
        break
       
       
        #IF
        Check [7] 0
        CHECKGAMEGLORY > 29
        CheckContainsText  06区
        #ACT
        GAMEGLORY - 30
        INC G8 30
        SET [7] 1
        CONFERTITLE 沙城捐献
        ;#CALL [封号系统属性更改.txt] @属性更改
        SendMsg 6 恭喜你！捐献成功，获得永久属性加成！！！
        CLEARNAMELIST ........156598018通区捐献今日06区.txt
        AddTextListEx ........156598018通区捐献今日06区.txt 今日六区: 0
        GOTO @main
        break
       
       
        #IF
        Check [7] 0
        CHECKGAMEGLORY > 29
        CheckContainsText  07区
        #ACT
        GAMEGLORY - 30
        INC G8 30
        SET [7] 1
        CONFERTITLE 沙城捐献
        ;#CALL [封号系统属性更改.txt] @属性更改
        SendMsg 6 恭喜你！捐献成功，获得永久属性加成！！！
        CLEARNAMELIST ........156598018通区捐献今日07区.txt
        AddTextListEx ........156598018通区捐献今日07区.txt 今日七区: 0
        GOTO @main
        break
       
       
       
        #IF
        Check [7] 0
        CHECKGAMEGLORY > 29
        CheckContainsText  08区
        #ACT
        GAMEGLORY - 30
        INC G8 30
        SET [7] 1
        CONFERTITLE 沙城捐献
        ;#CALL [封号系统属性更改.txt] @属性更改
        SendMsg 6 恭喜你！捐献成功，获得永久属性加成！！！
        CLEARNAMELIST ........156598018通区捐献今日08区.txt
        AddTextListEx ........156598018通区捐献今日08区.txt 今日八区: 0
        GOTO @main
        break