您现在的位置:首页 >> 国内传奇私服 >> 内容

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

时间:2018-7-31 14:05:42 点击:

  核心提示:[@main]#IF#ActMOV S$衣服名称 $DRESSMOV S$武器名称 $WEAPONMOV S$头盔名称 $HELMETMOV S$项链名称 $NECKLACEMOV S$左手名称 $A...

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

作者:http://chinahbhq.com 来源:http://chinahbhq.com
相关_传奇私服评论
发表我的_传奇私服评论
  • 大名:
  • 内容:
  • 今日新开传奇首区|新开传奇sf|东北网通传奇网站(chinahbhq.com) © 2018 版权所有 All Rights Reserved.
  • 移ICP备10086号