[@MAIN]
ʿѾлһЩ<>\
԰ǽңҿʹǾװ\
\ \
<װ/@>       <˵/@˵>

[@]
ѡװ\ \
<װ()/@>  <װ(ħ)/@ħ>\ \
<װ()/@>  <װ()/@>\
\ \
</@back>\

[@]
Ҫ</AUTOCOLOR=249>Ʒ\
<ITEM=0,11,1461,0,0,Cs=5|6|10|11|15|16|19|20|21|22|23|24|26|27|28|30|55|70|71|72|73|74|75|76|77|78|79|80|81,ҪƷ>    <BTN=11,1261,0,8,1261,1262,$C6E8FF,$C6E8FF,$C6E8FF,һ,NULL>  <BTN=11,1261,0,8,1261,1262,$C6E8FF,$C6E8FF,$C6E8FF,ʮ,NULL>  <BTN=11,1261,0,8,1261,1262,$C6E8FF,$C6E8FF,$C6E8FF,ʮ,NULL>\
\ \ \<BTN=11,1261,0,10,1261,1262,$C6E8FF,$C6E8FF,$C6E8FF,,NULL/@>\
<Ʒ/AUTOCOLOR=$C6E8FF>\
<Ѿ/AUTOCOLOR=$C6E8FF>\
</AUTOCOLOR=$C6E8FF>\
</AUTOCOLOR=$C6E8FF>

[@SelectCustomBoxItem0]
#IF
True
#ACT
NoItemBack
MOV D0 <$BoxItemEx(0).btValue(26)>
MakeWord D0 <$BoxItemEx(0).btValue(27)>
MOV D1 <$MAXREFINE>
MAX D1 <$BoxItemEx(0).MaxRefine>
MOV D2 <$BoxItemEx(0).btValue(28)>
MakeWord D2 <$BoxItemEx(0).btValue(29)>
#SAY
Ҫ</AUTOCOLOR=249>Ʒ\
<ITEM=0,11,1461,0,0,Cs=5|6|10|11|15|16|19|20|21|22|23|24|26|27|28|30|55|70|71|72|73|74|75|76|77|78|79|80|81,ҪƷ>    <BTN=11,1261,0,8,1261,1262,$C6E8FF,$C6E8FF,$C6E8FF,һ,NULL/@һι>  <BTN=11,1261,0,8,1261,1262,$C6E8FF,$C6E8FF,$C6E8FF,ʮ,NULL/@ʮι>  <BTN=11,1261,0,8,1261,1262,$C6E8FF,$C6E8FF,$C6E8FF,ʮ,NULL/@ʮι>\
\ \ \<BTN=11,1261,0,10,1261,1262,$C6E8FF,$C6E8FF,$C6E8FF,,NULL/@>\
<Ʒ/AUTOCOLOR=$C6E8FF><$BoxItemEx(0).Name>\
<Ѿ/AUTOCOLOR=$C6E8FF><$STR(D0)>\
</AUTOCOLOR=$C6E8FF><$STR(D1)>\
</AUTOCOLOR=$C6E8FF><$STR(D2)>

[@һι]
#IF
Not CheckIsValidItem 0
#ACT
MESSAGEBOX ЧƷ
Break

#IF
True
#ACT
MOV D0 <$BoxItemEx(0).btValue(26)>
MakeWord D0 <$BoxItemEx(0).btValue(27)>
Inc D0 1
MOV D1 <$MAXREFINE>
MAX D1 <$BoxItemEx(0).MaxRefine>

#IF
LARGE <$STR(D0)> <$STR(D1)>
#ACT
MESSAGEBOX Ѵﵽ
break

#IF
CheckKimNeedle  1
#ACT
ReclaimItem [-4,1,0] 0 + 1
ReclaimItem [-4,1,0] 1 + 1
TakeKimNeedle  1
UpdateCustomDlg 0 0
goto @SelectCustomBoxItem0
break
#ELSEACT
MESSAGEBOX ľ㣡
break

[@ʮι]
#IF
Not CheckIsValidItem 0
#ACT
MESSAGEBOX ЧƷ
Break

#IF
True
#ACT
MOV D0 <$BoxItemEx(0).btValue(26)>
MakeWord D0 <$BoxItemEx(0).btValue(27)>
Inc D0 10
MOV D1 <$MAXREFINE>
MAX D1 <$BoxItemEx(0).MaxRefine>

#IF
LARGE <$STR(D0)> <$STR(D1)>
#ACT
MESSAGEBOX ޷ôΣ
break

