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

落日804452252

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

————————————抽取一件装备———————————-
' x$ x  l/ r% M, P/ R, jMOV L$抽奖列表 [木剑,黑铁头盔,圣战手镯,圣战项链]
, [- Y' s  e  B7 O/ K$ W; z) k, ?/ fMOVR N$随机编码 0 4
GIVE <$STR(L$抽奖列表[<$STR(N$随机编码)>])> 1
( J3 d; E, Y, u$ j* @  W: SSENDMSG 6 你抽取了一件<$STR(L$抽奖列表[<$STR(N$随机编码)>])>。

————————————随机触发技能———————————-
# i' g/ N1 e9 A" Q3 O1 FMOV L$触发技能列表 [13,22,35,44]
MOVR N$随机编码 0 4
  c( ~- t' g+ y2 b1 _releasemagicEX <$STR(L$触发技能列表[<$STR(N$随机编码)>])> 0 3 1
  H3 D* l" _+ Q2 y+ q5 Y, w! ySENDMSG 6 你的攻击随机触发了ID为<$STR(L$触发技能列表[<$STR(N$随机编码)>])>的技能。

, P; V2 i3 V% a7 E5 V$ o$ D# U

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

[@_@随机抽取装备]
#IF
#ACT
GetListVarCount L$抽奖列表 N$奖池数量
  l" r4 O0 [9 a! P. r  JMOVR N$本次抽奖编号 0 <$STR(N$奖池数量)>
! a2 W- o2 ?3 A7 g% j/ u8 y; E% nGIVE <$STR(L$抽奖列表[<$STR(N$本次抽奖编号)>])> 1
DEC L$抽奖列表 <$STR(L$抽奖列表[<$STR(N$本次抽奖编号)>])>