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

落日804452252

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

————————————抽取一件装备———————————-
MOV L$抽奖列表 [木剑,黑铁头盔,圣战手镯,圣战项链]
MOVR N$随机编码 0 4
GIVE <$STR(L$抽奖列表[<$STR(N$随机编码)>])> 1
: i2 b6 c' c9 T% jSENDMSG 6 你抽取了一件<$STR(L$抽奖列表[<$STR(N$随机编码)>])>。

————————————随机触发技能———————————-
MOV L$触发技能列表 [13,22,35,44]
0 t/ a: D7 k6 C4 r1 ~* E: ~MOVR N$随机编码 0 4
8 o$ P. G6 s" ~) DreleasemagicEX <$STR(L$触发技能列表[<$STR(N$随机编码)>])> 0 3 1
SENDMSG 6 你的攻击随机触发了ID为<$STR(L$触发技能列表[<$STR(N$随机编码)>])>的技能。

. n& ?! ?& w7 V3 l# F. |3 i

————————————随机抽取多件装备，并且不重复———————————-
MOV L$抽奖列表 [木剑,黑铁头盔,圣战手镯,圣战项链,降妖除魔戒指,金手镯,铂金戒指]
7 n3 |8 _9 [1 ?, a, rMOV N$抽取数量 5
LOOPGOTO @_@随机抽取装备 <$STR(N$抽取数量)>

[@_@随机抽取装备]
6 f. o4 q4 W  X- j# ?5 T1 w#IF
#ACT
3 u3 g; q3 X* A- cGetListVarCount L$抽奖列表 N$奖池数量
MOVR N$本次抽奖编号 0 <$STR(N$奖池数量)>
GIVE <$STR(L$抽奖列表[<$STR(N$本次抽奖编号)>])> 1
DEC L$抽奖列表 <$STR(L$抽奖列表[<$STR(N$本次抽奖编号)>])>

* L8 Z3 B3 _' j: H# X* r2 k, |