传奇服务端装备重鉴脚本-让你轻松拥有完美装备！

[@main]
#IF
CHECKLEVELEX>0
#ACT
#CALL[鉴定加星鉴定使者.txt]@装备重鉴
Break

完整脚本下载
[@装备重鉴]
{
#IF
CHECKLEVELEX>0
#ACT
OPENMERCHANTBIGDLG93181011143012
#SAY


　　<本服装备自带星位，装备层次越好星位越多，极品鉴定属性也就越强！/SCOLOR=254>
　　<七个星位的装备可以鉴定满七星，八个星位装备可以八星，可以十三星！/SCOLOR=253>

　　<如果您对装备极品属性不满意那就重新鉴定吧！→→/SCOLOR=250>
　　<请把需要重新鉴定放入右边的鉴定框内　→　→→→/SCOLOR=249>

<ITEMBOX:6:0:47:370:-33:30:30:*:请放入要重新洗炼的装备>
　　<装备重鉴需要10000元宝/SCOLOR=255>　　　　　　　　　　　　　　　<【/SCOLOR=249><前往重新洗炼/@开始重新洗炼><】/SCOLOR=249>
#ACT
BREAK


[@ItemIntoBox6]
#IF
CHECKLEVELEX>0
#ACT
SetUpgradeItem6
GETITEMADDVALUE-111<$STR(N$加星数量)>

#OR
CHECKCUSTOMITEMVALUE-10>0
CHECKCUSTOMITEMVALUE-11>0
CHECKCUSTOMITEMVALUE-12>0
CHECKCUSTOMITEMVALUE-13>0
CHECKCUSTOMITEMVALUE-14>0
CHECKCUSTOMITEMVALUE-15>0
CHECKCUSTOMITEMVALUE-16>0
CHECKCUSTOMITEMVALUE-17>0
CHECKCUSTOMITEMVALUE-18>0
CHECKCUSTOMITEMVALUE-19>0
#ELSEACT
MESSAGEBOX提　示：你的装备【<$BOXITEM[6].NAME>】还未鉴定不能重新鉴定！
UpDateBoxItem6
ReturnBoxItem6
BREAK

#OR
CheckTextlist..QuestDiary鉴定加星装备分级
级装备.txt<$BOXITEM[6].NAME>
CheckTextlist..QuestDiary鉴定加星装备分级级装备.txt<$BOXITEM[6].NAME>
CheckTextlist..QuestDiary鉴定加星装备分级级装备.txt<$BOXITEM[6].NAME>
CheckTextlist..QuestDiary鉴定加星装备分级级装备.txt<$BOXITEM[6].NAME>
CheckTextlist..QuestDiary鉴定加星装备分级级装备.txt<$BOXITEM[6].NAME>
CheckTextlist..QuestDiary鉴定加星装备分级级装备.txt<$BOXITEM[6].NAME>
CheckTextlist..QuestDiary鉴定加星装备分级级装备.txt<$BOXITEM[6].NAME>
CheckTextlist..QuestDiary鉴定加星装备分级8级装备.txt<$BOXITEM[6].NAME>
CheckTextlist..QuestDiary鉴定加星装备分级9级装备.txt<$BOXITEM[6].NAME>
CheckTextlist..QuestDiary鉴定加星装备分级级装备.txt<$BOXITEM[6].NAME>
CheckTextlist..QuestDiary鉴定加星装备分级级装备.txt<$BOXITEM[6].NAME>
#ELSEACT
MESSAGEBOX提　示：你的装备【<$BOXITEM[6].NAME>】无法鉴定！
UpDateBoxItem6
ReturnBoxItem6
BREAK

;#IF
;EQUALN$加星数量13
;#ACT
;MESSAGEBOX提　示：你的装备【<$BOXITEM[6].NAME>】已达到13星，无需重新鉴定！
;UpDateBoxItem6
;ReturnBoxItem6
;BREAK

;-----------------------------------------------------------------------------

[@开始重新洗炼]
#IF
EQUALP101
#ACT
SENDMSG5〖提示〗操作太过频繁....
Break

#IF
CHECKLEVELEX>0
#ACT
SetUpgradeItem6
GETITEMADDVALUE-111<$STR(N$加星数量)>

#IF
NotCheckBoxItemCount6
#ACT
MESSAGEBOX提　示：请将需要重鉴的装备放入框中！
Break

;#IF
;EQUALN$加星数量13
;#ACT
;MESSAGEBOX提　示：你的装备【<$BOXITEM[6].NAME>】已达到13星，无需重新鉴定！
;UpDateBoxItem6
;ReturnBoxItem6
;BREAK

#OR
CheckTextlist..QuestDiary鉴定加星装备分级
级装备.txt<$BOXITEM[6].NAME>
CheckTextlist..QuestDiary鉴定加星装备分级级装备.txt<$BOXITEM[6].NAME>
CheckTextlist..QuestDiary鉴定加星装备分级级装备.txt<$BOXITEM[6].NAME>
CheckTextlist..QuestDiary鉴定加星装备分级级装备.txt<$BOXITEM[6].NAME>
CheckTextlist..QuestDiary鉴定加星装备分级级装备.txt<$BOXITEM[6].NAME>
CheckTextlist..QuestDiary鉴定加星装备分级级装备.txt<$BOXITEM[6].NAME>
CheckTextlist..QuestDiary鉴定加星装备分级级装备.txt<$BOXITEM[6].NAME>
CheckTextlist..QuestDiary鉴定加星装备分级8级装备.txt<$BOXITEM[6].NAME>
CheckTextlist..QuestDiary鉴定加星装备分级9级装备.txt<$BOXITEM[6].NAME>
CheckTextlist..QuestDiary鉴定加星装备分级级装备.txt<$BOXITEM[6].NAME>
CheckTextlist..QuestDiary鉴定加星装备分级级装备.txt<$BOXITEM[6].NAME>
#ELSEACT
MESSAGEBOX提　示：你的装备【<$BOXITEM[6].NAME>】无法鉴定！
ReturnBoxItem6
BREAK

#IF
CHECKGAMEGOLD<10000
#ACT
MESSAGEBOX提　示：你的元宝不足[10000颗]无法重鉴！
Break

#IF
CHECKGAMEGOLD>9999
#ACT
GameGold-10000
SetUpgradeItem6
CHANGEITEMUPGRADECOUNT-1=0
CHANGECUSTOMITEMTEXT-1[鉴定属性]：
CHANGECUSTOMITEMTEXTColor-1146

CHANGECUSTOMITEMABIL-1100
CHANGECUSTOMITEMABIL-1200
CHANGECUSTOMITEMABIL-1300
CHANGECUSTOMITEMABIL-1400
CHANGECUSTOMITEMABIL-1500
CHANGECUSTOMITEMABIL-1600
CHANGECUSTOMITEMABIL-1700

CHANGECUSTOMITEMABIL-1113
CHANGECUSTOMITEMABIL-1214
CHANGECUSTOMITEMABIL-1315
CHANGECUSTOMITEMABIL-1416
CHANGECUSTOMITEMABIL-1517
CHANGECUSTOMITEMABIL-1618
CHANGECUSTOMITEMABIL-1719

CHANGECUSTOMITEMABIL-1121
CHANGECUSTOMITEMABIL-1222
CHANGECUSTOMITEMABIL-1323
CHANGECUSTOMITEMABIL-1424
CHANGECUSTOMITEMABIL-1525
CHANGECUSTOMITEMABIL-1626
CHANGECUSTOMITEMABIL-1727

CHANGECUSTOMITEMABIL-1131
CHANGECUSTOMITEMABIL-1231
CHANGECUSTOMITEMABIL-1331
CHANGECUSTOMITEMABIL-1431
CHANGECUSTOMITEMABIL-1531
CHANGECUSTOMITEMABIL-1630
CHANGECUSTOMITEMABIL-1730

CHANGECUSTOMITEMVALUE-11=0
CHANGECUSTOMITEMVALUE-12=0
CHANGECUSTOMITEMVALUE-13=0
CHANGECUSTOMITEMVALUE-14=0
CHANGECUSTOMITEMVALUE-15=0
CHANGECUSTOMITEMVALUE-16=0
CHANGECUSTOMITEMVALUE-17=0

CHANGEITEMADDVALUE-10=0
CHANGEITEMADDVALUE-11=0
CHANGEITEMADDVALUE-12=0
CHANGEITEMADDVALUE-13=0
CHANGEITEMADDVALUE-14=0
CHANGEITEMADDVALUE-111=0

MOVS$鉴定位置-1
MOVS$当前鉴定名称<$BOXITEM[6].NAME>
#CALL[鉴定加星鉴定几率.txt]@几率设置

#OR
CompareText<$BOXITEM[6].STDMODE>15
CompareText<$BOXITEM[6].STDMODE>16
CompareText<$BOXITEM[6].STDMODE>19
CompareText<$BOXITEM[6].STDMODE>22
CompareText<$BOXITEM[6].STDMODE>24
CompareText<$BOXITEM[6].STDMODE>26
CompareText<$BOXITEM[6].STDMODE>28
CompareText<$BOXITEM[6].STDMODE>30
CompareText<$BOXITEM[6].STDMODE>51
CompareText<$BOXITEM[6].STDMODE>62
CompareText<$BOXITEM[6].STDMODE>63
CompareText<$BOXITEM[6].STDMODE>64
CompareText<$BOXITEM[6].STDMODE>65
CompareText<$BOXITEM[6].STDMODE>48
#ACT
MOVS$弹窗提示开启
#CALL[鉴定加星鉴定分类首饰鉴定.txt]@首饰鉴定
UpDateBoxItem6
Break

#OR
CompareText<$BOXITEM[6].STDMODE>10
CompareText<$BOXITEM[6].STDMODE>11
CompareText<$BOXITEM[6].STDMODE>66
CompareText<$BOXITEM[6].STDMODE>67
#ACT
MOVS$弹窗提示开启
#CALL[鉴定加星鉴定分类衣服鉴定.txt]@衣服鉴定
UpDateBoxItem6
Break

#IF
CompareText<$BOXITEM[6].STDMODE>5
#ACT
MOVS$弹窗提示开启
#CALL[鉴定加星鉴定分类武器鉴定.txt]@武器鉴定
UpDateBoxItem6
Break
}