在指定材料中选择任意一个材料随机扣除

#if
#Act
MOV l$取物品
#if
CheckItem 木剑
#act
inc l$取物品 木剑
#if
CheckItem 乌木剑
#act
inc l$取物品 乌木剑


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

GetListVarCount l$取物品 N1
MOVR n$取位置 0 <$STR(N1)>
MessageBOx <$str(l$取物品[<$STR(n$取位置)>])>