[@main]
<默认OK框测试/@默认OK框>\
<自定义OK框测试/@自定义OK框>\
[@默认OK框]
#IF
#ACT
OPENUPGRADEDLG 装备升级(显示的名称)
[@ItemInUpgradeDlg]
#IF
#ACT
INC D0 <$DLGITEM.DC2>
INC D0 <$DLGITEM.MC2>
INC D0 <$DLGITEM.SC2>
INC D0 <$DLGITEM.TC2>
;检查是否为护身属性
#IF
equal <$DLGITEM.SHAPE> 118
#ACT
INC D0 10000
#IF
#ACT
SHOWUPGRADEDLGMSG 装备分值:<$STR(D0)>
#SAY
OK框中物品的名称:<$DLGITEM.NAME>\
OK框中物品的StdMode:<$DLGITEM.STDMODE>\
OK框中物品的持久:<$DLGITEM.DURA>\
OK框中物品的最大持久:<$DLGITEM.DURAMAX>\
[@UpgradeDlgItem]
#IF
#ACT
UPGRADEITEMEX -1 16 0 10
RECLAIMITEM
#SAY
升级成功!
;------------
[@自定义OK框]
请放入需要升级的装备\ \
<把包裹物品自动放OK框/@自动放物品>\ \
<{type=3;idx=0;mic=253;w=32;h=32;fil=2,3,4,10;ht=只能放入2 3 4 10物品分类}>\
<{type=3;idx=1;mic=252;w=32;h=32;ht=不限制}>\
<开始升级/@开始升级>\
[@ItemIntoBox0]
#IF
#ACT
SENDMSG 7 1号自定义框放入物品:<$BoxItem(0).Name>
[@ItemOutBox0]
#IF
#ACT
SENDMSG 7 把1号自定义框物品:<$BoxItem(0).Name>,放入包裹
[@自动放物品]
#IF
CHECKBAGITEMCOUNTEX 布衣(男)1
#ACT
BAGITEMINTOBOX 布衣(男)1 0
#IF
CHECKBAGITEMCOUNTEX 凤天魔甲
#ACT
BAGITEMINTOBOX 凤天魔甲 1
[@开始升级]
#IF
;检测OK框中是否有物品
CheckBoxItemCount 0 1
#ACT
;删除2号框物品
DELBOXITEM 1 10
;升级1号位置物品
UPGRADEITEMEX 100 16 0 10
;物品返回到包裹
ReturnBoxItem 0
#ELSEACT
SENDMSG 6 请放入需要升级的装备
|