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

落日804452252

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

————————————抽取一件装备———————————-
! D: G# _1 R5 i; M- h: X. ZMOV L$抽奖列表 [木剑,黑铁头盔,圣战手镯,圣战项链]
MOVR N$随机编码 0 4
$ z( l$ a" L8 U( m. `* JGIVE <$STR(L$抽奖列表[<$STR(N$随机编码)>])> 1
1 Y$ Q2 `, c2 S- _1 x+ XSENDMSG 6 你抽取了一件<$STR(L$抽奖列表[<$STR(N$随机编码)>])>。

————————————随机触发技能———————————-
MOV L$触发技能列表 [13,22,35,44]
0 B; W4 A  n+ {* j! w! RMOVR N$随机编码 0 4
3 R: k* E! ^3 w$ O$ P+ w9 D6 P- areleasemagicEX <$STR(L$触发技能列表[<$STR(N$随机编码)>])> 0 3 1
SENDMSG 6 你的攻击随机触发了ID为<$STR(L$触发技能列表[<$STR(N$随机编码)>])>的技能。

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

[@_@随机抽取装备]
#IF
#ACT
GetListVarCount L$抽奖列表 N$奖池数量
$ T* X$ T1 ?6 ]; M  c7 YMOVR N$本次抽奖编号 0 <$STR(N$奖池数量)>
3 V. o$ U3 K& `. N' P$ |0 cGIVE <$STR(L$抽奖列表[<$STR(N$本次抽奖编号)>])> 1
0 L1 q& ?& ]  D& V8 [% K) i- a  @3 xDEC L$抽奖列表 <$STR(L$抽奖列表[<$STR(N$本次抽奖编号)>])>

& v0 N, A0 t/ ]+ t7 L2 v