1. dim n,k
2. dim x(4),y(4)
3. xh=0
4. yd=1
5. // 用于检测当前图中是否有怪
6. n=5
7. // 控制扫描速度
8. k=40
9. // 控制扫描密度
10. 标记 start
11. i=1
12. 如果表达式 (i<5) 为真,则循环执行
13.     // 给方形四个角赋初值
14.     x(i)=512
15.     y(i)=384
16.     i=i+1
17. 循环结束
18. x(1)=x(1)-k
19. x(2)=x(2)+k
20. x(3)=x(3)+k
21. x(4)=x(4)-k
22. y(1)=y(1)-k
23. y(2)=y(2)-k
24. y(3)=y(3)+k
25. y(4)=y(4)+k
26. j=0
27. // 沿方形上边移动
28. 如果表达式 (x(1)<x(2)) 为真,则循环执行
29.     鼠标移到 x(1) , y(1)
30.     延时20毫秒
31.     调用外部VBScript子程序 Shape=GetCursorShape(0)
32.     如果表达式 (shape = 1223392300) 为真,则
33.         跳转到标记 pk
34.     条件结束
35.     j=j+1
36.     x(1)=x(1)+n*j
37.     延时10毫秒
38. 循环结束
39. j=0
40. // 沿方形右边移动
41. 如果表达式 (y(2)<y(3)) 为真,则循环执行
42.     鼠标移到 x(2) , y(2)
43.     延时20毫秒
44.     调用外部VBScript子程序 Shape=GetCursorShape(0)
45.     如果表达式 (shape = 1223392300) 为真,则
46.         跳转到标记 pk
47.     条件结束
48.     j=j+1
49.     y(2)=y(2)+n*j
50.     延时10毫秒
51. 循环结束
52. j=0
53. // 沿方形下边移动
54. 如果表达式 (x(3)>x(4)) 为真,则循环执行
55.     鼠标移到 x(3) , y(3)
56.     延时20毫秒
57.     调用外部VBScript子程序 Shape=GetCursorShape(0)
58.     如果表达式 (shape = 1223392300) 为真,则
59.         跳转到标记 pk
60.     条件结束
61.     j=j+1
62.     x(3)=x(3)-n*j
63.     延时10毫秒
64. 循环结束
65. j=0
66. // 沿方形左边移动
67. 如果表达式 (y(4)>y(1)) 为真,则循环执行
68.     鼠标移到 x(4) , y(4)
69.     延时20毫秒
70.     调用外部VBScript子程序 Shape=GetCursorShape(0)
71.     如果表达式 (shape = 1223392300) 为真,则
72.         跳转到标记 pk
73.     条件结束
74.     j=j+1
75.     y(4)=y(4)-n*j
76.     延时10毫秒
77. 循环结束
78. // 搜索3次后,无怪,换位置
79. xh=xh+1
80. 如果表达式 (xh>3) 为真,则
81.     如果表达式 (yd=1) 为真,则
82.         鼠标移到 270 , 395
83.         yd=yd+1
84.         左键按下
85.         延时2000毫秒
86.         左键弹起
87.         xh=0
88.         跳转到标记 start
89.     否则
90.         鼠标移到 754 , 395
91.         yd=yd-1
92.         左键按下
93.         延时2000毫秒
94.         左键弹起
95.         xh=0
96.         跳转到标记 start
97.     条件结束
98. 条件结束
99. 调用子程序 jx
100. k=k+40