#IF
CheckKimNeedle  10
#ACT
ReclaimItem [-4,1,0] 0 + 10
ReclaimItem [-4,1,0] 1 + 10
TakeKimNeedle  10
UpdateCustomDlg 0 0
goto @SelectCustomBoxItem0
break
#ELSEACT
MESSAGEBOX ľ㣡
break

[@ʮι]
#IF
Not CheckIsValidItem 0
#ACT
MESSAGEBOX ЧƷ
Break

#IF
True
#ACT
MOV D0 <$BoxItemEx(0).btValue(26)>
MakeWord D0 <$BoxItemEx(0).btValue(27)>
Inc D0 50
MOV D1 <$MAXREFINE>
MAX D1 <$BoxItemEx(0).MaxRefine>

#IF
LARGE <$STR(D0)> <$STR(D1)>
#ACT
MESSAGEBOX ޷ôΣ
break

#IF
CheckKimNeedle  50
#ACT
ReclaimItem [-4,1,0] 0 + 50
ReclaimItem [-4,1,0] 1 + 50
TakeKimNeedle  50
UpdateCustomDlg 0 0
goto @SelectCustomBoxItem0
break
#ELSEACT
MESSAGEBOX ľ㣡
break

[@CancelCustomBoxItem0]
#ACT
goto @


[@ħ]
Ҫ<ħ/AUTOCOLOR=249>Ʒ\
<ITEM=1,11,1461,0,0,Cs=5|6|10|11|15|16|19|20|21|22|23|24|26|27|28|30|55|70|71|72|73|74|75|76|77|78|79|80|81,ҪƷ>    <BTN=11,1261,0,8,1261,1262,$C6E8FF,$C6E8FF,$C6E8FF,һ,NULL>  <BTN=11,1261,0,8,1261,1262,$C6E8FF,$C6E8FF,$C6E8FF,ʮ,NULL>  <BTN=11,1261,0,8,1261,1262,$C6E8FF,$C6E8FF,$C6E8FF,ʮ,NULL>\
\ \ \<BTN=11,1261,0,10,1261,1262,$C6E8FF,$C6E8FF,$C6E8FF,,NULL/@>\
<Ʒ/AUTOCOLOR=$C6E8FF>\
<Ѿ/AUTOCOLOR=$C6E8FF>\
</AUTOCOLOR=$C6E8FF>\
<ħ/AUTOCOLOR=$C6E8FF>

[@SelectCustomBoxItem1]
#IF
True
#ACT
NoItemBack
MOV D0 <$BoxItemEx(1).btValue(26)>
MakeWord D0 <$BoxItemEx(1).btValue(27)>
MOV D1 <$MAXREFINE>
MAX D1 <$BoxItemEx(1).MaxRefine>
MOV D2 <$BoxItemEx(1).btValue(30)>
MakeWord D2 <$BoxItemEx(1).btValue(31)>
#SAY
Ҫ<ħ/AUTOCOLOR=249>Ʒ\
<ITEM=1,11,1461,0,0,Cs=5|6|10|11|15|16|19|20|21|22|23|24|26|27|28|30|55|70|71|72|73|74|75|76|77|78|79|80|81,ҪƷ>    <BTN=11,1261,0,8,1261,1262,$C6E8FF,$C6E8FF,$C6E8FF,һ,NULL/@һħ>  <BTN=11,1261,0,8,1261,1262,$C6E8FF,$C6E8FF,$C6E8FF,ʮ,NULL/@ʮħ>  <BTN=11,1261,0,8,1261,1262,$C6E8FF,$C6E8FF,$C6E8FF,ʮ,NULL/@ʮħ>\
\ \ \<BTN=11,1261,0,10,1261,1262,$C6E8FF,$C6E8FF,$C6E8FF,,NULL/@>\
<Ʒ/AUTOCOLOR=$C6E8FF><$BoxItemEx(1).Name>\
<Ѿ/AUTOCOLOR=$C6E8FF><$STR(D0)>\
</AUTOCOLOR=$C6E8FF><$STR(D1)>\
<ħ/AUTOCOLOR=$C6E8FF><$STR(D2)>

[@һħ]
#IF
Not CheckIsValidItem 1
#ACT
MESSAGEBOX ЧƷ
Break

#IF
True
#ACT
MOV D0 <$BoxItemEx(1).btValue(26)>
MakeWord D0 <$BoxItemEx(1).btValue(27)>
Inc D0 1
MOV D1 <$MAXREFINE>
MAX D1 <$BoxItemEx(1).MaxRefine>

