翎风引擎 使用数组做一个列表抽取功能

落日804452252

来源 西伯利亚的忠犬-狗哥

————————————抽取一件装备———————————-
$ Q8 t) C5 l0 F8 mMOV L$抽奖列表 [木剑,黑铁头盔,圣战手镯,圣战项链]
MOVR N$随机编码 0 4
9 H' I( i' u* P. w: \, LGIVE <$STR(L$抽奖列表[<$STR(N$随机编码)>])> 1
7 S+ B, b5 l4 ]8 x9 uSENDMSG 6 你抽取了一件<$STR(L$抽奖列表[<$STR(N$随机编码)>])>。

————————————随机触发技能———————————-
4 a2 U( I( X' }& }  q7 Y, w( uMOV L$触发技能列表 [13,22,35,44]
MOVR N$随机编码 0 4
% N4 C- v# X. d# ?6 N0 OreleasemagicEX <$STR(L$触发技能列表[<$STR(N$随机编码)>])> 0 3 1
/ O  I' m0 f3 C3 Q7 o& U/ N# VSENDMSG 6 你的攻击随机触发了ID为<$STR(L$触发技能列表[<$STR(N$随机编码)>])>的技能。

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

[@_@随机抽取装备]
#IF
#ACT
GetListVarCount L$抽奖列表 N$奖池数量
: B! v* o9 L3 lMOVR N$本次抽奖编号 0 <$STR(N$奖池数量)>
GIVE <$STR(L$抽奖列表[<$STR(N$本次抽奖编号)>])> 1
3 X, ~2 z* A/ g4 NDEC L$抽奖列表 <$STR(L$抽奖列表[<$STR(N$本次抽奖编号)>])>

. p+ ]) a1 M1 j. f6 H  ^2 \