[@main]
#say
\ \
鉴定装备，随机获得属性，只需要一个<【四魂之玉碎片】/FCOLOR=252>\
可以使<【四魂之玉】/FCOLOR=249>重新鉴定，不限次数\
备注：时装及生肖位置的装备不可镶嵌，其他非装备物品镶嵌无效\ \
<四魂鉴定/@四魂碎片鉴定>
[@四魂碎片鉴定]
<> <请放入要鉴定的装备然后确定进行装备鉴定/FCOLOR=249>\
<> <注:鉴定装备随机获得攻魔道1-3点、防御御1-3，血蓝10-30点/FCOLOR=249> \ \
<ITEMBOX|x=200.0|y=80.0|width=70|height=70|boxindex=1|stdmode=*|tips=<只能放入\剑甲首饰/FCOLOR=249>|tipsx=4|tipsy=100|img=public/1900000664.png>
<Button|x=250.0|y=180.0|color=103|mimg=custom/bx/115_2.png|size=18|pimg=custom/bx/115_1.png|nimg=custom/bx/115_2.png|text=开始鉴定|link=@开始鉴定>
[@开始鉴定]
#if
not checkitem 四魂之玉 1
#act
messagebox 你包裹中没有四魂之玉,无法鉴定
break
#if
#act
SetUpgradeItem 1
MOVR N$攻魔道属性数值 1 4
goto @设置攻魔道随机
goto @设置生命魔法随机
#if
#act
MOVR N$防御属性数值 1 4
mov N$防御属性ID 10
mov N$防御显示ID 35
#if
checkitem 四魂之玉 1
CHECKTEXTLIST ..\QuestDiary\游戏功能\可鉴定装备清单.txt <$BOXITEM[1].NAME>
#act
take 四魂之玉 1
CHANGECUSTOMITEMTEXT -1 [四魂鉴定] 1
CHANGECUSTOMITEMTEXTCOLOR -1 254 1
CHANGECUSTOMITEMABIL -1 1 0 250 1
CHANGECUSTOMITEMABIL -1 1 1 <$STR(N$攻魔道属性ID)> 1
CHANGECUSTOMITEMABIL -1 1 2 <$STR(N$攻魔道显示ID)> 1
CHANGECUSTOMITEMABIL -1 1 3 1 0
CHANGECUSTOMITEMABIL -1 1 4 1 1
CHANGECUSTOMITEMVALUE -1 1 = <$STR(N$攻魔道属性数值)> 1
CHANGECUSTOMITEMABIL -1 2 0 253 1
CHANGECUSTOMITEMABIL -1 2 1 <$STR(N$防御属性ID)> 1
CHANGECUSTOMITEMABIL -1 2 2 <$STR(N$防御显示ID)> 1
CHANGECUSTOMITEMABIL -1 2 3 1 0
CHANGECUSTOMITEMABIL -1 2 4 2 1
CHANGECUSTOMITEMVALUE -1 2 = <$STR(N$防御属性数值)> 1
CHANGECUSTOMITEMABIL -1 3 0 69 1
CHANGECUSTOMITEMABIL -1 3 1 <$STR(N$生命魔法值属性ID)> 1
CHANGECUSTOMITEMABIL -1 3 2 <$STR(N$生命魔法值显示ID)> 1
CHANGECUSTOMITEMABIL -1 3 3 1 0
CHANGECUSTOMITEMABIL -1 3 4 3 1
CHANGECUSTOMITEMVALUE -1 3 = <$STR(N$生命魔法值属性数值)> 1
UpDateBoxItem 1
ReturnBoxItem 1
break
#elseact
messagebox 你包裹中没有四魂之玉或者装备不允许鉴定
break
[@设置攻魔道随机]
#if
random 3
#act
mov N$攻魔道属性ID 4
mov N$攻魔道显示ID 32
break
#if
random 3
#act
mov N$攻魔道属性ID 6
mov N$攻魔道显示ID 33
break
#if
#act
mov N$攻魔道属性ID 8
mov N$攻魔道显示ID 34
break
[@设置生命魔法随机]
#if
random 2
#act
MOVR N$生命魔法值属性数值 1 30
mov N$生命魔法值属性ID 1
mov N$生命魔法值显示ID 36
break
#if
#act
MOVR N$生命魔法值属性数值 1 30
mov N$生命魔法值属性ID 2
mov N$生命魔法值显示ID 37
break
[@itemintobox1]
#if
not checkitem 四魂之玉 1
#act
messagebox 你包裹中没有四魂之玉,无法鉴定
returnboxitem 1
break
#if
not CHECKTEXTLIST ..\QuestDiary\游戏功能\可鉴定装备清单.txt <$BOXITEM[1].NAME>
#act
messagebox 当前装备不允许鉴定!
returnboxitem 1
break
