拼手气抢红包算法,原作者:zyfxin

442671

;========================脚本·说明=======================
;N$固定红包数量=红包数量
;N$保底比例=最少可获得金额 占总进的百分比  默认1%
;N$红包总金额=本次红包的总金额
;实际应用的时候，只需要修改上边三个变量即可
;计算结果放置在  变量 N$最终红包金额 [1~N]，你也可以修改成存储到列表，看个人习惯
;=====================================================
[@手气红包计算程序_CALL]
#IF
#ACT
MOV N$固定红包数量 30
MOV N$红包总金额 10000
MOV N$保底比例 1
;==================================================
MOV N$调试_累积发放金额对比 0
MOV N$已发红包次数 0
MOV N$剩余红包金额 <$STR(N$红包总金额)>
MOV N$剩余红包数量 <$str(N$固定红包数量)>
MOV N$执行次数 <$str(N$固定红包数量)>
DEC N$执行次数 1
CalcPercent  <$str(N$红包总金额)>  <$str(N$保底比例)> <$str(N$保底红包)>
Loopgoto @计算红包数据 <$str(N$执行次数)>
Sendmsg 7 -----------------------------------------------  151 0
Sendmsg 7 发放总金额=<$str(N$调试_累积发放金额对比)>RMB点
Break

[@计算红包数据]
#IF
#ACT
;累积红包发放数量
INC N$已发红包次数 1
DEC N$剩余红包数量 1
;计算公式   【 剩余红包金额=红包总额-剩余红包数量*保底红包/剩余红包数量】

MOV N$随机安全上限 <$STR(N$剩余红包金额)>
MUL N$随机安全上限_临时 <$STR(N$剩余红包数量)>  <$str(N$保底红包)>
DEC N$随机安全上限 <$STR(N$随机安全上限_临时)>
DIV N$随机安全上限 <$STR(N$剩余红包数量)>

;赋值  随机上下限
INC N$红包最高取值 1
MOV N$红包最低取值 <$str(N$保底红包)>
MOV N$红包最高取值 <$str(N$随机安全上限)>

;存放数组 N$最终红包金额 [1~N]
MOVR N$本次红包金额 <$STR(N$红包最低取值)>  <$STR(N$红包最高取值)>
MOV N$最终红包金额[<$str(N$已发红包次数)>]   <$STR(N$本次红包金额)>
;扣除本次发放红包金额
DEC N$剩余红包金额 <$STR(N$本次红包金额)>



;可删除无用的调试内容
;================================================================
#IF
#ACT
Sendmsg 7 第<$str(N$已发红包次数)>个红包,金额(<$STR(N$最终红包金额[<$str(N$已发红包次数)>])>)RMB点，剩余：<$str(N$剩余红包金额)>RMB点   151 0

INC N$调试_累积发放金额对比 <$STR(N$本次红包金额)>
;================================================================
;将未发放的剩余红包，给予最后一人
#IF
EQUAL N$已发红包次数 29
#ACT
INC N$调试_累积发放金额对比 <$STR(N$剩余红包金额)>  \\可删除无用的调试内容
MOV N$最终红包金额[30] <$STR(N$剩余红包金额)>
DEC N$剩余红包金额 <$STR(N$最终红包金额[30])>
Sendmsg 7 第30个红包,金额(<$STR(N$最终红包金额[30])>)RMB点，剩余：<$str(N$剩余红包金额)>RMB点   151 0

喜哥爱传奇

这个脚本很高大上，看着有点晕，让我先捋捋

hi8

<$STR(G100)> 金额
<$STR(G101)> 个数
这个行吗？
#IF
EQUAL A101 元宝
#ACT
DEC G101 1
MOVR N2 1 100
FORMULATION <$STR(G100)>/<$STR(G101)>*<$STR(N2)>/100 N1
GAMEGOLD + <$STR(N1)>
DEC G100 <$STR(N1)>
SENDMSG 0 [红包]：<$USERNAME>抢到了1个红包<$STR(N1)>元宝，剩余<$STR(G101)>个！ 146 0
CloseArrBuff 200
Break

zzg52130

晕头转向。。。。

better88

有点看不明白

啊对对对

快一年了。终于能无压力读懂了。

442671

啊对对对 发表于 2024-1-17 19:50
快一年了。终于能无压力读懂了。

进步灰常大,继续保持!

景天传奇

快10年了。终于能无压力读懂了。

天极工作室

工作室至今20+年了.依旧看不懂 高大上

2518zy

很给力!