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

落日804452252

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

————————————抽取一件装备———————————-
MOV L$抽奖列表 [木剑,黑铁头盔,圣战手镯,圣战项链]
8 i4 |: n" m& M2 t8 _MOVR N$随机编码 0 4
4 N: p6 B' o; @1 J" yGIVE <$STR(L$抽奖列表[<$STR(N$随机编码)>])> 1
SENDMSG 6 你抽取了一件<$STR(L$抽奖列表[<$STR(N$随机编码)>])>。

————————————随机触发技能———————————-
MOV L$触发技能列表 [13,22,35,44]
) U1 U0 U& X* k- p  [4 N/ F9 IMOVR N$随机编码 0 4
releasemagicEX <$STR(L$触发技能列表[<$STR(N$随机编码)>])> 0 3 1
7 ?+ T. S3 C% O9 n4 y4 r# o. l- QSENDMSG 6 你的攻击随机触发了ID为<$STR(L$触发技能列表[<$STR(N$随机编码)>])>的技能。

1 r- h* q" t, P$ _& N7 Z

————————————随机抽取多件装备，并且不重复———————————-
: ^. A; L5 a2 aMOV L$抽奖列表 [木剑,黑铁头盔,圣战手镯,圣战项链,降妖除魔戒指,金手镯,铂金戒指]
MOV N$抽取数量 5
& V, A4 g4 p/ N5 lLOOPGOTO @_@随机抽取装备 <$STR(N$抽取数量)>

[@_@随机抽取装备]
#IF
# P2 P) n% i1 ?- u( z, c. ^#ACT
8 }! z, g9 p& z; ^6 dGetListVarCount L$抽奖列表 N$奖池数量
MOVR N$本次抽奖编号 0 <$STR(N$奖池数量)>
  L# Y/ b, J6 d# vGIVE <$STR(L$抽奖列表[<$STR(N$本次抽奖编号)>])> 1
DEC L$抽奖列表 <$STR(L$抽奖列表[<$STR(N$本次抽奖编号)>])>