#IF
LARGE <$STR(D0)> <$STR(D1)>
#ACT
MESSAGEBOX Ѵﵽ
break

#IF
CheckKimNeedle  1
#ACT
ReclaimItem [-4,1,1] 0 + 1
ReclaimItem [-4,1,1] 2 + 1
TakeKimNeedle  1
UpdateCustomDlg 1 0
goto @SelectCustomBoxItem1
break
#ELSEACT
MESSAGEBOX ľ㣡
break

[@ʮħ]
#IF
Not CheckIsValidItem 1
#ACT
MESSAGEBOX ЧƷ
Break

#IF
True
#ACT
MOV D0 <$BoxItemEx(1).btValue(26)>
MakeWord D0 <$BoxItemEx(1).btValue(27)>
Inc D0 10
MOV D1 <$MAXREFINE>
MAX D1 <$BoxItemEx(1).MaxRefine>

#IF
LARGE <$STR(D0)> <$STR(D1)>
#ACT
MESSAGEBOX ޷ôΣ
break

#IF
CheckKimNeedle  10
#ACT
ReclaimItem [-4,1,1] 0 + 10
ReclaimItem [-4,1,1] 2 + 10
TakeKimNeedle  10
UpdateCustomDlg 1 0
goto @SelectCustomBoxItem1
break
#ELSEACT
MESSAGEBOX ľ㣡
break

[@ʮħ]
#IF
Not CheckIsValidItem 1
#ACT
MESSAGEBOX ЧƷ
Break

#IF
True
#ACT
MOV D0 <$BoxItemEx(1).btValue(26)>
MakeWord D0 <$BoxItemEx(1).btValue(27)>
Inc D0 50
MOV D1 <$MAXREFINE>
MAX D1 <$BoxItemEx(1).MaxRefine>

#IF
LARGE <$STR(D0)> <$STR(D1)>
#ACT
MESSAGEBOX ޷ôΣ
break

#IF
CheckKimNeedle  50
#ACT
ReclaimItem [-4,1,1] 0 + 50
ReclaimItem [-4,1,1] 2 + 50
TakeKimNeedle  50
UpdateCustomDlg 1 0
goto @SelectCustomBoxItem1
break
#ELSEACT
MESSAGEBOX ľ㣡
break

[@CancelCustomBoxItem1]
#ACT
goto @ħ



[@]
Ҫ</AUTOCOLOR=249>Ʒ\
<ITEM=2,11,1461,0,0,Cs=5|6|10|11|15|16|19|20|21|22|23|24|26|27|28|30|55|70|71|72|73|74|75|76|77|78|79|80|81,ҪƷ>    <BTN=11,1261,0,8,1261,1262,$C6E8FF,$C6E8FF,$C6E8FF,һ,NULL>  <BTN=11,1261,0,8,1261,1262,$C6E8FF,$C6E8FF,$C6E8FF,ʮ,NULL>  <BTN=11,1261,0,8,1261,1262,$C6E8FF,$C6E8FF,$C6E8FF,ʮ,NULL>\
\ \ \<BTN=11,1261,0,10,1261,1262,$C6E8FF,$C6E8FF,$C6E8FF,,NULL/@>\
<Ʒ/AUTOCOLOR=$C6E8FF>\
<Ѿ/AUTOCOLOR=$C6E8FF>\
</AUTOCOLOR=$C6E8FF>\
</AUTOCOLOR=$C6E8FF>

[@SelectCustomBoxItem2]
#IF
True
#ACT
NoItemBack
MOV D0 <$BoxItemEx(2).btValue(26)>
MakeWord D0 <$BoxItemEx(2).btValue(27)>
MOV D1 <$MAXREFINE>
MAX D1 <$BoxItemEx(2).MaxRefine>
MOV D2 <$BoxItemEx(2).btValue(32)>
MakeWord D2 <$BoxItemEx(2).btValue(33)>
#SAY
Ҫ</AUTOCOLOR=249>Ʒ\
<ITEM=2,11,1461,0,0,Cs=5|6|10|11|15|16|19|20|21|22|23|24|26|27|28|30|55|70|71|72|73|74|75|76|77|78|79|80|81,ҪƷ>    <BTN=11,1261,0,8,1261,1262,$C6E8FF,$C6E8FF,$C6E8FF,һ,NULL/@һε>  <BTN=11,1261,0,8,1261,1262,$C6E8FF,$C6E8FF,$C6E8FF,ʮ,NULL/@ʮε>  <BTN=11,1261,0,8,1261,1262,$C6E8FF,$C6E8FF,$C6E8FF,ʮ,NULL/@ʮε>\
\ \ \<BTN=11,1261,0,10,1261,1262,$C6E8FF,$C6E8FF,$C6E8FF,,NULL/@>\
<Ʒ/AUTOCOLOR=$C6E8FF><$BoxItemEx(2).Name>\
<Ѿ/AUTOCOLOR=$C6E8FF><$STR(D0)>\
</AUTOCOLOR=$C6E8FF><$STR(D1)>\
</AUTOCOLOR=$C6E8FF><$STR(D2)>

