[@ų]
{
#IF
CHECKKIMNEEDLE  10 0
#ACT
PULSESEXP + 200000
SendCenterMsg 249 0 #32+200000 0 0 9
BREAK
#SAY
ʹóˡ\ \

<ʹ1һ/@ʹ1ų>\
<ʹ10һ/@ʹ10ų>\
<ʹ100һ/@ʹ100ų>\
<ʹȫһ/@ʹȫų>\

#ELSEACT
PULSESEXP + 200000
SendCenterMsg 249 0 #32+200000 0 0 9
BREAK


[@ʹ100ų]
#IF
CHECKKIMNEEDLE  100 0
#ACT
TAKEKIMNEEDLE  100 0
PULSESEXP + 20000000
SendCenterMsg 249 0 #32+20000000 0 0 9
BREAK
#SAY
ʹóˡ\ \

<ʹ1һ/@ʹ1ų>\
<ʹ10һ/@ʹ10ų>\
<ʹ100һ/@ʹ100ų>\
<ʹȫһ/@ʹȫų>\

#ELSEACT
BREAK
#ELSESAY
100͸Ͽ콻Ұɣ


[@ʹ10ų]
#IF
CHECKKIMNEEDLE  10 0
#ACT
TAKEKIMNEEDLE  10 0
PULSESEXP + 2000000
SendCenterMsg 249 0 #32+2000000 0 0 9
BREAK
#SAY
ʹóˡ\ \

<ʹ1һ/@ʹ1ų>\
<ʹ10һ/@ʹ10ų>\
<ʹ100һ/@ʹ100ų>\
<ʹȫһ/@ʹȫų>\

#ELSEACT
BREAK
#ELSESAY
10͸Ͽ콻Ұɣ


[@ʹ1ų]
#IF
CHECKKIMNEEDLE  1 0
#ACT
TAKEKIMNEEDLE  1 0
PULSESEXP + 200000
SendCenterMsg 249 0 #32+200000 0 0 9
BREAK
#SAY
ʹóˡ\ \

<ʹ1һ/@ʹ1ų>\
<ʹ10һ/@ʹ10ų>\
<ʹ100һ/@ʹ100ų>\
<ʹȫһ/@ʹȫų>\

#ELSEACT
BREAK
#ELSESAY
1͸Ͽ콻Ұɣ

[@ȫ]
#IF
EQUAL <$CURRENTITEM.NAME> 
#ACT
;ľ
MOV M0 200000
;SENDMSG 5 <$STR(M0)>
;
MUL M0 <$CURRENTITEM.DURA>
;SENDMSG 5 <$STR(M0)>
PULSESEXP + <$STR(M0)>
;ƷΪ1ԱTakeThisItem䳹ջ
ReclaimItem -7 78 = 1
TakeThisItem 1


[@ʹȫų]
#IF
True
#ACT
EachBagItems @ȫ
CLOSE
BREAK

#IF
CHECKKIMNEEDLE  10000 0
#ACT
TAKEKIMNEEDLE  10000 0
PULSESEXP + 2000000000
SendCenterMsg 249 0 #32+2000000000 0 0 9
GOTO @ʹȫų
BREAK
#IF
CHECKKIMNEEDLE  1000 0
#ACT
TAKEKIMNEEDLE  1000 0
PULSESEXP + 200000000
SendCenterMsg 249 0 #32+200000000 0 0 9
GOTO @ʹȫų
BREAK
#IF
CHECKKIMNEEDLE  100 0
#ACT
TAKEKIMNEEDLE  100 0
PULSESEXP + 20000000
SendCenterMsg 249 0 #32+20000000 0 0 9
GOTO @ʹȫų
BREAK
#IF
CHECKKIMNEEDLE  10 0
#ACT
TAKEKIMNEEDLE  10 0
PULSESEXP + 2000000
SendCenterMsg 249 0 #32+2000000 0 0 9
GOTO @ʹȫų
BREAK
#IF
CHECKKIMNEEDLE  1 0
#ACT
TAKEKIMNEEDLE  1 0
PULSESEXP + 200000
SendCenterMsg 249 0 #32+200000 0 0 9
GOTO @ʹȫų
BREAK
#ELSEACT
CLOSE
BREAK
}