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

落日804452252

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

————————————抽取一件装备———————————-
% }  _1 G; k2 \# s. eMOV L$抽奖列表 [木剑,黑铁头盔,圣战手镯,圣战项链]
MOVR N$随机编码 0 4
GIVE <$STR(L$抽奖列表[<$STR(N$随机编码)>])> 1
SENDMSG 6 你抽取了一件<$STR(L$抽奖列表[<$STR(N$随机编码)>])>。

————————————随机触发技能———————————-
MOV L$触发技能列表 [13,22,35,44]
MOVR N$随机编码 0 4
3 M( a' S! m! L7 F$ k; v- dreleasemagicEX <$STR(L$触发技能列表[<$STR(N$随机编码)>])> 0 3 1
SENDMSG 6 你的攻击随机触发了ID为<$STR(L$触发技能列表[<$STR(N$随机编码)>])>的技能。

# @* D6 N, G5 H" G

————————————随机抽取多件装备，并且不重复———————————-
8 V/ t  j4 G4 U% w; W* hMOV L$抽奖列表 [木剑,黑铁头盔,圣战手镯,圣战项链,降妖除魔戒指,金手镯,铂金戒指]
( r0 V, E4 c- F: j1 {2 q- yMOV N$抽取数量 5
4 K; q0 z% N0 @3 ULOOPGOTO @_@随机抽取装备 <$STR(N$抽取数量)>

[@_@随机抽取装备]
) Y) U* |/ R0 s9 h4 t2 v#IF
#ACT
* Q4 o3 q* m# E3 NGetListVarCount L$抽奖列表 N$奖池数量
/ N+ q: l8 ~; V7 P" h. ]4 c( MMOVR N$本次抽奖编号 0 <$STR(N$奖池数量)>
7 f. G+ p/ u/ w! C5 k/ ~1 ZGIVE <$STR(L$抽奖列表[<$STR(N$本次抽奖编号)>])> 1
DEC L$抽奖列表 <$STR(L$抽奖列表[<$STR(N$本次抽奖编号)>])>