1. 用户定义变量 hong=100 红少于多少吃红药
2. 用户定义变量 lan=100 蓝少于多少吃蓝药
3. 用户定义变量 jn4=9 吃红键位
4. 用户定义变量 jn5=0 吃蓝键位
5. 用户定义变量 jn1=4 辅助技能1键位
6. 用户定义变量 jn2=5 辅助技能2键位
7. 用户定义变量 jn3=6 辅助技能3键位
8. 用户定义变量 s1=60 技能1施放间隔时间
9. 用户定义变量 s2=90 技能2施放间隔时间
10. 用户定义变量 s3=120 技能3施放间隔时间
11. 用户定义变量 huicheng=7 回程键位
12. 用户定义变量 sibaojing=DropList{是:0|否:1}=0 死亡报警
13. 用户定义变量 hongbaojing=DropList{报警:0|回程:1}=0 红药用完动作
14. 用户定义变量 lanbaojing=DropList{报警:0|回程:1}=0 蓝药用完报警
15. dim hong lan cq
16. dim key(5)
17. t1=now:t2=now:t3=now
18. zifuchuan=jn4&jn5&jn1&jn2&jn3&huicheng
19. //声明字符串
20. //-----------------------转换键码---------------------------
21. key(0)=Asc(UCase(jn1))
22. key(1)=Asc(UCase(jn2))
23. key(2)=Asc(UCase(jn3))
24. key(3)=Asc(UCase(jn4))
25. key(4)=Asc(UCase(jn5))
26. key(5)=Asc(UCase((huicheng)))
27. //-----------------------主程序-----------------------------
28. 调用插件命令 cq=Window.Foreground()
29. 标记 开始打怪
30. 调用子程序 检查红蓝
31. 调用子程序 读经验
32. 调用子程序 抓怪
33. 调用子程序 打怪
34. 调用子程序 二次读经验
35. 调用子程序 捡物
36. 调用子程序 开辅助技能
37. 跳转到标记 开始打怪
38. //---------------------查红蓝--------------------------
39. 子程序 检查红蓝
40.     标记 查红
41.     调用插件命令 hp=Memory.Read16Bit(cq,&h06877094)
42.     如果表达式 (hp=0 and sbaojing=0) 为真,则
43.         （VBScript语句） strSoundFile = "C:\WINDOWS\Media\ringin.wav"
44.         （VBScript语句） Set objShell = CreateObject("Wscript.Shell")
45.         （VBScript语句） strCommand = "sndrec32 /play /close " & chr(34) & strSoundFile & chr(34)
46.         （VBScript语句） objShell.Run strCommand, 0, True
47.         跳转到标记 等待
48.     条件结束
49.     如果表达式 (CInt(hp)<CInt(hong)) 为真,则
50.         调用插件命令 Window.SendKeyDown(cq,key(4))
51.         延时32毫秒
52.         调用插件命令 Window.SendKeyUp(cq,key(4))
53.         调用子程序 再读一次红
54.     条件结束
55.     标记 查蓝
56.     调用插件命令 sp=Memory.Read16Bit(cq,&h068770a4)
57.     如果表达式 (CInt(sp)<CInt(lan)) 为真,则
58.         调用插件命令 Window.SendKeyDown(cq,key(5))
59.         延时32毫秒
60.         调用插件命令 Window.SendKeyUp(cq,key(5))
61.         调用子程序 再读一次蓝
62.     条件结束
63. 子程序结束,回到调用处
64. //--------------------再读一次红--------------------
65. 子程序 再读一次红
66.     调用插件命令 hp2=Memory.Read16Bit(cq,&h06877094)
67.     如果表达式 (hp2=hp and hongbaojing=0) 为真,则
68.         （VBScript语句） strSoundFile = "C:\WINDOWS\Media\ringin.wav"
69.         （VBScript语句） Set objShell = CreateObject("Wscript.Shell")
70.         （VBScript语句） strCommand = "sndrec32 /play /close " & chr(34) & strSoundFile & chr(34)
71.         （VBScript语句） objShell.Run strCommand, 0, True
72.         调用子程序 等待
73.     条件结束
74. 否则如果(hp2=hp and hongbaojing=1)为真,则
75.     调用插件命令 Window.SendKeyDown(cq,key(5))
76.     延时32毫秒
77.     调用插件命令 Window.SendKeyUp(cq,key(5))
78.     调用子程序 等待
79. 条件结束
80. 子程序结束,回到调用处
81. //--------------------再读一次蓝--------------------
82. 子程序 再读一次蓝
83.     调用插件命令 sp2=Memory.Read16Bit(cq,&h068770a4)
84.     如果表达式 (sp2=sp1 and lanbaojing=0) 为真,则
85.         （VBScript语句） strSoundFile = "C:\WINDOWS\Media\ringin.wav"
86.         （VBScript语句） Set objShell = CreateObject("Wscript.Shell")
87.         （VBScript语句） strCommand = "sndrec32 /play /close " & chr(34) & strSoundFile & chr(34)
88.         （VBScript语句） objShell.Run strCommand, 0, True
89.         调用子程序 等待
90.     否则如果(sp2=sp and lanbaojing=1)为真,则
91.         调用插件命令 Window.SendKeyDown(cq,key(5))
92.         延时32毫秒
93.         调用插件命令 Window.SendKeyUp(cq,key(5))
94.         调用子程序 等待
95.     条件结束
96. 子程序结束,回到调用处
97. //--------------------第一次读经验------------------
98. 子程序 读经验
99.     调用插件命令 jingyan=Memory.Read16Bit(cq,&h007e85d8)
100. 子程序结束,回到调用处