独孤装备幸运改造脚本，每次消耗一个真武秘籍有几率失败

admin

[@main]
        #IF
        #SAY
         　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 　
        　　　　　　　　　　　　　　　　　　　　　　　　　　
       
        　　
        　               
        　               
        　               
        #ACT
        OPENMERCHANTBIGDLG 1 243 1 4 0 0 1 429 6 1
        BREAK
       
        [@武器幸运]
        #IF
        #SAY
         　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 　
        　　　　　　　　　　　　　　　　　　　　　　　　　　
       
        　　
        　               
        　               
        　               
        #ACT
        BREAK
       
       
       
        [@开始改造项链]
        #IF
        #ACT
        SetUpgradeItem 4
       
        #IF
        checkitem 真武秘籍 1
        #ACT
        GOTO @项链开工
        #ELSEACT
        messagebox 请检查是否有足够的材料！
        break
       
        [@项链开工]
        #IF
        CheckItemAddValue boxitem4 1 > 5
        #ACT
        ReturnBoxItem 4
        MESSAGEBOX \当前装备幸运已经达到极限.无法继续提升
        break
       
        #IF
        CheckItemAddValue boxitem4 1 = 2
        #ACT
        DELAYGOTO 1 @项链幸运高
        break
       
        #IF
        CheckItemAddValue boxitem4 1 = 1
        #ACT
        DELAYGOTO 1 @项链幸运高
        break
       
        #IF
        CheckItemAddValue boxitem4 1 = 0
        #ACT
        DELAYGOTO 1 @项链幸运高
        break
       
       
        #IF
        CheckItemAddValue boxitem4 1 = 3
        #ACT
        DELAYGOTO 1 @项链幸运中
        break
       
        #IF
        CheckItemAddValue boxitem4 1 = 4
        #ACT
        DELAYGOTO 1 @项链幸运难
        break
       
        #IF
        CheckItemAddValue boxitem4 1 = 5
        #ACT
        DELAYGOTO 1 @项链幸运难
        break
       
       
       
        [@项链幸运高]
        #IF
        random 5
        checkitem 真武秘籍 1
        #ACT
        take 真武秘籍 1
        CHANGEITEMADDVALUE boxitem4 1 + 1
        UpdateItem boxitem4
        SendMsg 7 改造成功：项链幸运值+1
        SCREENEFFECT 330 50 1 602 18 1 50 0 0
        #ELSEACT
        take 真武秘籍 1
        SCREENEFFECT 430 50 1 620 11 1 50 0 0
        break
       
        [@项链幸运中]
        #IF
        random 30
        checkitem 真武秘籍 1
        #ACT
        take 真武秘籍 1
        CHANGEITEMADDVALUE boxitem4 1 + 1
        CHANGEITEMNAMECOLOR boxitem4 249
        UpdateItem boxitem0
        SendMsg 7 改造成功：项链幸运值+1
        SCREENEFFECT 330 50 1 602 18 1 50 0 0
        #ELSEACT
        take 真武秘籍 1
        SCREENEFFECT 430 50 1 620 11 1 50 0 0
        break
       
        [@项链幸运难]
        #IF
        random 80
        checkitem 真武秘籍 1
        #ACT
        take 真武秘籍 1
        CHANGEITEMADDVALUE boxitem4 1 + 1
        CHANGEITEMNAMECOLOR boxitem4 253
        UpdateItem boxitem0
        SendMsg 7 改造成功：项链幸运值+1
        SCREENEFFECT 330 50 1 602 18 1 50 0 0
        #ELSEACT
        take 真武秘籍 1
        SCREENEFFECT 430 50 1 620 11 1 50 0 0
        break
       
        ;===================================================================================================================
        [@开始改造武器]
        #IF
        #ACT
        SetUpgradeItem 3
       
        #IF
        checkitem 真武秘籍 1
        #ACT
        GOTO @武器开工
        #ELSEACT
        messagebox 请检查是否有足够的材料！
        break
       
        [@武器开工]
        #IF
        random 300
        checkitem 真武秘籍 1
        #ACT
        take 真武秘籍 1
        CHANGEITEMADDVALUE boxitem3 5 = 60
        CHANGEITEMADDVALUE boxitem3 3 = 8
        UpdateItem boxitem3
        SendMsg 7 当前武器鉴定属性为稀有属性.
        SCREENEFFECT 330 50 1 602 18 1 50 0 0
        break
       
        #IF
        random 200
        checkitem 真武秘籍 1
        #ACT
        take 真武秘籍 1
        CHANGEITEMADDVALUE boxitem3 5 = 50
        CHANGEITEMADDVALUE boxitem3 3 = 6
        UpdateItem boxitem3
        SendMsg 7 当前武器鉴定属性为稀有属性.
        SCREENEFFECT 330 50 1 602 18 1 50 0 0
        break
       
        #IF
        random 150
        checkitem 真武秘籍 1
        #ACT
        take 真武秘籍 1
        CHANGEITEMADDVALUE boxitem3 5 = 40
        CHANGEITEMADDVALUE boxitem3 3 = 5
        UpdateItem boxitem3
        SendMsg 7 当前武器鉴定属性为稀有属性.
        SCREENEFFECT 330 50 1 602 18 1 50 0 0
        break
       
        #IF
        random 100
        checkitem 真武秘籍 1
        #ACT
        take 真武秘籍 1
        CHANGEITEMADDVALUE boxitem3 5 = 30
        CHANGEITEMADDVALUE boxitem3 3 = 4
        UpdateItem boxitem3
        SendMsg 7 当前武器鉴定属性为稀有属性.
        SCREENEFFECT 330 50 1 602 18 1 50 0 0
        break
       
        #IF
        random 40
        checkitem 真武秘籍 1
        #ACT
        take 真武秘籍 1
        CHANGEITEMADDVALUE boxitem3 5 = 15
        CHANGEITEMADDVALUE boxitem3 3 = 3
        UpdateItem boxitem3
        SendMsg 7 当前武器鉴定属性为精品属性.
        SCREENEFFECT 330 50 1 602 18 1 50 0 0
        break
       
        #IF
        random 30
        checkitem 真武秘籍 1
        #ACT
        take 真武秘籍 1
        CHANGEITEMADDVALUE boxitem3 5 = 15
        CHANGEITEMADDVALUE boxitem3 3 = 2
        UpdateItem boxitem3
        SendMsg 7 当前武器鉴定属性为精品属性.
        SCREENEFFECT 330 50 1 602 18 1 50 0 0
        break
       
       
        #IF
        random 13
        checkitem 真武秘籍 1
        #ACT
        take 真武秘籍 1
        CHANGEITEMADDVALUE boxitem3 5 = 20
        CHANGEITEMADDVALUE boxitem3 3 = 1
        UpdateItem boxitem3
        SendMsg 7 当前武器鉴定属性为精品属性.
        SCREENEFFECT 330 50 1 602 18 1 50 0 0
        break
       
       
        #IF
        random 12
        checkitem 真武秘籍 1
        #ACT
        take 真武秘籍 1
        CHANGEITEMADDVALUE boxitem3 5 = 20
        CHANGEITEMADDVALUE boxitem3 3 = 1
        UpdateItem boxitem3
        SendMsg 7 当前武器鉴定属性为精品属性.
        SCREENEFFECT 330 50 1 602 18 1 50 0 0
        break
       
        #IF
        random 11
        checkitem 真武秘籍 1
        #ACT
        take 真武秘籍 1
        CHANGEITEMADDVALUE boxitem3 5 = 30
        CHANGEITEMADDVALUE boxitem3 3 = 1
        UpdateItem boxitem3
        SendMsg 7 当前武器鉴定属性为高级属性.
        SCREENEFFECT 330 50 1 602 18 1 50 0 0
        break
       
       
        #IF
        random 11
        checkitem 真武秘籍 1
        #ACT
        take 真武秘籍 1
        CHANGEITEMADDVALUE boxitem3 5 = 40
        UpdateItem boxitem3
        SendMsg 7 当前武器鉴定属性为高级属性.
        SCREENEFFECT 330 50 1 602 18 1 50 0 0
        break
       
       
        #IF
        random 10
        checkitem 真武秘籍 1
        #ACT
        take 真武秘籍 1
        CHANGEITEMADDVALUE boxitem3 3 = 1
        UpdateItem boxitem3
        SendMsg 7 当前武器鉴定属性为普通属性.
        SCREENEFFECT 330 50 1 602 18 1 50 0 0
        break
       
        #IF
        random 9
        checkitem 真武秘籍 1
        #ACT
        take 真武秘籍 1
        CHANGEITEMADDVALUE boxitem3 5 = 5
        CHANGEITEMADDVALUE boxitem3 3 = 1
        UpdateItem boxitem3
        SendMsg 7 当前武器鉴定属性为普通属性.
        SCREENEFFECT 330 50 1 602 18 1 50 0 0
        break
       
        #IF
        random 8
        checkitem 真武秘籍 1
        #ACT
        take 真武秘籍 1
        CHANGEITEMADDVALUE boxitem3 5 = 5
        CHANGEITEMADDVALUE boxitem3 3 = 1
        UpdateItem boxitem3
        SendMsg 7 当前武器鉴定属性为普通属性.
        SCREENEFFECT 330 50 1 602 18 1 50 0 0
        break
       
        #IF
        random 7
        checkitem 真武秘籍 1
        #ACT
        take 真武秘籍 1
        CHANGEITEMADDVALUE boxitem3 5 = 6
        UpdateItem boxitem3
        SendMsg 7 当前武器鉴定属性为普通属性.
        SCREENEFFECT 330 50 1 602 18 1 50 0 0
        break
       
        #IF
        random 6
        checkitem 真武秘籍 1
        #ACT
        take 真武秘籍 1
        CHANGEITEMADDVALUE boxitem3 5 = 10
        CHANGEITEMADDVALUE boxitem3 3 = 1
        UpdateItem boxitem3
        SendMsg 7 当前武器鉴定属性为普通属性.
        SCREENEFFECT 330 50 1 602 18 1 50 0 0
        break
       
        #IF
        random 5
        checkitem 真武秘籍 1
        #ACT
        take 真武秘籍 1
        CHANGEITEMADDVALUE boxitem3 5 = 20
        UpdateItem boxitem3
        SendMsg 7 当前武器鉴定属性为普通属性.
        SCREENEFFECT 330 50 1 602 18 1 50 0 0
        break
       
        #IF
        random 4
        checkitem 真武秘籍 1
        #ACT
        take 真武秘籍 1
        CHANGEITEMADDVALUE boxitem3 5 = 10
        UpdateItem boxitem3
        SendMsg 7 当前武器鉴定属性为普通属性.
        SCREENEFFECT 330 50 1 602 18 1 50 0 0
        break
       
        #IF
        random 3
        checkitem 真武秘籍 1
        #ACT
        take 真武秘籍 1
        CHANGEITEMADDVALUE boxitem3 5 = 30
        UpdateItem boxitem3
        SendMsg 7 当前武器鉴定属性为普通属性.
        SCREENEFFECT 330 50 1 602 18 1 50 0 0
        break
       
        #IF
        random 2
        checkitem 真武秘籍 1
        #ACT
        take 真武秘籍 1
        CHANGEITEMADDVALUE boxitem3 3 = 1
        UpdateItem boxitem3
        SendMsg 7 当前武器鉴定属性为普通属性.
        SCREENEFFECT 330 50 1 602 18 1 50 0 0
        break