GOM引擎在装备下方鉴定极品装备脚本制作教程

[@main]
#ACT
;OPENMERCHANTBIGDLG 2 17 0 0 1 1 1 398 3
#SAY

\                         <装备重铸/SCOLOR=154> \   

\ <说明:/SCOLOR=249><装备鉴定[重铸],可以重铸处你喜欢的属性！/SCOLOR=145> \
\ <说明:/SCOLOR=249><装备品级都是随机重铸！等于重新鉴定装备！/SCOLOR=145> \  \  
\              <ITEMBOX:1:20:60:60:10:76:76:*:254#请放入重新鉴定装备>\ \ \ \  \  \ \  

\　                         <开始鉴定/@鉴定> 　        \      

\ <提示:/SCOLOR=249><每重铸一次需要：3个蜡烛/SCOLOR=154> \  \ \  \


[@鉴定]
#IF
checkItem 蜡烛 3
#ACT
GOTO @准备鉴定
#elseact
MESSAGEBOX 错误提示：请检查背包里[蜡烛]是否足够！
break


[@准备鉴定]
#IF
Equal <$BOXITEM[1].STDMODE> 5
#ACT
SetUpgradeItem 1
take 蜡烛 3
GOTO @武器鉴定
break

#OR
Equal <$BOXITEM[1].STDMODE> 10
Equal <$BOXITEM[1].STDMODE> 11
#ACT
SetUpgradeItem 1
take 蜡烛 3
GOTO @衣服鉴定
break

#IF
Equal <$BOXITEM[1].STDMODE> 19
#ACT
SetUpgradeItem 1
take 蜡烛 3
GOTO @项链鉴定
break

#OR
Equal <$BOXITEM[1].STDMODE> 24
Equal <$BOXITEM[1].STDMODE> 26
Equal <$BOXITEM[1].STDMODE> 22
Equal <$BOXITEM[1].STDMODE> 23
Equal <$BOXITEM[1].STDMODE> 62
Equal <$BOXITEM[1].STDMODE> 64
Equal <$BOXITEM[1].STDMODE> 15
#ACT
SetUpgradeItem 1
take 蜡烛 3
GOTO @首饰鉴定
break
#elseact
ReturnBoxItem 1
MESSAGEBOX 错误提示：当前物品不能鉴定\　\1、该物品服务器禁止鉴定。
break

[@首饰鉴定]
#ACT
movr D1 1 15

#IF
small D1 6
#ACT
CHANGECUSTOMITEMTEXTCOLOR -1 255
CHANGECUSTOMITEMTEXT -1 装备鉴定：凡品
SetNewItemValue -1 1 = 1
SetNewItemValue -1 4 = 1
UpDateBoxItem 1
ReturnBoxItem 1
break

#IF
large D1 5
small D1 11
#ACT
CHANGECUSTOMITEMTEXTCOLOR -1 218
CHANGECUSTOMITEMTEXT -1 装备鉴定：上品
SetNewItemValue -1 1 = 3
SetNewItemValue -1 4 = 3
UpDateBoxItem 1
ReturnBoxItem 1
break


#IF
large D1 9
small D1 14
#ACT
CHANGECUSTOMITEMTEXTCOLOR -1 253
CHANGECUSTOMITEMTEXT -1 装备鉴定：极品
SetNewItemValue -1 1 = 5
SetNewItemValue -1 4 = 5
UpDateBoxItem 1
ReturnBoxItem 1
break

#IF
large D1 13
small D1 16
#ACT
CHANGECUSTOMITEMTEXTCOLOR -1 70
CHANGECUSTOMITEMTEXT -1 装备鉴定：玩美
SetNewItemValue -1 1 = 8
SetNewItemValue -1 4 = 8
UpDateBoxItem 1
ReturnBoxItem 1
GuildNoticeMsg 250 253 玩家『%s』重新鉴定出一件极品金色品质装备！大幅提升！可喜可贺！
break



[@项链鉴定]
#ACT
movr D1 1 15

#IF
small D1 6
#ACT
CHANGECUSTOMITEMTEXTCOLOR -1 255
CHANGECUSTOMITEMTEXT -1 装备鉴定：凡品
SetNewItemValue -1 1 = 1
SetNewItemValue -1 7 = 1
UpDateBoxItem 1
ReturnBoxItem 1
break

#IF
large D1 5
small D1 11
#ACT
CHANGECUSTOMITEMTEXTCOLOR -1 218
CHANGECUSTOMITEMTEXT -1 装备鉴定：上品
SetNewItemValue -1 1 = 3
SetNewItemValue -1 7 = 3
UpDateBoxItem 1
ReturnBoxItem 1
break


#IF
large D1 9
small D1 14
#ACT
CHANGECUSTOMITEMTEXTCOLOR -1 253
CHANGECUSTOMITEMTEXT -1 装备鉴定：极品
SetNewItemValue -1 1 = 5
SetNewItemValue -1 7 = 5
UpDateBoxItem 1
ReturnBoxItem 1
break

#IF
large D1 13
small D1 16
#ACT
CHANGECUSTOMITEMTEXTCOLOR -1 70
CHANGECUSTOMITEMTEXT -1 装备鉴定：玩美
SetNewItemValue -1 1 = 8
SetNewItemValue -1 7 = 8
UpDateBoxItem 1
ReturnBoxItem 1
GuildNoticeMsg 250 253 玩家『%s』重新鉴定出一件极品金色品质装备！大幅提升！可喜可贺！
break





