[@main]
<ȡ޸ʾ/@GetEquipProps> \ \
<ر/@exit>

[@GetEquipProps]
; Ⲣ޸
#if
CheckUseItem 1 
#act
Mov S_Eval_Base_Prop ""
Mov S_Eval_Myst_Prop ""
Mov M_Eval_Spec_Prop 0
Mov M_Eval_Skill_Prop 0
Mov M_Eval_Times_Prop 0
GetEquipProps 1

[@OnGetEquipProps]
; ------------------------------------------------------------------
; StrTok Էַֽ
#act
SendMsg 5 ַֽ...
Mov S_Eval_Props 1=11,2=12,3=13,9=15|6=11,10=12,11=13,12=15|67|127|2
StrTok S_Eval_Props S_LeftStr1 |
StrTok S_Eval_Props S_LeftStr2 |
StrTok S_Eval_Props S_LeftStr3 |
StrTok S_Eval_Props S_LeftStr4 |
StrTok S_Eval_Props S_LeftStr5 |
SendMsg 5 "Ȱ|ֽ<$STR(S_LeftStr1)>  <$STR(S_LeftStr2)>  <$STR(S_LeftStr3)>  <$STR(S_LeftStr4)>  <$STR(S_LeftStr5)>"

; ֽS_LeftStr1S_LeftStrXXһ
StrTok S_LeftStr1 S_PropVal1 ,
StrTok S_LeftStr1 S_PropVal2 ,
StrTok S_LeftStr1 S_PropVal3 ,
StrTok S_LeftStr1 S_PropVal4 ,
SendMsg 5 "ٰ,ֽ<$STR(S_PropVal1)>  <$STR(S_PropVal2)>  <$STR(S_PropVal3)>  <$STR(S_PropVal4)>"

StrTok S_PropVal1 S_Prop1 =
StrTok S_PropVal2 S_Prop2 =
StrTok S_PropVal3 S_Prop3 =
StrTok S_PropVal4 S_Prop4 =
SendMsg 5 "õ<$STR(S_Prop1)>=<$STR(S_PropVal1)><$STR(S_Prop2)>=<$STR(S_PropVal2)><$STR(S_Prop3)>=<$STR(S_PropVal3)><$STR(S_Prop4)>=<$STR(S_PropVal4)>"

; ------------------------------------------------------------------
#if
true
#act
; ȡԵM_Eval_Spec_Prop
FormatStr <$STR(M_EQUIP[%s]_EVAL_SPEC_PROPS{0})%s <$PARAM(3)> >
Mov M_Eval_Spec_Prop <$CALCRESULT>

; ļԣʹ#Call򻯽ű
#if
IsBitSet M_Eval_Spec_Prop 0
#act
SendMsg 5 "ӵԣԻ"
; ɾü
UnSetBit M_Eval_Spec_Prop 0

#if
IsBitSet M_Eval_Spec_Prop 1
#act
SendMsg 5 "ӵԣս"
; ɾü
UnSetBit M_Eval_Spec_Prop 1

#if
IsBitSet M_Eval_Spec_Prop 2
#act
SendMsg 5 "ӵԣ"
; ɾü
UnSetBit M_Eval_Spec_Prop 2

#if
IsBitSet M_Eval_Spec_Prop 3
#act
SendMsg 5 "ӵԣ̽"
; ɾü
UnSetBit M_Eval_Spec_Prop 3

#if
IsBitSet M_Eval_Spec_Prop 4
#act
SendMsg 5 "ӵԣ"
; ɾü
UnSetBit M_Eval_Spec_Prop 4

#if
IsBitSet M_Eval_Spec_Prop 5
#act
SendMsg 5 "ӵԣ"
#elseact
; ûС񼼡Ǿһ񼼡ȻԽM_Eval_Spec_PropֵװӵС񼼡
SetBit M_Eval_Spec_Prop 5

#if
!IsBitSet M_Eval_Spec_Prop 6
#act
SendMsg 5 "ԣħ"
SetBit M_Eval_Spec_Prop 6


; ------------------------------------------------------------------
; ȡԵM_Eval_Skill_Prop
FormatStr <$STR(M_EQUIP[%s]_EVAL_SKILL_PROPS{0})%s <$PARAM(3)> >
Mov M_Eval_Skill_Prop <$CALCRESULT>

; ӵмܣװǼܵȼ+1
#if
IsBitSet M_Eval_Skill_Prop 0
#act
SendMsg 5 "ӵ񼼣ؼ"
; ɾü
UnSetBit M_Eval_Skill_Prop 0

#if
IsBitSet M_Eval_Skill_Prop 1
#act
SendMsg 5 "ӵ񼼣ٻħؼ"
; ɾü
UnSetBit M_Eval_Skill_Prop 1

#if
IsBitSet M_Eval_Skill_Prop 2
#act
SendMsg 5 "ӵ񼼣ؼ"
; ɾü
UnSetBit M_Eval_Skill_Prop 2

#if
IsBitSet M_Eval_Skill_Prop 3
#act
SendMsg 5 "ӵ񼼣ؼ"


; ------------------------------------------------------------------
FormatStr <$STR(M_EQUIP[%s]_EVAL_TIMES_PROPS{0})%s <$PARAM(3)> >
Mov M_Eval_Times_Prop <$CALCRESULT>



; ------------------------------------------------------------------
#if
; װֻ⼼
!CompVal <$PARAM(3)> = 10000
#act
; ˿ո񣬷ַֹֽǳ
FormatStr "%s |%s |%s |%s | %s" $STR(S_Eval_Base_Prop) $STR(S_Eval_Myst_Prop) $STR(M_Eval_Spec_Prop) $STR(M_Eval_Skill_Prop) $STR(M_Eval_Times_Prop)
SendMsg 5 "õļԣ<$CALCRESULT>"
; 5ʧܵĽչΪ99ͨԵֻ
UpgradeItemEx <$PARAM(3)> 11 1 1 99 "" 1 <$CALCRESULT>
; Զװװ...
;#elseact
;UpgradeDlgItem