[@MAIN]将装备放入框中进行装备鉴定，有机率鉴定出两条特殊属性。\ITEMBOX:5:61:250:200:100:10:10:5,6,10,11,15,19,20,21,24,26,22,23,62,64,30:鉴定一次需要支付500W金币\开始鉴定/@KSZDY[@ItemIntoBox5]#IFNOT CHECKTEXTLIST ..\QuestDiary\隐藏属性\装备名单.txt $BOXITEM[5].NAME#ACTUNALLOWITEMINTOBOXmessagebox 沃玛级别以上装备才能鉴定。BREAK[@KSZDY]#IFEQUAL $BOXITEM[5].NAME #ACTmessagebox 请放入装备.BREAK#IFcheckgold 5000000#ACT#ELSEACTmessagebox 金币不足500万。BREAK#IF#ACTtake 金币 5000000SetUpgradeItem 5Loopgoto @清除属性 1GOTO @自定义鉴定1[@清除属性]#ACTSetCustomItemValue boxitem5 0 = 0SetCustomItemValue boxitem5 1 = 0SetCustomItemValue boxitem5 2 = 0SetCustomItemValue boxitem5 6 = 0SetCustomItemValue boxitem5 7 = 0SetCustomItemValue boxitem5 8 = 0SetCustomItemValue boxitem5 9 = 0[@自定义鉴定1]#ORCHECKITEMTYPE boxitem5 5CHECKITEMTYPE boxitem5 6#ACTgoto @武器机率分类BREAK#IFCHECKITEMTYPE boxitem5 15#ACTgoto @头盔机率分类BREAK#ORCHECKITEMTYPE boxitem5 19CHECKITEMTYPE boxitem5 20CHECKITEMTYPE boxitem5 21#ACTMOVR N$项链属性编号 22 25goto @项链机率分类BREAK#ORCHECKITEMTYPE boxitem5 24CHECKITEMTYPE boxitem5 26#ACTgoto @手镯机率分类BREAK#ORCHECKITEMTYPE boxitem5 22CHECKITEMTYPE boxitem5 23#ACTgoto @戒指机率分类BREAK#ORCHECKITEMTYPE boxitem5 10CHECKITEMTYPE boxitem5 11#ACTgoto @衣服机率分类BREAK[@衣服机率分类]#IFRANDOM 3#ACTMOVR N$衣服移恢 1 11GOTO @衣服111#IF#ACTMOVR N$衣服偷取 1 3001SetCustomItemAbil boxitem5 0 0 100SetCustomItemAbil boxitem5 0 1 18SetCustomItemAbil boxitem5 0 2 18SetCus蝴蝶版tomItemValue boxitem5 0 = $STR(N$衣服偷取)UpdateItem boxitem5[@衣服111]#IF#ACTSetCustomItemAbil boxitem5 1 0 94SetCustomItemAbil boxitem5 1 1 16SetCustomItemAbil boxitem5 1 2 16SetCustomItemValue boxitem5 1 = $STR(N$衣服移恢)UpdateItem boxitem5[@戒指机率分最新传奇3私服类]#IF;RANDOM 3#ACTMOVR N$弱人打击 1 9goto @戒指111;#ELSEACT;messagebox 抱歉，鉴定失败了...[@戒指111]#IF#ACTSetCustomItemAbil boxitem5 1 0 242SetCustomItemAbil boxitem5 1 1 26SetCustomItemAbil boxitem5 1 2 26SetCustomItemValue boxitem5 1 = $STR(N$弱人打击)UpdateItem boxitem5[@手镯机率分类]#IF;RANDOM 3#ACTMOVR N$弱怪打击 1 16GOTO @手镯111;#ELSEACT;messagebox 抱歉，鉴定失败了...[@手镯111]#IF#ACTSetCustomItemAbil boxitem5 0 0 244SetCustomItemAbil boxitem5 0 1 25SetCustomItemAbil boxitem5 0 2 25SetCustomItemValue boxitem5 0 = $STR(N$弱怪打击)UpdateItem boxitem5[@武器机率分类];#IF;RANDOM 3;#ACT;SetCustomItemAbil boxitem5 0 0 239;SetCustomItemAbil boxitem5 0 1 20;SetCustomItemAbil boxitem5 0 2 20;SetCustomItemValue boxitem5 0 = 5;UpdateItem boxitem5#IFRANDOM 3#ACTSetCustomItemAbil boxitem5 1 0 241SetCustomItemAbil boxitem5 1 1 19SetCustomItemAbil boxitem5 1 2 19SetCustomItemValue boxitem5 1 = 1UpdateItem boxitem5BREAK#IFRANDOM 5#ACTSetCustomItemAbil boxitem5 1 0 241SetCustomItemAbil boxitem5 1 1 19SetCustomItemAbil boxitem5 1 2 19SetCustomItemValue boxitem5 1 = 2UpdateItem boxitem5BREAK#IFRANDOM 20#ACTSetCustomItemAbil boxitem5 1 0 241SetCustomItemAbil boxitem5 1 1 19SetCustomItemAbil boxitem5 1 2 19SetCustomItemValue boxitem5 1 = 3UpdateItem boxitem5BREAK[@头盔机率分类]#IF#ACTSetCustomItemAbil boxitem5 0 0 152SetCustomItemAbil boxitem5 0 1 27SetCustomItemAbil boxitem5 0 2 27SetCustomItemValue boxitem5 0 = 1UpdateItem boxitem5#IFRANDOM 3#ACTMOVR N$杀怪回血点数 50 151GOTO @头盔111[@头盔111]#IF#ACTSetCustomItemAbil boxitem5 1 0 95SetCustomItemAbil boxitem5 1 1 17SetCustomItemAbil boxitem5 1 2 17SetCustomItemValue boxitem5 1 = $STR(N$杀怪回血点数)UpdateItem boxitem5[@项链机率分类]#IF#ACTReadConfigFileItem ..\QuestDiary\拾取鉴定\自定义属性调控.txt $STR(N$项链属性编号) 属性下限 $STR(N$属性下限)ReadConfigFileItem ..\QuestDiary\拾取鉴定\自定义属性调控.txt $STR(N$项链属性编号) 属性上限 $STR(N$属性上限)ReadConfigFileItem ..\QuestDiary\拾取鉴定\自定义属性调控.txt $STR(N$项链属性编号) 颜色 $STR(N$属性颜色)MOVR N$单位数值 $STR(N$属性下限) $STR(N$属性上限)SetCustomItemAbil boxitem5 0 0 $STR(N$属性颜色)SetCustomItemAbil boxitem5 0 1 $STR(N$项链属性编号)SetCustomItemAbil boxitem5 0 2 $STR(N$项链属性编号)SetCustomItemValue boxitem5 0 = $STR(N$单位数值)MOVR N$项链属性编号 22 25UpdateItem boxitem5#IFrandom 3#ACTReadConfigFileItem ..\QuestDiary\拾取鉴定\自定义属性调控.txt $STR(N$项链属性编号) 属性下限 $STR(N$属性下限)ReadConfigFileItem ..\QuestDiary\拾取鉴定\自定义属性调控.txt $STR(N$项链属性编号) 属性上限 $STR(N$属性上限)ReadConfigFileItem ..\QuestDiary\拾取鉴定\自定义属性调控.txt $STR(N$项链属性编号) 颜色 $STR(N$属性颜色)MOVR N$单位数值 $STR(N$属性下限) $STR(N$属性上限)SetCus185传奇补丁tomItemAbil boxitem5 1 0 $STR(N$属性颜色)SetCustomItemAbil boxitem5 1 1 $STR(N$项链属性编号)SetCustomItemAbil boxitem5 1 2 $STR(N$项链属性编号)SetCustomItemValue boxitem5 1 = $STR(N$单位数值)UpdateItem boxitem5BREAK