传奇服务端装备重鉴脚本

　　[@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】还未鉴定,不能重新鉴定！ 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 }

版权声明

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

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

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

新手上路不用愁，碰到传奇架设问题可以来这搜索。

很多架设问题在这里可以找到，真是太好啦。

这东西我收了！谢谢楼主！

在这里可以学到很多传奇一条龙开区时遇到的问题。

这个帖子不回对不起自己！

传奇论坛里面相对来说比较好的一个！感谢站长分享的技术教程。

楼主发贴辛苦了，谢谢楼主分享！

这东西我收了！谢谢楼主！

楼主发贴辛苦了，谢谢楼主分享！