十连抽怎么弄

[chaos]

写了单抽的，想知道怎么变成十连抽，求dalao指点

 

[懒孩纸(*^ω^*)]

十连抽
$写 临时/剩余 1 10$
$调用 0 连续抽奖$

[内部]连续抽奖
A:$读 临时/剩余 1 0$
如果:%A%==0
a:$读 临时/1 1 结果$
b...1-10全读
抽奖结果
1：%a%
2...1-10
返回
如果尾
$写 临时/剩余 1 [%A%-1]$
$写 临时/%A% 1 结果$
$调用 0 连续抽奖$

差不多就这流程

 

[chaos]

感谢

十连抽
$写 临时/剩余 1 10$
$调用 0 连续抽奖$

[内部]连续抽奖
A:$读 临时/剩余 1 0$
如果:%A%==0
a:$读 临时/1 1 结果$
b...1-10全读
抽奖结果
1：%a%
2...1-10
返回
如果尾
$写 临时/剩余 1 [%A%-1]$
$写 临时/%A% 1 结果$
$调用 0 连续抽奖$

差不多就这流程

感谢！