改造装备-3脚本装备加星不满意可以点击打造，每次需要一颗打造石

admin

[@main]
        #IF
        #Act
        MOV S$衣服名称
        MOV S$武器名称
        MOV S$头盔名称
        MOV S$项链名称
        MOV S$左手名称
        MOV S$右手名称
        MOV S$左戒名称
        MOV S$右戒名称
        MOV S$靴子名称
        MOV S$腰带名称
        MOV S$勋章名称
        MOV S$宝石名称
        MOV S$衣服名称A
        MOV S$武器名称A
        MOV S$头盔名称A
        MOV S$项链名称A
        MOV S$左手名称A
        MOV S$右手名称A
        MOV S$左戒名称A
        MOV S$右戒名称A
        MOV S$靴子名称A
        MOV S$腰带名称A
        MOV S$勋章名称A
        MOV S$宝石名称A
        SetStringBlank  20 1
        SetStringBlank  20 1
        SetStringBlank  20 1
        SetStringBlank  20 1
        SetStringBlank  20 1
        SetStringBlank  20 1
        SetStringBlank  20 1
        SetStringBlank  20 1
        SetStringBlank  20 1
        SetStringBlank  20 1
        SetStringBlank  20 1
        SetStringBlank  20 1
        #say
       
        　
        　
        　
        　　 :{/SCOLOR=210} :{/SCOLOR=210}
        　　 :{/SCOLOR=210} :{/SCOLOR=210}
        　　 :{/SCOLOR=210} :{/SCOLOR=210}
        　　 :{/SCOLOR=210} :{/SCOLOR=210}
        　　 :{/SCOLOR=210} :{/SCOLOR=210}
        　　 :{/SCOLOR=210} :{/SCOLOR=210}\
        　
        　
        　
       
       
       
       
        [@宝石改造]
        #IF
        NOT CHECKUSEITEM 12
        #ACT
        MESSAGEBOX \这地方带装备了么？
        break
       
        #IF
        NOT CheckContainsTextListEx ..QuestDiary数据文件品鉴抽取装备名称.txt
        #ACT
        MESSAGEBOX \此物品禁止改造！
        break
       
       
       
        #IF
        checkitem 打造石 1
        random 300
        #ACT
        Take 打造石 1
        MOV S10
        MOV S11
        GetRandomText ..QuestDiary数据文件品鉴抽取衣服一星位置抽取.txt S10
        CHANGECUSTOMITEMTEXT 12 上古品鉴*8星
        CHANGECUSTOMITEMTEXTCOLOR 11 250
        CHANGECUSTOMITEMABIL 12 0 0 70
        CHANGECUSTOMITEMABIL 12 0 1
        ;CHANGECUSTOMITEMABIL 12 1 1
        CHANGECUSTOMITEMVALUE 12 0 = 48
        CHANGECUSTOMITEMABIL 12 0 2 0
        ChangeItemUpgradeCount 12 = 8
        SENDUPGRADEITEM
        MESSAGEBOX \装备重生成功，星级为：★★★★★★★★
        SendMsg 0 {上古评鉴ぐ|151:0:1}：{%s|227:0:1}福星降临鉴定出{[八星]|154:0:1}的{[]|250:0:1}
        break
       
       
        #IF
        checkitem 打造石 1
        random 200
        #ACT
        Take 打造石 1
        MOV S10
        MOV S11
        GetRandomText ..QuestDiary数据文件品鉴抽取衣服一星位置抽取.txt S10
        CHANGECUSTOMITEMTEXT 12 上古品鉴*7星
        CHANGECUSTOMITEMTEXTCOLOR 11 250
        CHANGECUSTOMITEMABIL 12 0 0 70
        CHANGECUSTOMITEMABIL 12 0 1
        ;CHANGECUSTOMITEMABIL 12 1 1
        CHANGECUSTOMITEMVALUE 12 0 = 32
        CHANGECUSTOMITEMABIL 12 0 2 0
        ChangeItemUpgradeCount 12 = 7
        SENDUPGRADEITEM
        MESSAGEBOX \装备重生成功，星级为：★★★★★★★
        SendMsg 0 {上古评鉴ぐ|151:0:1}：{%s|227:0:1}福星降临鉴定出{[七星]|154:0:1}的{[]|250:0:1}
        break
       
       
        #IF
        checkitem 打造石 1
        random 100
        #ACT
        Take 打造石 1
        MOV S10
        MOV S11
        GetRandomText ..QuestDiary数据文件品鉴抽取衣服一星位置抽取.txt S10
        CHANGECUSTOMITEMTEXT 12 上古品鉴*6星
        CHANGECUSTOMITEMTEXTCOLOR 11 250
        CHANGECUSTOMITEMABIL 12 0 0 70
        CHANGECUSTOMITEMABIL 12 0 1
        ;CHANGECUSTOMITEMABIL 12 1 1
        CHANGECUSTOMITEMVALUE 12 0 = 22
        CHANGECUSTOMITEMABIL 12 0 2 0
        ChangeItemUpgradeCount 12 = 6
        SENDUPGRADEITEM
        MESSAGEBOX \装备重生成功，星级为：★★★★★★
        SendMsg 0 {上古评鉴ぐ|151:0:1}：{%s|227:0:1}福星降临鉴定出{[六星]|154:0:1}的{[]|250:0:1}
        break
       
       
        #IF
        checkitem 打造石 1
        random 50
        #ACT
        Take 打造石 1
        MOV S10
        MOV S11
        GetRandomText ..QuestDiary数据文件品鉴抽取衣服一星位置抽取.txt S10
        CHANGECUSTOMITEMTEXT 12 上古品鉴*5星
        CHANGECUSTOMITEMTEXTCOLOR 11 250
        CHANGECUSTOMITEMABIL 12 0 0 70
        CHANGECUSTOMITEMABIL 12 0 1
        ;CHANGECUSTOMITEMABIL 12 1 1
        CHANGECUSTOMITEMVALUE 12 0 = 15
        CHANGECUSTOMITEMABIL 12 0 2 0
        ChangeItemUpgradeCount 12 = 5
        SENDUPGRADEITEM
        MESSAGEBOX \装备重生成功，星级为：★★★★★
        SendMsg 0 {上古评鉴ぐ|151:0:1}：{%s|227:0:1}福星降临鉴定出{[五星]|154:0:1}的{[]|250:0:1}
        break
       
        #IF
        checkitem 打造石 1
        random 15
        #ACT
        Take 打造石 1
        MOV S10
        MOV S11
        GetRandomText ..QuestDiary数据文件品鉴抽取衣服一星位置抽取.txt S10
        CHANGECUSTOMITEMTEXT 12 上古品鉴*4星
        CHANGECUSTOMITEMTEXTCOLOR 11 250
        CHANGECUSTOMITEMABIL 12 0 0 70
        CHANGECUSTOMITEMABIL 12 0 1
        ;CHANGECUSTOMITEMABIL 12 1 1
        CHANGECUSTOMITEMVALUE 12 0 = 10
        CHANGECUSTOMITEMABIL 12 0 2 0
        ChangeItemUpgradeCount 12 = 4
        SENDUPGRADEITEM
        MESSAGEBOX \装备重生成功，星级为：★★★★
        SendMsg 0 {上古评鉴ぐ|151:0:1}：{%s|227:0:1}福星降临鉴定出{[四星]|154:0:1}的{[]|250:0:1}
        break
       
        #IF
        checkitem 打造石 1
        random 4
        #ACT
        Take 打造石 1
        MOV S10 0
        GetRandomText ..QuestDiary数据文件品鉴抽取衣服一星位置抽取.txt S10
        CHANGECUSTOMITEMTEXT 12 上古品鉴*3星
        CHANGECUSTOMITEMTEXTCOLOR 11 250
        CHANGECUSTOMITEMABIL 12 0 0 70
        CHANGECUSTOMITEMABIL 12 0 1
        ;CHANGECUSTOMITEMABIL 12 1 1
        CHANGECUSTOMITEMVALUE 12 0 = 7
        CHANGECUSTOMITEMABIL 12 1 2 0
        ChangeItemUpgradeCount 12 = 3
        SENDUPGRADEITEM
        MESSAGEBOX \装备重生成功，星级为：★★★
        break
       
        #IF
        checkitem 打造石 1
        random 2
        #ACT
        Take 打造石 1
        MOV S10 0
        GetRandomText ..QuestDiary数据文件品鉴抽取衣服一星位置抽取.txt S10
        CHANGECUSTOMITEMTEXT 12 上古品鉴*2星
        CHANGECUSTOMITEMTEXTCOLOR 11 250
        CHANGECUSTOMITEMABIL 12 0 0 70
        CHANGECUSTOMITEMABIL 12 0 1
        ;CHANGECUSTOMITEMABIL 12 1 1
        CHANGECUSTOMITEMVALUE 12 0 = 5
        CHANGECUSTOMITEMABIL 12 1 2 0
        ChangeItemUpgradeCount 12 = 2
        SENDUPGRADEITEM
        MESSAGEBOX \装备重生成功，星级为：★★
        break
       
        #IF
        checkitem 打造石 1
        random 1
        #ACT
        Take 打造石 1
        MOV S10 0
        GetRandomText ..QuestDiary数据文件品鉴抽取衣服一星位置抽取.txt S10
        CHANGECUSTOMITEMTEXT 12 上古品鉴*1星
        CHANGECUSTOMITEMTEXTCOLOR 11 250
        CHANGECUSTOMITEMABIL 12 0 0 70
        CHANGECUSTOMITEMABIL 12 0 1
        ;CHANGECUSTOMITEMABIL 12 1 1
        CHANGECUSTOMITEMVALUE 12 0 = 3
        CHANGECUSTOMITEMABIL 12 0 2 0
        ChangeItemUpgradeCount 12 = 1
        SENDUPGRADEITEM
        MESSAGEBOX \装备重生成功，星级为：★
        break
        #ELSEACT
        MESSAGEBOX \重生失败:原因如下\　　　　1.您没有"打造石"一个\　　　　2.请集齐以上材料在来找我吧！
        break
       
        [@靴子改造]
        #IF
        NOT CHECKUSEITEM 11
        #ACT
        MESSAGEBOX \这地方带装备了么？
        break
       
        #IF
        NOT CheckContainsTextListEx ..QuestDiary数据文件品鉴抽取装备名称.txt
        #ACT
        MESSAGEBOX \此物品禁止改造！
        break
       
       
       
        #IF
        checkitem 打造石 1
        random 300
        #ACT
        Take 打造石 1
        MOV S10
        MOV S11
        GetRandomText ..QuestDiary数据文件品鉴抽取衣服一星位置抽取.txt S10
        CHANGECUSTOMITEMTEXT 11 上古品鉴*8星
        CHANGECUSTOMITEMTEXTCOLOR 11 250
        CHANGECUSTOMITEMABIL 11 0 0 70
        CHANGECUSTOMITEMABIL 11 0 1
        ;CHANGECUSTOMITEMABIL 11 1 1
        CHANGECUSTOMITEMVALUE 11 0 = 48
        CHANGECUSTOMITEMABIL 11 0 2 0
        ChangeItemUpgradeCount 11 = 8
        SENDUPGRADEITEM
        MESSAGEBOX \装备重生成功，星级为：★★★★★★★★
        SendMsg 0 {上古评鉴ぐ|151:0:1}：{%s|227:0:1}福星降临鉴定出{[八星]|154:0:1}的{[]|250:0:1}
        break
       
       
        #IF
        checkitem 打造石 1
        random 200
        #ACT
        Take 打造石 1
        MOV S10
        MOV S11
        GetRandomText ..QuestDiary数据文件品鉴抽取衣服一星位置抽取.txt S10
        CHANGECUSTOMITEMTEXT 11 上古品鉴*7星
        CHANGECUSTOMITEMTEXTCOLOR 11 250
        CHANGECUSTOMITEMABIL 11 0 0 70
        CHANGECUSTOMITEMABIL 11 0 1
        ;CHANGECUSTOMITEMABIL 11 1 1
        CHANGECUSTOMITEMVALUE 11 0 = 32
        CHANGECUSTOMITEMABIL 11 0 2 0
        ChangeItemUpgradeCount 11 = 7
        SENDUPGRADEITEM
        MESSAGEBOX \装备重生成功，星级为：★★★★★★★
        SendMsg 0 {上古评鉴ぐ|151:0:1}：{%s|227:0:1}福星降临鉴定出{[七星]|154:0:1}的{[]|250:0:1}
        break
       
       
        #IF
        checkitem 打造石 1
        random 100
        #ACT
        Take 打造石 1
        MOV S10
        MOV S11
        GetRandomText ..QuestDiary数据文件品鉴抽取衣服一星位置抽取.txt S10
        CHANGECUSTOMITEMTEXT 11 上古品鉴*6星
        CHANGECUSTOMITEMTEXTCOLOR 11 250
        CHANGECUSTOMITEMABIL 11 0 0 70
        CHANGECUSTOMITEMABIL 11 0 1
        ;CHANGECUSTOMITEMABIL 11 1 1
        CHANGECUSTOMITEMVALUE 11 0 = 22
        CHANGECUSTOMITEMABIL 11 0 2 0
        ChangeItemUpgradeCount 11 = 6
        SENDUPGRADEITEM
        MESSAGEBOX \装备重生成功，星级为：★★★★★★
        SendMsg 0 {上古评鉴ぐ|151:0:1}：{%s|227:0:1}福星降临鉴定出{[六星]|154:0:1}的{[]|250:0:1}
        break
       
       
        #IF
        checkitem 打造石 1
        random 50
        #ACT
        Take 打造石 1
        MOV S10
        MOV S11
        GetRandomText ..QuestDiary数据文件品鉴抽取衣服一星位置抽取.txt S10
        CHANGECUSTOMITEMTEXT 11 上古品鉴*5星
        CHANGECUSTOMITEMTEXTCOLOR 11 250
        CHANGECUSTOMITEMABIL 11 0 0 70
        CHANGECUSTOMITEMABIL 11 0 1
        ;CHANGECUSTOMITEMABIL 11 1 1
        CHANGECUSTOMITEMVALUE 11 0 = 15
        CHANGECUSTOMITEMABIL 11 0 2 0
        ChangeItemUpgradeCount 11 = 5
        SENDUPGRADEITEM
        MESSAGEBOX \装备重生成功，星级为：★★★★★
        SendMsg 0 {上古评鉴ぐ|151:0:1}：{%s|227:0:1}福星降临鉴定出{[五星]|154:0:1}的{[]|250:0:1}
        break
       
        #IF
        checkitem 打造石 1
        random 15
        #ACT
        Take 打造石 1
        MOV S10
        MOV S11
        GetRandomText ..QuestDiary数据文件品鉴抽取衣服一星位置抽取.txt S10
        CHANGECUSTOMITEMTEXT 11 上古品鉴*4星
        CHANGECUSTOMITEMTEXTCOLOR 11 250
        CHANGECUSTOMITEMABIL 11 0 0 70
        CHANGECUSTOMITEMABIL 11 0 1
        ;CHANGECUSTOMITEMABIL 11 1 1
        CHANGECUSTOMITEMVALUE 11 0 = 10
        CHANGECUSTOMITEMABIL 11 0 2 0
        ChangeItemUpgradeCount 11 = 4
        SENDUPGRADEITEM
        MESSAGEBOX \装备重生成功，星级为：★★★★
        SendMsg 0 {上古评鉴ぐ|151:0:1}：{%s|227:0:1}福星降临鉴定出{[四星]|154:0:1}的{[]|250:0:1}
        break
       
        #IF
        checkitem 打造石 1
        random 4
        #ACT
        Take 打造石 1
        MOV S10 0
        GetRandomText ..QuestDiary数据文件品鉴抽取衣服一星位置抽取.txt S10
        CHANGECUSTOMITEMTEXT 11 上古品鉴*3星
        CHANGECUSTOMITEMTEXTCOLOR 11 250
        CHANGECUSTOMITEMABIL 11 0 0 70
        CHANGECUSTOMITEMABIL 11 0 1
        ;CHANGECUSTOMITEMABIL 11 1 1
        CHANGECUSTOMITEMVALUE 11 0 = 7
        CHANGECUSTOMITEMABIL 11 1 2 0
        ChangeItemUpgradeCount 11 = 3
        SENDUPGRADEITEM
        MESSAGEBOX \装备重生成功，星级为：★★★
        break
       
        #IF
        checkitem 打造石 1
        random 2
        #ACT
        Take 打造石 1
        MOV S10 0
        GetRandomText ..QuestDiary数据文件品鉴抽取衣服一星位置抽取.txt S10
        CHANGECUSTOMITEMTEXT 11 上古品鉴*2星
        CHANGECUSTOMITEMTEXTCOLOR 11 250
        CHANGECUSTOMITEMABIL 11 0 0 70
        CHANGECUSTOMITEMABIL 11 0 1
        ;CHANGECUSTOMITEMABIL 11 1 1
        CHANGECUSTOMITEMVALUE 11 0 = 5
        CHANGECUSTOMITEMABIL 11 1 2 0
        ChangeItemUpgradeCount 11 = 2
        SENDUPGRADEITEM
        MESSAGEBOX \装备重生成功，星级为：★★
        break
       
        #IF
        checkitem 打造石 1
        random 1
        #ACT
        Take 打造石 1
        MOV S10 0
        GetRandomText ..QuestDiary数据文件品鉴抽取衣服一星位置抽取.txt S10
        CHANGECUSTOMITEMTEXT 11 上古品鉴*1星
        CHANGECUSTOMITEMTEXTCOLOR 11 250
        CHANGECUSTOMITEMABIL 11 0 0 70
        CHANGECUSTOMITEMABIL 11 0 1
        ;CHANGECUSTOMITEMABIL 11 1 1
        CHANGECUSTOMITEMVALUE 11 0 = 3
        CHANGECUSTOMITEMABIL 11 0 2 0
        ChangeItemUpgradeCount 11 = 1
        SENDUPGRADEITEM
        MESSAGEBOX \装备重生成功，星级为：★
        break
        #ELSEACT
        MESSAGEBOX \重生失败:原因如下\　　　　1.您没有"打造石"一个\　　　　2.请集齐以上材料在来找我吧！
        break
       
        [@腰带改造]
        #IF
        NOT CHECKUSEITEM 10
        #ACT
        MESSAGEBOX \这地方带装备了么？
        break
       
        #IF
        NOT CheckContainsTextListEx ..QuestDiary数据文件品鉴抽取装备名称.txt
        #ACT
        MESSAGEBOX \此物品禁止改造！
        break
       
       
       
        #IF
        checkitem 打造石 1
        random 300
        #ACT
        Take 打造石 1
        MOV S10
        MOV S11
        GetRandomText ..QuestDiary数据文件品鉴抽取衣服一星位置抽取.txt S10
        CHANGECUSTOMITEMTEXT 10 上古品鉴*8星
        CHANGECUSTOMITEMTEXTCOLOR 10 250
        CHANGECUSTOMITEMABIL 10 0 0 70
        CHANGECUSTOMITEMABIL 10 0 1
        ;CHANGECUSTOMITEMABIL 10 1 1
        CHANGECUSTOMITEMVALUE 10 0 = 48
        CHANGECUSTOMITEMABIL 10 0 2 0
        ChangeItemUpgradeCount 10 = 8
        SENDUPGRADEITEM
        MESSAGEBOX \装备重生成功，星级为：★★★★★★★★
        SendMsg 0 {上古评鉴ぐ|151:0:1}：{%s|227:0:1}福星降临鉴定出{[八星]|154:0:1}的{[]|250:0:1}
        break
       
       
        #IF
        checkitem 打造石 1
        random 200
        #ACT
        Take 打造石 1
        MOV S10
        MOV S11
        GetRandomText ..QuestDiary数据文件品鉴抽取衣服一星位置抽取.txt S10
        CHANGECUSTOMITEMTEXT 10 上古品鉴*7星
        CHANGECUSTOMITEMTEXTCOLOR 10 250
        CHANGECUSTOMITEMABIL 10 0 0 70
        CHANGECUSTOMITEMABIL 10 0 1
        ;CHANGECUSTOMITEMABIL 10 1 1
        CHANGECUSTOMITEMVALUE 10 0 = 32
        CHANGECUSTOMITEMABIL 10 0 2 0
        ChangeItemUpgradeCount 10 = 7
        SENDUPGRADEITEM
        MESSAGEBOX \装备重生成功，星级为：★★★★★★★
        SendMsg 0 {上古评鉴ぐ|151:0:1}：{%s|227:0:1}福星降临鉴定出{[七星]|154:0:1}的{[]|250:0:1}
        break
       
       
        #IF
        checkitem 打造石 1
        random 100
        #ACT
        Take 打造石 1
        MOV S10
        MOV S11
        GetRandomText ..QuestDiary数据文件品鉴抽取衣服一星位置抽取.txt S10
        CHANGECUSTOMITEMTEXT 10 上古品鉴*6星
        CHANGECUSTOMITEMTEXTCOLOR 10 250
        CHANGECUSTOMITEMABIL 10 0 0 70
        CHANGECUSTOMITEMABIL 10 0 1
        ;CHANGECUSTOMITEMABIL 10 1 1
        CHANGECUSTOMITEMVALUE 10 0 = 22
        CHANGECUSTOMITEMABIL 10 0 2 0
        ChangeItemUpgradeCount 10 = 6
        SENDUPGRADEITEM
        MESSAGEBOX \装备重生成功，星级为：★★★★★★
        SendMsg 0 {上古评鉴ぐ|151:0:1}：{%s|227:0:1}福星降临鉴定出{[六星]|154:0:1}的{[]|250:0:1}
        break
       
       
        #IF
        checkitem 打造石 1
        random 50
        #ACT
        Take 打造石 1
        MOV S10
        MOV S11
        GetRandomText ..QuestDiary数据文件品鉴抽取衣服一星位置抽取.txt S10
        CHANGECUSTOMITEMTEXT 10 上古品鉴*5星
        CHANGECUSTOMITEMTEXTCOLOR 10 250
        CHANGECUSTOMITEMABIL 10 0 0 70
        CHANGECUSTOMITEMABIL 10 0 1
        ;CHANGECUSTOMITEMABIL 10 1 1
        CHANGECUSTOMITEMVALUE 10 0 = 15
        CHANGECUSTOMITEMABIL 10 0 2 0
        ChangeItemUpgradeCount 10 = 5
        SENDUPGRADEITEM
        MESSAGEBOX \装备重生成功，星级为：★★★★★
        SendMsg 0 {上古评鉴ぐ|151:0:1}：{%s|227:0:1}福星降临鉴定出{[五星]|154:0:1}的{[]|250:0:1}
        break
       
        #IF
        checkitem 打造石 1
        random 15
        #ACT
        Take 打造石 1
        MOV S10
        MOV S11
        GetRandomText ..QuestDiary数据文件品鉴抽取衣服一星位置抽取.txt S10
        CHANGECUSTOMITEMTEXT 10 上古品鉴*4星
        CHANGECUSTOMITEMTEXTCOLOR 10 250
        CHANGECUSTOMITEMABIL 10 0 0 70
        CHANGECUSTOMITEMABIL 10 0 1
        ;CHANGECUSTOMITEMABIL 10 1 1
        CHANGECUSTOMITEMVALUE 10 0 = 10
        CHANGECUSTOMITEMABIL 10 0 2 0
        ChangeItemUpgradeCount 10 = 4
        SENDUPGRADEITEM
        MESSAGEBOX \装备重生成功，星级为：★★★★
        SendMsg 0 {上古评鉴ぐ|151:0:1}：{%s|227:0:1}福星降临鉴定出{[四星]|154:0:1}的{[]|250:0:1}
        break
       
        #IF
        checkitem 打造石 1
        random 4
        #ACT
        Take 打造石 1
        MOV S10 0
        GetRandomText ..QuestDiary数据文件品鉴抽取衣服一星位置抽取.txt S10
        CHANGECUSTOMITEMTEXT 10 上古品鉴*3星
        CHANGECUSTOMITEMTEXTCOLOR 10 250
        CHANGECUSTOMITEMABIL 10 0 0 70
        CHANGECUSTOMITEMABIL 10 0 1
        ;CHANGECUSTOMITEMABIL 10 1 1
        CHANGECUSTOMITEMVALUE 10 0 = 7
        CHANGECUSTOMITEMABIL 10 1 2 0
        ChangeItemUpgradeCount 10 = 3
        SENDUPGRADEITEM
        MESSAGEBOX \装备重生成功，星级为：★★★
        break
       
        #IF
        checkitem 打造石 1
        random 2
        #ACT
        Take 打造石 1
        MOV S10 0
        GetRandomText ..QuestDiary数据文件品鉴抽取衣服一星位置抽取.txt S10
        CHANGECUSTOMITEMTEXT 10 上古品鉴*2星
        CHANGECUSTOMITEMTEXTCOLOR 10 250
        CHANGECUSTOMITEMABIL 10 0 0 70
        CHANGECUSTOMITEMABIL 10 0 1
        ;CHANGECUSTOMITEMABIL 10 1 1
        CHANGECUSTOMITEMVALUE 10 0 = 5
        CHANGECUSTOMITEMABIL 10 1 2 0
        ChangeItemUpgradeCount 10 = 2
        SENDUPGRADEITEM
        MESSAGEBOX \装备重生成功，星级为：★★
        break
       
        #IF
        checkitem 打造石 1
        random 1
        #ACT
        Take 打造石 1
        MOV S10 0
        GetRandomText ..QuestDiary数据文件品鉴抽取衣服一星位置抽取.txt S10
        CHANGECUSTOMITEMTEXT 10 上古品鉴*1星
        CHANGECUSTOMITEMTEXTCOLOR 10 250
        CHANGECUSTOMITEMABIL 10 0 0 70
        CHANGECUSTOMITEMABIL 10 0 1
        ;CHANGECUSTOMITEMABIL 10 1 1
        CHANGECUSTOMITEMVALUE 10 0 = 3
        CHANGECUSTOMITEMABIL 10 0 2 0
        ChangeItemUpgradeCount 10 = 1
        SENDUPGRADEITEM
        MESSAGEBOX \装备重生成功，星级为：★
        break
        #ELSEACT
        MESSAGEBOX \重生失败:原因如下\　　　　1.您没有"打造石"一个\　　　　2.请集齐以上材料在来找我吧！
        break
       
        [@左戒改造]
        #IF
        NOT CHECKUSEITEM 8
        #ACT
        MESSAGEBOX \这地方带装备了么？
        break
       
        #IF
        NOT CheckContainsTextListEx ..QuestDiary数据文件品鉴抽取装备名称.txt
        #ACT
        MESSAGEBOX \此物品禁止改造！
        break
       
       
       
        #IF
        checkitem 打造石 1
        random 300
        #ACT
        Take 打造石 1
        MOV S10
        MOV S11
        GetRandomText ..QuestDiary数据文件品鉴抽取衣服一星位置抽取.txt S10
        CHANGECUSTOMITEMTEXT 8 上古品鉴*8星
        CHANGECUSTOMITEMTEXTCOLOR 8 250
        CHANGECUSTOMITEMABIL 8 0 0 70
        CHANGECUSTOMITEMABIL 8 0 1
        ;CHANGECUSTOMITEMABIL 8 1 1
        CHANGECUSTOMITEMVALUE 8 0 = 48
        CHANGECUSTOMITEMABIL 8 0 2 0
        ChangeItemUpgradeCount 8 = 8
        SENDUPGRADEITEM
        MESSAGEBOX \装备重生成功，星级为：★★★★★★★★
        SendMsg 0 {上古评鉴ぐ|151:0:1}：{%s|227:0:1}福星降临鉴定出{[八星]|154:0:1}的{[]|250:0:1}
        break
       
       
        #IF
        checkitem 打造石 1
        random 200
        #ACT
        Take 打造石 1
        MOV S10
        MOV S11
        GetRandomText ..QuestDiary数据文件品鉴抽取衣服一星位置抽取.txt S10
        CHANGECUSTOMITEMTEXT 8 上古品鉴*7星
        CHANGECUSTOMITEMTEXTCOLOR 8 250
        CHANGECUSTOMITEMABIL 8 0 0 70
        CHANGECUSTOMITEMABIL 8 0 1
        ;CHANGECUSTOMITEMABIL 8 1 1
        CHANGECUSTOMITEMVALUE 8 0 = 32
        CHANGECUSTOMITEMABIL 8 0 2 0
        ChangeItemUpgradeCount 8 = 7
        SENDUPGRADEITEM
        MESSAGEBOX \装备重生成功，星级为：★★★★★★★
        SendMsg 0 {上古评鉴ぐ|151:0:1}：{%s|227:0:1}福星降临鉴定出{[七星]|154:0:1}的{[]|250:0:1}
        break
       
       
        #IF
        checkitem 打造石 1
        random 100
        #ACT
        Take 打造石 1
        MOV S10
        MOV S11
        GetRandomText ..QuestDiary数据文件品鉴抽取衣服一星位置抽取.txt S10
        CHANGECUSTOMITEMTEXT 8 上古品鉴*6星
        CHANGECUSTOMITEMTEXTCOLOR 8 250
        CHANGECUSTOMITEMABIL 8 0 0 70
        CHANGECUSTOMITEMABIL 8 0 1
        ;CHANGECUSTOMITEMABIL 8 1 1
        CHANGECUSTOMITEMVALUE 8 0 = 22
        CHANGECUSTOMITEMABIL 8 0 2 0
        ChangeItemUpgradeCount 8 = 6
        SENDUPGRADEITEM
        MESSAGEBOX \装备重生成功，星级为：★★★★★★
        SendMsg 0 {上古评鉴ぐ|151:0:1}：{%s|227:0:1}福星降临鉴定出{[六星]|154:0:1}的{[]|250:0:1}
        break
       
       
        #IF
        checkitem 打造石 1
        random 50
        #ACT
        Take 打造石 1
        MOV S10
        MOV S11
        GetRandomText ..QuestDiary数据文件品鉴抽取衣服一星位置抽取.txt S10
        CHANGECUSTOMITEMTEXT 8 上古品鉴*5星
        CHANGECUSTOMITEMTEXTCOLOR 8 250
        CHANGECUSTOMITEMABIL 8 0 0 70
        CHANGECUSTOMITEMABIL 8 0 1
        ;CHANGECUSTOMITEMABIL 8 1 1
        CHANGECUSTOMITEMVALUE 8 0 = 15
        CHANGECUSTOMITEMABIL 8 0 2 0
        ChangeItemUpgradeCount 8 = 5
        SENDUPGRADEITEM
        MESSAGEBOX \装备重生成功，星级为：★★★★★
        SendMsg 0 {上古评鉴ぐ|151:0:1}：{%s|227:0:1}福星降临鉴定出{[五星]|154:0:1}的{[]|250:0:1}
        break
       
        #IF
        checkitem 打造石 1
        random 15
        #ACT
        Take 打造石 1
        MOV S10
        MOV S11
        GetRandomText ..QuestDiary数据文件品鉴抽取衣服一星位置抽取.txt S10
        CHANGECUSTOMITEMTEXT 8 上古品鉴*4星
        CHANGECUSTOMITEMTEXTCOLOR 8 250
        CHANGECUSTOMITEMABIL 8 0 0 70
        CHANGECUSTOMITEMABIL 8 0 1
        ;CHANGECUSTOMITEMABIL 8 1 1
        CHANGECUSTOMITEMVALUE 8 0 = 10
        CHANGECUSTOMITEMABIL 8 0 2 0
        ChangeItemUpgradeCount 8 = 4
        SENDUPGRADEITEM
        MESSAGEBOX \装备重生成功，星级为：★★★★
        SendMsg 0 {上古评鉴ぐ|151:0:1}：{%s|227:0:1}福星降临鉴定出{[四星]|154:0:1}的{[]|250:0:1}
        break
       
        #IF
        checkitem 打造石 1
        random 4
        #ACT
        Take 打造石 1
        MOV S10 0
        GetRandomText ..QuestDiary数据文件品鉴抽取衣服一星位置抽取.txt S10
        CHANGECUSTOMITEMTEXT 8 上古品鉴*3星
        CHANGECUSTOMITEMTEXTCOLOR 8 250
        CHANGECUSTOMITEMABIL 8 0 0 70
        CHANGECUSTOMITEMABIL 8 0 1
        ;CHANGECUSTOMITEMABIL 8 1 1
        CHANGECUSTOMITEMVALUE 8 0 = 7
        CHANGECUSTOMITEMABIL 8 1 2 0
        ChangeItemUpgradeCount 8 = 3
        SENDUPGRADEITEM
        MESSAGEBOX \装备重生成功，星级为：★★★
        break
       
        #IF
        checkitem 打造石 1
        random 2
        #ACT
        Take 打造石 1
        MOV S10 0
        GetRandomText ..QuestDiary数据文件品鉴抽取衣服一星位置抽取.txt S10
        CHANGECUSTOMITEMTEXT 8 上古品鉴*2星
        CHANGECUSTOMITEMTEXTCOLOR 8 250
        CHANGECUSTOMITEMABIL 8 0 0 70
        CHANGECUSTOMITEMABIL 8 0 1
        ;CHANGECUSTOMITEMABIL 8 1 1
        CHANGECUSTOMITEMVALUE 8 0 = 5
        CHANGECUSTOMITEMABIL 8 1 2 0
        ChangeItemUpgradeCount 8 = 2
        SENDUPGRADEITEM
        MESSAGEBOX \装备重生成功，星级为：★★
        break
       
        #IF
        checkitem 打造石 1
        random 1
        #ACT
        Take 打造石 1
        MOV S10 0
        GetRandomText ..QuestDiary数据文件品鉴抽取衣服一星位置抽取.txt S10
        CHANGECUSTOMITEMTEXT 8 上古品鉴*1星
        CHANGECUSTOMITEMTEXTCOLOR 8 250
        CHANGECUSTOMITEMABIL 8 0 0 70
        CHANGECUSTOMITEMABIL 8 0 1
        ;CHANGECUSTOMITEMABIL 8 1 1
        CHANGECUSTOMITEMVALUE 8 0 = 3
        CHANGECUSTOMITEMABIL 8 0 2 0
        ChangeItemUpgradeCount 8 = 1
        SENDUPGRADEITEM
        MESSAGEBOX \装备重生成功，星级为：★
        break
        #ELSEACT
        MESSAGEBOX \重生失败:原因如下\　　　　1.您没有"打造石"一个\　　　　2.请集齐以上材料在来找我吧！
        break
       
        [@右戒改造]
        #IF
        NOT CHECKUSEITEM 7
        #ACT
        MESSAGEBOX \这地方带装备了么？
        break
       
       
        #IF
        NOT CheckContainsTextListEx ..QuestDiary数据文件品鉴抽取装备名称.txt
        #ACT
        MESSAGEBOX \此物品禁止改造！
        break
       
       
       
        #IF
        checkitem 打造石 1
        random 300
        #ACT
        Take 打造石 1
        MOV S10
        MOV S11
        GetRandomText ..QuestDiary数据文件品鉴抽取衣服一星位置抽取.txt S10
        CHANGECUSTOMITEMTEXT 7 上古品鉴*8星
        CHANGECUSTOMITEMTEXTCOLOR 7 250
        CHANGECUSTOMITEMABIL 7 0 0 70
        CHANGECUSTOMITEMABIL 7 0 1
        ;CHANGECUSTOMITEMABIL 7 1 1
        CHANGECUSTOMITEMVALUE 7 0 = 48
        CHANGECUSTOMITEMABIL 7 0 2 0
        ChangeItemUpgradeCount 7 = 8
        SENDUPGRADEITEM
        MESSAGEBOX \装备重生成功，星级为：★★★★★★★★
        SendMsg 0 {上古评鉴ぐ|151:0:1}：{%s|227:0:1}福星降临鉴定出{[八星]|154:0:1}的{[]|250:0:1}
        break
       
       
        #IF
        checkitem 打造石 1
        random 200
        #ACT
        Take 打造石 1
        MOV S10
        MOV S11
        GetRandomText ..QuestDiary数据文件品鉴抽取衣服一星位置抽取.txt S10
        CHANGECUSTOMITEMTEXT 7 上古品鉴*7星
        CHANGECUSTOMITEMTEXTCOLOR 7 250
        CHANGECUSTOMITEMABIL 7 0 0 70
        CHANGECUSTOMITEMABIL 7 0 1
        ;CHANGECUSTOMITEMABIL 7 1 1
        CHANGECUSTOMITEMVALUE 7 0 = 32
        CHANGECUSTOMITEMABIL 7 0 2 0
        ChangeItemUpgradeCount 7 = 7
        SENDUPGRADEITEM
        MESSAGEBOX \装备重生成功，星级为：★★★★★★★
        SendMsg 0 {上古评鉴ぐ|151:0:1}：{%s|227:0:1}福星降临鉴定出{[七星]|154:0:1}的{[]|250:0:1}
        break
       
       
        #IF
        checkitem 打造石 1
        random 100
        #ACT
        Take 打造石 1
        MOV S10
        MOV S11
        GetRandomText ..QuestDiary数据文件品鉴抽取衣服一星位置抽取.txt S10
        CHANGECUSTOMITEMTEXT 7 上古品鉴*6星
        CHANGECUSTOMITEMTEXTCOLOR 7 250
        CHANGECUSTOMITEMABIL 7 0 0 70
        CHANGECUSTOMITEMABIL 7 0 1
        ;CHANGECUSTOMITEMABIL 7 1 1
        CHANGECUSTOMITEMVALUE 7 0 = 22
        CHANGECUSTOMITEMABIL 7 0 2 0
        ChangeItemUpgradeCount 7 = 6
        SENDUPGRADEITEM
        MESSAGEBOX \装备重生成功，星级为：★★★★★★
        SendMsg 0 {上古评鉴ぐ|151:0:1}：{%s|227:0:1}福星降临鉴定出{[六星]|154:0:1}的{[]|250:0:1}
        break
       
       
        #IF
        checkitem 打造石 1
        random 50
        #ACT
        Take 打造石 1
        MOV S10
        MOV S11
        GetRandomText ..QuestDiary数据文件品鉴抽取衣服一星位置抽取.txt S10
        CHANGECUSTOMITEMTEXT 7 上古品鉴*5星
        CHANGECUSTOMITEMTEXTCOLOR 7 250
        CHANGECUSTOMITEMABIL 7 0 0 70
        CHANGECUSTOMITEMABIL 7 0 1
        ;CHANGECUSTOMITEMABIL 7 1 1
        CHANGECUSTOMITEMVALUE 7 0 = 15
        CHANGECUSTOMITEMABIL 7 0 2 0
        ChangeItemUpgradeCount 7 = 5
        SENDUPGRADEITEM
        MESSAGEBOX \装备重生成功，星级为：★★★★★
        SendMsg 0 {上古评鉴ぐ|151:0:1}：{%s|227:0:1}福星降临鉴定出{[五星]|154:0:1}的{[]|250:0:1}
        break
       
        #IF
        checkitem 打造石 1
        random 15
        #ACT
        Take 打造石 1
        MOV S10
        MOV S11
        GetRandomText ..QuestDiary数据文件品鉴抽取衣服一星位置抽取.txt S10
        CHANGECUSTOMITEMTEXT 7 上古品鉴*4星
        CHANGECUSTOMITEMTEXTCOLOR 7 250
        CHANGECUSTOMITEMABIL 7 0 0 70
        CHANGECUSTOMITEMABIL 7 0 1
        ;CHANGECUSTOMITEMABIL 7 1 1
        CHANGECUSTOMITEMVALUE 7 0 = 10
        CHANGECUSTOMITEMABIL 7 0 2 0
        ChangeItemUpgradeCount 7 = 4
        SENDUPGRADEITEM
        MESSAGEBOX \装备重生成功，星级为：★★★★
        SendMsg 0 {上古评鉴ぐ|151:0:1}：{%s|227:0:1}福星降临鉴定出{[四星]|154:0:1}的{[]|250:0:1}
        break
       
        #IF
        checkitem 打造石 1
        random 4
        #ACT
        Take 打造石 1
        MOV S10 0
        GetRandomText ..QuestDiary数据文件品鉴抽取衣服一星位置抽取.txt S10
        CHANGECUSTOMITEMTEXT 7 上古品鉴*3星
        CHANGECUSTOMITEMTEXTCOLOR 7 250
        CHANGECUSTOMITEMABIL 7 0 0 70
        CHANGECUSTOMITEMABIL 7 0 1
        ;CHANGECUSTOMITEMABIL 7 1 1
        CHANGECUSTOMITEMVALUE 7 0 = 7
        CHANGECUSTOMITEMABIL 7 1 2 0
        ChangeItemUpgradeCount 7 = 3
        SENDUPGRADEITEM
        MESSAGEBOX \装备重生成功，星级为：★★★
        break
       
        #IF
        checkitem 打造石 1
        random 2
        #ACT
        Take 打造石 1
        MOV S10 0
        GetRandomText ..QuestDiary数据文件品鉴抽取衣服一星位置抽取.txt S10
        CHANGECUSTOMITEMTEXT 7 上古品鉴*2星
        CHANGECUSTOMITEMTEXTCOLOR 7 250
        CHANGECUSTOMITEMABIL 7 0 0 70
        CHANGECUSTOMITEMABIL 7 0 1
        ;CHANGECUSTOMITEMABIL 7 1 1
        CHANGECUSTOMITEMVALUE 7 0 = 5
        CHANGECUSTOMITEMABIL 7 1 2 0
        ChangeItemUpgradeCount 7 = 2
        SENDUPGRADEITEM
        MESSAGEBOX \装备重生成功，星级为：★★
        break
       
        #IF
        checkitem 打造石 1
        random 1
        #ACT
        Take 打造石 1
        MOV S10 0
        GetRandomText ..QuestDiary数据文件品鉴抽取衣服一星位置抽取.txt S10
        CHANGECUSTOMITEMTEXT 7 上古品鉴*1星
        CHANGECUSTOMITEMTEXTCOLOR 7 250
        CHANGECUSTOMITEMABIL 7 0 0 70
        CHANGECUSTOMITEMABIL 7 0 1
        ;CHANGECUSTOMITEMABIL 7 1 1
        CHANGECUSTOMITEMVALUE 7 0 = 3
        CHANGECUSTOMITEMABIL 7 0 2 0
        ChangeItemUpgradeCount 7 = 1
        SENDUPGRADEITEM
        MESSAGEBOX \装备重生成功，星级为：★
        break
        #ELSEACT
        MESSAGEBOX \重生失败:原因如下\　　　　1.您没有"打造石"一个\　　　　2.请集齐以上材料在来找我吧！
        break
       
       
        [@左手改造]
        #IF
        NOT CHECKUSEITEM 6
        #ACT
        MESSAGEBOX \这地方带装备了么？
        break
       
        #IF
        NOT CheckContainsTextListEx ..QuestDiary数据文件品鉴抽取装备名称.txt
        #ACT
        MESSAGEBOX \此物品禁止改造！
        break
       
        #
       
        #IF
        checkitem 打造石 1
        random 300
        #ACT
        Take 打造石 1
        MOV S10
        MOV S11
        GetRandomText ..QuestDiary数据文件品鉴抽取衣服一星位置抽取.txt S10
        CHANGECUSTOMITEMTEXT 6 上古品鉴*8星
        CHANGECUSTOMITEMTEXTCOLOR 6 250
        CHANGECUSTOMITEMABIL 6 0 0 70
        CHANGECUSTOMITEMABIL 6 0 1
        ;CHANGECUSTOMITEMABIL 6 1 1
        CHANGECUSTOMITEMVALUE 6 0 = 48
        CHANGECUSTOMITEMABIL 6 0 2 0
        ChangeItemUpgradeCount 6 = 8
        SENDUPGRADEITEM
        MESSAGEBOX \装备重生成功，星级为：★★★★★★★★
        SendMsg 0 {上古评鉴ぐ|151:0:1}：{%s|227:0:1}福星降临鉴定出{[八星]|154:0:1}的{[]|250:0:1}
        break
       
       
        #IF
        checkitem 打造石 1
        random 200
        #ACT
        Take 打造石 1
        MOV S10
        MOV S11
        GetRandomText ..QuestDiary数据文件品鉴抽取衣服一星位置抽取.txt S10
        CHANGECUSTOMITEMTEXT 6 上古品鉴*7星
        CHANGECUSTOMITEMTEXTCOLOR 6 250
        CHANGECUSTOMITEMABIL 6 0 0 70
        CHANGECUSTOMITEMABIL 6 0 1
        ;CHANGECUSTOMITEMABIL 6 1 1
        CHANGECUSTOMITEMVALUE 6 0 = 32
        CHANGECUSTOMITEMABIL 6 0 2 0
        ChangeItemUpgradeCount 6 = 7
        SENDUPGRADEITEM
        MESSAGEBOX \装备重生成功，星级为：★★★★★★★
        SendMsg 0 {上古评鉴ぐ|151:0:1}：{%s|227:0:1}福星降临鉴定出{[七星]|154:0:1}的{[]|250:0:1}
        break
       
       
        #IF
        checkitem 打造石 1
        random 100
        #ACT
        Take 打造石 1
        MOV S10
        MOV S11
        GetRandomText ..QuestDiary数据文件品鉴抽取衣服一星位置抽取.txt S10
        CHANGECUSTOMITEMTEXT 6 上古品鉴*6星
        CHANGECUSTOMITEMTEXTCOLOR 6 250
        CHANGECUSTOMITEMABIL 6 0 0 70
        CHANGECUSTOMITEMABIL 6 0 1
        ;CHANGECUSTOMITEMABIL 6 1 1
        CHANGECUSTOMITEMVALUE 6 0 = 22
        CHANGECUSTOMITEMABIL 6 0 2 0
        ChangeItemUpgradeCount 6 = 6
        SENDUPGRADEITEM
        MESSAGEBOX \装备重生成功，星级为：★★★★★★
        SendMsg 0 {上古评鉴ぐ|151:0:1}：{%s|227:0:1}福星降临鉴定出{[六星]|154:0:1}的{[]|250:0:1}
        break
       
       
        #IF
        checkitem 打造石 1
        random 50
        #ACT
        Take 打造石 1
        MOV S10
        MOV S11
        GetRandomText ..QuestDiary数据文件品鉴抽取衣服一星位置抽取.txt S10
        CHANGECUSTOMITEMTEXT 6 上古品鉴*5星
        CHANGECUSTOMITEMTEXTCOLOR 6 250
        CHANGECUSTOMITEMABIL 6 0 0 70
        CHANGECUSTOMITEMABIL 6 0 1
        ;CHANGECUSTOMITEMABIL 6 1 1
        CHANGECUSTOMITEMVALUE 6 0 = 15
        CHANGECUSTOMITEMABIL 6 0 2 0
        ChangeItemUpgradeCount 6 = 5
        SENDUPGRADEITEM
        MESSAGEBOX \装备重生成功，星级为：★★★★★
        SendMsg 0 {上古评鉴ぐ|151:0:1}：{%s|227:0:1}福星降临鉴定出{[五星]|154:0:1}的{[]|250:0:1}
        break
       
        #IF
        checkitem 打造石 1
        random 15
        #ACT
        Take 打造石 1
        MOV S10
        MOV S11
        GetRandomText ..QuestDiary数据文件品鉴抽取衣服一星位置抽取.txt S10
        CHANGECUSTOMITEMTEXT 6 上古品鉴*4星
        CHANGECUSTOMITEMTEXTCOLOR 6 250
        CHANGECUSTOMITEMABIL 6 0 0 70
        CHANGECUSTOMITEMABIL 6 0 1
        ;CHANGECUSTOMITEMABIL 6 1 1
        CHANGECUSTOMITEMVALUE 6 0 = 10
        CHANGECUSTOMITEMABIL 6 0 2 0
        ChangeItemUpgradeCount 6 = 4
        SENDUPGRADEITEM
        MESSAGEBOX \装备重生成功，星级为：★★★★
        SendMsg 0 {上古评鉴ぐ|151:0:1}：{%s|227:0:1}福星降临鉴定出{[四星]|154:0:1}的{[]|250:0:1}
        break
       
        #IF
        checkitem 打造石 1
        random 4
        #ACT
        Take 打造石 1
        MOV S10 0
        GetRandomText ..QuestDiary数据文件品鉴抽取衣服一星位置抽取.txt S10
        CHANGECUSTOMITEMTEXT 6 上古品鉴*3星
        CHANGECUSTOMITEMTEXTCOLOR 6 250
        CHANGECUSTOMITEMABIL 6 0 0 70
        CHANGECUSTOMITEMABIL 6 0 1
        ;CHANGECUSTOMITEMABIL 6 1 1
        CHANGECUSTOMITEMVALUE 6 0 = 7
        CHANGECUSTOMITEMABIL 6 1 2 0
        ChangeItemUpgradeCount 6 = 3
        SENDUPGRADEITEM
        MESSAGEBOX \装备重生成功，星级为：★★★
        break
       
        #IF
        checkitem 打造石 1
        random 2
        #ACT
        Take 打造石 1
        MOV S10 0
        GetRandomText ..QuestDiary数据文件品鉴抽取衣服一星位置抽取.txt S10
        CHANGECUSTOMITEMTEXT 6 上古品鉴*2星
        CHANGECUSTOMITEMTEXTCOLOR 6 250
        CHANGECUSTOMITEMABIL 6 0 0 70
        CHANGECUSTOMITEMABIL 6 0 1
        ;CHANGECUSTOMITEMABIL 6 1 1
        CHANGECUSTOMITEMVALUE 6 0 = 5
        CHANGECUSTOMITEMABIL 6 1 2 0
        ChangeItemUpgradeCount 6 = 2
        SENDUPGRADEITEM
        MESSAGEBOX \装备重生成功，星级为：★★
        break
       
        #IF
        checkitem 打造石 1
        random 1
        #ACT
        Take 打造石 1
        MOV S10 0
        GetRandomText ..QuestDiary数据文件品鉴抽取衣服一星位置抽取.txt S10
        CHANGECUSTOMITEMTEXT 6 上古品鉴*1星
        CHANGECUSTOMITEMTEXTCOLOR 6 250
        CHANGECUSTOMITEMABIL 6 0 0 70
        CHANGECUSTOMITEMABIL 6 0 1
        ;CHANGECUSTOMITEMABIL 6 1 1
        CHANGECUSTOMITEMVALUE 6 0 = 3
        CHANGECUSTOMITEMABIL 6 0 2 0
        ChangeItemUpgradeCount 6 = 1
        SENDUPGRADEITEM
        MESSAGEBOX \装备重生成功，星级为：★
        break
        #ELSEACT
        MESSAGEBOX \重生失败:原因如下\　　　　1.您没有"打造石"一个\　　　　2.请集齐以上材料在来找我吧！
        break
       
       
        [@右手改造]
        #IF
        NOT CHECKUSEITEM 5
        #ACT
        MESSAGEBOX \这地方带装备了么？
        break
       
        #IF
        NOT CheckContainsTextListEx ..QuestDiary数据文件品鉴抽取装备名称.txt
        #ACT
        MESSAGEBOX \此物品禁止改造！
        break
       
       
       
        #IF
        checkitem 打造石 1
        random 300
        #ACT
        Take 打造石 1
        MOV S10
        MOV S11
        GetRandomText ..QuestDiary数据文件品鉴抽取衣服一星位置抽取.txt S10
        CHANGECUSTOMITEMTEXT 5 上古品鉴*8星
        CHANGECUSTOMITEMTEXTCOLOR 5 250
        CHANGECUSTOMITEMABIL 5 0 0 70
        CHANGECUSTOMITEMABIL 5 0 1
        ;CHANGECUSTOMITEMABIL 5 1 1
        CHANGECUSTOMITEMVALUE 5 0 = 48
        CHANGECUSTOMITEMABIL 5 0 2 0
        ChangeItemUpgradeCount 5 = 8
        SENDUPGRADEITEM
        MESSAGEBOX \装备重生成功，星级为：★★★★★★★★
        SendMsg 0 {上古评鉴ぐ|151:0:1}：{%s|227:0:1}福星降临鉴定出{[八星]|154:0:1}的{[]|250:0:1}
        break
       
       
        #IF
        checkitem 打造石 1
        random 200
        #ACT
        Take 打造石 1
        MOV S10
        MOV S11
        GetRandomText ..QuestDiary数据文件品鉴抽取衣服一星位置抽取.txt S10
        CHANGECUSTOMITEMTEXT 5 上古品鉴*7星
        CHANGECUSTOMITEMTEXTCOLOR 5 250
        CHANGECUSTOMITEMABIL 5 0 0 70
        CHANGECUSTOMITEMABIL 5 0 1
        ;CHANGECUSTOMITEMABIL 5 1 1
        CHANGECUSTOMITEMVALUE 5 0 = 32
        CHANGECUSTOMITEMABIL 5 0 2 0
        ChangeItemUpgradeCount 5 = 7
        SENDUPGRADEITEM
        MESSAGEBOX \装备重生成功，星级为：★★★★★★★
        SendMsg 0 {上古评鉴ぐ|151:0:1}：{%s|227:0:1}福星降临鉴定出{[七星]|154:0:1}的{[]|250:0:1}
        break
       
       
        #IF
        checkitem 打造石 1
        random 100
        #ACT
        Take 打造石 1
        MOV S10
        MOV S11
        GetRandomText ..QuestDiary数据文件品鉴抽取衣服一星位置抽取.txt S10
        CHANGECUSTOMITEMTEXT 5 上古品鉴*6星
        CHANGECUSTOMITEMTEXTCOLOR 5 250
        CHANGECUSTOMITEMABIL 5 0 0 70
        CHANGECUSTOMITEMABIL 5 0 1
        ;CHANGECUSTOMITEMABIL 5 1 1
        CHANGECUSTOMITEMVALUE 5 0 = 22
        CHANGECUSTOMITEMABIL 5 0 2 0
        ChangeItemUpgradeCount 5 = 6
        SENDUPGRADEITEM
        MESSAGEBOX \装备重生成功，星级为：★★★★★★
        SendMsg 0 {上古评鉴ぐ|151:0:1}：{%s|227:0:1}福星降临鉴定出{[六星]|154:0:1}的{[]|250:0:1}
        break
       
       
        #IF
        checkitem 打造石 1
        random 50
        #ACT
        Take 打造石 1
        MOV S10
        MOV S11
        GetRandomText ..QuestDiary数据文件品鉴抽取衣服一星位置抽取.txt S10
        CHANGECUSTOMITEMTEXT 5 上古品鉴*5星
        CHANGECUSTOMITEMTEXTCOLOR 5 250
        CHANGECUSTOMITEMABIL 5 0 0 70
        CHANGECUSTOMITEMABIL 5 0 1
        ;CHANGECUSTOMITEMABIL 5 1 1
        CHANGECUSTOMITEMVALUE 5 0 = 15
        CHANGECUSTOMITEMABIL 5 0 2 0
        ChangeItemUpgradeCount 5 = 5
        SENDUPGRADEITEM
        MESSAGEBOX \装备重生成功，星级为：★★★★★
        SendMsg 0 {上古评鉴ぐ|151:0:1}：{%s|227:0:1}福星降临鉴定出{[五星]|154:0:1}的{[]|250:0:1}
        break
       
        #IF
        checkitem 打造石 1
        random 15
        #ACT
        Take 打造石 1
        MOV S10
        MOV S11
        GetRandomText ..QuestDiary数据文件品鉴抽取衣服一星位置抽取.txt S10
        CHANGECUSTOMITEMTEXT 5 上古品鉴*4星
        CHANGECUSTOMITEMTEXTCOLOR 5 250
        CHANGECUSTOMITEMABIL 5 0 0 70
        CHANGECUSTOMITEMABIL 5 0 1
        ;CHANGECUSTOMITEMABIL 5 1 1
        CHANGECUSTOMITEMVALUE 5 0 = 10
        CHANGECUSTOMITEMABIL 5 0 2 0
        ChangeItemUpgradeCount 5 = 4
        SENDUPGRADEITEM
        MESSAGEBOX \装备重生成功，星级为：★★★★
        SendMsg 0 {上古评鉴ぐ|151:0:1}：{%s|227:0:1}福星降临鉴定出{[四星]|154:0:1}的{[]|250:0:1}
        break
       
        #IF
        checkitem 打造石 1
        random 4
        #ACT
        Take 打造石 1
        MOV S10 0
        GetRandomText ..QuestDiary数据文件品鉴抽取衣服一星位置抽取.txt S10
        CHANGECUSTOMITEMTEXT 5 上古品鉴*3星
        CHANGECUSTOMITEMTEXTCOLOR 5 250
        CHANGECUSTOMITEMABIL 5 0 0 70
        CHANGECUSTOMITEMABIL 5 0 1
        ;CHANGECUSTOMITEMABIL 5 1 1
        CHANGECUSTOMITEMVALUE 5 0 = 7
        CHANGECUSTOMITEMABIL 5 1 2 0
        ChangeItemUpgradeCount 5 = 3
        SENDUPGRADEITEM
        MESSAGEBOX \装备重生成功，星级为：★★★
        break
       
        #IF
        checkitem 打造石 1
        random 2
        #ACT
        Take 打造石 1
        MOV S10 0
        GetRandomText ..QuestDiary数据文件品鉴抽取衣服一星位置抽取.txt S10
        CHANGECUSTOMITEMTEXT 5 上古品鉴*2星
        CHANGECUSTOMITEMTEXTCOLOR 5 250
        CHANGECUSTOMITEMABIL 5 0 0 70
        CHANGECUSTOMITEMABIL 5 0 1
        ;CHANGECUSTOMITEMABIL 5 1 1
        CHANGECUSTOMITEMVALUE 5 0 = 5
        CHANGECUSTOMITEMABIL 5 1 2 0
        ChangeItemUpgradeCount 5 = 2
        SENDUPGRADEITEM
        MESSAGEBOX \装备重生成功，星级为：★★
        break
       
        #IF
        checkitem 打造石 1
        random 1
        #ACT
        Take 打造石 1
        MOV S10 0
        GetRandomText ..QuestDiary数据文件品鉴抽取衣服一星位置抽取.txt S10
        CHANGECUSTOMITEMTEXT 5 上古品鉴*1星
        CHANGECUSTOMITEMTEXTCOLOR 5 250
        CHANGECUSTOMITEMABIL 5 0 0 70
        CHANGECUSTOMITEMABIL 5 0 1
        ;CHANGECUSTOMITEMABIL 5 1 1
        CHANGECUSTOMITEMVALUE 5 0 = 3
        CHANGECUSTOMITEMABIL 5 0 2 0
        ChangeItemUpgradeCount 5 = 1
        SENDUPGRADEITEM
        MESSAGEBOX \装备重生成功，星级为：★
        break
        #ELSEACT
        MESSAGEBOX \重生失败:原因如下\　　　　1.您没有"打造石"一个\　　　　2.请集齐以上材料在来找我吧！
        break
       
       
        [@头盔改造]
        #IF
        NOT CHECKUSEITEM 4
        #ACT
        MESSAGEBOX \这地方带装备了么？
        break
       
        #IF
        NOT CheckContainsTextListEx ..QuestDiary数据文件品鉴抽取装备名称.txt
        #ACT
        MESSAGEBOX \此物品禁止改造！
        break
       
       
       
        #IF
        checkitem 打造石 1
        random 300
        #ACT
        Take 打造石 1
        MOV S10
        MOV S11
        GetRandomText ..QuestDiary数据文件品鉴抽取衣服一星位置抽取.txt S10
        CHANGECUSTOMITEMTEXT 4 上古品鉴*8星
        CHANGECUSTOMITEMTEXTCOLOR 4 250
        CHANGECUSTOMITEMABIL 4 0 0 70
        CHANGECUSTOMITEMABIL 4 0 1
        ;CHANGECUSTOMITEMABIL 4 1 1
        CHANGECUSTOMITEMVALUE 4 0 = 48
        CHANGECUSTOMITEMABIL 4 0 2 0
        ChangeItemUpgradeCount 4 = 8
        SENDUPGRADEITEM
        MESSAGEBOX \装备重生成功，星级为：★★★★★★★★
        SendMsg 0 {上古评鉴ぐ|151:0:1}：{%s|227:0:1}福星降临鉴定出{[八星]|154:0:1}的{[]|250:0:1}
        break
       
       
        #IF
        checkitem 打造石 1
        random 200
        #ACT
        Take 打造石 1
        MOV S10
        MOV S11
        GetRandomText ..QuestDiary数据文件品鉴抽取衣服一星位置抽取.txt S10
        CHANGECUSTOMITEMTEXT 4 上古品鉴*7星
        CHANGECUSTOMITEMTEXTCOLOR 4 250
        CHANGECUSTOMITEMABIL 4 0 0 70
        CHANGECUSTOMITEMABIL 4 0 1
        ;CHANGECUSTOMITEMABIL 4 1 1
        CHANGECUSTOMITEMVALUE 4 0 = 32
        CHANGECUSTOMITEMABIL 4 0 2 0
        ChangeItemUpgradeCount 4 = 7
        SENDUPGRADEITEM
        MESSAGEBOX \装备重生成功，星级为：★★★★★★★
        SendMsg 0 {上古评鉴ぐ|151:0:1}：{%s|227:0:1}福星降临鉴定出{[七星]|154:0:1}的{[]|250:0:1}
        break
       
       
        #IF
        checkitem 打造石 1
        random 100
        #ACT
        Take 打造石 1
        MOV S10
        MOV S11
        GetRandomText ..QuestDiary数据文件品鉴抽取衣服一星位置抽取.txt S10
        CHANGECUSTOMITEMTEXT 4 上古品鉴*6星
        CHANGECUSTOMITEMTEXTCOLOR 4 250
        CHANGECUSTOMITEMABIL 4 0 0 70
        CHANGECUSTOMITEMABIL 4 0 1
        ;CHANGECUSTOMITEMABIL 4 1 1
        CHANGECUSTOMITEMVALUE 4 0 = 22
        CHANGECUSTOMITEMABIL 4 0 2 0
        ChangeItemUpgradeCount 4 = 6
        SENDUPGRADEITEM
        MESSAGEBOX \装备重生成功，星级为：★★★★★★
        SendMsg 0 {上古评鉴ぐ|151:0:1}：{%s|227:0:1}福星降临鉴定出{[六星]|154:0:1}的{[]|250:0:1}
        break
       
       
        #IF
        checkitem 打造石 1
        random 50
        #ACT
        Take 打造石 1
        MOV S10
        MOV S11
        GetRandomText ..QuestDiary数据文件品鉴抽取衣服一星位置抽取.txt S10
        CHANGECUSTOMITEMTEXT 4 上古品鉴*5星
        CHANGECUSTOMITEMTEXTCOLOR 4 250
        CHANGECUSTOMITEMABIL 4 0 0 70
        CHANGECUSTOMITEMABIL 4 0 1
        ;CHANGECUSTOMITEMABIL 4 1 1
        CHANGECUSTOMITEMVALUE 4 0 = 15
        CHANGECUSTOMITEMABIL 4 0 2 0
        ChangeItemUpgradeCount 4 = 5
        SENDUPGRADEITEM
        MESSAGEBOX \装备重生成功，星级为：★★★★★
        SendMsg 0 {上古评鉴ぐ|151:0:1}：{%s|227:0:1}福星降临鉴定出{[五星]|154:0:1}的{[]|250:0:1}
        break
       
        #IF
        checkitem 打造石 1
        random 15
        #ACT
        Take 打造石 1
        MOV S10
        MOV S11
        GetRandomText ..QuestDiary数据文件品鉴抽取衣服一星位置抽取.txt S10
        CHANGECUSTOMITEMTEXT 4 上古品鉴*4星
        CHANGECUSTOMITEMTEXTCOLOR 4 250
        CHANGECUSTOMITEMABIL 4 0 0 70
        CHANGECUSTOMITEMABIL 4 0 1
        ;CHANGECUSTOMITEMABIL 4 1 1
        CHANGECUSTOMITEMVALUE 4 0 = 10
        CHANGECUSTOMITEMABIL 4 0 2 0
        ChangeItemUpgradeCount 4 = 4
        SENDUPGRADEITEM
        MESSAGEBOX \装备重生成功，星级为：★★★★
        SendMsg 0 {上古评鉴ぐ|151:0:1}：{%s|227:0:1}福星降临鉴定出{[四星]|154:0:1}的{[]|250:0:1}
        break
       
        #IF
        checkitem 打造石 1
        random 4
        #ACT
        Take 打造石 1
        MOV S10 0
        GetRandomText ..QuestDiary数据文件品鉴抽取衣服一星位置抽取.txt S10
        CHANGECUSTOMITEMTEXT 4 上古品鉴*3星
        CHANGECUSTOMITEMTEXTCOLOR 4 250
        CHANGECUSTOMITEMABIL 4 0 0 70
        CHANGECUSTOMITEMABIL 4 0 1
        ;CHANGECUSTOMITEMABIL 4 1 1
        CHANGECUSTOMITEMVALUE 4 0 = 7
        CHANGECUSTOMITEMABIL 4 1 2 0
        ChangeItemUpgradeCount 4 = 3
        SENDUPGRADEITEM
        MESSAGEBOX \装备重生成功，星级为：★★★
        break
       
        #IF
        checkitem 打造石 1
        random 2
        #ACT
        Take 打造石 1
        MOV S10 0
        GetRandomText ..QuestDiary数据文件品鉴抽取衣服一星位置抽取.txt S10
        CHANGECUSTOMITEMTEXT 4 上古品鉴*2星
        CHANGECUSTOMITEMTEXTCOLOR 4 250
        CHANGECUSTOMITEMABIL 4 0 0 70
        CHANGECUSTOMITEMABIL 4 0 1
        ;CHANGECUSTOMITEMABIL 4 1 1
        CHANGECUSTOMITEMVALUE 4 0 = 5
        CHANGECUSTOMITEMABIL 4 1 2 0
        ChangeItemUpgradeCount 4 = 2
        SENDUPGRADEITEM
        MESSAGEBOX \装备重生成功，星级为：★★
        break
       
        #IF
        checkitem 打造石 1
        random 1
        #ACT
        Take 打造石 1