1. dim a,s,k,t1,t2,t3,color,x,y
2. 标记 挂机模式
3. 调用外部VBScript子程序 a=InputBox("请输入挂机抢怪模式（数字） ０为抢怪 １为不抢")
4. s=Len(a)
5. 如果表达式 (s=1) 为真,则
6.     如果表达式 (a="0") 为真,则
7.         a=347
8.     否则如果(a="1")为真,则
9.         a=512
10.     否则
11.         弹出窗口 "错误：请重新输入 ０或１"
12.         跳转到标记 挂机模式
13.     条件结束
14. 否则
15.     弹出窗口 "错误：小样 耍我啊？"
16.     跳转到标记 挂机模式
17. 条件结束
18. t1=now:t2=now:t3=now
19. k=49
20. //***************〖开始挂机〗*****************
21. 标记 找怪
22. 调用子程序 辅助技能
23. 硬件模拟按键<Tab>
24. 延时100毫秒
25. 标记 判断怪血条
26. 调用外部VBScript子程序 a=InputBox("请输入挂机抢怪模式（数字） ０为抢怪 １为不抢")
27. 如果表达式 (color="383BEE" or color="000293") 为真,则
28.     延时100毫秒
29.     //使用攻击技能 技能放在1,2,3
30.     硬件模拟按键#k
31.     k=k+1
32.     如果表达式 (k>51) 为真,则
33.         k=49
34.     条件结束
35.     标记 普通攻击
36.     硬件模拟按键`
37.     调用子程序 自动用药
38.     调用子程序 判断障碍物
39.     标记 判断怪死亡
40.     如果 (347,75) 的颜色不等于 #0004D3 则
41.         延时2000毫秒
42.         硬件模拟按键`
43.         标记 判断捡物框
44.         如果 (675,212) 的颜色等于 #6fe1f9 则
45.             硬件模拟按键`
46.             跳转到标记 判断捡物框
47.         条件结束
48.         跳转到标记 找怪
49.     条件结束
50.     跳转到标记 普通攻击
51. 条件结束
52. 跳转到标记 找怪
53. //**************〖子程序〗**************
54. 子程序 辅助技能
55.     //120为120秒 可自己修改时间 按键可自己修改
56.     如果表达式 (DateDiff("s",t1,now)>=120) 为真,则
57.         //辅助技能1 自己修改
58.         t1=now
59.     条件结束
60.     如果表达式 (DateDiff("s",t2,now)>=120) 为真,则
61.         //辅助技能2 自己修改
62.         t2=now
63.     条件结束
64.     如果表达式 (DateDiff("s",t3,now)>=120) 为真,则
65.         //辅助技能3 自己修改
66.         t3=now
67.     条件结束
68. 子程序结束,回到调用处
69. 子程序 自动用药
70.     标记 ＨＰ
71.     如果 (154,73) 的颜色不等于 #2d0995 则
72.         如果 (154,76) 的颜色不等于 #3710c1 则
73.             //加ＨＰ命令 自己修改
74.         条件结束
75.     条件结束
76.     标记 ＭＰ
77.     如果 (152,90) 的颜色不等于 #96420c 则
78.         如果 (152,92) 的颜色不等于 #b44d0b 则
79.             //加ＭＰ命令 自己修改
80.         条件结束
81.     条件结束
82.     标记 ＳＰ
83.     如果 (143,104) 的颜色不等于 #a8ead7 则
84.         如果 (143,106) 的颜色不等于 #93dcc8 则
85.             //加ＳＰ命令 自己修改
86.         条件结束
87.     条件结束
88. 子程序结束,回到调用处
89. 子程序 判断障碍物
90.     延时100毫秒
91.     调用外部VBScript子程序 a=InputBox("请输入挂机抢怪模式（数字） ０为抢怪 １为不抢")
92.     如果表达式 (x>=330 and y>=155) 为真,则
93.         跳转到标记 找怪
94.     条件结束
95. 子程序结束,回到调用处