[@衣服鉴定]
#ACT
movr D1 1 15

#IF
small D1 6
#ACT
CHANGECUSTOMITEMTEXTCOLOR -1 255
CHANGECUSTOMITEMTEXT -1 装备鉴定：凡品
SetNewItemValue -1 2 = 3
SetNewItemValue -1 3 = 3
SetNewItemValue -1 7 = 3
UpDateBoxItem 1
ReturnBoxItem 1
break

#IF
large D1 5
small D1 10
#ACT
CHANGECUSTOMITEMTEXTCOLOR -1 218
CHANGECUSTOMITEMTEXT -1 装备鉴定：上品
SetNewItemValue -1 2 = 5
SetNewItemValue -1 3 = 5
SetNewItemValue -1 7 = 5
UpDateBoxItem 1
ReturnBoxItem 1
break


#IF
large D1 9
small D1 13
#ACT
CHANGECUSTOMITEMTEXTCOLOR -1 253
CHANGECUSTOMITEMTEXT -1 装备鉴定：极品
SetNewItemValue -1 2 = 7
SetNewItemValue -1 3 = 7
SetNewItemValue -1 7 = 7
UpDateBoxItem 1
ReturnBoxItem 1
break

#IF
large D1 12
small D1 15
#ACT
CHANGECUSTOMITEMTEXTCOLOR -1 70
CHANGECUSTOMITEMTEXT -1 装备鉴定：玩美
SetNewItemValue -1 2 = 8
SetNewItemValue -1 3 = 10
SetNewItemValue -1 7 = 10
UpDateBoxItem 1
ReturnBoxItem 1
GuildNoticeMsg 250 253 玩家『%s』重新鉴定出一件极品金色品质装备！大幅提升！可喜可贺！
break

#IF
EQUAL D1 15
#ACT
CHANGECUSTOMITEMTEXTCOLOR -1 70
CHANGECUSTOMITEMTEXT -1 装备鉴定：玩美
SetNewItemValue -1 2 = 10
SetNewItemValue -1 3 = 10
SetNewItemValue -1 7 = 10
UpDateBoxItem 1
ReturnBoxItem 1
GuildNoticeMsg 250 253 玩家『%s』重新鉴定出一件极品金色品质装备！大幅提升！可喜可贺！
break


[@武器鉴定]
#ACT
movr D1 1 15


#IF
small D1 6
#ACT
CHANGECUSTOMITEMTEXTCOLOR -1 255
CHANGECUSTOMITEMTEXT -1 装备鉴定：凡品
SetNewItemValue -1 0 = 3
SetNewItemValue -1 1 = 3
SetNewItemValue -1 4 = 3
UpDateBoxItem 1
ReturnBoxItem 1
break

#IF
large D1 5
small D1 10
#ACT
CHANGECUSTOMITEMTEXTCOLOR -1 218
CHANGECUSTOMITEMTEXT -1 装备鉴定：上品
SetNewItemValue -1 0 = 5
SetNewItemValue -1 1 = 5
SetNewItemValue -1 4 = 5
UpDateBoxItem 1
ReturnBoxItem 1
break


#IF
large D1 9
small D1 13
#ACT
CHANGECUSTOMITEMTEXTCOLOR -1 253
CHANGECUSTOMITEMTEXT -1 装备鉴定：极品
SetNewItemValue -1 0 = 7
SetNewItemValue -1 1 = 7
SetNewItemValue -1 4 = 7
UpDateBoxItem 1
ReturnBoxItem 1
break

#IF
large D1 12
small D1 15
#ACT
CHANGECUSTOMITEMTEXTCOLOR -1 70
CHANGECUSTOMITEMTEXT -1 装备鉴定：玩美
SetNewItemValue -1 0 = 8
SetNewItemValue -1 1 = 10
SetNewItemValue -1 4 = 10
UpDateBoxItem 1
ReturnBoxItem 1
GuildNoticeMsg 250 253 玩家『%s』重新鉴定出一件极品金色品质装备！大幅提升！可喜可贺！
break

#IF
EQUAL D1 15
#ACT
CHANGECUSTOMITEMTEXTCOLOR -1 70
CHANGECUSTOMITEMTEXT -1 装备鉴定：玩美
SetNewItemValue -1 0 = 10
SetNewItemValue -1 1 = 10
SetNewItemValue -1 4 = 10
UpDateBoxItem 1
ReturnBoxItem 1
GuildNoticeMsg 250 253 玩家『%s』重新鉴定出一件极品金色品质装备！大幅提升！可喜可贺！
break

版权声明

1、本站所有内容均由互联网收集整理、网友上传，仅供大家参考、学习研究使用，不存在任何商业目的与商业用途。

2、论坛的所有内容都不保证其准确性，完整性，有效性，因本站内容因误导等因素而造成的损失本站不承担连带责任。

3、本站以《2013 中华人民共和国计算机软件保护条例》第二章 “软件著作权” 第十七条为原则：为了学习和研究软件内含的设计思想和原理，通过安装、显示、传输或者存储软件等方式使用软件的，可以不经软件著作权人许可，若有用户需要商用本站资源，请务必联系版权方购买正版授权！

谢谢.脚本收到.很好用

传奇论坛里面相对来说比较好的一个！

下次在来看脚本

很专业的很全面的gm论坛

谢谢楼主！

下次在来看脚本