1. //魔神争霸智能补红补蓝脚本内存版。
2. //北极星夜制作
3. //create by starsfire
4. Dim win1,mlanMax,mlanN,mhongMax,mhongN
5. dim t,t1,t2,t3,t4,u,v,x1,y1
6. 用户定义变量 lan1=30 加小蓝百分比 30 %。
7. 用户定义变量 lan2=5 加大蓝百分比 5 %。
8. 用户定义变量 hong1=80 加小红百分比 80 %。
9. 用户定义变量 hong2=45 加大红百分比 45 %。
10. mhongMax=&H00BC140B
11. mhongN=&H00BC124B
12. mlanMax=&H00BC141F
13. mlanN=&H00BC124F
14. //红蓝的内存地址常量
15. //（如果游戏更新请更改内存地址常量）
16. //5大红（药品红） 7小红（食物红）
17. //6大蓝（药品蓝）8小蓝（食品蓝）
18. Dim hongMax,lanMax,hong01,hong02,long03,lan01,lan02,hongN,lanN
19. 调用插件命令 win1=Window.Foreground()
20. 调用插件命令 Window.Move(win1,0,0)
21. 调用外部VBScript子程序 读取内存地址(mhongMax,2,hongMax)
22. 调用外部VBScript子程序 读取内存地址(mhongMax,2,hongMax)
23. hong01 = hongMax * hong1 / 100
24. //计算获得加小红时的数值
25. hong02 = hongMax * hong2 / 100
26. hong03 = hongMax * 95 / 100
27. lan01 = lanMax * lan1 / 100
28. lan02 = lanMax * lan2 / 100
29. //计算获得加蓝时的数值
30. t1=0
31. t=0
32. t2=0
33. t3=0
34. t4=0
35. u=0
36. v=3
37. 标记 start
38. //循环开始标记
39. 延时110毫秒
40. //循环小延时，防止出现CPU使用率过高，脚本卡
41. 调用子程序 buhong
42. 跳转到标记 start
43. //跳转到循环开始
44. 子程序 buhong
45.     调用外部VBScript子程序 读取内存地址(mhongMax,2,hongMax)
46.     如果表达式 (clng(hongN) < hong01) 为真,则
47.         //80%左右喝红，食品红放7
48.         如果表达式 (DateDiff("s",t2,now)>=30) 为真,则
49.             //食品红蓝持续时间，因为不能叠加，多喝会浪费
50.             按键<7>
51.             t2=now
52.             延时110毫秒
53.         条件结束
54.         //补血延时
55.     条件结束
56.     延时110毫秒
57.     调用外部VBScript子程序 读取内存地址(mhongMax,2,hongMax)
58.     如果表达式 (clng(hongN) < hong02) 为真,则
59.         按键<5>
60.         //大紅 放5
61.     条件结束
62.     延时110毫秒
63.     调用外部VBScript子程序 读取内存地址(mhongMax,2,hongMax)
64.     如果表达式 (clng(lanN) < lan01) 为真,则
65.         //30%蓝 6
66.         如果表达式 (DateDiff("s",t2,now)>=30) 为真,则
67.             //食品蓝红持续时间，因为不能叠加，多喝会浪费
68.             按键<8>
69.             t2=now
70.             延时110毫秒
71.         条件结束
72.     条件结束
73.     延时110毫秒
74.     调用外部VBScript子程序 读取内存地址(mhongMax,2,hongMax)
75.     如果表达式 (clng(lanN) < lan02) 为真,则
76.         //30%蓝 6
77.         按键<6>
78.         t2=now
79.         延时110毫秒
80.     条件结束
81. 子程序结束,回到调用处