1. （VBScript语句） dim NumA,NumB,NumC,NumK,NumN,CenterX,CenterY,GBX,GBY,StepX,StepY
2. //NumA--X轴移动的变量，NumB--Y轴移动的变量，NumK--中间变量
3. （VBScript语句） NumA=0:NumB=0:NumC=0:CenterX=385:CenterY=310:StepX=82:StepY=66
4. //CenterX，CenterY---中心坐标(一般是人数) StepY,StepY--步长
5. //****************************主程序开始**************************************
6. 如果表达式 (NumC<3) 为真,则循环执行
7.     //NumC---三圈， 相当会把找怪范围会成25个格
8.     （VBScript语句） NumN=NumC*8:NumK=0
9.     //NumN---找怪的格子位置
10.     如果表达式 (NumK<NumN) 为真,则循环执行
11.         //向下移动
12.         如果表达式 (NumK>0 and NumK<(NumN/4)) 为真,则
13.             （VBScript语句） NumB=NumB+1
14.         条件结束
15.         //向左移动
16.         如果表达式 (NumK>=(NumN/4) and NumK<(NumN/2)) 为真,则
17.             （VBScript语句） NumA=NumA-1
18.         条件结束
19.         //向上移动
20.         如果表达式 (NumK>=(NumN/2) and NumK<(NumN/4)*3) 为真,则
21.             （VBScript语句） NumB=NumB-1
22.         条件结束
23.         //向右移动
24.         如果表达式 (NumK>=(NumN/4)*3 and NumK<NumN) 为真,则
25.             （VBScript语句） NumA=NumA+1
26.         条件结束
27.         //每一格的中心坐标
28.         （VBScript语句） GBX=CenterX+StepX*NumA
29.         （VBScript语句） GBY=CenterY+StepY*NumB
30.         延时Time/2毫秒
31.         //***************查看运行效果********************
32.         //如果想看本脚本的执行路线，请打开图画，再打把下面三句前的//去掉
33.         //MoveTo GBX GBY
34.         //Delay 100
35.         //LeftClick 1
36.         //*******************************************
37.         //×××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××
38.         //××××××××××××××××××××××××××××× 找怪部分 ××××××××××××××××××××××××××××××
39.         调用外部VBScript子程序 在屏幕区域里模糊查找颜色(GBX-StepX/2,GBY-StepY/2,GBX+StepX/2,GBY+StepY/2,"FFFFFF",1,0.6,AX,AY)
40.         //“FFFFFF”----怪的色，其它部分不要动，这里也可以改成在（GBX-StepX/2,GBY-StepY/2,GBX+StepX/2,GBY+StepY/2）范围内找图片
41.         延时Time/2毫秒
42.         如果表达式 (AX>0) 为真,则
43.             //找到色
44.             鼠标移到 AX , AY
45.             //移动到AX，AY
46.             //*****判断是否是怪********
47.             //gosub Mon
48.             //<判断是否是怪>子程序在这里调用！
49.             //*************************
50.             延时Time毫秒
51.             跳转到标记 KillMon
52.         条件结束
53.         //××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××
54.         （VBScript语句） NumK=NumK+1
55.     循环结束
56.     （VBScript语句） NumA=NumA+1:NumC=NumC+1
57. 循环结束
58. //************************************主程序结束***************************************
59. //*************************************************************************************
60. //******************** 打怪 ********************
61. 标记 KillMon
62. //下面请自己添加打怪要的动作
63. //提示：1。可以先判断是否是怪。[要判断的话，就写个子程序，上面有提示<判断是否是怪>调用的地方。]
64. // 2。是怪的话就攻击，杀死后跳到开始，重新开始找怪；不是的话，就跳到下一格接着找！