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

落日804452252

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

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

————————————随机触发技能———————————-
MOV L$触发技能列表 [13,22,35,44]
$ u0 U- `, y( D! x+ H% PMOVR N$随机编码 0 4
* _% W6 {2 s. t/ YreleasemagicEX <$STR(L$触发技能列表[<$STR(N$随机编码)>])> 0 3 1
/ q) D* S3 E0 I# f- QSENDMSG 6 你的攻击随机触发了ID为<$STR(L$触发技能列表[<$STR(N$随机编码)>])>的技能。

————————————随机抽取多件装备，并且不重复———————————-
  j1 w  T1 y  ~5 ^4 S# `# ^2 k+ u* LMOV L$抽奖列表 [木剑,黑铁头盔,圣战手镯,圣战项链,降妖除魔戒指,金手镯,铂金戒指]
* h2 l6 u" V0 }2 y" xMOV N$抽取数量 5
: A6 e* T) w: _) V9 Y7 S$ NLOOPGOTO @_@随机抽取装备 <$STR(N$抽取数量)>

[@_@随机抽取装备]
#IF
#ACT
' x* ?& j6 b* w$ w0 T( IGetListVarCount L$抽奖列表 N$奖池数量
3 z/ K- W8 G7 \$ }1 cMOVR N$本次抽奖编号 0 <$STR(N$奖池数量)>
+ i( K5 r  ]9 @2 {# }8 H9 OGIVE <$STR(L$抽奖列表[<$STR(N$本次抽奖编号)>])> 1
DEC L$抽奖列表 <$STR(L$抽奖列表[<$STR(N$本次抽奖编号)>])>