使用数组做一个列表抽取功能

hswd

------------------------------------抽取一件装备----------------------------------
MOV L$抽奖列表 [木剑,黑铁头盔,圣战手镯,圣战项链]
MOVR N$随机编码 0 4
GIVE <$STR(L$抽奖列表[<$STR(N$随机编码)> 1
SENDMSG 6 你抽取了一件<$STR(L$抽奖列表[<$STR(N$随机编码)>。


------------------------------------随机触发技能----------------------------------
MOV L$触发技能列表 [13,22,35,44]
MOVR N$随机编码 0 4
releasemagicEX <$STR(L$触发技能列表[<$STR(N$随机编码)> 0 3 1
SENDMSG 6 你的攻击随机触发了ID为<$STR(L$触发技能列表[<$STR(N$随机编码)>的技能。



------------------------------------随机抽取多件装备，并且不重复----------------------------------
MOV L$抽奖列表 [木剑,黑铁头盔,圣战手镯,圣战项链,降妖除魔戒指,金手镯,铂金戒指]
MOV N$抽取数量 5
LOOPGOTO @_@随机抽取装备 <$STR(N$抽取数量)>

[@_@随机抽取装备]
#IF
#ACT
GetListVarCount L$抽奖列表 N$奖池数量
MOVR N$本次抽奖编号 0 <$STR(N$奖池数量)>
GIVE <$STR(L$抽奖列表[<$STR(N$本次抽奖编号)> 1
DEC L$抽奖列表 <$STR(L$抽奖列表[<$STR(N$本次抽奖编号)>