[@MAIN]
<┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈/SCOLOR=13>\
<如果您的装备是/SCOLOR=253><「传奇」品质/SCOLOR=251><，那么我可以帮您进化为 /SCOLOR=253><「珍贵」品质/SCOLOR=241><装备。 /SCOLOR=253>\
{暴击1%-3%，伤害1%-3%，体力1%-3%元素！/SCOLOR=239}\
{随机2%-4%攻魔道，5000-10000生命值，300-500打怪掉血，100-200真实伤害！/SCOLOR=239}\
<　进化只需一个暴风令牌,20000血以上怪可爆出…/SCOLOR=254>\
<　　　〓〓请把您需要进化的装备穿戴在身上〓〓>\
<【注意：先为您的极品装备免费附加过元素后再来进化哦！】>\
<进化头盔/@XLZB1> <进化衣服/@XLZB2>  <进化项链/@XLZB3>  <进化勋章/@XLZB4>  \
<进化左手/@XLZB5> <进化右手/@XLZB6>  <进化左戒/@XLZB7>  <进化右戒/@XLZB8>\
<进化腰带/@XLZB9> <进化靴子/@XLZB10>  <进化宝石/@XLZB11>　　<离开/@exit>\

[@XLZB1]
#IF
#ACT
MOV s$编号 4
MOV S$类型 头盔
MOV S$装备 <$HELMET>
GOTO @升级
BREAK

[@XLZB2]
#IF
#ACT
MOV s$编号 0
MOV S$类型 衣服
MOV S$装备 <$DRESS>
GOTO @升级
BREAK

[@XLZB3]
#IF
#ACT
MOV s$编号 3
MOV S$类型 项链
MOV S$装备 <$NECKLACE>
GOTO @升级
BREAK

[@XLZB4]
#IF
#ACT
MOV s$编号 2
MOV S$类型 勋章
MOV S$装备 <$RIGHTHAND>
GOTO @升级
BREAK



[@XLZB5]
#IF
#ACT
MOV s$编号 6
MOV S$类型 手镯
MOV S$装备 <$ARMRING_R>
GOTO @升级
BREAK

[@XLZB6]
#IF
#ACT
MOV s$编号 5
MOV S$类型 手镯
MOV S$装备 <$ARMRING_L>
GOTO @升级
BREAK



[@XLZB7]
#IF
#ACT
MOV s$编号 8
MOV S$类型 戒指
MOV S$装备 <$RING_R>
GOTO @升级
BREAK

[@XLZB8]
#IF
#ACT
MOV s$编号 7
MOV S$类型 戒指
MOV S$装备 <$RING_L>
GOTO @升级
BREAK

[@XLZB9]
#IF
#ACT
MOV s$编号 10
MOV S$类型 腰带
MOV S$装备 <$BELT>
GOTO @升级
BREAK

[@XLZB10]
#IF
#ACT
MOV s$编号 11
MOV S$类型 靴子
MOV S$装备 <$BOOTS>
GOTO @升级
BREAK

[@XLZB11]
#IF
#ACT
MOV s$编号 12
MOV S$类型 宝石
MOV S$装备 <$CHARM>
GOTO @升级
BREAK



[@升级]
#IF
CheckItemNameColor <$STR(s$编号)> 251
checkitem 暴风令牌 1
#ELSEact
SENDMSG 5  失败：你的<$STR(S$类型)>不是「传奇」品质,或者你没有暴风令牌！
break

#IF
CheckItemNameColor <$STR(s$编号)> 251
checkitem 暴风令牌 1
#act
TAKE 暴风令牌 1
MOVR P0 100

#IF
large P0 20
#ACT
SENDMSG 5 失败：你的装备进化失败！
BREAK

#IF
large P0 20
#ACT
SENDMSG 5 失败：你的装备进化失败！
BREAK


#IF
#ACT
MOVR P1 1 2
MOVR P2 1 2
MOVR P3 1 3
SetNewItemValue <$STR(s$编号)> 0 + <$STR(P1)>
SetNewItemValue <$STR(s$编号)> 1 + <$STR(P2)>
SetNewItemValue <$STR(s$编号)> 7 + <$STR(P3)>
GOTO @珍贵级别鉴定
SENDMSG 0 249 151 恭喜玩家【<$username>】成功将「传奇」品质的装备升级为「珍贵」品质.
BREAK




