在多个物品中取指定数量物品

[@main]
#if
#Act
MOV l$取物品
MOV N$取物品 0
MOV N$取符合数量 2
#if
CheckItem 木剑
#act
GetBagItemCount 木剑 N$无用显示数量
inc l$取物品 木剑
inc N$取物品 <$STR(N$无用显示数量)>

#if
CheckItem 乌木剑
#act
GetBagItemCount 乌木剑 N$无用显示数量
inc l$取物品 乌木剑
inc N$取物品 <$STR(N$无用显示数量)>

#if
EQUAL l$取物品
#Act
MessageBOx <系统提示：/SCOLOR=250>{[什么都没有]/SCOLOR=31}
Break

#if
small N$取物品 2
#Act
MessageBOx <系统提示：/SCOLOR=250>{[数量不足]/SCOLOR=31}
Break

#if
#ACT
GetListVarCount l$取物品 N1
;当数量不确定的时候,使用比较
MOV N$计算器 0
While N$计算器 < <$str(N1)>
loopgoto @取物品
Inc N$计算器 1
EndWhile

[@取物品]
#if
#Act
GetBagItemCount <$STR(L$取物品[<$STR(l$取物品)>])> N$无用显示数量

#or
LARGE N$无用显示数量 <$STR(N$取符合数量)>
EQUal N$无用显示数量 <$STR(N$取符合数量)>
#act
take <$STR(L$取物品[<$STR(l$取物品)>])> <$STR(N$取符合数量)>
MOV N$计算器 999
#ELSEACT
take <$STR(L$取物品[<$STR(l$取物品)>])> <$STR(N$无用显示数量)>
DEC N$取符合数量 <$STR(N$无用显示数量)>