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

落日804452252

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

————————————抽取一件装备———————————-
: t6 E7 W. f8 h2 R9 s( r" VMOV L$抽奖列表 [木剑,黑铁头盔,圣战手镯,圣战项链]
, p, a6 I- b9 zMOVR N$随机编码 0 4
GIVE <$STR(L$抽奖列表[<$STR(N$随机编码)>])> 1
7 ?1 I* r3 q- [! V9 h4 N0 w& GSENDMSG 6 你抽取了一件<$STR(L$抽奖列表[<$STR(N$随机编码)>])>。

————————————随机触发技能———————————-
MOV L$触发技能列表 [13,22,35,44]
MOVR N$随机编码 0 4
, \- |& i) {& i! CreleasemagicEX <$STR(L$触发技能列表[<$STR(N$随机编码)>])> 0 3 1
SENDMSG 6 你的攻击随机触发了ID为<$STR(L$触发技能列表[<$STR(N$随机编码)>])>的技能。

————————————随机抽取多件装备，并且不重复———————————-
0 p5 f+ J. s: }5 Q" [/ x% I+ SMOV L$抽奖列表 [木剑,黑铁头盔,圣战手镯,圣战项链,降妖除魔戒指,金手镯,铂金戒指]
MOV N$抽取数量 5
/ n. I9 S. o. R) B8 [& _: X, R9 ?LOOPGOTO @_@随机抽取装备 <$STR(N$抽取数量)>

[@_@随机抽取装备]
#IF
#ACT
: {% c3 A0 e" l* CGetListVarCount L$抽奖列表 N$奖池数量
MOVR N$本次抽奖编号 0 <$STR(N$奖池数量)>
* W6 R: W' L, M. ?GIVE <$STR(L$抽奖列表[<$STR(N$本次抽奖编号)>])> 1
3 C9 a7 K3 A% V  D* rDEC L$抽奖列表 <$STR(L$抽奖列表[<$STR(N$本次抽奖编号)>])>

* x) c+ _0 K* t