传奇服务端装备重鉴脚本

[@main] #IF CHECKLEVELEX > 0 #ACT #CALL [鉴定加星鉴定使者.txt] @装备重鉴 Break

完整脚本下载 [@装备重鉴] { #IF CHECKLEVELEX > 0 #ACT OPENMERCHANTBIGDLG 9 318 1 0 1 1 1 430 12 #SAY

　　 　　　　　　　　　　　　　　　 #ACT BREAK

[@ItemIntoBox6] #IF CHECKLEVELEX > 0 #ACT SetUpgradeItem 6 GETITEMADDVALUE -1 11

#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 提　示：你的装备【】还未鉴定,不能重新鉴定！ UpDateBoxItem 6 ReturnBoxItem 6 BREAK #OR

CheckTextlist ..QuestDiary鉴定加星装备分级
级装备.txt CheckTextlist ..QuestDiary鉴定加星装备分级级装备.txt

CheckTextlist ..QuestDiary鉴定加星装备分级级装备.txt CheckTextlist ..QuestDiary鉴定加星装备分级级装备.txt

CheckTextlist ..QuestDiary鉴定加星装备分级级装备.txt CheckTextlist ..QuestDiary鉴定加星装备分级级装备.txt

CheckTextlist ..QuestDiary鉴定加星装备分级级装备.txt CheckTextlist ..QuestDiary鉴定加星装备分级8级装备.txt

CheckTextlist ..QuestDiary鉴定加星装备分级9级装备.txt CheckTextlist ..QuestDiary鉴定加星装备分级级装备.txt

CheckTextlist ..QuestDiary鉴定加星装备分级 级装备.txt #ELSEACT MESSAGEBOX 提　示：你的装备【】无法鉴定！

UpDateBoxItem 6 ReturnBoxItem 6 BREAK ;#IF ;EQUAL N$加星数量 13 ;#ACT ;MESSAGEBOX 提　示：你的装备【】已达到13星，无需重新鉴定！

;UpDateBoxItem 6 ;ReturnBoxItem 6 ;BREAK ;—————————————————————————–

[@开始重新洗炼] #IF EQUAL P10 1 #ACT SENDMSG 5 〖提示〗操作太过频繁…. Break #IF CHECKLEVELEX > 0 #ACT

SetUpgradeItem 6 GETITEMADDVALUE -1 11 #IF Not CheckBoxItemCount 6 #ACT MESSAGEBOX 提　示：请将需要重鉴的装备放入框中！

Break ;#IF ;EQUAL N$加星数量 13 ;#ACT ;MESSAGEBOX 提　示：你的装备【】已达到13星，无需重新鉴定！ ;UpDateBoxItem 6

;ReturnBoxItem 6 ;BREAK #OR CheckTextlist ..QuestDiary鉴定加星装备分级
级装备.txt CheckTextlist ..QuestDiary鉴定加星装备分级级装备.txt

CheckTextlist ..QuestDiary鉴定加星装备分级级装备.txt CheckTextlist ..QuestDiary鉴定加星装备分级级装备.txt

CheckTextlist ..QuestDiary鉴定加星装备分级级装备.txt CheckTextlist ..QuestDiary鉴定加星装备分级级装备.txt

CheckTextlist ..QuestDiary鉴定加星装备分级级装备.txt CheckTextlist ..QuestDiary鉴定加星装备分级8级装备.txt

CheckTextlist ..QuestDiary鉴定加星装备分级9级装备.txt CheckTextlist ..QuestDiary鉴定加星装备分级级装备.txt

CheckTextlist ..QuestDiary鉴定加星装备分级 级装备.txt #ELSEACT MESSAGEBOX 提　示：你的装备【】无法鉴定！

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$当前鉴定名称 #CALL [鉴定加星鉴定几率.txt] @几率设置 #OR CompareText 15

CompareText 16 CompareText 19 CompareText 22

CompareText 24 CompareText 26 CompareText 28

CompareText 30 CompareText 51 CompareText 62

CompareText 63 CompareText 64 CompareText 65

CompareText 48 #ACT MOV S$弹窗提示 开启 #CALL [鉴定加星鉴定分类首饰鉴定.txt] @首饰鉴定 UpDateBoxItem 6

Break #OR CompareText 10 CompareText 11 CompareText 66

CompareText 67 #ACT MOV S$弹窗提示 开启 #CALL [鉴定加星鉴定分类衣服鉴定.txt] @衣服鉴定 UpDateBoxItem 6

Break #IF CompareText 5 #ACT MOV S$弹窗提示 开启 #CALL [鉴定加星鉴定分类武器鉴定.txt] @武器鉴定

UpDateBoxItem 6 Break }