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

[@main]
#IF
#Act
MOVS$衣服名称<$DRESS>
MOVS$武器名称<$WEAPON>
MOVS$头盔名称<$HELMET>
MOVS$项链名称<$NECKLACE>
MOVS$左手名称<$ARMRING_R>
MOVS$右手名称<$ARMRING_L>
MOVS$左戒名称<$RING_R>
MOVS$右戒名称<$RING_L>
MOVS$靴子名称<$BOOTS>
MOVS$腰带名称<$BELT>
MOVS$勋章名称<$RIGHTHAND>
MOVS$宝石名称<$CHARM>
MOVS$衣服名称A<$DRESS>
MOVS$武器名称A<$WEAPON>
MOVS$头盔名称A<$HELMET>
MOVS$项链名称A<$NECKLACE>
MOVS$左手名称A<$ARMRING_R>
MOVS$右手名称A<$ARMRING_L>
MOVS$左戒名称A<$RING_R>
MOVS$右戒名称A<$RING_L>
MOVS$靴子名称A<$BOOTS>
MOVS$腰带名称A<$BELT>
MOVS$勋章名称A<$RIGHTHAND>
MOVS$宝石名称A<$CHARM>
SetStringBlank<$STR(S$衣服名称)>201
SetStringBlank<$STR(S$武器名称)>201
SetStringBlank<$STR(S$头盔名称)>201
SetStringBlank<$STR(S$项链名称)>201
SetStringBlank<$STR(S$左手名称)>201
SetStringBlank<$STR(S$右手名称)>201
SetStringBlank<$STR(S$左戒名称)>201
SetStringBlank<$STR(S$右戒名称)>201
SetStringBlank<$STR(S$靴子名称)>201
SetStringBlank<$STR(S$腰带名称)>201
SetStringBlank<$STR(S$勋章名称)>201
SetStringBlank<$STR(S$宝石名称)>201
#say

　\
　<装备加星不满意可以前往打造，每次需要一颗/SCOLOR=87><[打造石]/SCOLOR=116>\
　\
　　<[衣服]/SCOLOR=150><打造/@衣服改造>:{<$STR(S$衣服名称)>/SCOLOR=210}<[武器]/SCOLOR=150><打造/@武器改造>:{<$STR(S$武器名称)>/SCOLOR=210}\
　　<[头盔]/SCOLOR=150><打造/@头盔改造>:{<$STR(S$头盔名称)>/SCOLOR=210}<[项链]/SCOLOR=150><打造/@项链改造>:{<$STR(S$项链名称)>/SCOLOR=210}\
　　<[左手]/SCOLOR=150><打造/@左手改造>:{<$STR(S$左手名称)>/SCOLOR=210}<[右手]/SCOLOR=150><打造/@右手改造>:{<$STR(S$右手名称)>/SCOLOR=210}\
　　<[左戒]/SCOLOR=150><打造/@左戒改造>:{<$STR(S$左戒名称)>/SCOLOR=210}<[右戒]/SCOLOR=150><打造/@右戒改造>:{<$STR(S$右戒名称)>/SCOLOR=210}\
　　<[腰带]/SCOLOR=150><打造/@腰带改造>:{<$STR(S$腰带名称)>/SCOLOR=210}<[靴子]/SCOLOR=150><打造/@靴子改造>:{<$STR(S$靴子名称)>/SCOLOR=210}\
　　<[勋章]/SCOLOR=150><打造/@勋章改造>:{<$STR(S$勋章名称)>/SCOLOR=210}<[宝石]/SCOLOR=150><打造/@宝石改造>:{<$STR(S$宝石名称)>/SCOLOR=210}\\
　\
　\
　\




[@宝石改造]
#IF
NOTCHECKUSEITEM12
#ACT
MESSAGEBOX\\这地方带装备了么？
break

#IF
NOTCheckContainsTextListEx..\QuestDiary\数据文件\品鉴抽取\装备名称.txt<$CHARM>
#ACT
MESSAGEBOX\\此物品禁止改造！
break



