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

落日804452252

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

————————————抽取一件装备———————————-
MOV L$抽奖列表 [木剑,黑铁头盔,圣战手镯,圣战项链]
& [! d+ r  K8 _+ a$ Q6 WMOVR N$随机编码 0 4
' R4 R2 i& `) K9 t7 EGIVE <$STR(L$抽奖列表[<$STR(N$随机编码)>])> 1
$ h: x# ]3 f) _SENDMSG 6 你抽取了一件<$STR(L$抽奖列表[<$STR(N$随机编码)>])>。

————————————随机触发技能———————————-
! p! b" I8 H  e; y* c6 @MOV L$触发技能列表 [13,22,35,44]
' G  {$ p; I/ n" }MOVR N$随机编码 0 4
releasemagicEX <$STR(L$触发技能列表[<$STR(N$随机编码)>])> 0 3 1
SENDMSG 6 你的攻击随机触发了ID为<$STR(L$触发技能列表[<$STR(N$随机编码)>])>的技能。

) K) O2 J& c# O! \4 Z; t, @

————————————随机抽取多件装备，并且不重复———————————-
MOV L$抽奖列表 [木剑,黑铁头盔,圣战手镯,圣战项链,降妖除魔戒指,金手镯,铂金戒指]
& n5 C" g) F$ L; p, S7 P4 GMOV N$抽取数量 5
2 d1 Y5 t' R+ \) yLOOPGOTO @_@随机抽取装备 <$STR(N$抽取数量)>

[@_@随机抽取装备]
#IF
#ACT
+ W. l/ I/ c; q: b5 U3 NGetListVarCount L$抽奖列表 N$奖池数量
MOVR N$本次抽奖编号 0 <$STR(N$奖池数量)>
# y+ c. B# i- O3 VGIVE <$STR(L$抽奖列表[<$STR(N$本次抽奖编号)>])> 1
DEC L$抽奖列表 <$STR(L$抽奖列表[<$STR(N$本次抽奖编号)>])>

- u& J" A7 @: }) w