GOM传奇版本鉴定重洗教程，可设置:武器，铠甲，手镯，戒指等

[@main]
#if
#Act
OPENMERCHANTBIGDLG 1 2648 1 4 -30 -100 1 455 30
#say
<Img:155:3:380:24/@exit>\
<ITEMBOX:1:113:203:190:160:50:50:5,10,11,15,19,21,22,23,24,26,64,63,62:武器，铠甲，手镯，戒指，腰带，靴子，头盔，项链可鉴定>
\

[@ItemOutBox1]
#IF
#ACT
goto @main
break

[@ItemIntoBox1]
#OR
EQUAL <$BOXITEM[1].STDMODE> 31
EQUAL <$BOXITEM[1].STDMODE> 2
EQUAL <$BOXITEM[1].STDMODE> 44
EQUAL <$BOXITEM[1].STDMODE> 41
#act
ReturnBoxItem 1
break


#IF
#ACT
GOTO @显示


[@显示]
#IF
#Act
OPENMERCHANTBIGDLG 1 2648 1 4 -30 -100 1 455 30
#say
<Img:155:3:380:24/@exit>\
<ITEMBOX:1:113:203:185:150:50:50:5,10,11,15,19,21,22,23,24,26,64,63,62:武器，铠甲，手镯，戒指，腰带，靴子，头盔，项链可鉴定><ImgEx:1:2585:2584:2585:120:230|^　^253#消耗100张装备强化卷重新鉴定一次该装备^　/@确定鉴定>  \  \ \



[@确定鉴定]

#IF
CHECKITEM 装备强化卷 100
#act
Take 装备强化卷 100
GetRandomText ..\QuestDiary\重要设置\鉴定品质.txt S10
#ELSEACT
MESSAGEBOX 错误:\你的装备强化卷不足100张,无法鉴定。\
BREAK

#IF
EQUAL <$STR(S10)> 普通
#ACT
MOV N$数值 1

#IF
EQUAL <$STR(S10)> 精良
#ACT
MOV N$数值 2

#IF
EQUAL <$STR(S10)> 优秀
#ACT
MOV N$数值 3


#IF
EQUAL <$STR(S10)> 完美
#ACT
MOV N$数值 4


#IF
EQUAL <$STR(S10)> 超越
#ACT
MOV N$数值 5


#IF
EQUAL <$STR(S10)> 史诗
#ACT
MOV N$数值 6

#IF
EQUAL <$STR(S10)> 永恒
#ACT
MOV N$数值 8


#IF
EQUAL <$STR(S10)> 金典
#ACT
MOV N$数值 10

#IF
#ACT
SetUpgradeItem 1
CHANGECUSTOMITEMVALUE -1 0 = <$STR(N$数值)>
CHANGECUSTOMITEMVALUE -1 1 = <$STR(N$数值)>
CHANGECUSTOMITEMVALUE -1 2 = <$STR(N$数值)>
CHANGECUSTOMITEMVALUE -1 3 = <$STR(N$数值)>
CHANGECUSTOMITEMVALUE -1 4 = <$STR(N$数值)>
CHANGECUSTOMITEMABIL -1 0 0 254
CHANGECUSTOMITEMABIL -1 1 0 254
CHANGECUSTOMITEMABIL -1 2 0 254
CHANGECUSTOMITEMABIL -1 3 0 254
CHANGECUSTOMITEMABIL -1 4 0 254
CHANGECUSTOMITEMABIL -1 0 1 1
CHANGECUSTOMITEMABIL -1 1 1 2
CHANGECUSTOMITEMABIL -1 2 1 3
CHANGECUSTOMITEMABIL -1 3 1 4
CHANGECUSTOMITEMABIL -1 4 1 5
CHANGECUSTOMITEMABIL -1 0 2 0
CHANGECUSTOMITEMABIL -1 1 2 1
CHANGECUSTOMITEMABIL -1 2 2 2
CHANGECUSTOMITEMABIL -1 3 2 3
CHANGECUSTOMITEMABIL -1 4 2 4
CHANGECUSTOMITEMABIL -1 0 3 1
CHANGECUSTOMITEMABIL -1 1 3 1
CHANGECUSTOMITEMABIL -1 2 3 1
CHANGECUSTOMITEMABIL -1 3 3 1
CHANGECUSTOMITEMABIL -1 4 3 1
UpDateBoxItem 1
MESSAGEBOX 鸿福齐天:\恭喜你鉴定出了<$STR(S10)>级装备!!!!。\


#IF
EQUAL <$STR(S10)> 金典
#ACT
ReturnBoxItem 1
MESSAGEBOX 鸿福齐天:\恭喜你鉴定出了金典级装备!!!!。\
BREAK

路过看看。