装备重铸脚本-装备品级都是随机重铸！等于重新鉴定装备

admin

[@main]
        #ACT
        OPENMERCHANTBIGDLG 2 17 0 0 1 1 1 398 3
        #SAY
       
                      
       
          
          
       
                     
       
        　             　      
       
             
       
       
        [@鉴定]
        #IF
        checkItem 装备重铸石 3
        #ACT
        GOTO @准备鉴定
        #elseact
        MESSAGEBOX 错误提示：请检查背包里[装备重铸石]是否足够！
        break
       
       
        [@准备鉴定]
        #IF
        Equal  5
        #ACT
        SetUpgradeItem 1
        take 装备重铸石 3
        GOTO @武器鉴定
        break
       
        #OR
        Equal  10
        Equal  11
        #ACT
        SetUpgradeItem 1
        take 装备重铸石 3
        GOTO @衣服鉴定
        break
       
        #IF
        Equal  19
        #ACT
        SetUpgradeItem 1
        take 装备重铸石 3
        GOTO @项链鉴定
        break
       
        #OR
        Equal  24
        Equal  26
        Equal  22
        Equal  23
        Equal  62
        Equal  64
        Equal  15
        #ACT
        SetUpgradeItem 1
        take 装备重铸石 3
        GOTO @首饰鉴定
        break
        #elseact
        ReturnBoxItem 1
        MESSAGEBOX 错误提示：当前物品不能鉴定　1、该物品服务器禁止鉴定。
        break
       
        [@首饰鉴定]
        #ACT
        movr D1 1 15
       
        #IF
        small D1 6
        #ACT
        CHANGECUSTOMITEMTEXTCOLOR -1 255
        CHANGECUSTOMITEMTEXT -1 装备鉴定：凡品
        SetNewItemValue -1 1 = 1
        SetNewItemValue -1 4 = 1
        UpDateBoxItem 1
        ReturnBoxItem 1
        break
       
        #IF
        large D1 5
        small D1 11
        #ACT
        CHANGECUSTOMITEMTEXTCOLOR -1 218
        CHANGECUSTOMITEMTEXT -1 装备鉴定：上品
        SetNewItemValue -1 1 = 3
        SetNewItemValue -1 4 = 3
        UpDateBoxItem 1
        ReturnBoxItem 1
        break
       
       
        #IF
        large D1 9
        small D1 14
        #ACT
        CHANGECUSTOMITEMTEXTCOLOR -1 253
        CHANGECUSTOMITEMTEXT -1 装备鉴定：极品
        SetNewItemValue -1 1 = 5
        SetNewItemValue -1 4 = 5
        UpDateBoxItem 1
        ReturnBoxItem 1
        break
       
        #IF
        large D1 13
        small D1 16
        #ACT
        CHANGECUSTOMITEMTEXTCOLOR -1 70
        CHANGECUSTOMITEMTEXT -1 装备鉴定：完美
        SetNewItemValue -1 1 = 8
        SetNewItemValue -1 4 = 8
        UpDateBoxItem 1
        ReturnBoxItem 1
        GuildNoticeMsg 250 253 玩家『%s』重新鉴定出一件极品金色品质装备！大幅提升！可喜可贺！
        break
       
       
       
        [@项链鉴定]
        #ACT
        movr D1 1 15
       
        #IF
        small D1 6
        #ACT
        CHANGECUSTOMITEMTEXTCOLOR -1 255
        CHANGECUSTOMITEMTEXT -1 装备鉴定：凡品
        SetNewItemValue -1 1 = 1
        SetNewItemValue -1 7 = 1
        UpDateBoxItem 1
        ReturnBoxItem 1
        break
       
        #IF
        large D1 5
        small D1 11
        #ACT
        CHANGECUSTOMITEMTEXTCOLOR -1 218
        CHANGECUSTOMITEMTEXT -1 装备鉴定：上品
        SetNewItemValue -1 1 = 3
        SetNewItemValue -1 7 = 3
        UpDateBoxItem 1
        ReturnBoxItem 1
        break
       
       
        #IF
        large D1 9
        small D1 14
        #ACT
        CHANGECUSTOMITEMTEXTCOLOR -1 253
        CHANGECUSTOMITEMTEXT -1 装备鉴定：极品
        SetNewItemValue -1 1 = 5
        SetNewItemValue -1 7 = 5
        UpDateBoxItem 1
        ReturnBoxItem 1
        break
       
        #IF
        large D1 13
        small D1 16
        #ACT
        CHANGECUSTOMITEMTEXTCOLOR -1 70
        CHANGECUSTOMITEMTEXT -1 装备鉴定：完美
        SetNewItemValue -1 1 = 8
        SetNewItemValue -1 7 = 8
        UpDateBoxItem 1
        ReturnBoxItem 1
        GuildNoticeMsg 250 253 玩家『%s』重新鉴定出一件极品金色品质装备！大幅提升！可喜可贺！
        break
       
       
       
       
       
        [@衣服鉴定]
        #ACT
        movr D1 1 15
       
        #IF
        small D1 6
        #ACT
        CHANGECUSTOMITEMTEXTCOLOR -1 255
        CHANGECUSTOMITEMTEXT -1 装备鉴定：凡品
        SetNewItemValue -1 2 = 3
        SetNewItemValue -1 3 = 3
        SetNewItemValue -1 7 = 3
        UpDateBoxItem 1
        ReturnBoxItem 1
        break
       
        #IF
        large D1 5
        small D1 10
        #ACT
        CHANGECUSTOMITEMTEXTCOLOR -1 218
        CHANGECUSTOMITEMTEXT -1 装备鉴定：上品
        SetNewItemValue -1 2 = 5
        SetNewItemValue -1 3 = 5
        SetNewItemValue -1 7 = 5
        UpDateBoxItem 1
        ReturnBoxItem 1
        break
       
       
        #IF
        large D1 9
        small D1 13
        #ACT
        CHANGECUSTOMITEMTEXTCOLOR -1 253
        CHANGECUSTOMITEMTEXT -1 装备鉴定：极品
        SetNewItemValue -1 2 = 7
        SetNewItemValue -1 3 = 7
        SetNewItemValue -1 7 = 7
        UpDateBoxItem 1
        ReturnBoxItem 1
        break
       
        #IF
        large D1 12
        small D1 15
        #ACT
        CHANGECUSTOMITEMTEXTCOLOR -1 70
        CHANGECUSTOMITEMTEXT -1 装备鉴定：完美
        SetNewItemValue -1 2 = 8
        SetNewItemValue -1 3 = 10
        SetNewItemValue -1 7 = 10
        UpDateBoxItem 1
        ReturnBoxItem 1
        GuildNoticeMsg 250 253 玩家『%s』重新鉴定出一件极品金色品质装备！大幅提升！可喜可贺！
        break
       
        #IF
        EQUAL D1 15
        #ACT
        CHANGECUSTOMITEMTEXTCOLOR -1 70
        CHANGECUSTOMITEMTEXT -1 装备鉴定：完美
        SetNewItemValue -1 2 = 10
        SetNewItemValue -1 3 = 10
        SetNewItemValue -1 7 = 10
        UpDateBoxItem 1
        ReturnBoxItem 1
        GuildNoticeMsg 250 253 玩家『%s』重新鉴定出一件极品金色品质装备！大幅提升！可喜可贺！
        break
       
       
        [@武器鉴定]
        #ACT
        movr D1 1 15
       
       
        #IF
        small D1 6
        #ACT
        CHANGECUSTOMITEMTEXTCOLOR -1 255
        CHANGECUSTOMITEMTEXT -1 装备鉴定：凡品
        SetNewItemValue -1 0 = 3
        SetNewItemValue -1 1 = 3
        SetNewItemValue -1 4 = 3
        UpDateBoxItem 1
        ReturnBoxItem 1
        break
       
        #IF
        large D1 5
        small D1 10
        #ACT
        CHANGECUSTOMITEMTEXTCOLOR -1 218
        CHANGECUSTOMITEMTEXT -1 装备鉴定：上品
        SetNewItemValue -1 0 = 5
        SetNewItemValue -1 1 = 5
        SetNewItemValue -1 4 = 5
        UpDateBoxItem 1
        ReturnBoxItem 1
        break
       
       
        #IF
        large D1 9
        small D1 13
        #ACT
        CHANGECUSTOMITEMTEXTCOLOR -1 253
        CHANGECUSTOMITEMTEXT -1 装备鉴定：极品
        SetNewItemValue -1 0 = 7
        SetNewItemValue -1 1 = 7
        SetNewItemValue -1 4 = 7
        UpDateBoxItem 1
        ReturnBoxItem 1
        break
       
        #IF
        large D1 12
        small D1 15
        #ACT
        CHANGECUSTOMITEMTEXTCOLOR -1 70
        CHANGECUSTOMITEMTEXT -1 装备鉴定：完美
        SetNewItemValue -1 0 = 8
        SetNewItemValue -1 1 = 10
        SetNewItemValue -1 4 = 10
        UpDateBoxItem 1
        ReturnBoxItem 1
        GuildNoticeMsg 250 253 玩家『%s』重新鉴定出一件极品金色品质装备！大幅提升！可喜可贺！
        break
       
        #IF
        EQUAL D1 15
        #ACT
        CHANGECUSTOMITEMTEXTCOLOR -1 70
        CHANGECUSTOMITEMTEXT -1 装备鉴定：完美
        SetNewItemValue -1 0 = 10
        SetNewItemValue -1 1 = 10
        SetNewItemValue -1 4 = 10
        UpDateBoxItem 1
        ReturnBoxItem 1
        GuildNoticeMsg 250 253 玩家『%s』重新鉴定出一件极品金色品质装备！大幅提升！可喜可贺！
        break