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

落日804452252

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

————————————抽取一件装备———————————-
MOV L$抽奖列表 [木剑,黑铁头盔,圣战手镯,圣战项链]
MOVR N$随机编码 0 4
4 R0 w( p6 n# h4 _GIVE <$STR(L$抽奖列表[<$STR(N$随机编码)>])> 1
8 e# E  [+ S: Q7 u* f4 W- e1 gSENDMSG 6 你抽取了一件<$STR(L$抽奖列表[<$STR(N$随机编码)>])>。

————————————随机触发技能———————————-
3 _) w, ], J" {+ C2 B/ L& GMOV L$触发技能列表 [13,22,35,44]
' j" e0 Q& Z4 V# Y+ u5 QMOVR N$随机编码 0 4
releasemagicEX <$STR(L$触发技能列表[<$STR(N$随机编码)>])> 0 3 1
2 h% W# s+ [0 E& CSENDMSG 6 你的攻击随机触发了ID为<$STR(L$触发技能列表[<$STR(N$随机编码)>])>的技能。

9 J. e: ?4 f3 V( m0 D1 q3 e- r

————————————随机抽取多件装备，并且不重复———————————-
) G/ l. e. h7 s- y4 x( t3 TMOV L$抽奖列表 [木剑,黑铁头盔,圣战手镯,圣战项链,降妖除魔戒指,金手镯,铂金戒指]
MOV N$抽取数量 5
+ ]) u% K) r- x4 ~$ D0 m" `LOOPGOTO @_@随机抽取装备 <$STR(N$抽取数量)>

[@_@随机抽取装备]
#IF
#ACT
6 n1 y3 C- }- m3 u. WGetListVarCount L$抽奖列表 N$奖池数量
5 u4 R3 B& W2 [) r) JMOVR N$本次抽奖编号 0 <$STR(N$奖池数量)>
3 i/ x* g  W  b- F  E% d0 aGIVE <$STR(L$抽奖列表[<$STR(N$本次抽奖编号)>])> 1
DEC L$抽奖列表 <$STR(L$抽奖列表[<$STR(N$本次抽奖编号)>])>