论坛首页 › 传奇脚本分享 › [翎风脚本]高效抽奖举例

小白兔白又白 发表于 2026-7-7 00:33:36

[翎风脚本]高效抽奖举例

<>             <进行购买/@批量购买物品处理脚本(1)><进行10次购买/@批量购买物品处理脚本(10)><进行50次购买/@批量购买物品处理脚本(50)>\


[@批量购买物品处理脚本]
#IF
#ACT
Mov N$物品抽取次数记录 <$ScriptParam1>
ForMulAtion <$ScriptParam1>*20 N$所需求元宝数量处理
Mov D$当前物品参数数值处理调用

#IF
CheckGameGold < <$Str(N$所需求元宝数量处理)>
#ACT
MessAgeBox 你的元宝不足<$Str(N$所需求元宝数量处理)>,无法进行购买!!
Break
#ElseAct
GameGold - <$Str(N$所需求元宝数量处理)>
MOV N$循环开始 0
While N$循环开始 < <$Str(N$物品抽取次数记录)>
GetCacheRandomText ..\QuestDiary\文本存放\1商人.txt S$随机取出物品处理
Goto @_@抽奖物品数据记录数值处理(<$Str(S$随机取出物品处理)>,1)
Inc N$循环开始 1
Endwhile

#IF
Not Equal D$当前物品参数数值处理调用
#ACT
GetDictItems D$当前物品参数数值处理调用 0 L$当前物品参数数值处理调用
GetListVarCount <$Str(L$当前物品参数数值处理调用)> N$抽奖所有物品数量处理
Mov N$循环开始 0
While N$循环开始 < <$Str(N$抽奖所有物品数量处理)>
Give <$Str(L$当前物品参数数值处理调用[<$Str(N$循环开始)>])> <$Str(D$当前物品参数数值处理调用[<$Str(L$当前物品参数数值处理调用[<$Str(N$循环开始)>])>])>
Inc N$循环开始 1
Endwhile

[@_@抽奖物品数据记录数值处理]
#If
CheckInDict D$当前物品参数数值处理调用 <$ScriptParam1>
#Act
ForMulAtion <$Str(D$当前物品参数数值处理调用[<$ScriptParam1>])>+<$ScriptParam2> N$临时物品数量增加
Inc D$当前物品参数数值处理调用 <$ScriptParam1>:<$Str(N$临时物品数量增加)>
#ElseAct
Inc D$当前物品参数数值处理调用 <$ScriptParam1>:<$ScriptParam2>

ldwz 发表于 2026-7-17 12:45:15

;P 高不高。不知道。。

强运 发表于 2026-7-24 17:26:02

脚本逻辑清晰，循环配合随机取物品，抽奖效率提升不少。

查看完整版本: [翎风脚本]高效抽奖举例