#IF
checkitem打造石1
random300
#ACT
Take打造石1
MOVS10
MOVS11<$CURRTEMNAME>
GetRandomText..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txtS10
CHANGECUSTOMITEMTEXT12上古品鉴*8星
CHANGECUSTOMITEMTEXTCOLOR11250
CHANGECUSTOMITEMABIL120070
CHANGECUSTOMITEMABIL1201<$STR(S10)>
;CHANGECUSTOMITEMABIL1211<$STR(S10)>
CHANGECUSTOMITEMVALUE120=48
CHANGECUSTOMITEMABIL12020
ChangeItemUpgradeCount12=8
SENDUPGRADEITEM
MESSAGEBOX\\装备重生成功，星级为：★★★★★★★★
SendMsg0{上古评鉴ぐ|151:0:1}：{%s|227:0:1}福星降临鉴定出{[八星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
break


#IF
checkitem打造石1
random200
#ACT
Take打造石1
MOVS10
MOVS11<$CURRTEMNAME>
GetRandomText..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txtS10
CHANGECUSTOMITEMTEXT12上古品鉴*7星
CHANGECUSTOMITEMTEXTCOLOR11250
CHANGECUSTOMITEMABIL120070
CHANGECUSTOMITEMABIL1201<$STR(S10)>
;CHANGECUSTOMITEMABIL1211<$STR(S10)>
CHANGECUSTOMITEMVALUE120=32
CHANGECUSTOMITEMABIL12020
ChangeItemUpgradeCount12=7
SENDUPGRADEITEM
MESSAGEBOX\\装备重生成功，星级为：★★★★★★★
SendMsg0{上古评鉴ぐ|151:0:1}：{%s|227:0:1}福星降临鉴定出{[七星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
break


#IF
checkitem打造石1
random100
#ACT
Take打造石1
MOVS10
MOVS11<$CURRTEMNAME>
GetRandomText..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txtS10
CHANGECUSTOMITEMTEXT12上古品鉴*6星
CHANGECUSTOMITEMTEXTCOLOR11250
CHANGECUSTOMITEMABIL120070
CHANGECUSTOMITEMABIL1201<$STR(S10)>
;CHANGECUSTOMITEMABIL1211<$STR(S10)>
CHANGECUSTOMITEMVALUE120=22
CHANGECUSTOMITEMABIL12020
ChangeItemUpgradeCount12=6
SENDUPGRADEITEM
MESSAGEBOX\\装备重生成功，星级为：★★★★★★
SendMsg0{上古评鉴ぐ|151:0:1}：{%s|227:0:1}福星降临鉴定出{[六星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
break


#IF
checkitem打造石1
random50
#ACT
Take打造石1
MOVS10
MOVS11<$CURRTEMNAME>
GetRandomText..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txtS10
CHANGECUSTOMITEMTEXT12上古品鉴*5星
CHANGECUSTOMITEMTEXTCOLOR11250
CHANGECUSTOMITEMABIL120070
CHANGECUSTOMITEMABIL1201<$STR(S10)>
;CHANGECUSTOMITEMABIL1211<$STR(S10)>
CHANGECUSTOMITEMVALUE120=15
CHANGECUSTOMITEMABIL12020
ChangeItemUpgradeCount12=5
SENDUPGRADEITEM
MESSAGEBOX\\装备重生成功，星级为：★★★★★
SendMsg0{上古评鉴ぐ|151:0:1}：{%s|227:0:1}福星降临鉴定出{[五星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
break

#IF
checkitem打造石1
random15
#ACT
Take打造石1
MOVS10
MOVS11<$CURRTEMNAME>
GetRandomText..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txtS10
CHANGECUSTOMITEMTEXT12上古品鉴*4星
CHANGECUSTOMITEMTEXTCOLOR11250
CHANGECUSTOMITEMABIL120070
CHANGECUSTOMITEMABIL1201<$STR(S10)>
;CHANGECUSTOMITEMABIL1211<$STR(S10)>
CHANGECUSTOMITEMVALUE120=10
CHANGECUSTOMITEMABIL12020
ChangeItemUpgradeCount12=4
SENDUPGRADEITEM
MESSAGEBOX\\装备重生成功，星级为：★★★★
SendMsg0{上古评鉴ぐ|151:0:1}：{%s|227:0:1}福星降临鉴定出{[四星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
break

#IF
checkitem打造石1
random4
#ACT
Take打造石1
MOVS100
GetRandomText..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txtS10
CHANGECUSTOMITEMTEXT12上古品鉴*3星
CHANGECUSTOMITEMTEXTCOLOR11250
CHANGECUSTOMITEMABIL120070
CHANGECUSTOMITEMABIL1201<$STR(S10)>
;CHANGECUSTOMITEMABIL1211<$STR(S10)>
CHANGECUSTOMITEMVALUE120=7
CHANGECUSTOMITEMABIL12120
ChangeItemUpgradeCount12=3
SENDUPGRADEITEM
MESSAGEBOX\\装备重生成功，星级为：★★★
break

#IF
checkitem打造石1
random2
#ACT
Take打造石1
MOVS100
GetRandomText..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txtS10
CHANGECUSTOMITEMTEXT12上古品鉴*2星
CHANGECUSTOMITEMTEXTCOLOR11250
CHANGECUSTOMITEMABIL120070
CHANGECUSTOMITEMABIL1201<$STR(S10)>
;CHANGECUSTOMITEMABIL1211<$STR(S10)>
CHANGECUSTOMITEMVALUE120=5
CHANGECUSTOMITEMABIL12120
ChangeItemUpgradeCount12=2
SENDUPGRADEITEM
MESSAGEBOX\\装备重生成功，星级为：★★
break

#IF
checkitem打造石1
random1
#ACT
Take打造石1
MOVS100
GetRandomText..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txtS10
CHANGECUSTOMITEMTEXT12上古品鉴*1星
CHANGECUSTOMITEMTEXTCOLOR11250
CHANGECUSTOMITEMABIL120070
CHANGECUSTOMITEMABIL1201<$STR(S10)>
;CHANGECUSTOMITEMABIL1211<$STR(S10)>
CHANGECUSTOMITEMVALUE120=3
CHANGECUSTOMITEMABIL12020
ChangeItemUpgradeCount12=1
SENDUPGRADEITEM
MESSAGEBOX\\装备重生成功，星级为：★
break
#ELSEACT
MESSAGEBOX\\重生失败:原因如下\\　　　　1.您没有"打造石"一个\\　　　　2.请集齐以上材料在来找我吧！
break

[@靴子改造]
#IF
NOTCHECKUSEITEM11
#ACT
MESSAGEBOX\\这地方带装备了么？
break

#IF
NOTCheckContainsTextListEx..\QuestDiary\数据文件\品鉴抽取\装备名称.txt<$BOOTS>
#ACT
MESSAGEBOX\\此物品禁止改造！
break



#IF
checkitem打造石1
random300
#ACT
Take打造石1
MOVS10
MOVS11<$CURRTEMNAME>
GetRandomText..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txtS10
CHANGECUSTOMITEMTEXT11上古品鉴*8星
CHANGECUSTOMITEMTEXTCOLOR11250
CHANGECUSTOMITEMABIL110070
CHANGECUSTOMITEMABIL1101<$STR(S10)>
;CHANGECUSTOMITEMABIL1111<$STR(S10)>
CHANGECUSTOMITEMVALUE110=48
CHANGECUSTOMITEMABIL11020
ChangeItemUpgradeCount11=8
SENDUPGRADEITEM
MESSAGEBOX\\装备重生成功，星级为：★★★★★★★★
SendMsg0{上古评鉴ぐ|151:0:1}：{%s|227:0:1}福星降临鉴定出{[八星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
break


#IF
checkitem打造石1
random200
#ACT
Take打造石1
MOVS10
MOVS11<$CURRTEMNAME>
GetRandomText..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txtS10
CHANGECUSTOMITEMTEXT11上古品鉴*7星
CHANGECUSTOMITEMTEXTCOLOR11250
CHANGECUSTOMITEMABIL110070
CHANGECUSTOMITEMABIL1101<$STR(S10)>
;CHANGECUSTOMITEMABIL1111<$STR(S10)>
CHANGECUSTOMITEMVALUE110=32
CHANGECUSTOMITEMABIL11020
ChangeItemUpgradeCount11=7
SENDUPGRADEITEM
MESSAGEBOX\\装备重生成功，星级为：★★★★★★★
SendMsg0{上古评鉴ぐ|151:0:1}：{%s|227:0:1}福星降临鉴定出{[七星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
break


#IF
checkitem打造石1
random100
#ACT
Take打造石1
MOVS10
MOVS11<$CURRTEMNAME>
GetRandomText..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txtS10
CHANGECUSTOMITEMTEXT11上古品鉴*6星
CHANGECUSTOMITEMTEXTCOLOR11250
CHANGECUSTOMITEMABIL110070
CHANGECUSTOMITEMABIL1101<$STR(S10)>
;CHANGECUSTOMITEMABIL1111<$STR(S10)>
CHANGECUSTOMITEMVALUE110=22
CHANGECUSTOMITEMABIL11020
ChangeItemUpgradeCount11=6
SENDUPGRADEITEM
MESSAGEBOX\\装备重生成功，星级为：★★★★★★
SendMsg0{上古评鉴ぐ|151:0:1}：{%s|227:0:1}福星降临鉴定出{[六星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
break


#IF
checkitem打造石1
random50
#ACT
Take打造石1
MOVS10
MOVS11<$CURRTEMNAME>
GetRandomText..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txtS10
CHANGECUSTOMITEMTEXT11上古品鉴*5星
CHANGECUSTOMITEMTEXTCOLOR11250
CHANGECUSTOMITEMABIL110070
CHANGECUSTOMITEMABIL1101<$STR(S10)>
;CHANGECUSTOMITEMABIL1111<$STR(S10)>
CHANGECUSTOMITEMVALUE110=15
CHANGECUSTOMITEMABIL11020
ChangeItemUpgradeCount11=5
SENDUPGRADEITEM
MESSAGEBOX\\装备重生成功，星级为：★★★★★
SendMsg0{上古评鉴ぐ|151:0:1}：{%s|227:0:1}福星降临鉴定出{[五星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
break

#IF
checkitem打造石1
random15
#ACT
Take打造石1
MOVS10
MOVS11<$CURRTEMNAME>
GetRandomText..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txtS10
CHANGECUSTOMITEMTEXT11上古品鉴*4星
CHANGECUSTOMITEMTEXTCOLOR11250
CHANGECUSTOMITEMABIL110070
CHANGECUSTOMITEMABIL1101<$STR(S10)>
;CHANGECUSTOMITEMABIL1111<$STR(S10)>
CHANGECUSTOMITEMVALUE110=10
CHANGECUSTOMITEMABIL11020
ChangeItemUpgradeCount11=4
SENDUPGRADEITEM
MESSAGEBOX\\装备重生成功，星级为：★★★★
SendMsg0{上古评鉴ぐ|151:0:1}：{%s|227:0:1}福星降临鉴定出{[四星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
break

#IF
checkitem打造石1
random4
#ACT
Take打造石1
MOVS100
GetRandomText..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txtS10
CHANGECUSTOMITEMTEXT11上古品鉴*3星
CHANGECUSTOMITEMTEXTCOLOR11250
CHANGECUSTOMITEMABIL110070
CHANGECUSTOMITEMABIL1101<$STR(S10)>
;CHANGECUSTOMITEMABIL1111<$STR(S10)>
CHANGECUSTOMITEMVALUE110=7
CHANGECUSTOMITEMABIL11120
ChangeItemUpgradeCount11=3
SENDUPGRADEITEM
MESSAGEBOX\\装备重生成功，星级为：★★★
break

#IF
checkitem打造石1
random2
#ACT
Take打造石1
MOVS100
GetRandomText..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txtS10
CHANGECUSTOMITEMTEXT11上古品鉴*2星
CHANGECUSTOMITEMTEXTCOLOR11250
CHANGECUSTOMITEMABIL110070
CHANGECUSTOMITEMABIL1101<$STR(S10)>
;CHANGECUSTOMITEMABIL1111<$STR(S10)>
CHANGECUSTOMITEMVALUE110=5
CHANGECUSTOMITEMABIL11120
ChangeItemUpgradeCount11=2
SENDUPGRADEITEM
MESSAGEBOX\\装备重生成功，星级为：★★
break

#IF
checkitem打造石1
random1
#ACT
Take打造石1
MOVS100
GetRandomText..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txtS10
CHANGECUSTOMITEMTEXT11上古品鉴*1星
CHANGECUSTOMITEMTEXTCOLOR11250
CHANGECUSTOMITEMABIL110070
CHANGECUSTOMITEMABIL1101<$STR(S10)>
;CHANGECUSTOMITEMABIL1111<$STR(S10)>
CHANGECUSTOMITEMVALUE110=3
CHANGECUSTOMITEMABIL11020
ChangeItemUpgradeCount11=1
SENDUPGRADEITEM
MESSAGEBOX\\装备重生成功，星级为：★
break
#ELSEACT
MESSAGEBOX\\重生失败:原因如下\\　　　　1.您没有"打造石"一个\\　　　　2.请集齐以上材料在来找我吧！
break

[@腰带改造]
#IF
NOTCHECKUSEITEM10
#ACT
MESSAGEBOX\\这地方带装备了么？
break

#IF
NOTCheckContainsTextListEx..\QuestDiary\数据文件\品鉴抽取\装备名称.txt<$BELT>
#ACT
MESSAGEBOX\\此物品禁止改造！
break



#IF
checkitem打造石1
random300
#ACT
Take打造石1
MOVS10
MOVS11<$CURRTEMNAME>
GetRandomText..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txtS10
CHANGECUSTOMITEMTEXT10上古品鉴*8星
CHANGECUSTOMITEMTEXTCOLOR10250
CHANGECUSTOMITEMABIL100070
CHANGECUSTOMITEMABIL1001<$STR(S10)>
;CHANGECUSTOMITEMABIL1011<$STR(S10)>
CHANGECUSTOMITEMVALUE100=48
CHANGECUSTOMITEMABIL10020
ChangeItemUpgradeCount10=8
SENDUPGRADEITEM
MESSAGEBOX\\装备重生成功，星级为：★★★★★★★★
SendMsg0{上古评鉴ぐ|151:0:1}：{%s|227:0:1}福星降临鉴定出{[八星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
break


#IF
checkitem打造石1
random200
#ACT
Take打造石1
MOVS10
MOVS11<$CURRTEMNAME>
GetRandomText..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txtS10
CHANGECUSTOMITEMTEXT10上古品鉴*7星
CHANGECUSTOMITEMTEXTCOLOR10250
CHANGECUSTOMITEMABIL100070
CHANGECUSTOMITEMABIL1001<$STR(S10)>
;CHANGECUSTOMITEMABIL1011<$STR(S10)>
CHANGECUSTOMITEMVALUE100=32
CHANGECUSTOMITEMABIL10020
ChangeItemUpgradeCount10=7
SENDUPGRADEITEM
MESSAGEBOX\\装备重生成功，星级为：★★★★★★★
SendMsg0{上古评鉴ぐ|151:0:1}：{%s|227:0:1}福星降临鉴定出{[七星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
break


#IF
checkitem打造石1
random100
#ACT
Take打造石1
MOVS10
MOVS11<$CURRTEMNAME>
GetRandomText..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txtS10
CHANGECUSTOMITEMTEXT10上古品鉴*6星
CHANGECUSTOMITEMTEXTCOLOR10250
CHANGECUSTOMITEMABIL100070
CHANGECUSTOMITEMABIL1001<$STR(S10)>
;CHANGECUSTOMITEMABIL1011<$STR(S10)>
CHANGECUSTOMITEMVALUE100=22
CHANGECUSTOMITEMABIL10020
ChangeItemUpgradeCount10=6
SENDUPGRADEITEM
MESSAGEBOX\\装备重生成功，星级为：★★★★★★
SendMsg0{上古评鉴ぐ|151:0:1}：{%s|227:0:1}福星降临鉴定出{[六星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
break


#IF
checkitem打造石1
random50
#ACT
Take打造石1
MOVS10
MOVS11<$CURRTEMNAME>
GetRandomText..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txtS10
CHANGECUSTOMITEMTEXT10上古品鉴*5星
CHANGECUSTOMITEMTEXTCOLOR10250
CHANGECUSTOMITEMABIL100070
CHANGECUSTOMITEMABIL1001<$STR(S10)>
;CHANGECUSTOMITEMABIL1011<$STR(S10)>
CHANGECUSTOMITEMVALUE100=15
CHANGECUSTOMITEMABIL10020
ChangeItemUpgradeCount10=5
SENDUPGRADEITEM
MESSAGEBOX\\装备重生成功，星级为：★★★★★
SendMsg0{上古评鉴ぐ|151:0:1}：{%s|227:0:1}福星降临鉴定出{[五星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
break

#IF
checkitem打造石1
random15
#ACT
Take打造石1
MOVS10
MOVS11<$CURRTEMNAME>
GetRandomText..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txtS10
CHANGECUSTOMITEMTEXT10上古品鉴*4星
CHANGECUSTOMITEMTEXTCOLOR10250
CHANGECUSTOMITEMABIL100070
CHANGECUSTOMITEMABIL1001<$STR(S10)>
;CHANGECUSTOMITEMABIL1011<$STR(S10)>
CHANGECUSTOMITEMVALUE100=10
CHANGECUSTOMITEMABIL10020
ChangeItemUpgradeCount10=4
SENDUPGRADEITEM
MESSAGEBOX\\装备重生成功，星级为：★★★★
SendMsg0{上古评鉴ぐ|151:0:1}：{%s|227:0:1}福星降临鉴定出{[四星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
break

#IF
checkitem打造石1
random4
#ACT
Take打造石1
MOVS100
GetRandomText..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txtS10
CHANGECUSTOMITEMTEXT10上古品鉴*3星
CHANGECUSTOMITEMTEXTCOLOR10250
CHANGECUSTOMITEMABIL100070
CHANGECUSTOMITEMABIL1001<$STR(S10)>
;CHANGECUSTOMITEMABIL1011<$STR(S10)>
CHANGECUSTOMITEMVALUE100=7
CHANGECUSTOMITEMABIL10120
ChangeItemUpgradeCount10=3
SENDUPGRADEITEM
MESSAGEBOX\\装备重生成功，星级为：★★★
break

#IF
checkitem打造石1
random2
#ACT
Take打造石1
MOVS100
GetRandomText..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txtS10
CHANGECUSTOMITEMTEXT10上古品鉴*2星
CHANGECUSTOMITEMTEXTCOLOR10250
CHANGECUSTOMITEMABIL100070
CHANGECUSTOMITEMABIL1001<$STR(S10)>
;CHANGECUSTOMITEMABIL1011<$STR(S10)>
CHANGECUSTOMITEMVALUE100=5
CHANGECUSTOMITEMABIL10120
ChangeItemUpgradeCount10=2
SENDUPGRADEITEM
MESSAGEBOX\\装备重生成功，星级为：★★
break

#IF
checkitem打造石1
random1
#ACT
Take打造石1
MOVS100
GetRandomText..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txtS10
CHANGECUSTOMITEMTEXT10上古品鉴*1星
CHANGECUSTOMITEMTEXTCOLOR10250
CHANGECUSTOMITEMABIL100070
CHANGECUSTOMITEMABIL1001<$STR(S10)>
;CHANGECUSTOMITEMABIL1011<$STR(S10)>
CHANGECUSTOMITEMVALUE100=3
CHANGECUSTOMITEMABIL10020
ChangeItemUpgradeCount10=1
SENDUPGRADEITEM
MESSAGEBOX\\装备重生成功，星级为：★
break
#ELSEACT
MESSAGEBOX\\重生失败:原因如下\\　　　　1.您没有"打造石"一个\\　　　　2.请集齐以上材料在来找我吧！
break

[@左戒改造]
#IF
NOTCHECKUSEITEM8
#ACT
MESSAGEBOX\\这地方带装备了么？
break

#IF
NOTCheckContainsTextListEx..\QuestDiary\数据文件\品鉴抽取\装备名称.txt<$RING_R>
#ACT
MESSAGEBOX\\此物品禁止改造！
break



#IF
checkitem打造石1
random300
#ACT
Take打造石1
MOVS10
MOVS11<$CURRTEMNAME>
GetRandomText..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txtS10
CHANGECUSTOMITEMTEXT8上古品鉴*8星
CHANGECUSTOMITEMTEXTCOLOR8250
CHANGECUSTOMITEMABIL80070
CHANGECUSTOMITEMABIL801<$STR(S10)>
;CHANGECUSTOMITEMABIL811<$STR(S10)>
CHANGECUSTOMITEMVALUE80=48
CHANGECUSTOMITEMABIL8020
ChangeItemUpgradeCount8=8
SENDUPGRADEITEM
MESSAGEBOX\\装备重生成功，星级为：★★★★★★★★
SendMsg0{上古评鉴ぐ|151:0:1}：{%s|227:0:1}福星降临鉴定出{[八星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
break


#IF
checkitem打造石1
random200
#ACT
Take打造石1
MOVS10
MOVS11<$CURRTEMNAME>
GetRandomText..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txtS10
CHANGECUSTOMITEMTEXT8上古品鉴*7星
CHANGECUSTOMITEMTEXTCOLOR8250
CHANGECUSTOMITEMABIL80070
CHANGECUSTOMITEMABIL801<$STR(S10)>
;CHANGECUSTOMITEMABIL811<$STR(S10)>
CHANGECUSTOMITEMVALUE80=32
CHANGECUSTOMITEMABIL8020
ChangeItemUpgradeCount8=7
SENDUPGRADEITEM
MESSAGEBOX\\装备重生成功，星级为：★★★★★★★
SendMsg0{上古评鉴ぐ|151:0:1}：{%s|227:0:1}福星降临鉴定出{[七星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
break


#IF
checkitem打造石1
random100
#ACT
Take打造石1
MOVS10
MOVS11<$CURRTEMNAME>
GetRandomText..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txtS10
CHANGECUSTOMITEMTEXT8上古品鉴*6星
CHANGECUSTOMITEMTEXTCOLOR8250
CHANGECUSTOMITEMABIL80070
CHANGECUSTOMITEMABIL801<$STR(S10)>
;CHANGECUSTOMITEMABIL811<$STR(S10)>
CHANGECUSTOMITEMVALUE80=22
CHANGECUSTOMITEMABIL8020
ChangeItemUpgradeCount8=6
SENDUPGRADEITEM
MESSAGEBOX\\装备重生成功，星级为：★★★★★★
SendMsg0{上古评鉴ぐ|151:0:1}：{%s|227:0:1}福星降临鉴定出{[六星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
break


#IF
checkitem打造石1
random50
#ACT
Take打造石1
MOVS10
MOVS11<$CURRTEMNAME>
GetRandomText..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txtS10
CHANGECUSTOMITEMTEXT8上古品鉴*5星
CHANGECUSTOMITEMTEXTCOLOR8250
CHANGECUSTOMITEMABIL80070
CHANGECUSTOMITEMABIL801<$STR(S10)>
;CHANGECUSTOMITEMABIL811<$STR(S10)>
CHANGECUSTOMITEMVALUE80=15
CHANGECUSTOMITEMABIL8020
ChangeItemUpgradeCount8=5
SENDUPGRADEITEM
MESSAGEBOX\\装备重生成功，星级为：★★★★★
SendMsg0{上古评鉴ぐ|151:0:1}：{%s|227:0:1}福星降临鉴定出{[五星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
break

#IF
checkitem打造石1
random15
#ACT
Take打造石1
MOVS10
MOVS11<$CURRTEMNAME>
GetRandomText..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txtS10
CHANGECUSTOMITEMTEXT8上古品鉴*4星
CHANGECUSTOMITEMTEXTCOLOR8250
CHANGECUSTOMITEMABIL80070
CHANGECUSTOMITEMABIL801<$STR(S10)>
;CHANGECUSTOMITEMABIL811<$STR(S10)>
CHANGECUSTOMITEMVALUE80=10
CHANGECUSTOMITEMABIL8020
ChangeItemUpgradeCount8=4
SENDUPGRADEITEM
MESSAGEBOX\\装备重生成功，星级为：★★★★
SendMsg0{上古评鉴ぐ|151:0:1}：{%s|227:0:1}福星降临鉴定出{[四星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
break

#IF
checkitem打造石1
random4
#ACT
Take打造石1
MOVS100
GetRandomText..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txtS10
CHANGECUSTOMITEMTEXT8上古品鉴*3星
CHANGECUSTOMITEMTEXTCOLOR8250
CHANGECUSTOMITEMABIL80070
CHANGECUSTOMITEMABIL801<$STR(S10)>
;CHANGECUSTOMITEMABIL811<$STR(S10)>
CHANGECUSTOMITEMVALUE80=7
CHANGECUSTOMITEMABIL8120
ChangeItemUpgradeCount8=3
SENDUPGRADEITEM
MESSAGEBOX\\装备重生成功，星级为：★★★
break

#IF
checkitem打造石1
random2
#ACT
Take打造石1
MOVS100
GetRandomText..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txtS10
CHANGECUSTOMITEMTEXT8上古品鉴*2星
CHANGECUSTOMITEMTEXTCOLOR8250
CHANGECUSTOMITEMABIL80070
CHANGECUSTOMITEMABIL801<$STR(S10)>
;CHANGECUSTOMITEMABIL811<$STR(S10)>
CHANGECUSTOMITEMVALUE80=5
CHANGECUSTOMITEMABIL8120
ChangeItemUpgradeCount8=2
SENDUPGRADEITEM
MESSAGEBOX\\装备重生成功，星级为：★★
break

#IF
checkitem打造石1
random1
#ACT
Take打造石1
MOVS100
GetRandomText..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txtS10
CHANGECUSTOMITEMTEXT8上古品鉴*1星
CHANGECUSTOMITEMTEXTCOLOR8250
CHANGECUSTOMITEMABIL80070
CHANGECUSTOMITEMABIL801<$STR(S10)>
;CHANGECUSTOMITEMABIL811<$STR(S10)>
CHANGECUSTOMITEMVALUE80=3
CHANGECUSTOMITEMABIL8020
ChangeItemUpgradeCount8=1
SENDUPGRADEITEM
MESSAGEBOX\\装备重生成功，星级为：★
break
#ELSEACT
MESSAGEBOX\\重生失败:原因如下\\　　　　1.您没有"打造石"一个\\　　　　2.请集齐以上材料在来找我吧！
break

[@右戒改造]
#IF
NOTCHECKUSEITEM7
#ACT
MESSAGEBOX\\这地方带装备了么？
break


#IF
NOTCheckContainsTextListEx..\QuestDiary\数据文件\品鉴抽取\装备名称.txt<$RING_L>
#ACT
MESSAGEBOX\\此物品禁止改造！
break



#IF
checkitem打造石1
random300
#ACT
Take打造石1
MOVS10
MOVS11<$CURRTEMNAME>
GetRandomText..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txtS10
CHANGECUSTOMITEMTEXT7上古品鉴*8星
CHANGECUSTOMITEMTEXTCOLOR7250
CHANGECUSTOMITEMABIL70070
CHANGECUSTOMITEMABIL701<$STR(S10)>
;CHANGECUSTOMITEMABIL711<$STR(S10)>
CHANGECUSTOMITEMVALUE70=48
CHANGECUSTOMITEMABIL7020
ChangeItemUpgradeCount7=8
SENDUPGRADEITEM
MESSAGEBOX\\装备重生成功，星级为：★★★★★★★★
SendMsg0{上古评鉴ぐ|151:0:1}：{%s|227:0:1}福星降临鉴定出{[八星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
break


#IF
checkitem打造石1
random200
#ACT
Take打造石1
MOVS10
MOVS11<$CURRTEMNAME>
GetRandomText..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txtS10
CHANGECUSTOMITEMTEXT7上古品鉴*7星
CHANGECUSTOMITEMTEXTCOLOR7250
CHANGECUSTOMITEMABIL70070
CHANGECUSTOMITEMABIL701<$STR(S10)>
;CHANGECUSTOMITEMABIL711<$STR(S10)>
CHANGECUSTOMITEMVALUE70=32
CHANGECUSTOMITEMABIL7020
ChangeItemUpgradeCount7=7
SENDUPGRADEITEM
MESSAGEBOX\\装备重生成功，星级为：★★★★★★★
SendMsg0{上古评鉴ぐ|151:0:1}：{%s|227:0:1}福星降临鉴定出{[七星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
break


#IF
checkitem打造石1
random100
#ACT
Take打造石1
MOVS10
MOVS11<$CURRTEMNAME>
GetRandomText..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txtS10
CHANGECUSTOMITEMTEXT7上古品鉴*6星
CHANGECUSTOMITEMTEXTCOLOR7250
CHANGECUSTOMITEMABIL70070
CHANGECUSTOMITEMABIL701<$STR(S10)>
;CHANGECUSTOMITEMABIL711<$STR(S10)>
CHANGECUSTOMITEMVALUE70=22
CHANGECUSTOMITEMABIL7020
ChangeItemUpgradeCount7=6
SENDUPGRADEITEM
MESSAGEBOX\\装备重生成功，星级为：★★★★★★
SendMsg0{上古评鉴ぐ|151:0:1}：{%s|227:0:1}福星降临鉴定出{[六星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
break


#IF
checkitem打造石1
random50
#ACT
Take打造石1
MOVS10
MOVS11<$CURRTEMNAME>
GetRandomText..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txtS10
CHANGECUSTOMITEMTEXT7上古品鉴*5星
CHANGECUSTOMITEMTEXTCOLOR7250
CHANGECUSTOMITEMABIL70070
CHANGECUSTOMITEMABIL701<$STR(S10)>
;CHANGECUSTOMITEMABIL711<$STR(S10)>
CHANGECUSTOMITEMVALUE70=15
CHANGECUSTOMITEMABIL7020
ChangeItemUpgradeCount7=5
SENDUPGRADEITEM
MESSAGEBOX\\装备重生成功，星级为：★★★★★
SendMsg0{上古评鉴ぐ|151:0:1}：{%s|227:0:1}福星降临鉴定出{[五星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
break

#IF
checkitem打造石1
random15
#ACT
Take打造石1
MOVS10
MOVS11<$CURRTEMNAME>
GetRandomText..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txtS10
CHANGECUSTOMITEMTEXT7上古品鉴*4星
CHANGECUSTOMITEMTEXTCOLOR7250
CHANGECUSTOMITEMABIL70070
CHANGECUSTOMITEMABIL701<$STR(S10)>
;CHANGECUSTOMITEMABIL711<$STR(S10)>
CHANGECUSTOMITEMVALUE70=10
CHANGECUSTOMITEMABIL7020
ChangeItemUpgradeCount7=4
SENDUPGRADEITEM
MESSAGEBOX\\装备重生成功，星级为：★★★★
SendMsg0{上古评鉴ぐ|151:0:1}：{%s|227:0:1}福星降临鉴定出{[四星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
break

#IF
checkitem打造石1
random4
#ACT
Take打造石1
MOVS100
GetRandomText..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txtS10
CHANGECUSTOMITEMTEXT7上古品鉴*3星
CHANGECUSTOMITEMTEXTCOLOR7250
CHANGECUSTOMITEMABIL70070
CHANGECUSTOMITEMABIL701<$STR(S10)>
;CHANGECUSTOMITEMABIL711<$STR(S10)>
CHANGECUSTOMITEMVALUE70=7
CHANGECUSTOMITEMABIL7120
ChangeItemUpgradeCount7=3
SENDUPGRADEITEM
MESSAGEBOX\\装备重生成功，星级为：★★★
break

#IF
checkitem打造石1
random2
#ACT
Take打造石1
MOVS100
GetRandomText..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txtS10
CHANGECUSTOMITEMTEXT7上古品鉴*2星
CHANGECUSTOMITEMTEXTCOLOR7250
CHANGECUSTOMITEMABIL70070
CHANGECUSTOMITEMABIL701<$STR(S10)>
;CHANGECUSTOMITEMABIL711<$STR(S10)>
CHANGECUSTOMITEMVALUE70=5
CHANGECUSTOMITEMABIL7120
ChangeItemUpgradeCount7=2
SENDUPGRADEITEM
MESSAGEBOX\\装备重生成功，星级为：★★
break

#IF
checkitem打造石1
random1
#ACT
Take打造石1
MOVS100
GetRandomText..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txtS10
CHANGECUSTOMITEMTEXT7上古品鉴*1星
CHANGECUSTOMITEMTEXTCOLOR7250
CHANGECUSTOMITEMABIL70070
CHANGECUSTOMITEMABIL701<$STR(S10)>
;CHANGECUSTOMITEMABIL711<$STR(S10)>
CHANGECUSTOMITEMVALUE70=3
CHANGECUSTOMITEMABIL7020
ChangeItemUpgradeCount7=1
SENDUPGRADEITEM
MESSAGEBOX\\装备重生成功，星级为：★
break
#ELSEACT
MESSAGEBOX\\重生失败:原因如下\\　　　　1.您没有"打造石"一个\\　　　　2.请集齐以上材料在来找我吧！
break


[@左手改造]
#IF
NOTCHECKUSEITEM6
#ACT
MESSAGEBOX\\这地方带装备了么？
break

#IF
NOTCheckContainsTextListEx..\QuestDiary\数据文件\品鉴抽取\装备名称.txt<$ARMRING_R>
#ACT
MESSAGEBOX\\此物品禁止改造！
break

#

#IF
checkitem打造石1
random300
#ACT
Take打造石1
MOVS10
MOVS11<$CURRTEMNAME>
GetRandomText..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txtS10
CHANGECUSTOMITEMTEXT6上古品鉴*8星
CHANGECUSTOMITEMTEXTCOLOR6250
CHANGECUSTOMITEMABIL60070
CHANGECUSTOMITEMABIL601<$STR(S10)>
;CHANGECUSTOMITEMABIL611<$STR(S10)>
CHANGECUSTOMITEMVALUE60=48
CHANGECUSTOMITEMABIL6020
ChangeItemUpgradeCount6=8
SENDUPGRADEITEM
MESSAGEBOX\\装备重生成功，星级为：★★★★★★★★
SendMsg0{上古评鉴ぐ|151:0:1}：{%s|227:0:1}福星降临鉴定出{[八星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
break


#IF
checkitem打造石1
random200
#ACT
Take打造石1
MOVS10
MOVS11<$CURRTEMNAME>
GetRandomText..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txtS10
CHANGECUSTOMITEMTEXT6上古品鉴*7星
CHANGECUSTOMITEMTEXTCOLOR6250
CHANGECUSTOMITEMABIL60070
CHANGECUSTOMITEMABIL601<$STR(S10)>
;CHANGECUSTOMITEMABIL611<$STR(S10)>
CHANGECUSTOMITEMVALUE60=32
CHANGECUSTOMITEMABIL6020
ChangeItemUpgradeCount6=7
SENDUPGRADEITEM
MESSAGEBOX\\装备重生成功，星级为：★★★★★★★
SendMsg0{上古评鉴ぐ|151:0:1}：{%s|227:0:1}福星降临鉴定出{[七星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
break


#IF
checkitem打造石1
random100
#ACT
Take打造石1
MOVS10
MOVS11<$CURRTEMNAME>
GetRandomText..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txtS10
CHANGECUSTOMITEMTEXT6上古品鉴*6星
CHANGECUSTOMITEMTEXTCOLOR6250
CHANGECUSTOMITEMABIL60070
CHANGECUSTOMITEMABIL601<$STR(S10)>
;CHANGECUSTOMITEMABIL611<$STR(S10)>
CHANGECUSTOMITEMVALUE60=22
CHANGECUSTOMITEMABIL6020
ChangeItemUpgradeCount6=6
SENDUPGRADEITEM
MESSAGEBOX\\装备重生成功，星级为：★★★★★★
SendMsg0{上古评鉴ぐ|151:0:1}：{%s|227:0:1}福星降临鉴定出{[六星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
break


#IF
checkitem打造石1
random50
#ACT
Take打造石1
MOVS10
MOVS11<$CURRTEMNAME>
GetRandomText..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txtS10
CHANGECUSTOMITEMTEXT6上古品鉴*5星
CHANGECUSTOMITEMTEXTCOLOR6250
CHANGECUSTOMITEMABIL60070
CHANGECUSTOMITEMABIL601<$STR(S10)>
;CHANGECUSTOMITEMABIL611<$STR(S10)>
CHANGECUSTOMITEMVALUE60=15
CHANGECUSTOMITEMABIL6020
ChangeItemUpgradeCount6=5
SENDUPGRADEITEM
MESSAGEBOX\\装备重生成功，星级为：★★★★★
SendMsg0{上古评鉴ぐ|151:0:1}：{%s|227:0:1}福星降临鉴定出{[五星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
break

#IF
checkitem打造石1
random15
#ACT
Take打造石1
MOVS10
MOVS11<$CURRTEMNAME>
GetRandomText..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txtS10
CHANGECUSTOMITEMTEXT6上古品鉴*4星
CHANGECUSTOMITEMTEXTCOLOR6250
CHANGECUSTOMITEMABIL60070
CHANGECUSTOMITEMABIL601<$STR(S10)>
;CHANGECUSTOMITEMABIL611<$STR(S10)>
CHANGECUSTOMITEMVALUE60=10
CHANGECUSTOMITEMABIL6020
ChangeItemUpgradeCount6=4
SENDUPGRADEITEM
MESSAGEBOX\\装备重生成功，星级为：★★★★
SendMsg0{上古评鉴ぐ|151:0:1}：{%s|227:0:1}福星降临鉴定出{[四星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
break

#IF
checkitem打造石1
random4
#ACT
Take打造石1
MOVS100
GetRandomText..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txtS10
CHANGECUSTOMITEMTEXT6上古品鉴*3星
CHANGECUSTOMITEMTEXTCOLOR6250
CHANGECUSTOMITEMABIL60070
CHANGECUSTOMITEMABIL601<$STR(S10)>
;CHANGECUSTOMITEMABIL611<$STR(S10)>
CHANGECUSTOMITEMVALUE60=7
CHANGECUSTOMITEMABIL6120
ChangeItemUpgradeCount6=3
SENDUPGRADEITEM
MESSAGEBOX\\装备重生成功，星级为：★★★
break

#IF
checkitem打造石1
random2
#ACT
Take打造石1
MOVS100
GetRandomText..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txtS10
CHANGECUSTOMITEMTEXT6上古品鉴*2星
CHANGECUSTOMITEMTEXTCOLOR6250
CHANGECUSTOMITEMABIL60070
CHANGECUSTOMITEMABIL601<$STR(S10)>
;CHANGECUSTOMITEMABIL611<$STR(S10)>
CHANGECUSTOMITEMVALUE60=5
CHANGECUSTOMITEMABIL6120
ChangeItemUpgradeCount6=2
SENDUPGRADEITEM
MESSAGEBOX\\装备重生成功，星级为：★★
break

#IF
checkitem打造石1
random1
#ACT
Take打造石1
MOVS100
GetRandomText..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txtS10
CHANGECUSTOMITEMTEXT6上古品鉴*1星
CHANGECUSTOMITEMTEXTCOLOR6250
CHANGECUSTOMITEMABIL60070
CHANGECUSTOMITEMABIL601<$STR(S10)>
;CHANGECUSTOMITEMABIL611<$STR(S10)>
CHANGECUSTOMITEMVALUE60=3
CHANGECUSTOMITEMABIL6020
ChangeItemUpgradeCount6=1
SENDUPGRADEITEM
MESSAGEBOX\\装备重生成功，星级为：★
break
#ELSEACT
MESSAGEBOX\\重生失败:原因如下\\　　　　1.您没有"打造石"一个\\　　　　2.请集齐以上材料在来找我吧！
break


[@右手改造]
#IF
NOTCHECKUSEITEM5
#ACT
MESSAGEBOX\\这地方带装备了么？
break

#IF
NOTCheckContainsTextListEx..\QuestDiary\数据文件\品鉴抽取\装备名称.txt<$ARMRING_L>
#ACT
MESSAGEBOX\\此物品禁止改造！
break



#IF
checkitem打造石1
random300
#ACT
Take打造石1
MOVS10
MOVS11<$CURRTEMNAME>
GetRandomText..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txtS10
CHANGECUSTOMITEMTEXT5上古品鉴*8星
CHANGECUSTOMITEMTEXTCOLOR5250
CHANGECUSTOMITEMABIL50070
CHANGECUSTOMITEMABIL501<$STR(S10)>
;CHANGECUSTOMITEMABIL511<$STR(S10)>
CHANGECUSTOMITEMVALUE50=48
CHANGECUSTOMITEMABIL5020
ChangeItemUpgradeCount5=8
SENDUPGRADEITEM
MESSAGEBOX\\装备重生成功，星级为：★★★★★★★★
SendMsg0{上古评鉴ぐ|151:0:1}：{%s|227:0:1}福星降临鉴定出{[八星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
break


#IF
checkitem打造石1
random200
#ACT
Take打造石1
MOVS10
MOVS11<$CURRTEMNAME>
GetRandomText..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txtS10
CHANGECUSTOMITEMTEXT5上古品鉴*7星
CHANGECUSTOMITEMTEXTCOLOR5250
CHANGECUSTOMITEMABIL50070
CHANGECUSTOMITEMABIL501<$STR(S10)>
;CHANGECUSTOMITEMABIL511<$STR(S10)>
CHANGECUSTOMITEMVALUE50=32
CHANGECUSTOMITEMABIL5020
ChangeItemUpgradeCount5=7
SENDUPGRADEITEM
MESSAGEBOX\\装备重生成功，星级为：★★★★★★★
SendMsg0{上古评鉴ぐ|151:0:1}：{%s|227:0:1}福星降临鉴定出{[七星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
break


#IF
checkitem打造石1
random100
#ACT
Take打造石1
MOVS10
MOVS11<$CURRTEMNAME>
GetRandomText..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txtS10
CHANGECUSTOMITEMTEXT5上古品鉴*6星
CHANGECUSTOMITEMTEXTCOLOR5250
CHANGECUSTOMITEMABIL50070
CHANGECUSTOMITEMABIL501<$STR(S10)>
;CHANGECUSTOMITEMABIL511<$STR(S10)>
CHANGECUSTOMITEMVALUE50=22
CHANGECUSTOMITEMABIL5020
ChangeItemUpgradeCount5=6
SENDUPGRADEITEM
MESSAGEBOX\\装备重生成功，星级为：★★★★★★
SendMsg0{上古评鉴ぐ|151:0:1}：{%s|227:0:1}福星降临鉴定出{[六星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
break


#IF
checkitem打造石1
random50
#ACT
Take打造石1
MOVS10
MOVS11<$CURRTEMNAME>
GetRandomText..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txtS10
CHANGECUSTOMITEMTEXT5上古品鉴*5星
CHANGECUSTOMITEMTEXTCOLOR5250
CHANGECUSTOMITEMABIL50070
CHANGECUSTOMITEMABIL501<$STR(S10)>
;CHANGECUSTOMITEMABIL511<$STR(S10)>
CHANGECUSTOMITEMVALUE50=15
CHANGECUSTOMITEMABIL5020
ChangeItemUpgradeCount5=5
SENDUPGRADEITEM
MESSAGEBOX\\装备重生成功，星级为：★★★★★
SendMsg0{上古评鉴ぐ|151:0:1}：{%s|227:0:1}福星降临鉴定出{[五星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
break

#IF
checkitem打造石1
random15
#ACT
Take打造石1
MOVS10
MOVS11<$CURRTEMNAME>
GetRandomText..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txtS10
CHANGECUSTOMITEMTEXT5上古品鉴*4星
CHANGECUSTOMITEMTEXTCOLOR5250
CHANGECUSTOMITEMABIL50070
CHANGECUSTOMITEMABIL501<$STR(S10)>
;CHANGECUSTOMITEMABIL511<$STR(S10)>
CHANGECUSTOMITEMVALUE50=10
CHANGECUSTOMITEMABIL5020
ChangeItemUpgradeCount5=4
SENDUPGRADEITEM
MESSAGEBOX\\装备重生成功，星级为：★★★★
SendMsg0{上古评鉴ぐ|151:0:1}：{%s|227:0:1}福星降临鉴定出{[四星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
break

#IF
checkitem打造石1
random4
#ACT
Take打造石1
MOVS100
GetRandomText..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txtS10
CHANGECUSTOMITEMTEXT5上古品鉴*3星
CHANGECUSTOMITEMTEXTCOLOR5250
CHANGECUSTOMITEMABIL50070
CHANGECUSTOMITEMABIL501<$STR(S10)>
;CHANGECUSTOMITEMABIL511<$STR(S10)>
CHANGECUSTOMITEMVALUE50=7
CHANGECUSTOMITEMABIL5120
ChangeItemUpgradeCount5=3
SENDUPGRADEITEM
MESSAGEBOX\\装备重生成功，星级为：★★★
break

#IF
checkitem打造石1
random2
#ACT
Take打造石1
MOVS100
GetRandomText..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txtS10
CHANGECUSTOMITEMTEXT5上古品鉴*2星
CHANGECUSTOMITEMTEXTCOLOR5250
CHANGECUSTOMITEMABIL50070
CHANGECUSTOMITEMABIL501<$STR(S10)>
;CHANGECUSTOMITEMABIL511<$STR(S10)>
CHANGECUSTOMITEMVALUE50=5
CHANGECUSTOMITEMABIL5120
ChangeItemUpgradeCount5=2
SENDUPGRADEITEM
MESSAGEBOX\\装备重生成功，星级为：★★
break

#IF
checkitem打造石1
random1
#ACT
Take打造石1
MOVS100
GetRandomText..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txtS10
CHANGECUSTOMITEMTEXT5上古品鉴*1星
CHANGECUSTOMITEMTEXTCOLOR5250
CHANGECUSTOMITEMABIL50070
CHANGECUSTOMITEMABIL501<$STR(S10)>
;CHANGECUSTOMITEMABIL511<$STR(S10)>
CHANGECUSTOMITEMVALUE50=3
CHANGECUSTOMITEMABIL5020
ChangeItemUpgradeCount5=1
SENDUPGRADEITEM
MESSAGEBOX\\装备重生成功，星级为：★
break
#ELSEACT
MESSAGEBOX\\重生失败:原因如下\\　　　　1.您没有"打造石"一个\\　　　　2.请集齐以上材料在来找我吧！
break


[@头盔改造]
#IF
NOTCHECKUSEITEM4
#ACT
MESSAGEBOX\\这地方带装备了么？
break

#IF
NOTCheckContainsTextListEx..\QuestDiary\数据文件\品鉴抽取\装备名称.txt<$HELMET>
#ACT
MESSAGEBOX\\此物品禁止改造！
break



#IF
checkitem打造石1
random300
#ACT
Take打造石1
MOVS10
MOVS11<$CURRTEMNAME>
GetRandomText..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txtS10
CHANGECUSTOMITEMTEXT4上古品鉴*8星
CHANGECUSTOMITEMTEXTCOLOR4250
CHANGECUSTOMITEMABIL40070
CHANGECUSTOMITEMABIL401<$STR(S10)>
;CHANGECUSTOMITEMABIL411<$STR(S10)>
CHANGECUSTOMITEMVALUE40=48
CHANGECUSTOMITEMABIL4020
ChangeItemUpgradeCount4=8
SENDUPGRADEITEM
MESSAGEBOX\\装备重生成功，星级为：★★★★★★★★
SendMsg0{上古评鉴ぐ|151:0:1}：{%s|227:0:1}福星降临鉴定出{[八星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
break


#IF
checkitem打造石1
random200
#ACT
Take打造石1
MOVS10
MOVS11<$CURRTEMNAME>
GetRandomText..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txtS10
CHANGECUSTOMITEMTEXT4上古品鉴*7星
CHANGECUSTOMITEMTEXTCOLOR4250
CHANGECUSTOMITEMABIL40070
CHANGECUSTOMITEMABIL401<$STR(S10)>
;CHANGECUSTOMITEMABIL411<$STR(S10)>
CHANGECUSTOMITEMVALUE40=32
CHANGECUSTOMITEMABIL4020
ChangeItemUpgradeCount4=7
SENDUPGRADEITEM
MESSAGEBOX\\装备重生成功，星级为：★★★★★★★
SendMsg0{上古评鉴ぐ|151:0:1}：{%s|227:0:1}福星降临鉴定出{[七星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
break


#IF
checkitem打造石1
random100
#ACT
Take打造石1
MOVS10
MOVS11<$CURRTEMNAME>
GetRandomText..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txtS10
CHANGECUSTOMITEMTEXT4上古品鉴*6星
CHANGECUSTOMITEMTEXTCOLOR4250
CHANGECUSTOMITEMABIL40070
CHANGECUSTOMITEMABIL401<$STR(S10)>
;CHANGECUSTOMITEMABIL411<$STR(S10)>
CHANGECUSTOMITEMVALUE40=22
CHANGECUSTOMITEMABIL4020
ChangeItemUpgradeCount4=6
SENDUPGRADEITEM
MESSAGEBOX\\装备重生成功，星级为：★★★★★★
SendMsg0{上古评鉴ぐ|151:0:1}：{%s|227:0:1}福星降临鉴定出{[六星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
break


#IF
checkitem打造石1
random50
#ACT
Take打造石1
MOVS10
MOVS11<$CURRTEMNAME>
GetRandomText..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txtS10
CHANGECUSTOMITEMTEXT4上古品鉴*5星
CHANGECUSTOMITEMTEXTCOLOR4250
CHANGECUSTOMITEMABIL40070
CHANGECUSTOMITEMABIL401<$STR(S10)>
;CHANGECUSTOMITEMABIL411<$STR(S10)>
CHANGECUSTOMITEMVALUE40=15
CHANGECUSTOMITEMABIL4020
ChangeItemUpgradeCount4=5
SENDUPGRADEITEM
MESSAGEBOX\\装备重生成功，星级为：★★★★★
SendMsg0{上古评鉴ぐ|151:0:1}：{%s|227:0:1}福星降临鉴定出{[五星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
break

#IF
checkitem打造石1
random15
#ACT
Take打造石1
MOVS10
MOVS11<$CURRTEMNAME>
GetRandomText..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txtS10
CHANGECUSTOMITEMTEXT4上古品鉴*4星
CHANGECUSTOMITEMTEXTCOLOR4250
CHANGECUSTOMITEMABIL40070
CHANGECUSTOMITEMABIL401<$STR(S10)>
;CHANGECUSTOMITEMABIL411<$STR(S10)>
CHANGECUSTOMITEMVALUE40=10
CHANGECUSTOMITEMABIL4020
ChangeItemUpgradeCount4=4
SENDUPGRADEITEM
MESSAGEBOX\\装备重生成功，星级为：★★★★
SendMsg0{上古评鉴ぐ|151:0:1}：{%s|227:0:1}福星降临鉴定出{[四星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
break

#IF
checkitem打造石1
random4
#ACT
Take打造石1
MOVS100
GetRandomText..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txtS10
CHANGECUSTOMITEMTEXT4上古品鉴*3星
CHANGECUSTOMITEMTEXTCOLOR4250
CHANGECUSTOMITEMABIL40070
CHANGECUSTOMITEMABIL401<$STR(S10)>
;CHANGECUSTOMITEMABIL411<$STR(S10)>
CHANGECUSTOMITEMVALUE40=7
CHANGECUSTOMITEMABIL4120
ChangeItemUpgradeCount4=3
SENDUPGRADEITEM
MESSAGEBOX\\装备重生成功，星级为：★★★
break

#IF
checkitem打造石1
random2
#ACT
Take打造石1
MOVS100
GetRandomText..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txtS10
CHANGECUSTOMITEMTEXT4上古品鉴*2星
CHANGECUSTOMITEMTEXTCOLOR4250
CHANGECUSTOMITEMABIL40070
CHANGECUSTOMITEMABIL401<$STR(S10)>
;CHANGECUSTOMITEMABIL411<$STR(S10)>
CHANGECUSTOMITEMVALUE40=5
CHANGECUSTOMITEMABIL4120
ChangeItemUpgradeCount4=2
SENDUPGRADEITEM
MESSAGEBOX\\装备重生成功，星级为：★★
break

#IF
checkitem打造石1
random1
#ACT
Take打造石1
MOVS100
GetRandomText..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txtS10
CHANGECUSTOMITEMTEXT4上古品鉴*1星
CHANGECUSTOMITEMTEXTCOLOR4250
CHANGECUSTOMITEMABIL40070
CHANGECUSTOMITEMABIL401<$STR(S10)>
;CHANGECUSTOMITEMABIL411<$STR(S10)>
CHANGECUSTOMITEMVALUE40=3
CHANGECUSTOMITEMABIL4020
ChangeItemUpgradeCount4=1
SENDUPGRADEITEM
MESSAGEBOX\\装备重生成功，星级为：★
break
#ELSEACT
MESSAGEBOX\\重生失败:原因如下\\　　　　1.您没有"打造石"一个\\　　　　2.请集齐以上材料在来找我吧！
break


[@项链改造]
#IF
NOTCHECKUSEITEM3
#ACT
MESSAGEBOX\\这地方带装备了么？
break

#IF
NOTCheckContainsTextListEx..\QuestDiary\数据文件\品鉴抽取\装备名称.txt<$NECKLACE>
#ACT
MESSAGEBOX\\此物品禁止改造！
break



#IF
checkitem打造石1
random300
#ACT
Take打造石1
MOVS10
MOVS11<$CURRTEMNAME>
GetRandomText..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txtS10
CHANGECUSTOMITEMTEXT3上古品鉴*8星
CHANGECUSTOMITEMTEXTCOLOR3250
CHANGECUSTOMITEMABIL30070
CHANGECUSTOMITEMABIL301<$STR(S10)>
;CHANGECUSTOMITEMABIL311<$STR(S10)>
CHANGECUSTOMITEMVALUE30=48
CHANGECUSTOMITEMABIL3020
ChangeItemUpgradeCount3=8
SENDUPGRADEITEM
MESSAGEBOX\\装备重生成功，星级为：★★★★★★★★
SendMsg0{上古评鉴ぐ|151:0:1}：{%s|227:0:1}福星降临鉴定出{[八星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
break


#IF
checkitem打造石1
random200
#ACT
Take打造石1
MOVS10
MOVS11<$CURRTEMNAME>
GetRandomText..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txtS10
CHANGECUSTOMITEMTEXT3上古品鉴*7星
CHANGECUSTOMITEMTEXTCOLOR3250
CHANGECUSTOMITEMABIL30070
CHANGECUSTOMITEMABIL301<$STR(S10)>
;CHANGECUSTOMITEMABIL311<$STR(S10)>
CHANGECUSTOMITEMVALUE30=32
CHANGECUSTOMITEMABIL3020
ChangeItemUpgradeCount3=7
SENDUPGRADEITEM
MESSAGEBOX\\装备重生成功，星级为：★★★★★★★
SendMsg0{上古评鉴ぐ|151:0:1}：{%s|227:0:1}福星降临鉴定出{[七星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
break


#IF
checkitem打造石1
random100
#ACT
Take打造石1
MOVS10
MOVS11<$CURRTEMNAME>
GetRandomText..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txtS10
CHANGECUSTOMITEMTEXT3上古品鉴*6星
CHANGECUSTOMITEMTEXTCOLOR3250
CHANGECUSTOMITEMABIL30070
CHANGECUSTOMITEMABIL301<$STR(S10)>
;CHANGECUSTOMITEMABIL311<$STR(S10)>
CHANGECUSTOMITEMVALUE30=22
CHANGECUSTOMITEMABIL3020
ChangeItemUpgradeCount3=6
SENDUPGRADEITEM
MESSAGEBOX\\装备重生成功，星级为：★★★★★★
SendMsg0{上古评鉴ぐ|151:0:1}：{%s|227:0:1}福星降临鉴定出{[六星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
break


#IF
checkitem打造石1
random50
#ACT
Take打造石1
MOVS10
MOVS11<$CURRTEMNAME>
GetRandomText..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txtS10
CHANGECUSTOMITEMTEXT3上古品鉴*5星
CHANGECUSTOMITEMTEXTCOLOR3250
CHANGECUSTOMITEMABIL30070
CHANGECUSTOMITEMABIL301<$STR(S10)>
;CHANGECUSTOMITEMABIL311<$STR(S10)>
CHANGECUSTOMITEMVALUE30=15
CHANGECUSTOMITEMABIL3020
ChangeItemUpgradeCount3=5
SENDUPGRADEITEM
MESSAGEBOX\\装备重生成功，星级为：★★★★★
SendMsg0{上古评鉴ぐ|151:0:1}：{%s|227:0:1}福星降临鉴定出{[五星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
break

#IF
checkitem打造石1
random15
#ACT
Take打造石1
MOVS10
MOVS11<$CURRTEMNAME>
GetRandomText..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txtS10
CHANGECUSTOMITEMTEXT3上古品鉴*4星
CHANGECUSTOMITEMTEXTCOLOR3250
CHANGECUSTOMITEMABIL30070
CHANGECUSTOMITEMABIL301<$STR(S10)>
;CHANGECUSTOMITEMABIL311<$STR(S10)>
CHANGECUSTOMITEMVALUE30=10
CHANGECUSTOMITEMABIL3020
ChangeItemUpgradeCount3=4
SENDUPGRADEITEM
MESSAGEBOX\\装备重生成功，星级为：★★★★
SendMsg0{上古评鉴ぐ|151:0:1}：{%s|227:0:1}福星降临鉴定出{[四星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
break

#IF
checkitem打造石1
random4
#ACT
Take打造石1
MOVS100
GetRandomText..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txtS10
CHANGECUSTOMITEMTEXT3上古品鉴*3星
CHANGECUSTOMITEMTEXTCOLOR3250
CHANGECUSTOMITEMABIL30070
CHANGECUSTOMITEMABIL301<$STR(S10)>
;CHANGECUSTOMITEMABIL311<$STR(S10)>
CHANGECUSTOMITEMVALUE30=7
CHANGECUSTOMITEMABIL3120
ChangeItemUpgradeCount3=3
SENDUPGRADEITEM
MESSAGEBOX\\装备重生成功，星级为：★★★
break

#IF
checkitem打造石1
random2
#ACT
Take打造石1
MOVS100
GetRandomText..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txtS10
CHANGECUSTOMITEMTEXT3上古品鉴*2星
CHANGECUSTOMITEMTEXTCOLOR3250
CHANGECUSTOMITEMABIL30070
CHANGECUSTOMITEMABIL301<$STR(S10)>
;CHANGECUSTOMITEMABIL311<$STR(S10)>
CHANGECUSTOMITEMVALUE30=5
CHANGECUSTOMITEMABIL3120
ChangeItemUpgradeCount3=2
SENDUPGRADEITEM
MESSAGEBOX\\装备重生成功，星级为：★★
break

#IF
checkitem打造石1
random1
#ACT
Take打造石1
MOVS100
GetRandomText..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txtS10
CHANGECUSTOMITEMTEXT3上古品鉴*1星
CHANGECUSTOMITEMTEXTCOLOR3250
CHANGECUSTOMITEMABIL30070
CHANGECUSTOMITEMABIL301<$STR(S10)>
;CHANGECUSTOMITEMABIL311<$STR(S10)>
CHANGECUSTOMITEMVALUE30=3
CHANGECUSTOMITEMABIL3020
ChangeItemUpgradeCount3=1
SENDUPGRADEITEM
MESSAGEBOX\\装备重生成功，星级为：★
break
#ELSEACT
MESSAGEBOX\\重生失败:原因如下\\　　　　1.您没有"打造石"一个\\　　　　2.请集齐以上材料在来找我吧！
break


[@勋章改造]
#IF
NOTCHECKUSEITEM2
#ACT
MESSAGEBOX\\这地方带装备了么？
break

#IF
NOTCheckContainsTextListEx..\QuestDiary\数据文件\品鉴抽取\装备名称.txt<$RIGHTHAND>
#ACT
MESSAGEBOX\\此物品禁止改造！
break



#IF
checkitem打造石1
random300
#ACT
Take打造石1
MOVS10
MOVS11<$CURRTEMNAME>
GetRandomText..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txtS10
CHANGECUSTOMITEMTEXT2上古品鉴*8星
CHANGECUSTOMITEMTEXTCOLOR2250
CHANGECUSTOMITEMABIL20070
CHANGECUSTOMITEMABIL201<$STR(S10)>
;CHANGECUSTOMITEMABIL211<$STR(S10)>
CHANGECUSTOMITEMVALUE20=48
CHANGECUSTOMITEMABIL2020
ChangeItemUpgradeCount2=8
SENDUPGRADEITEM
MESSAGEBOX\\装备重生成功，星级为：★★★★★★★★
SendMsg0{上古评鉴ぐ|151:0:1}：{%s|227:0:1}福星降临鉴定出{[八星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
break


#IF
checkitem打造石1
random200
#ACT
Take打造石1
MOVS10
MOVS11<$CURRTEMNAME>
GetRandomText..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txtS10
CHANGECUSTOMITEMTEXT2上古品鉴*7星
CHANGECUSTOMITEMTEXTCOLOR2250
CHANGECUSTOMITEMABIL20070
CHANGECUSTOMITEMABIL201<$STR(S10)>
;CHANGECUSTOMITEMABIL211<$STR(S10)>
CHANGECUSTOMITEMVALUE20=32
CHANGECUSTOMITEMABIL2020
ChangeItemUpgradeCount2=7
SENDUPGRADEITEM
MESSAGEBOX\\装备重生成功，星级为：★★★★★★★
SendMsg0{上古评鉴ぐ|151:0:1}：{%s|227:0:1}福星降临鉴定出{[七星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
break


#IF
checkitem打造石1
random100
#ACT
Take打造石1
MOVS10
MOVS11<$CURRTEMNAME>
GetRandomText..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txtS10
CHANGECUSTOMITEMTEXT2上古品鉴*6星
CHANGECUSTOMITEMTEXTCOLOR2250
CHANGECUSTOMITEMABIL20070
CHANGECUSTOMITEMABIL201<$STR(S10)>
;CHANGECUSTOMITEMABIL211<$STR(S10)>
CHANGECUSTOMITEMVALUE20=22
CHANGECUSTOMITEMABIL2020
ChangeItemUpgradeCount2=6
SENDUPGRADEITEM
MESSAGEBOX\\装备重生成功，星级为：★★★★★★
SendMsg0{上古评鉴ぐ|151:0:1}：{%s|227:0:1}福星降临鉴定出{[六星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
break


#IF
checkitem打造石1
random50
#ACT
Take打造石1
MOVS10
MOVS11<$CURRTEMNAME>
GetRandomText..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txtS10
CHANGECUSTOMITEMTEXT2上古品鉴*5星
CHANGECUSTOMITEMTEXTCOLOR2250
CHANGECUSTOMITEMABIL20070
CHANGECUSTOMITEMABIL201<$STR(S10)>
;CHANGECUSTOMITEMABIL211<$STR(S10)>
CHANGECUSTOMITEMVALUE20=15
CHANGECUSTOMITEMABIL2020
ChangeItemUpgradeCount2=5
SENDUPGRADEITEM
MESSAGEBOX\\装备重生成功，星级为：★★★★★
SendMsg0{上古评鉴ぐ|151:0:1}：{%s|227:0:1}福星降临鉴定出{[五星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
break

#IF
checkitem打造石1
random15
#ACT
Take打造石1
MOVS10
MOVS11<$CURRTEMNAME>
GetRandomText..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txtS10
CHANGECUSTOMITEMTEXT2上古品鉴*4星
CHANGECUSTOMITEMTEXTCOLOR2250
CHANGECUSTOMITEMABIL20070
CHANGECUSTOMITEMABIL201<$STR(S10)>
;CHANGECUSTOMITEMABIL211<$STR(S10)>
CHANGECUSTOMITEMVALUE20=10
CHANGECUSTOMITEMABIL2020
ChangeItemUpgradeCount2=4
SENDUPGRADEITEM
MESSAGEBOX\\装备重生成功，星级为：★★★★
SendMsg0{上古评鉴ぐ|151:0:1}：{%s|227:0:1}福星降临鉴定出{[四星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
break

#IF
checkitem打造石1
random4
#ACT
Take打造石1
MOVS100
GetRandomText..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txtS10
CHANGECUSTOMITEMTEXT2上古品鉴*3星
CHANGECUSTOMITEMTEXTCOLOR2250
CHANGECUSTOMITEMABIL20070
CHANGECUSTOMITEMABIL201<$STR(S10)>
;CHANGECUSTOMITEMABIL211<$STR(S10)>
CHANGECUSTOMITEMVALUE20=7
CHANGECUSTOMITEMABIL2120
ChangeItemUpgradeCount2=3
SENDUPGRADEITEM
MESSAGEBOX\\装备重生成功，星级为：★★★
break

#IF
checkitem打造石1
random2
#ACT
Take打造石1
MOVS100
GetRandomText..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txtS10
CHANGECUSTOMITEMTEXT2上古品鉴*2星
CHANGECUSTOMITEMTEXTCOLOR2250
CHANGECUSTOMITEMABIL20070
CHANGECUSTOMITEMABIL201<$STR(S10)>
;CHANGECUSTOMITEMABIL211<$STR(S10)>
CHANGECUSTOMITEMVALUE20=5
CHANGECUSTOMITEMABIL2120
ChangeItemUpgradeCount2=2
SENDUPGRADEITEM
MESSAGEBOX\\装备重生成功，星级为：★★
break

#IF
checkitem打造石1
random1
#ACT
Take打造石1
MOVS100
GetRandomText..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txtS10
CHANGECUSTOMITEMTEXT2上古品鉴*1星
CHANGECUSTOMITEMTEXTCOLOR2250
CHANGECUSTOMITEMABIL20070
CHANGECUSTOMITEMABIL201<$STR(S10)>
;CHANGECUSTOMITEMABIL211<$STR(S10)>
CHANGECUSTOMITEMVALUE20=3
CHANGECUSTOMITEMABIL2020
ChangeItemUpgradeCount2=1
SENDUPGRADEITEM
MESSAGEBOX\\装备重生成功，星级为：★
break
#ELSEACT
MESSAGEBOX\\重生失败:原因如下\\　　　　1.您没有"打造石"一个\\　　　　2.请集齐以上材料在来找我吧！
break

[@武器改造]
#IF
NOTCHECKUSEITEM1
#ACT
MESSAGEBOX\\这地方带装备了么？
break

#IF
NOTCheckContainsTextListEx..\QuestDiary\数据文件\品鉴抽取\装备名称.txt<$WEAPON>
#ACT
MESSAGEBOX\\此物品禁止改造！
break


#IF
checkitem打造石1
random300
#ACT
Take打造石1
MOVS10
MOVS11<$CURRTEMNAME>
GetRandomText..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txtS10
CHANGECUSTOMITEMTEXT1上古品鉴*8星
CHANGECUSTOMITEMTEXTCOLOR1250
CHANGECUSTOMITEMABIL10070
CHANGECUSTOMITEMABIL101<$STR(S10)>
;CHANGECUSTOMITEMABIL111<$STR(S10)>
CHANGECUSTOMITEMVALUE10=48
CHANGECUSTOMITEMABIL1020
ChangeItemUpgradeCount1=8
SENDUPGRADEITEM
MESSAGEBOX\\装备重生成功，星级为：★★★★★★★★
SendMsg0{上古评鉴ぐ|151:0:1}：{%s|227:0:1}福星降临鉴定出{[八星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
break


#IF
checkitem打造石1
random200
#ACT
Take打造石1
MOVS10
MOVS11<$CURRTEMNAME>
GetRandomText..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txtS10
CHANGECUSTOMITEMTEXT1上古品鉴*7星
CHANGECUSTOMITEMTEXTCOLOR1250
CHANGECUSTOMITEMABIL10070
CHANGECUSTOMITEMABIL101<$STR(S10)>
;CHANGECUSTOMITEMABIL111<$STR(S10)>
CHANGECUSTOMITEMVALUE10=32
CHANGECUSTOMITEMABIL1020
ChangeItemUpgradeCount1=7
SENDUPGRADEITEM
MESSAGEBOX\\装备重生成功，星级为：★★★★★★★
SendMsg0{上古评鉴ぐ|151:0:1}：{%s|227:0:1}福星降临鉴定出{[七星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
break


#IF
checkitem打造石1
random100
#ACT
Take打造石1
MOVS10
MOVS11<$CURRTEMNAME>
GetRandomText..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txtS10
CHANGECUSTOMITEMTEXT1上古品鉴*6星
CHANGECUSTOMITEMTEXTCOLOR1250
CHANGECUSTOMITEMABIL10070
CHANGECUSTOMITEMABIL101<$STR(S10)>
;CHANGECUSTOMITEMABIL111<$STR(S10)>
CHANGECUSTOMITEMVALUE10=22
CHANGECUSTOMITEMABIL1020
ChangeItemUpgradeCount1=6
SENDUPGRADEITEM
MESSAGEBOX\\装备重生成功，星级为：★★★★★★
SendMsg0{上古评鉴ぐ|151:0:1}：{%s|227:0:1}福星降临鉴定出{[六星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
break


#IF
checkitem打造石1
random50
#ACT
Take打造石1
MOVS10
MOVS11<$CURRTEMNAME>
GetRandomText..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txtS10
CHANGECUSTOMITEMTEXT1上古品鉴*5星
CHANGECUSTOMITEMTEXTCOLOR1250
CHANGECUSTOMITEMABIL10070
CHANGECUSTOMITEMABIL101<$STR(S10)>
;CHANGECUSTOMITEMABIL111<$STR(S10)>
CHANGECUSTOMITEMVALUE10=15
CHANGECUSTOMITEMABIL1020
ChangeItemUpgradeCount1=5
SENDUPGRADEITEM
MESSAGEBOX\\装备重生成功，星级为：★★★★★
SendMsg0{上古评鉴ぐ|151:0:1}：{%s|227:0:1}福星降临鉴定出{[五星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
break

#IF
checkitem打造石1
random15
#ACT
Take打造石1
MOVS10
MOVS11<$CURRTEMNAME>
GetRandomText..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txtS10
CHANGECUSTOMITEMTEXT1上古品鉴*4星
CHANGECUSTOMITEMTEXTCOLOR1250
CHANGECUSTOMITEMABIL10070
CHANGECUSTOMITEMABIL101<$STR(S10)>
;CHANGECUSTOMITEMABIL111<$STR(S10)>
CHANGECUSTOMITEMVALUE10=10
CHANGECUSTOMITEMABIL1020
ChangeItemUpgradeCount1=4
SENDUPGRADEITEM
MESSAGEBOX\\装备重生成功，星级为：★★★★
SendMsg0{上古评鉴ぐ|151:0:1}：{%s|227:0:1}福星降临鉴定出{[四星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
break

#IF
checkitem打造石1
random4
#ACT
Take打造石1
MOVS100
GetRandomText..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txtS10
CHANGECUSTOMITEMTEXT1上古品鉴*3星
CHANGECUSTOMITEMTEXTCOLOR1250
CHANGECUSTOMITEMABIL10070
CHANGECUSTOMITEMABIL101<$STR(S10)>
;CHANGECUSTOMITEMABIL111<$STR(S10)>
CHANGECUSTOMITEMVALUE10=7
CHANGECUSTOMITEMABIL1120
ChangeItemUpgradeCount1=3
SENDUPGRADEITEM
MESSAGEBOX\\装备重生成功，星级为：★★★
break

#IF
checkitem打造石1
random2
#ACT
Take打造石1
MOVS100
GetRandomText..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txtS10
CHANGECUSTOMITEMTEXT1上古品鉴*2星
CHANGECUSTOMITEMTEXTCOLOR1250
CHANGECUSTOMITEMABIL10070
CHANGECUSTOMITEMABIL101<$STR(S10)>
;CHANGECUSTOMITEMABIL111<$STR(S10)>
CHANGECUSTOMITEMVALUE10=5
CHANGECUSTOMITEMABIL1120
ChangeItemUpgradeCount1=2
SENDUPGRADEITEM
MESSAGEBOX\\装备重生成功，星级为：★★
break

#IF
checkitem打造石1
random1
#ACT
Take打造石1
MOVS100
GetRandomText..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txtS10
CHANGECUSTOMITEMTEXT1上古品鉴*1星
CHANGECUSTOMITEMTEXTCOLOR1250
CHANGECUSTOMITEMABIL10070
CHANGECUSTOMITEMABIL101<$STR(S10)>
;CHANGECUSTOMITEMABIL111<$STR(S10)>
CHANGECUSTOMITEMVALUE10=3
CHANGECUSTOMITEMABIL1020
ChangeItemUpgradeCount1=1
SENDUPGRADEITEM
MESSAGEBOX\\装备重生成功，星级为：★
break
#ELSEACT
MESSAGEBOX\\重生失败:原因如下\\　　　　1.您没有"打造石"一个\\　　　　2.请集齐以上材料在来找我吧！
break

[@衣服改造]
#IF
NOTCHECKUSEITEM0
#ACT
MESSAGEBOX\\这地方带装备了么？
break

#IF
NOTCheckContainsTextListEx..\QuestDiary\数据文件\品鉴抽取\装备名称.txt<$DRESS>
#ACT
MESSAGEBOX\\此物品禁止改造！
break





#IF
checkitem打造石1
random300
#ACT
Take打造石1
MOVS10
MOVS11<$CURRTEMNAME>
GetRandomText..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txtS10
CHANGECUSTOMITEMTEXT0上古品鉴*8星
CHANGECUSTOMITEMTEXTCOLOR0250
CHANGECUSTOMITEMABIL00070
CHANGECUSTOMITEMABIL001<$STR(S10)>
;CHANGECUSTOMITEMABIL011<$STR(S10)>
CHANGECUSTOMITEMVALUE00=48
CHANGECUSTOMITEMABIL0020
ChangeItemUpgradeCount0=8
SENDUPGRADEITEM
MESSAGEBOX\\装备重生成功，星级为：★★★★★★★★
SendMsg0{上古评鉴ぐ|151:0:1}：{%s|227:0:1}福星降临鉴定出{[八星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
break


#IF
checkitem打造石1
random200
#ACT
Take打造石1
MOVS10
MOVS11<$CURRTEMNAME>
GetRandomText..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txtS10
CHANGECUSTOMITEMTEXT0上古品鉴*7星
CHANGECUSTOMITEMTEXTCOLOR0250
CHANGECUSTOMITEMABIL00070
CHANGECUSTOMITEMABIL001<$STR(S10)>
;CHANGECUSTOMITEMABIL011<$STR(S10)>
CHANGECUSTOMITEMVALUE00=32
CHANGECUSTOMITEMABIL0020
ChangeItemUpgradeCount0=7
SENDUPGRADEITEM
MESSAGEBOX\\装备重生成功，星级为：★★★★★★★
SendMsg0{上古评鉴ぐ|151:0:1}：{%s|227:0:1}福星降临鉴定出{[七星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
break


#IF
checkitem打造石1
random100
#ACT
Take打造石1
MOVS10
MOVS11<$CURRTEMNAME>
GetRandomText..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txtS10
CHANGECUSTOMITEMTEXT0上古品鉴*6星
CHANGECUSTOMITEMTEXTCOLOR0250
CHANGECUSTOMITEMABIL00070
CHANGECUSTOMITEMABIL001<$STR(S10)>
;CHANGECUSTOMITEMABIL011<$STR(S10)>
CHANGECUSTOMITEMVALUE00=22
CHANGECUSTOMITEMABIL0020
ChangeItemUpgradeCount0=6
SENDUPGRADEITEM
MESSAGEBOX\\装备重生成功，星级为：★★★★★★
SendMsg0{上古评鉴ぐ|151:0:1}：{%s|227:0:1}福星降临鉴定出{[六星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
break


#IF
checkitem打造石1
random50
#ACT
Take打造石1
MOVS10
MOVS11<$CURRTEMNAME>
GetRandomText..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txtS10
CHANGECUSTOMITEMTEXT0上古品鉴*5星
CHANGECUSTOMITEMTEXTCOLOR0250
CHANGECUSTOMITEMABIL00070
CHANGECUSTOMITEMABIL001<$STR(S10)>
;CHANGECUSTOMITEMABIL011<$STR(S10)>
CHANGECUSTOMITEMVALUE00=15
CHANGECUSTOMITEMABIL0020
ChangeItemUpgradeCount0=5
SENDUPGRADEITEM
MESSAGEBOX\\装备重生成功，星级为：★★★★★
SendMsg0{上古评鉴ぐ|151:0:1}：{%s|227:0:1}福星降临鉴定出{[五星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
break

#IF
checkitem打造石1
random15
#ACT
Take打造石1
MOVS10
MOVS11<$CURRTEMNAME>
GetRandomText..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txtS10
CHANGECUSTOMITEMTEXT0上古品鉴*4星
CHANGECUSTOMITEMTEXTCOLOR0250
CHANGECUSTOMITEMABIL00070
CHANGECUSTOMITEMABIL001<$STR(S10)>
;CHANGECUSTOMITEMABIL011<$STR(S10)>
CHANGECUSTOMITEMVALUE00=10
CHANGECUSTOMITEMABIL0020
ChangeItemUpgradeCount0=4
SENDUPGRADEITEM
MESSAGEBOX\\装备重生成功，星级为：★★★★
SendMsg0{上古评鉴ぐ|151:0:1}：{%s|227:0:1}福星降临鉴定出{[四星]|154:0:1}的{[<$STR(S11)>]|250:0:1}
break

#IF
checkitem打造石1
random4
#ACT
Take打造石1
MOVS100
GetRandomText..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txtS10
CHANGECUSTOMITEMTEXT0上古品鉴*3星
CHANGECUSTOMITEMTEXTCOLOR0250
CHANGECUSTOMITEMABIL00070
CHANGECUSTOMITEMABIL001<$STR(S10)>
;CHANGECUSTOMITEMABIL011<$STR(S10)>
CHANGECUSTOMITEMVALUE00=7
CHANGECUSTOMITEMABIL0120
ChangeItemUpgradeCount0=3
SENDUPGRADEITEM
MESSAGEBOX\\装备重生成功，星级为：★★★
break

#IF
checkitem打造石1
random2
#ACT
Take打造石1
MOVS100
GetRandomText..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txtS10
CHANGECUSTOMITEMTEXT0上古品鉴*2星
CHANGECUSTOMITEMTEXTCOLOR0250
CHANGECUSTOMITEMABIL00070
CHANGECUSTOMITEMABIL001<$STR(S10)>
;CHANGECUSTOMITEMABIL011<$STR(S10)>
CHANGECUSTOMITEMVALUE00=5
CHANGECUSTOMITEMABIL0120
ChangeItemUpgradeCount0=2
SENDUPGRADEITEM
MESSAGEBOX\\装备重生成功，星级为：★★
break

#IF
checkitem打造石1
random1
#ACT
Take打造石1
MOVS100
GetRandomText..\QuestDiary\数据文件\品鉴抽取\衣服一星位置抽取.txtS10
CHANGECUSTOMITEMTEXT0上古品鉴*1星
CHANGECUSTOMITEMTEXTCOLOR0250
CHANGECUSTOMITEMABIL00070
CHANGECUSTOMITEMABIL001<$STR(S10)>
;CHANGECUSTOMITEMABIL011<$STR(S10)>
CHANGECUSTOMITEMVALUE00=3
CHANGECUSTOMITEMABIL0020
ChangeItemUpgradeCount0=1
SENDUPGRADEITEM
MESSAGEBOX\\装备重生成功，星级为：★
break
#ELSEACT
MESSAGEBOX\\重生失败:原因如下\\　　　　1.您没有"打造石"一个\\　　　　2.请集齐以上材料在来找我吧！
break

传奇改造装备脚本，让你轻松打造满意神器！
在传奇中，装备的品质和等级决定了你在游戏中的实力和地位。但是，很多时候，你可能会遇到加星不满意的装备，这时候就需要用到传奇改造装备脚本了！
这个脚本可以让你的装备重新获得加星的机会，直到你满意为止。每次使用只需要一颗打造石，让你在游戏中轻松获得满意的神器！
想要使用这个脚本，首先你需要准备一颗打造石。在游戏中的一些任务、活动或者商店中都可以获得打造石。准备好打造石之后，打开传奇改造装备脚本，按照提示进行操作即可。
在改造装备的过程中，你需要注意一些细节。首先，改造装备需要一定的时间和精力，所以你需要耐心等待。其次，不同的装备需要的改造时间和精力也是不同的，所以你需要提前做好规划和准备。最后，改造装备有一定的风险，所以你需要谨慎操作，避免损失。
如果你对传奇改造装备脚本有更多的需求，还可以在脚本的官方网站上查看更多的教程和攻略。在这里，你可以学到更多的技巧和经验，让你在游戏中更加顺利地获得满意的神器！
总之，传奇改造装备脚本是一个非常实用的工具，可以让你的装备重新获得加星的机会。如果你想要在游戏中轻松获得满意的神器，那么不妨试试这个脚本吧！