传奇服务端装备鉴定品质一条龙脚本

22pk论坛

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