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

admin

[@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

消灭0回复,我要抢沙发!…~~~~~~介是神马？！！介是神马？！！沙发？？？这个教程不错！！！！回帖是种美德. 这个教程不错！！！！楼猪V5啊LZ是天才，坚定完毕