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

小白兔白又白

1. <>             <进行购买/@批量购买物品处理脚本(1)>  <进行10次购买/@批量购买物品处理脚本(10)>  <进行50次购买/@批量购买物品处理脚本(50)>\
   
2. 
   
3. 
   
4. [@批量购买物品处理脚本]
   
5. #IF
   
6. #ACT
   
7. Mov N$物品抽取次数记录 <$ScriptParam1>
   
8. ForMulAtion <$ScriptParam1>*20 N$所需求元宝数量处理
   
9. Mov D$当前物品参数数值处理调用
   
10. 
    
11. #IF
    
12. CheckGameGold < <$Str(N$所需求元宝数量处理)>
    
13. #ACT
    
14. MessAgeBox 你的元宝不足<$Str(N$所需求元宝数量处理)>,无法进行购买!!
    
15. Break
    
16. #ElseAct
    
17. GameGold - <$Str(N$所需求元宝数量处理)>
    
18. MOV N$循环开始 0
    
19. While N$循环开始 < <$Str(N$物品抽取次数记录)>
    
20. GetCacheRandomText ..\QuestDiary\文本存放\1商人.txt S$随机取出物品处理
    
21. Goto @_@抽奖物品数据记录数值处理(<$Str(S$随机取出物品处理)>,1)
    
22. Inc N$循环开始 1
    
23. Endwhile
    
24. 
    
25. #IF
    
26. Not Equal D$当前物品参数数值处理调用
    
27. #ACT
    
28. GetDictItems D$当前物品参数数值处理调用 0 L$当前物品参数数值处理调用
    
29. GetListVarCount <$Str(L$当前物品参数数值处理调用)> N$抽奖所有物品数量处理
    
30. Mov N$循环开始 0
    
31. While N$循环开始 < <$Str(N$抽奖所有物品数量处理)>
    
32. Give <$Str(L$当前物品参数数值处理调用[<$Str(N$循环开始)>])> <$Str(D$当前物品参数数值处理调用[<$Str(L$当前物品参数数值处理调用[<$Str(N$循环开始)>])>])>
    
33. Inc N$循环开始 1
    
34. Endwhile
    
35. 
    
36. [@_@抽奖物品数据记录数值处理]
    
37. #If
    
38. CheckInDict D$当前物品参数数值处理调用 <$ScriptParam1>
    
39. #Act
    
40. ForMulAtion <$Str(D$当前物品参数数值处理调用[<$ScriptParam1>])>+<$ScriptParam2> N$临时物品数量增加
    
41. Inc D$当前物品参数数值处理调用 <$ScriptParam1>:<$Str(N$临时物品数量增加)>
    
42. #ElseAct
    
43. Inc D$当前物品参数数值处理调用 <$ScriptParam1>:<$ScriptParam2>

复制代码