832z15g487 发表于 2023-11-21 19:58:52

传奇服务端装备重鉴脚本

  [@main] #IF CHECKLEVELEX0 #ACT #CALL [鉴定加星鉴定使者.txt] @装备重鉴 Break
http://https:/plus/img/addon.gif 完整脚本下载
[@装备重鉴] { #IF CHECKLEVELEX0 #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 CHECKLEVELEX0 #ACT SetUpgradeItem 6 GETITEMADDVALUE -1 11 $STR(N$加星数量) #OR CHECKCUSTOMITEMVALUE -1 00 CHECKCUSTOMITEMVALUE -1 10 CHECKCUSTOMITEMVALUE -1 20 CHECKCUSTOMITEMVALUE -1 30 CHECKCUSTOMITEMVALUE -1 40 CHECKCUSTOMITEMVALUE -1 50 CHECKCUSTOMITEMVALUE -1 60 CHECKCUSTOMITEMVALUE -1 70 CHECKCUSTOMITEMVALUE -1 80 CHECKCUSTOMITEMVALUE -1 90 #ELSEACT MESSAGEBOX 提示:你的装备【$BOXITEM.NAME】还未鉴定,不能重新鉴定! UpDateBoxItem 6 ReturnBoxItem 6 BREAK #OR CheckTextlist ..QuestDiary鉴定加星装备分级级装备.txt $BOXITEM.NAME CheckTextlist ..QuestDiary鉴定加星装备分级级装备.txt $BOXITEM.NAME CheckTextlist ..QuestDiary鉴定加星装备分级级装备.txt $BOXITEM.NAME CheckTextlist ..QuestDiary鉴定加星装备分级级装备.txt $BOXITEM.NAME CheckTextlist ..QuestDiary鉴定加星装备分级级装备.txt $BOXITEM.NAME CheckTextlist ..QuestDiary鉴定加星装备分级级装备.txt $BOXITEM.NAME CheckTextlist ..QuestDiary鉴定加星装备分级级装备.txt $BOXITEM.NAME CheckTextlist ..QuestDiary鉴定加星装备分级8级装备.txt $BOXITEM.NAME CheckTextlist ..QuestDiary鉴定加星装备分级9级装备.txt $BOXITEM.NAME CheckTextlist ..QuestDiary鉴定加星装备分级级装备.txt $BOXITEM.NAME CheckTextlist ..QuestDiary鉴定加星装备分级 级装备.txt $BOXITEM.NAME #ELSEACT MESSAGEBOX 提示:你的装备【$BOXITEM.NAME】无法鉴定! UpDateBoxItem 6 ReturnBoxItem 6 BREAK #IF EQUAL N$加星数量 13 #ACT MESSAGEBOX 提示:你的装备【$BOXITEM.NAME】已达到13星,无需重新鉴定! UpDateBoxItem 6 ReturnBoxItem 6 BREAK ----------------------------------------------------------------------------- [@开始重新洗炼] #IF EQUAL P10 1 #ACT SENDMSG 5 〖提示〗操作太过频繁.... Break #IF CHECKLEVELEX0 #ACT SetUpgradeItem 6 GETITEMADDVALUE -1 11 $STR(N$加星数量) #IF Not CheckBoxItemCount 6 #ACT MESSAGEBOX 提示:请将需要重鉴的装备放入框中! Break #IF EQUAL N$加星数量 13 #ACT MESSAGEBOX 提示:你的装备【$BOXITEM.NAME】已达到13星,无需重新鉴定! UpDateBoxItem 6 ReturnBoxItem 6 BREAK #OR CheckTextlist ..QuestDiary鉴定加星装备分级级装备.txt $BOXITEM.NAME CheckTextlist ..QuestDiary鉴定加星装备分级级装备.txt $BOXITEM.NAME CheckTextlist ..QuestDiary鉴定加星装备分级级装备.txt $BOXITEM.NAME CheckTextlist ..QuestDiary鉴定加星装备分级级装备.txt $BOXITEM.NAME CheckTextlist ..QuestDiary鉴定加星装备分级级装备.txt $BOXITEM.NAME CheckTextlist ..QuestDiary鉴定加星装备分级级装备.txt $BOXITEM.NAME CheckTextlist ..QuestDiary鉴定加星装备分级级装备.txt $BOXITEM.NAME CheckTextlist ..QuestDiary鉴定加星装备分级8级装备.txt $BOXITEM.NAME CheckTextlist ..QuestDiary鉴定加星装备分级9级装备.txt $BOXITEM.NAME CheckTextlist ..QuestDiary鉴定加星装备分级级装备.txt $BOXITEM.NAME CheckTextlist ..QuestDiary鉴定加星装备分级 级装备.txt $BOXITEM.NAME #ELSEACT MESSAGEBOX 提示:你的装备【$BOXITEM.NAME】无法鉴定! ReturnBoxItem 6 BREAK #IF CHECKGAMEGOLD10000 #ACT MESSAGEBOX 提示:你的元宝不足无法重鉴! Break #IF CHECKGAMEGOLD9999 #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.NAME #CALL [鉴定加星鉴定几率.txt] @几率设置 #OR CompareText $BOXITEM.STDMODE 15 CompareText $BOXITEM.STDMODE 16 CompareText $BOXITEM.STDMODE 19 CompareText $BOXITEM.STDMODE 22 CompareText $BOXITEM.STDMODE 24 CompareText $BOXITEM.STDMODE 26 CompareText $BOXITEM.STDMODE 28 CompareText $BOXITEM.STDMODE 30 CompareText $BOXITEM.STDMODE 51 CompareText $BOXITEM.STDMODE 62 CompareText $BOXITEM.STDMODE 63 CompareText $BOXITEM.STDMODE 64 CompareText $BOXITEM.STDMODE 65 CompareText $BOXITEM.STDMODE 48 #ACT MOV S$弹窗提示 开启 #CALL [鉴定加星鉴定分类首饰鉴定.txt] @首饰鉴定 UpDateBoxItem 6 Break #OR CompareText $BOXITEM.STDMODE 10 CompareText $BOXITEM.STDMODE 11 CompareText $BOXITEM.STDMODE 66 CompareText $BOXITEM.STDMODE 67 #ACT MOV S$弹窗提示 开启 #CALL [鉴定加星鉴定分类衣服鉴定.txt] @衣服鉴定 UpDateBoxItem 6 Break #IF CompareText $BOXITEM.STDMODE 5 #ACT MOV S$弹窗提示 开启 #CALL [鉴定加星鉴定分类武器鉴定.txt] @武器鉴定 UpDateBoxItem 6 Break }

进化录混沌 发表于 2023-11-21 20:18:19

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

76合击 发表于 2023-11-21 21:14:33

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

道盾合击 发表于 2023-11-21 22:06:31

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

炎黄沉默 发表于 2023-11-22 03:36:32

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

专属沉默 发表于 2023-11-22 05:31:41

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

青龙传说 发表于 2023-11-22 07:50:30

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

专属神器 发表于 2023-11-22 11:14:19

楼主发贴辛苦了,谢谢楼主分享!

青妖专属 发表于 2023-11-22 14:12:58

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

天猫迷失单职业 发表于 2023-11-23 10:46:16

楼主发贴辛苦了,谢谢楼主分享!
页: [1] 2 3 4
查看完整版本: 传奇服务端装备重鉴脚本