haosf为广大传奇玩家每天提供最新风云传奇1.76装备鉴定随机属性切割信息,找风云传奇1.76装备鉴定随机属性切割不再东奔西走,每日风云传奇1.76装备鉴定随机属性切割发布网应有尽有!
[@main]
#IFCHECKLEVELEX > 0
#ACT
ReturnBoxItem 1
GOTO @装备鉴定
BREAK
[@装备鉴定]
#IF
#ACT
OPENMERCHANTBIGDLG 90 629 1 4 0 0 0
#SAY
<ImgEx:90:601:602:600:315:-20/@exit> <【切割鉴定:随机鉴定切割属性】/SCOLOR=70>\ \
{等阶:/SCOLOR=116}<一级、二级、三级、四级、五级、六级、七级、八级、九级/SCOLOR=250>\
{数值:/SCOLOR=116}<10万、20万、30万、40万、50万、60万、70万、80万、100万/SCOLOR=245>\ \
<> <放入需要鉴定的装备→/SCOLOR=254> <←放入需要鉴定的装备/SCOLOR=254>\
<> <放入需要鉴定的装备→/SCOLOR=254> <←放入需要鉴定的装备/SCOLOR=254>\
<> <放入需要鉴定的装备→/SCOLOR=254> <←放入需要鉴定的装备/SCOLOR=254>\
<> <ITEMBOX:1:63:236:125:-65:76:76:64,62,22,24:250#允许鉴定：手镯、戒指、鞋子、腰带>\
<> {第一次鉴定免费，重复鉴定收取38888元宝费用！/SCOLOR=249}\ \
<> <***我要鉴定***|250#允许鉴定：手镯、戒指、鞋子、腰带/@确定鉴定>\
[@确定鉴定]
#IF
EQUAL <$BOXITEM[1].NAME>
#ACT
MESSAGEBOX 你要鉴定什么装备？？
BREAK
#ELSEACT
#IF
CHECKLEVELEX > 0
#ACT
SetUpgradeItem 1
MOV N$鉴定费用 38888
MOV S$鉴定路径 鉴定等阶
#IF
CHECKCUSTOMITEMVALUE -1 0 = 0
#ACT
MOV N$鉴定费用 0
MOV S$鉴定路径 鉴定等阶1
#IF
CHECKGAMEGOLD ? <$STR(N$鉴定费用)>
#ACT
GAMEGOLD - <$STR(N$鉴定费用)>
MOV N$攻击计算 <$BOXITEM[1].HDC>
MOV N$魔法计算 <$BOXITEM[1].HMC>
MOV N$道术计算 <$BOXITEM[1].HSC>
GETRANDOMLINETEXT ..\QuestDiary\神秘传奇\拾取鉴定\<$STR(S$鉴定路径)>.txt <$STR(S$鉴定品质)>
GetStringPos ..\QuestDiary\神秘传奇\拾取鉴定\鉴定参数.txt 颜色属性<$STR(S$鉴定品质)>
INC N0 1
GetListString ..\QuestDiary\神秘传奇\拾取鉴定\鉴定参数.txt <$STR(N0)> N$鉴定颜色 N$鉴定属性计算
GetStringPos ..\QuestDiary\神秘传奇\拾取鉴定\鉴定参数.txt 切割属性<$STR(S$鉴定品质)>
INC N0 1
GetListString ..\QuestDiary\神秘传奇\拾取鉴定\鉴定参数.txt <$STR(N0)> N$切割下限 N$切割上限
CHANGECUSTOMITEMTEXT -1 [<$STR(S$鉴定品质)>]
CHANGECUSTOMITEMTEXTCOLOR -1 <$STR(N$鉴定颜色)>
SetUpgradeItem 1
#ELSEACT
UpDateBoxItem 1
MESSAGEBOX 元宝不足，无法鉴定！！
BREAK
#IF
CHECKLEVELEX > 0
#ACT
MOV N$属性位置一 0
INC N$切割上限 1
MOVR N$切割计算 <$STR(N$切割下限)> <$STR(N$切割上限)>
CHANGECUSTOMITEMABIL -1 <$STR(N$属性位置一)> 0 250
CHANGECUSTOMITEMABIL -1 <$STR(N$属性位置一)> 1 8
CHANGECUSTOMITEMABIL -1 <$STR(N$属性位置一)> 2 <$STR(N$属性位置一)>
CHANGECUSTOMITEMABIL -1 <$STR(N$属性位置一)> 3 0
CHANGECUSTOMITEMVALUE -1 <$STR(N$属性位置一)> = <$STR(N$切割计算)>
#IF
CHECKLEVELEX > 0
#ACT
UpDateBoxItem 1
GuildNoticeMsg 253 0 恭喜你鉴定到一件≮[<$STR(S$鉴定品质)>]≯品质<$BOXITEM[1].NAME>！！ self
#IF
EQUAL S$鉴定品质 切割十级
#ACT
SENDMOVEMSG 0 253 255 200 1 【<$USERNAME>】鉴定了一件≮[<$STR(S$鉴定品质)>]≯品质<$BOXITEM[1].NAME>！！
[@ItemIntoBox1]
#ACT
BREAK
[@ItemOutBox1]
#ACT
BREAK