[@һε]
#IF
Not CheckIsValidItem 2
#ACT
MESSAGEBOX ЧƷ
Break

#IF
True
#ACT
MOV D0 <$BoxItemEx(2).btValue(26)>
MakeWord D0 <$BoxItemEx(2).btValue(27)>
Inc D0 1
MOV D1 <$MAXREFINE>
MAX D1 <$BoxItemEx(2).MaxRefine>

#IF
LARGE <$STR(D0)> <$STR(D1)>
#ACT
MESSAGEBOX Ѵﵽ
break

#IF
CheckKimNeedle  1
#ACT
ReclaimItem [-4,1,2] 0 + 1
ReclaimItem [-4,1,2] 3 + 1
TakeKimNeedle  1
UpdateCustomDlg 2 0
goto @SelectCustomBoxItem2
break
#ELSEACT
MESSAGEBOX ľ㣡
break

[@ʮε]
#IF
Not CheckIsValidItem 2
#ACT
MESSAGEBOX ЧƷ
Break

#IF
True
#ACT
MOV D0 <$BoxItemEx(2).btValue(26)>
MakeWord D0 <$BoxItemEx(2).btValue(27)>
Inc D0 10
MOV D1 <$MAXREFINE>
MAX D1 <$BoxItemEx(2).MaxRefine>

#IF
LARGE <$STR(D0)> <$STR(D1)>
#ACT
MESSAGEBOX ޷ôΣ
break

#IF
CheckKimNeedle  10
#ACT
ReclaimItem [-4,1,2] 0 + 10
ReclaimItem [-4,1,2] 3 + 10
TakeKimNeedle  10
UpdateCustomDlg 2 0
goto @SelectCustomBoxItem2
break
#ELSEACT
MESSAGEBOX ľ㣡
break

[@ʮε]
#IF
Not CheckIsValidItem 2
#ACT
MESSAGEBOX ЧƷ
Break

#IF
True
#ACT
MOV D0 <$BoxItemEx(2).btValue(26)>
MakeWord D0 <$BoxItemEx(2).btValue(27)>
Inc D0 50
MOV D1 <$MAXREFINE>
MAX D1 <$BoxItemEx(2).MaxRefine>

#IF
LARGE <$STR(D0)> <$STR(D1)>
#ACT
MESSAGEBOX ޷ôΣ
break

#IF
CheckKimNeedle  50
#ACT
ReclaimItem [-4,1,2] 0 + 50
ReclaimItem [-4,1,2] 3 + 50
TakeKimNeedle  50
UpdateCustomDlg 2 0
goto @SelectCustomBoxItem2
break
#ELSEACT
MESSAGEBOX ľ㣡
break

[@CancelCustomBoxItem2]
#ACT
goto @



[@]
Ҫ</AUTOCOLOR=249>Ʒ\
<ITEM=3,11,1461,0,0,Cs=5|6|10|11|15|16|19|20|21|22|23|24|26|27|28|30|55|70|71|72|73|74|75|76|77|78|79|80|81,ҪƷ>    <BTN=11,1261,0,8,1261,1262,$C6E8FF,$C6E8FF,$C6E8FF,һ,NULL>  <BTN=11,1261,0,8,1261,1262,$C6E8FF,$C6E8FF,$C6E8FF,ʮ,NULL>  <BTN=11,1261,0,8,1261,1262,$C6E8FF,$C6E8FF,$C6E8FF,ʮ,NULL>\
\ \ \<BTN=11,1261,0,10,1261,1262,$C6E8FF,$C6E8FF,$C6E8FF,,NULL/@>\
<Ʒ/AUTOCOLOR=$C6E8FF>\
<Ѿ/AUTOCOLOR=$C6E8FF>\
</AUTOCOLOR=$C6E8FF>\
</AUTOCOLOR=$C6E8FF>

