传奇脚本改造装备-3脚本命令装备加星不满意可以

　　 [@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}：{%s227: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}：{%s227: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}：{%s227: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}：{%s227: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}：{%s227: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}：{%s227: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}：{%s227: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}：{%s227: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}：{%s227: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}：{%s227: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}：{%s227: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}：{%s227: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}：{%s227: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}：{%s227: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}：{%s227: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}：{%s227: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}：{%s227: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}：{%s227: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}：{%s227: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}：{%s227: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}：{%s227: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}：{%s227: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}：{%s227: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}：{%s227: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 \\装备重生成。