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

落日804452252

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

————————————抽取一件装备———————————-
7 }7 G& S$ p" YMOV L$抽奖列表 [木剑,黑铁头盔,圣战手镯,圣战项链]
MOVR N$随机编码 0 4
6 x* ]% Z8 ~2 [" A# Q+ q& B0 SGIVE <$STR(L$抽奖列表[<$STR(N$随机编码)>])> 1
SENDMSG 6 你抽取了一件<$STR(L$抽奖列表[<$STR(N$随机编码)>])>。

————————————随机触发技能———————————-
8 Z/ ^0 S- A2 H" s& aMOV L$触发技能列表 [13,22,35,44]
MOVR N$随机编码 0 4
: P  n4 m6 J4 B: ?releasemagicEX <$STR(L$触发技能列表[<$STR(N$随机编码)>])> 0 3 1
/ e; z2 T/ f% p  g3 nSENDMSG 6 你的攻击随机触发了ID为<$STR(L$触发技能列表[<$STR(N$随机编码)>])>的技能。

; e; [! Y, o% a

————————————随机抽取多件装备，并且不重复———————————-
MOV L$抽奖列表 [木剑,黑铁头盔,圣战手镯,圣战项链,降妖除魔戒指,金手镯,铂金戒指]
MOV N$抽取数量 5
" w/ _+ a; p( ?/ d0 m( yLOOPGOTO @_@随机抽取装备 <$STR(N$抽取数量)>

[@_@随机抽取装备]
, u* y( W  l. m* J#IF
3 G1 |+ ^$ r' }6 Y* h6 S% F& l#ACT
, v7 y) R! [2 t; X+ nGetListVarCount L$抽奖列表 N$奖池数量
MOVR N$本次抽奖编号 0 <$STR(N$奖池数量)>
0 a( B- U' [. l. k; zGIVE <$STR(L$抽奖列表[<$STR(N$本次抽奖编号)>])> 1
DEC L$抽奖列表 <$STR(L$抽奖列表[<$STR(N$本次抽奖编号)>])>