开区脚本传奇服务端装备重鉴脚本命令
开区脚本传奇服务端装备重鉴脚本命令
作者：传奇之家类别：开区脚本
更新：2022-09-28查看次数：191
[@main]
#IF
CHECKLEVELEX > 0
#ACT
#CALL [鉴定加星鉴定使者.txt] @装备重鉴
Break
 |
完整脚本下载 |
[@装备重鉴]
{
#IF
CHECKLEVELEX > 0
#ACT
OPENMERCHANTBIGDLG 9 318 1 0 1 1 1 430 12
#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
SetUpgradeItem 6
GETITEMADDVALUE -1 11 <$STR(N$加星数量)>
#OR
CHECKCUSTOMITEMVALUE -1 0 > 0
CHECKCUSTOMITEMVALUE -1 1 > 0
CHECKCUSTOMITEMVALUE -1 2 > 0
CHECKCUSTOMITEMVALUE -1 3 > 0
CHECKCUSTOMITEMVALUE -1 4 > 0
CHECKCUSTOMITEMVALUE -1 5 > 0
CHECKCUSTOMITEMVALUE -1 6 > 0
CHECKCUSTOMITEMVALUE -1 7 > 0
CHECKCUSTOMITEMVALUE -1 8 > 0
CHECKCUSTOMITEMVALUE -1 9 > 0
#ELSEACT
MESSAGEBOX 提示：你的装备【<$BOXITEM[6].NAME>】还未鉴定,不能重新鉴定1神器微变天！
UpDateBoxItem 6
ReturnBoxItem 6
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>】无法鉴定超级武器三职。！
UpDateBoxItem 6
ReturnBoxItem 6
BREAK
;#IF
;EQUAL N$加星数量 13
;#ACT
;MESSAGEBOX 提示：你的装备【<$BOXITEM[6].NAME>】已达到13星，无需重新鉴定！
;UpDateBoxItem 6
;ReturnBoxItem 6
;BREAK
;-----------------------------------------------------------------------------
[@开始重新洗炼]
#IF
EQUAL P10 1
#ACT
SENDMSG 5 〖提示〗操作太过频繁....
Break
#IF
CHECKLEVELEX > 0
#ACT
SetUpgradeItem 6
GETITEMADDVALUE -1 11 <$STR(N$加星数量)>
#IF
Not CheckBoxItemCount 6
#ACT
MESSAGEBOX 提示：请将需要重鉴的装备放入框中！
Break
;#IF
;EQUAL N$加星数量 13
;#ACT
;MESSAGEBOX 提示：你的装备【<$BOXITEM[6].NAME>】已达到13星，无需重新鉴定！
;UpDateBoxItem 6
;ReturnBoxItem 6
;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>】无法鉴定！
ReturnBoxItem 6
BREAK
#IF
CHECKGAMEGOLD < 10000
#ACT
MESSAGEBOX 提示：你的元宝不足[10000颗]无法重鉴！
Break
#IF
CHECKGAMEGOLD > 9999
#ACT
GameGold - 10000
SetUpgradeItem 6
CHANGEITEMUPGRADECOUNT -1 = 0
CHANGECUSTOMITEMTEXT -1 [鉴定属性]：
CHANGECUSTOMITEMTEXTColor -1 146
CHANGECUSTOMITEMABIL -1 1 0 0
CHANGECUSTOMITEMABIL -1 2 0 0
CHANGECUSTOMITEMABIL -1 3 0 0
CHANGECUSTOMITEMABIL -1 4 0 0
CHANGECUSTOMITEMABIL -1 5 0 0
CHANGECUSTOMITEMABIL -1 6 0 0
CHANGECUSTOMITEMABIL -1 7 0 0
CHANGECUSTOMITEMABIL -1 1 1 3
CHANGECUSTOMITEMABIL -1 2 1 4
CHANGECUSTOMITEMABIL -1 3 1 5
CHANGECUSTOMITEMABIL -1 4 1 6
CHANGECUSTOMITEMABIL -1 5 1 7
CHANGECUSTOMITEMABIL -1 6 1 8
CHANGECUSTOMITEMABIL -1 7 1 9
CHANGECUSTOMITEMABIL -1 1 2 1
CHANGECUSTOMITEMABIL -1 2 2 2
CHANGECUSTOMITEMABIL -1 3 2 3
CHANGECUSTOMITEMABIL -1 4 2 4
CHANGECUSTOMITEMABIL -1 5 2 5
CHANGECUSTOMITEMABIL -1 6 2 6
CHANGECUSTOMITEMABIL -1 7 2 7
CHANGECUSTOMITEMABIL -1 1 3 1
CHANGECUSTOMITEMABIL -1 2 3 1
CHANGECUSTOMITEMABIL -1 3 3 1
CHANGECUSTOMITEMABIL -1 4 3 1
CHANGECUSTOMITEMABIL -1 5 3 1
CHANGECUSTOMITEMABIL -1 6 3 0
CHANGECUSTOMITEMABIL -1 7 3 0
CHANGECUSTOMITEMVALUE -1 1 = 0
CHANGECUSTOMITEMVALUE -1 2 = 0
CHANGECUSTOMITEMVALUE -1 3 = 0
CHANGECUSTOMITEMVALUE -1 4 = 0
CHANGECUSTOMITEMVALUE -1 5 = 0
CHANGECUSTOMITEMVALUE -1 6 = 0
CHANGECUSTOMITEMVALUE -1 7 = 0
CHANGEITEMADDVALUE -1 0 = 0
CHANGEITEMADDVALUE -1 1 = 0
CHANGEITEMADDVALUE -1 2 = 0
CHANGEITEMADDVALUE -1 3 = 0
CHANGEITEMADDVALUE -1 4 = 0
CHANGEITEMADDVALUE -1 11 = 0
MOV S$鉴定位置 -1
MOV S$当前鉴定名称 <$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
MOV S$弹窗提示 开启
#CALL [鉴定加星鉴定分类首饰鉴定.txt] @首饰鉴定
UpDateBoxItem 6
Break
#OR
CompareText <$BOXITEM[6].STDMODE> 10
CompareText <$BOXITEM[6].STDMODE> 11
CompareText <$BOXITEM[6].STDMODE> 66
CompareText <$BOXITEM[6].STDMODE> 67
#ACT
MOV S$弹窗提示 开启
#CALL [鉴定加星鉴定分类衣服鉴定.txt] @衣服鉴定
UpDateBoxItem 6
Break
#IF
CompareText <$BOXITEM[6].STDMODE> 5
#ACT
MOV S$弹窗提示 开启
#CALL [鉴定加星鉴定分类武器鉴定.txt] @武器鉴定
UpDateBoxItem 6
Break
}