[@SelectCustomBoxItem3]
#IF
True
#ACT
NoItemBack
MOV D0 <$BoxItemEx(3).btValue(26)>
MakeWord D0 <$BoxItemEx(3).btValue(27)>
MOV D1 <$MAXREFINE>
MAX D1 <$BoxItemEx(3).MaxRefine>
MOV D2 <$BoxItemEx(3).btValue(34)>
MakeWord D2 <$BoxItemEx(3).btValue(35)>
#SAY
Ҫ</AUTOCOLOR=249>Ʒ\
<ITEM=3,11,1461,0,0,Cs=5|6|10|11|15|16|19|20|21|22|23|24|26|27|28|30|55|70|71|72|73|74|75|76|77|78|79|80|81,ҪƷ>    <BTN=11,1261,0,8,1261,1262,$C6E8FF,$C6E8FF,$C6E8FF,һ,NULL/@һδ>  <BTN=11,1261,0,8,1261,1262,$C6E8FF,$C6E8FF,$C6E8FF,ʮ,NULL/@ʮδ>  <BTN=11,1261,0,8,1261,1262,$C6E8FF,$C6E8FF,$C6E8FF,ʮ,NULL/@ʮδ>\
\ \ \<BTN=11,1261,0,10,1261,1262,$C6E8FF,$C6E8FF,$C6E8FF,,NULL/@>\
<Ʒ/AUTOCOLOR=$C6E8FF><$BoxItemEx(3).Name>\
<Ѿ/AUTOCOLOR=$C6E8FF><$STR(D0)>\
</AUTOCOLOR=$C6E8FF><$STR(D1)>\
</AUTOCOLOR=$C6E8FF><$STR(D2)>

[@һδ]
#IF
Not CheckIsValidItem 3
#ACT
MESSAGEBOX ЧƷ
Break

#IF
True
#ACT
MOV D0 <$BoxItemEx(3).btValue(26)>
MakeWord D0 <$BoxItemEx(3).btValue(27)>
Inc D0 1
MOV D1 <$MAXREFINE>
MAX D1 <$BoxItemEx(3).MaxRefine>

#IF
LARGE <$STR(D0)> <$STR(D1)>
#ACT
MESSAGEBOX Ѵﵽ
break

#IF
CheckKimNeedle  1
#ACT
ReclaimItem [-4,1,3] 0 + 1
ReclaimItem [-4,1,3] 4 + 1
TakeKimNeedle  1
UpdateCustomDlg 3 0
goto @SelectCustomBoxItem3
break
#ELSEACT
MESSAGEBOX ľ㣡
break

[@ʮδ]
#IF
Not CheckIsValidItem 3
#ACT
MESSAGEBOX ЧƷ
Break

#IF
True
#ACT
MOV D0 <$BoxItemEx(3).btValue(26)>
MakeWord D0 <$BoxItemEx(3).btValue(27)>
Inc D0 10
MOV D1 <$MAXREFINE>
MAX D1 <$BoxItemEx(3).MaxRefine>

#IF
LARGE <$STR(D0)> <$STR(D1)>
#ACT
MESSAGEBOX ޷ôΣ
break

#IF
CheckKimNeedle  10
#ACT
ReclaimItem [-4,1,3] 0 + 10
ReclaimItem [-4,1,3] 4 + 10
TakeKimNeedle  10
UpdateCustomDlg 3 0
goto @SelectCustomBoxItem3
break
#ELSEACT
MESSAGEBOX ľ㣡
break

[@ʮδ]
#IF
Not CheckIsValidItem 3
#ACT
MESSAGEBOX ЧƷ
Break

#IF
True
#ACT
MOV D0 <$BoxItemEx(3).btValue(26)>
MakeWord D0 <$BoxItemEx(3).btValue(27)>
Inc D0 50
MOV D1 <$MAXREFINE>
MAX D1 <$BoxItemEx(3).MaxRefine>

#IF
LARGE <$STR(D0)> <$STR(D1)>
#ACT
MESSAGEBOX ޷ôΣ
break

#IF
CheckKimNeedle  50
#ACT
ReclaimItem [-4,1,3] 0 + 50
ReclaimItem [-4,1,3] 4 + 50
TakeKimNeedle  50
UpdateCustomDlg 3 0
goto @SelectCustomBoxItem3
break
#ELSEACT
MESSAGEBOX ľ㣡
break

[@CancelCustomBoxItem3]
#ACT
goto @


[@˵]
ʹþᾫʱ100%ɹҪװ\
ȥ<ʦ>æ\
\ \
</@back>\
