[@MAIN]
将装备放入框中进行装备鉴定，有机率鉴定出两条特殊属性。\
<ITEMBOX:5:61:250:200:100:10:10:5610111519202124262223626430:鉴定一次需要支付500W金币>\
<开始鉴定/@KSZDY>
[@ItemIntoBox5]
#IF
NOTCHECKTEXTLIST..\QuestDiary\隐藏属性\装备名单.txt<$BOXITEM[5].NAME>
#ACT
UNALLOWITEMINTOBOX
messagebox沃玛级别以上装备才能鉴定。
BREAK
[@KSZDY]
#IF
EQUAL<$BOXITEM[5].NAME>
#ACT
messagebox请放入装备.
BREAK
#IF
checkgold5000000
#ACT
#ELSEACT
messagebox金币不足500万。
BREAK
#IF
#ACT
take金币5000000
SetUpgradeItem5
Loopgoto@清除属性1
GOTO@自定义鉴定1
[@清除属性]
#ACT
SetCustomItemValueboxitem50=0
SetCustomItemValueboxitem51=0
SetCustomItemValueboxitem52=0
SetCustomItemValueboxitem56=0
SetCustomItemValueboxitem57=0
SetCustomItemValueboxitem58=0
SetCustomItemValueboxitem59=0
[@自定义鉴定1]
#OR
CHECKITEMTYPEboxitem55
CHECKITEMTYPEboxitem56
#ACT
goto@武器机率分类
BREAK
#IF
CHECKITEMTYPEboxitem515
#ACT
goto@头盔机率分类
BREAK
#OR
CHECKITEMTYPEboxitem519
CHECKITEMTYPEboxitem520
CHECKITEMTYPEboxitem521
#ACT
MOVRN$项链属性编号2225
goto@项链机率分类
BREAK
#OR
CHECKITEMTYPEboxitem524
CHECKITEMTYPEboxitem526
#ACT
goto@手镯机率分类
BREAK
#OR
CHECKITEMTYPEboxitem522
CHECKITEMTYPEboxitem523
#ACT
goto@戒指机率分类
BREAK
#OR
CHECKITEMTYPEboxitem510
CHECKITEMTYPEboxitem511
#ACT
goto@衣服机率分类
BREAK
[@衣服机率分类]
#IF
RANDOM3
#ACT
MOVRN$衣服移恢111
GOTO@衣服111
#IF
#ACT
MOVRN$衣服偷取13001
SetCustomItemAbilboxitem500100
SetCustomItemAbilboxitem50118
SetCustomItemAbilboxitem50218
SetCustomItemValueboxitem50=<$STR(N$衣服偷取)>
UpdateItemboxitem5
[@衣服111]
#IF
#ACT
SetCustomItemAbilboxitem51094
SetCustomItemAbilboxitem51116
SetCustomItemAbilboxitem51216
SetCustomItemValueboxitem51=<$STR(N$衣服移恢)>
UpdateItemboxitem5
[@戒指机率分类]
#IF
;RANDOM3
#ACT
MOVRN$弱人打击19
goto@戒指111
;#ELSEACT
;messagebox抱歉，鉴定失败了...
[@戒指111]
#IF
#ACT
SetCustomItemAbilboxitem510242
SetCustomItemAbilboxitem51126
SetCustomItemAbilboxitem51226
SetCustomItemValueboxitem51=<$STR(N$弱人打击)>
UpdateItemboxitem5
[@手镯机率分类]
#IF
;RANDOM3
#ACT
MOVRN$弱怪打击116
GOTO@手镯111
;#ELSEACT
;messagebox抱歉，鉴定失败了...
[@手镯111]
#IF
#ACT
SetCustomItemAbilboxitem500244
SetCustomItemAbilboxitem50125
SetCustomItemAbilboxitem50225
SetCustomItemValueboxitem50=<$STR(N$弱怪打击)>
UpdateItemboxitem5
[@武器机率分类]
;#IF
;RANDOM3
;#ACT
;SetCustomItemAbilboxitem500239
;SetCustomItemAbilboxitem50120
;SetCustomItemAbilboxitem50220
;SetCustomItemValueboxitem50=5
;UpdateItemboxitem5
#IF
RANDOM3
#ACT
SetCustomItemAbilboxitem510241
SetCustomItemAbilboxitem51119
SetCustomItemAbilboxitem51219
SetCustomItemValueboxitem51=1
UpdateItemboxitem5
BREAK
#IF
RANDOM5
#ACT
SetCustomItemAbilboxitem510241
SetCustomItemAbilboxitem51119
SetCustomItemAbilboxitem51219
SetCustomItemValueboxitem51=2
UpdateItemboxitem5
BREAK
#IF
RANDOM20
#ACT
SetCustomItemAbilboxitem510241
SetCustomItemAbilboxitem51119
SetCustomItemAbilboxitem51219
SetCustomItemValueboxitem51=3
UpdateItemboxitem5
BREAK
[@头盔机率分类]
#IF
#ACT
SetCustomItemAbilboxitem500152
SetCustomItemAbilboxitem50127
SetCustomItemAbilboxitem50227
SetCustomItemValueboxitem50=1
UpdateItemboxitem5
#IF
RANDOM3
#ACT
MOVRN$杀怪回血点数50151
GOTO@头盔111
[@头盔111]
#IF
#ACT
SetCustomItemAbilboxitem51095
SetCustomItemAbilboxitem51117
SetCustomItemAbilboxitem51217
SetCustomItemValueboxitem51=<$STR(N$杀怪回血点数)>
UpdateItemboxitem5
[@项链机率分类]
#IF
#ACT
ReadConfigFileItem..\QuestDiary\拾取鉴定\自定义属性调控.txt<$STR(N$项链属性编号)>属性下限<$STR(N$属性下限)>
ReadConfigFileItem..\QuestDiary\拾取鉴定\自定义属性调控.txt<$STR(N$项链属性编号)>属性上限<$STR(N$属性上限)>
ReadConfigFileItem..\QuestDiary\拾取鉴定\自定义属性调控.txt<$STR(N$项链属性编号)>颜色<$STR(N$属性颜色)>
MOVRN$单位数值<$STR(N$属性下限)><$STR(N$属性上限)>
SetCustomItemAbilboxitem500<$STR(N$属性颜色)>
SetCustomItemAbilboxitem501<$STR(N$项链属性编号)>
SetCustomItemAbilboxitem502<$STR(N$项链属性编号)>
SetCustomItemValueboxitem50=<$STR(N$单位数值)>
MOVRN$项链属性编号2225
UpdateItemboxitem5
#IF
random3
#ACT
ReadConfigFileItem..\QuestDiary\拾取鉴定\自定义属性调控.txt<$STR(N$项链属性编号)>属性下限<$STR(N$属性下限)>
ReadConfigFileItem..\QuestDiary\拾取鉴定\自定义属性调控.txt<$STR(N$项链属性编号)>属性上限<$STR(N$属性上限)>
ReadConfigFileItem..\QuestDiary\拾取鉴定\自定义属性调控.txt<$STR(N$项链属性编号)>颜色<$STR(N$属性颜色)>
MOVRN$单位数值<$STR(N$属性下限)><$STR(N$属性上限)>
SetCustomItemAbilboxitem510<$STR(N$属性颜色)>
SetCustomItemAbilboxitem511<$STR(N$项链属性编号)>
SetCustomItemAbilboxitem512<$STR(N$项链属性编号)>
SetCustomItemValueboxitem51=<$STR(N$单位数值)>
UpdateItemboxitem5
BREAK
将装备放入框中进行装备鉴定，有机率鉴定出两条特殊属性。\
<ITEMBOX:5:61:250:200:100:10:10:5610111519202124262223626430:鉴定一次需要支付500W金币>\
<开始鉴定/@KSZDY>
[@ItemIntoBox5]
#IF
NOTCHECKTEXTLIST..\QuestDiary\隐藏属性\装备名单.txt<$BOXITEM[5].NAME>
#ACT
UNALLOWITEMINTOBOX
messagebox沃玛级别以上装备才能鉴定。
BREAK
[@KSZDY]
#IF
EQUAL<$BOXITEM[5].NAME>
#ACT
messagebox请放入装备.
BREAK
#IF
checkgold5000000
#ACT
#ELSEACT
messagebox金币不足500万。
BREAK
#IF
#ACT
take金币5000000
SetUpgradeItem5
Loopgoto@清除属性1
GOTO@自定义鉴定1
[@清除属性]
#ACT
SetCustomItemValueboxitem50=0
SetCustomItemValueboxitem51=0
SetCustomItemValueboxitem52=0
SetCustomItemValueboxitem56=0
SetCustomItemValueboxitem57=0
SetCustomItemValueboxitem58=0
SetCustomItemValueboxitem59=0
[@自定义鉴定1]
#OR
CHECKITEMTYPEboxitem55
CHECKITEMTYPEboxitem56
#ACT
goto@武器机率分类
BREAK
#IF
CHECKITEMTYPEboxitem515
#ACT
goto@头盔机率分类
BREAK
#OR
CHECKITEMTYPEboxitem519
CHECKITEMTYPEboxitem520
CHECKITEMTYPEboxitem521
#ACT
MOVRN$项链属性编号2225
goto@项链机率分类
BREAK
#OR
CHECKITEMTYPEboxitem524
CHECKITEMTYPEboxitem526
#ACT
goto@手镯机率分类
BREAK
#OR
CHECKITEMTYPEboxitem522
CHECKITEMTYPEboxitem523
#ACT
goto@戒指机率分类
BREAK
#OR
CHECKITEMTYPEboxitem510
CHECKITEMTYPEboxitem511
#ACT
goto@衣服机率分类
BREAK
[@衣服机率分类]
#IF
RANDOM3
#ACT
MOVRN$衣服移恢111
GOTO@衣服111
#IF
#ACT
MOVRN$衣服偷取13001
SetCustomItemAbilboxitem500100
SetCustomItemAbilboxitem50118
SetCustomItemAbilboxitem50218
SetCustomItemValueboxitem50=<$STR(N$衣服偷取)>
UpdateItemboxitem5
[@衣服111]
#IF
#ACT
SetCustomItemAbilboxitem51094
SetCustomItemAbilboxitem51116
SetCustomItemAbilboxitem51216
SetCustomItemValueboxitem51=<$STR(N$衣服移恢)>
UpdateItemboxitem5
[@戒指机率分类]
#IF
;RANDOM3
#ACT
MOVRN$弱人打击19
goto@戒指111
;#ELSEACT
;messagebox抱歉，鉴定失败了...
[@戒指111]
#IF
#ACT
SetCustomItemAbilboxitem510242
SetCustomItemAbilboxitem51126
SetCustomItemAbilboxitem51226
SetCustomItemValueboxitem51=<$STR(N$弱人打击)>
UpdateItemboxitem5
[@手镯机率分类]
#IF
;RANDOM3
#ACT
MOVRN$弱怪打击116
GOTO@手镯111
;#ELSEACT
;messagebox抱歉，鉴定失败了...
[@手镯111]
#IF
#ACT
SetCustomItemAbilboxitem500244
SetCustomItemAbilboxitem50125
SetCustomItemAbilboxitem50225
SetCustomItemValueboxitem50=<$STR(N$弱怪打击)>
UpdateItemboxitem5
[@武器机率分类]
;#IF
;RANDOM3
;#ACT
;SetCustomItemAbilboxitem500239
;SetCustomItemAbilboxitem50120
;SetCustomItemAbilboxitem50220
;SetCustomItemValueboxitem50=5
;UpdateItemboxitem5
#IF
RANDOM3
#ACT
SetCustomItemAbilboxitem510241
SetCustomItemAbilboxitem51119
SetCustomItemAbilboxitem51219
SetCustomItemValueboxitem51=1
UpdateItemboxitem5
BREAK
#IF
RANDOM5
#ACT
SetCustomItemAbilboxitem510241
SetCustomItemAbilboxitem51119
SetCustomItemAbilboxitem51219
SetCustomItemValueboxitem51=2
UpdateItemboxitem5
BREAK
#IF
RANDOM20
#ACT
SetCustomItemAbilboxitem510241
SetCustomItemAbilboxitem51119
SetCustomItemAbilboxitem51219
SetCustomItemValueboxitem51=3
UpdateItemboxitem5
BREAK
[@头盔机率分类]
#IF
#ACT
SetCustomItemAbilboxitem500152
SetCustomItemAbilboxitem50127
SetCustomItemAbilboxitem50227
SetCustomItemValueboxitem50=1
UpdateItemboxitem5
#IF
RANDOM3
#ACT
MOVRN$杀怪回血点数50151
GOTO@头盔111
[@头盔111]
#IF
#ACT
SetCustomItemAbilboxitem51095
SetCustomItemAbilboxitem51117
SetCustomItemAbilboxitem51217
SetCustomItemValueboxitem51=<$STR(N$杀怪回血点数)>
UpdateItemboxitem5
[@项链机率分类]
#IF
#ACT
ReadConfigFileItem..\QuestDiary\拾取鉴定\自定义属性调控.txt<$STR(N$项链属性编号)>属性下限<$STR(N$属性下限)>
ReadConfigFileItem..\QuestDiary\拾取鉴定\自定义属性调控.txt<$STR(N$项链属性编号)>属性上限<$STR(N$属性上限)>
ReadConfigFileItem..\QuestDiary\拾取鉴定\自定义属性调控.txt<$STR(N$项链属性编号)>颜色<$STR(N$属性颜色)>
MOVRN$单位数值<$STR(N$属性下限)><$STR(N$属性上限)>
SetCustomItemAbilboxitem500<$STR(N$属性颜色)>
SetCustomItemAbilboxitem501<$STR(N$项链属性编号)>
SetCustomItemAbilboxitem502<$STR(N$项链属性编号)>
SetCustomItemValueboxitem50=<$STR(N$单位数值)>
MOVRN$项链属性编号2225
UpdateItemboxitem5
#IF
random3
#ACT
ReadConfigFileItem..\QuestDiary\拾取鉴定\自定义属性调控.txt<$STR(N$项链属性编号)>属性下限<$STR(N$属性下限)>
ReadConfigFileItem..\QuestDiary\拾取鉴定\自定义属性调控.txt<$STR(N$项链属性编号)>属性上限<$STR(N$属性上限)>
ReadConfigFileItem..\QuestDiary\拾取鉴定\自定义属性调控.txt<$STR(N$项链属性编号)>颜色<$STR(N$属性颜色)>
MOVRN$单位数值<$STR(N$属性下限)><$STR(N$属性上限)>
SetCustomItemAbilboxitem510<$STR(N$属性颜色)>
SetCustomItemAbilboxitem511<$STR(N$项链属性编号)>
SetCustomItemAbilboxitem512<$STR(N$项链属性编号)>
SetCustomItemValueboxitem51=<$STR(N$单位数值)>
UpdateItemboxitem5
BREAK