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

落日804452252

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

————————————抽取一件装备———————————-
2 Z7 b/ }$ [1 [' c, LMOV L$抽奖列表 [木剑,黑铁头盔,圣战手镯,圣战项链]
MOVR N$随机编码 0 4
9 A0 [+ S/ [1 e) H& S* G! a. QGIVE <$STR(L$抽奖列表[<$STR(N$随机编码)>])> 1
$ m1 w! x( n1 M/ ?8 dSENDMSG 6 你抽取了一件<$STR(L$抽奖列表[<$STR(N$随机编码)>])>。

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

$ o* b: _3 z/ A9 D  q+ b" I8 h! X

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

[@_@随机抽取装备]
#IF
& C* e3 l* _7 O! A  F5 z#ACT
GetListVarCount L$抽奖列表 N$奖池数量
# w- e1 o) K7 x! j% x, Q; CMOVR N$本次抽奖编号 0 <$STR(N$奖池数量)>
GIVE <$STR(L$抽奖列表[<$STR(N$本次抽奖编号)>])> 1
/ H! j/ a' N6 K1 f6 c9 WDEC L$抽奖列表 <$STR(L$抽奖列表[<$STR(N$本次抽奖编号)>])>