GOM引擎属性鉴定脚本，复古金币传奇有机率鉴定出两条特殊属性教程

[@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] #IF NOT CHECKTEXTLIST ..\QuestDiary\隐藏属性\装备名单.txt <$BOXITEM[5].NAME> #ACT UNALLOWITEMINTOBOX messagebox 沃玛级别以上装备才能鉴定。 BREAK [@KSZDY] #IF EQUAL <$BOXITEM[5].NAME>   #ACT messagebox  请放入装备. BREAK #IF checkgold 5000000 #ACT #ELSEACT messagebox 金币不足500万。 BREAK #IF #ACT take 金币 5000000 SetUpgradeItem 5 Loopgoto @清除属性 1 GOTO @自定义鉴定1 [@清除属性] #ACT SetCustomItemValue boxitem5 0 = 0 SetCustomItemValue boxitem5 1 = 0 SetCustomItemValue boxitem5 2 = 0 SetCustomItemValue boxitem5 6 = 0 SetCustomItemValue boxitem5 7 = 0 SetCustomItemValue boxitem5 8 = 0 SetCustomItemValue boxitem5 9 = 0 [@自定义鉴定1] #OR CHECKITEMTYPE boxitem5 5 CHECKITEMTYPE boxitem5 6 #ACT goto @武器机率分类 BREAK #IF CHECKITEMTYPE boxitem5 15 #ACT goto @头盔机率分类 BREAK #OR CHECKITEMTYPE boxitem5 19 CHECKITEMTYPE boxitem5 20 CHECKITEMTYPE boxitem5 21 #ACT MOVR N$项链属性编号 22 25 goto @项链机率分类 BREAK #OR CHECKITEMTYPE boxitem5 24 CHECKITEMTYPE boxitem5 26 #ACT goto @手镯机率分类 BREAK #OR CHECKITEMTYPE boxitem5 22 CHECKITEMTYPE boxitem5 23 #ACT goto @戒指机率分类 BREAK #OR CHECKITEMTYPE boxitem5 10 CHECKITEMTYPE boxitem5 11 #ACT goto @衣服机率分类 BREAK [@衣服机率分类] #IF RANDOM 3 #ACT MOVR N$衣服移恢 1 11 GOTO @衣服111 #IF #ACT MOVR N$衣服偷取 1 3001 SetCustomItemAbil boxitem5 0 0 100 SetCustomItemAbil boxitem5 0 1 18 SetCustomItemAbil boxitem5 0 2 18 SetCustomItemValue boxitem5 0 = <$STR(N$衣服偷取)> UpdateItem boxitem5 [@衣服111] #IF #ACT SetCustomItemAbil boxitem5 1 0 94 SetCustomItemAbil boxitem5 1 1 16 SetCustomItemAbil boxitem5 1 2 16 SetCustomItemValue boxitem5 1 = <$STR(N$衣服移恢)> UpdateItem boxitem5 [@戒指机率分类] #IF ;RANDOM 3 #ACT MOVR N$弱人打击 1 9 goto @戒指111 ;#ELSEACT ;messagebox 抱歉，鉴定失败了... [@戒指111] #IF #ACT SetCustomItemAbil boxitem5 1 0 242 SetCustomItemAbil boxitem5 1 1 26 SetCustomItemAbil boxitem5 1 2 26 SetCustomItemValue boxitem5 1 = <$STR(N$弱人打击)> UpdateItem boxitem5 [@手镯机率分类] #IF ;RANDOM 3 #ACT MOVR N$弱怪打击 1 16 GOTO @手镯111 ;#ELSEACT ;messagebox 抱歉，鉴定失败了... [@手镯111] #IF #ACT SetCustomItemAbil boxitem5 0 0 244 SetCustomItemAbil boxitem5 0 1 25 SetCustomItemAbil boxitem5 0 2 25 SetCustomItemValue 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 #IF RANDOM 3 #ACT SetCustomItemAbil boxitem5 1 0 241 SetCustomItemAbil boxitem5 1 1 19 SetCustomItemAbil boxitem5 1 2 19 SetCustomItemValue boxitem5 1 = 1 UpdateItem boxitem5 BREAK #IF RANDOM 5 #ACT SetCustomItemAbil boxitem5 1 0 241 SetCustomItemAbil boxitem5 1 1 19 SetCustomItemAbil boxitem5 1 2 19 SetCustomItemValue boxitem5 1 = 2 UpdateItem boxitem5 BREAK #IF RANDOM 20 #ACT SetCustomItemAbil boxitem5 1 0 241 SetCustomItemAbil boxitem5 1 1 19 SetCustomItemAbil boxitem5 1 2 19 SetCustomItemValue boxitem5 1 = 3 UpdateItem boxitem5 BREAK [@头盔机率分类] #IF #ACT SetCustomItemAbil boxitem5 0 0 152 SetCustomItemAbil boxitem5 0 1 27 SetCustomItemAbil boxitem5 0 2 27 SetCustomItemValue boxitem5 0 = 1 UpdateItem boxitem5 #IF RANDOM 3 #ACT MOVR N$杀怪回血点数 50 151 GOTO @头盔111 [@头盔111] #IF #ACT SetCustomItemAbil boxitem5 1 0 95 SetCustomItemAbil boxitem5 1 1 17 SetCustomItemAbil boxitem5 1 2 17 SetCustomItemValue boxitem5 1 = <$STR(N$杀怪回血点数)> UpdateItem boxitem5 [@项链机率分类] #IF #ACT ReadConfigFileItem ..\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 25 UpdateItem boxitem5 #IF random 3 #ACT ReadConfigFileItem ..\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 1 0 <$STR(N$属性颜色)> SetCustomItemAbil boxitem5 1 1 <$STR(N$项链属性编号)> SetCustomItemAbil boxitem5 1 2 <$STR(N$项链属性编号)> SetCustomItemValue boxitem5 1 = <$STR(N$单位数值)> UpdateItem boxitem5 BREAK

正需要，支持楼主大人了！