使用数组做一个列表抽取功能

西伯利亚的忠犬

------------------------------------抽取一件装备----------------------------------
MOV 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
releasemagicEX <$STR(L$触发技能列表[<$STR(N$随机编码)>])> 0 3 1
SENDMSG 6 你的攻击随机触发了ID为<$STR(L$触发技能列表[<$STR(N$随机编码)>])>的技能。



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

[@_@随机抽取装备]
#IF
#ACT
GetListVarCount L$抽奖列表 N$奖池数量
MOVR N$本次抽奖编号 0 <$STR(N$奖池数量)>
GIVE <$STR(L$抽奖列表[<$STR(N$本次抽奖编号)>])> 1
DEC L$抽奖列表 <$STR(L$抽奖列表[<$STR(N$本次抽奖编号)>])>

P变量不给力呀

先赞后看

追逐到底

先赞后看

442671

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

[@_@随机抽取装备]
#IF
#ACT
GetListVarCount L$抽奖列表 N$奖池数量
MOVR N$本次抽奖编号 0 <$STR(N$奖池数量)>
GIVE <$STR(L$抽奖列表[<$STR(N$本次抽奖编号)>])> 1
DEC L$抽奖列表 <$STR(L$抽奖列表[<$STR(N$本次抽奖编号)>])>


我个人觉得应该修改为:
------------------------------------随机抽取多件装备，并且不重复----------------------------------
MOV L$抽奖列表 [木剑,黑铁头盔,圣战手镯,圣战项链,降妖除魔戒指,金手镯,铂金戒指]
MOV N$抽取数量 5
GetListVarCount L$抽奖列表 N$物品总数
GetMultiRandomNumber 0 N$物品总数 N$抽取数量 N1 M1
MOV P1 1
While P1 < M1
GIVE L$抽奖列表[<$str(N<$STR(p1)>)>]
Inc P1 1
EndWhile

a5557343

不重复抽取
MOV S$抽奖列表 木剑#1|黑铁头盔#1|圣战手镯#1|圣战项链#1|降妖除魔戒指#1|金手镯#1|铂金戒指#1
MOV N$抽奖次数 7
MOV N1 0
While N1 < <$STR(N$抽奖次数)>
RandomSplit <$STR(S$抽奖列表)> 0 S$本次抽奖 2 S$抽奖列表
GIVE <$STR(S$本次抽奖)>
INC N1 1
EndWhile

这样更适合抽取数据带几率的

blue

我就看看啊

mihu7456

实现的方法很多，以上三位的也让我学习了。有空去精简一下。

风趣

受教了...

喜哥爱传奇

楼上几位的方法受教了 受益匪浅！

82280095

受教了...