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

落日804452252

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

————————————抽取一件装备———————————-
# i0 N+ p& t. J) F. h* QMOV L$抽奖列表 [木剑,黑铁头盔,圣战手镯,圣战项链]
MOVR N$随机编码 0 4
$ M, {' U: |; r* J; I. q/ x. U% r. pGIVE <$STR(L$抽奖列表[<$STR(N$随机编码)>])> 1
. @3 ^# i, ~. M$ dSENDMSG 6 你抽取了一件<$STR(L$抽奖列表[<$STR(N$随机编码)>])>。

————————————随机触发技能———————————-
MOV L$触发技能列表 [13,22,35,44]
& ?8 t% f  n. Y4 l: @, F! t; d' TMOVR N$随机编码 0 4
# D0 s/ {% l# h5 j# \/ O' }releasemagicEX <$STR(L$触发技能列表[<$STR(N$随机编码)>])> 0 3 1
2 j/ ~: z* c  f: aSENDMSG 6 你的攻击随机触发了ID为<$STR(L$触发技能列表[<$STR(N$随机编码)>])>的技能。

- c& J. n$ v9 R

————————————随机抽取多件装备，并且不重复———————————-
2 l$ P% M/ _  |0 b6 sMOV L$抽奖列表 [木剑,黑铁头盔,圣战手镯,圣战项链,降妖除魔戒指,金手镯,铂金戒指]
( |2 ~# Y9 {/ P' }MOV N$抽取数量 5
& {$ x9 G; z6 g  [LOOPGOTO @_@随机抽取装备 <$STR(N$抽取数量)>

[@_@随机抽取装备]
" C7 ^* j6 W4 ~/ e& e5 [& T- Y#IF
! Z8 O5 R4 ?( l2 {0 q( k#ACT
GetListVarCount L$抽奖列表 N$奖池数量
MOVR N$本次抽奖编号 0 <$STR(N$奖池数量)>
GIVE <$STR(L$抽奖列表[<$STR(N$本次抽奖编号)>])> 1
DEC L$抽奖列表 <$STR(L$抽奖列表[<$STR(N$本次抽奖编号)>])>

; B" k# e9 M9 C% w6 k