[@珍贵级别鉴定]
#ACT
#CALL [\大少鉴定\穿戴鉴定系统\【常量设置】.INI] @常量设置
ChangeItemName <$STR(s$编号)> <$STR(S$装备)>　ZBJD$档次4名称
ChangeItemNameColor <$STR(s$编号)> ZBJD$档次4颜色代码
MOV S$jddcmc ZBJD$档次4名称
MOV S$jddcys ZBJD$档次4颜色代码
MOV N$属性1最小值 ZBJD$档次4属性1最小值
MOV N$属性1最大值 ZBJD$档次4属性1最大值
MOV N$属性2最小值 ZBJD$档次4属性2最小值
MOV N$属性2最大值 ZBJD$档次4属性2最大值
MOV N$属性3最小值 ZBJD$档次4属性3最小值
MOV N$属性3最大值 ZBJD$档次4属性3最大值
MOV N$属性4最小值 ZBJD$档次4属性4最小值
MOV N$属性4最大值 ZBJD$档次4属性4最大值
MOV N$属性5最小值 ZBJD$档次4属性5最小值
MOV N$属性5最大值 ZBJD$档次4属性5最大值
MOV N$属性6最小值 ZBJD$档次4属性6最小值
MOV N$属性6最大值 ZBJD$档次4属性6最大值
GOTO @属性鉴定赋值
BREAK
[@属性鉴定赋值]
#IF
LARGE N$属性1最大值 0
#ACT
INC N$属性1最大值 1
MOVR N$属性赋值 <$STR(N$属性1最小值)> <$STR(N$属性1最大值)>
CHANGECUSTOMITEMABIL <$STR(s$编号)> 0 0 ZBJD$属性1颜色
CHANGECUSTOMITEMABIL <$STR(s$编号)> 0 1 ZBJD$属性1位置
CHANGECUSTOMITEMABIL <$STR(s$编号)> 0 2 1
CHANGECUSTOMITEMABIL <$STR(s$编号)> 0 3 1
CHANGECUSTOMITEMVALUE <$STR(s$编号)> 0 = <$STR(N$属性赋值)>
#IF
LARGE N$属性2最大值 0
#ACT
INC N$属性2最大值 1
MOVR N$属性赋值 <$STR(N$属性2最小值)> <$STR(N$属性2最大值)>
CHANGECUSTOMITEMABIL <$STR(s$编号)> 1 0 ZBJD$属性2颜色
CHANGECUSTOMITEMABIL <$STR(s$编号)> 1 1 ZBJD$属性2位置
CHANGECUSTOMITEMABIL <$STR(s$编号)> 1 2 2
CHANGECUSTOMITEMABIL <$STR(s$编号)> 1 3 1
CHANGECUSTOMITEMVALUE <$STR(s$编号)> 1 = <$STR(N$属性赋值)>
#IF
LARGE N$属性3最大值 0
#ACT
INC N$属性3最大值 1
MOVR N$属性赋值 <$STR(N$属性3最小值)> <$STR(N$属性3最大值)>
CHANGECUSTOMITEMABIL <$STR(s$编号)> 2 0 ZBJD$属性3颜色
CHANGECUSTOMITEMABIL <$STR(s$编号)> 2 1 ZBJD$属性3位置
CHANGECUSTOMITEMABIL <$STR(s$编号)> 2 2 3
CHANGECUSTOMITEMABIL <$STR(s$编号)> 2 3 1
CHANGECUSTOMITEMVALUE <$STR(s$编号)> 2 = <$STR(N$属性赋值)>
#IF
LARGE N$属性4最大值 0
#ACT
INC N$属性4最大值 1
MOVR N$属性赋值 <$STR(N$属性4最小值)> <$STR(N$属性4最大值)>
CHANGECUSTOMITEMABIL <$STR(s$编号)> 3 0 ZBJD$属性4颜色
CHANGECUSTOMITEMABIL <$STR(s$编号)> 3 1 ZBJD$属性4位置
CHANGECUSTOMITEMABIL <$STR(s$编号)> 3 2 4
CHANGECUSTOMITEMVALUE <$STR(s$编号)> 3 = <$STR(N$属性赋值)>
#IF
LARGE N$属性5最大值 0
#ACT
INC N$属性5最大值 1
MOVR N$属性赋值 <$STR(N$属性5最小值)> <$STR(N$属性5最大值)>
CHANGECUSTOMITEMABIL <$STR(s$编号)> 4 0 ZBJD$属性5颜色
CHANGECUSTOMITEMABIL <$STR(s$编号)> 4 1 ZBJD$属性5位置
CHANGECUSTOMITEMABIL <$STR(s$编号)> 4 2 5
CHANGECUSTOMITEMABIL <$STR(s$编号)> 4 3 0
CHANGECUSTOMITEMVALUE <$STR(s$编号)> 4 = <$STR(N$属性赋值)>
#IF
LARGE N$属性6最大值 0
#ACT
INC N$属性6最大值 1
MOVR N$属性赋值 <$STR(N$属性6最小值)> <$STR(N$属性6最大值)>
CHANGECUSTOMITEMABIL <$STR(s$编号)> 5 0 ZBJD$属性6颜色
CHANGECUSTOMITEMABIL <$STR(s$编号)> 5 1 ZBJD$属性6位置
CHANGECUSTOMITEMABIL <$STR(s$编号)> 5 2 6
CHANGECUSTOMITEMVALUE <$STR(s$编号)> 5 = <$STR(N$属性赋值)>
#if
CHECKLEVELEX > 0
#ACT
CHANGECUSTOMITEMTEXT  <$STR(s$编号)> [<$STR(S$jddcmc)>鉴定属性]
CHANGECUSTOMITEMTEXTCOLOR  <$STR(s$编号)> <$STR(S$jddcys)>

