图形法找怪按键脚本源码

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

复制代码

很好，可以和VB比美

看看..有教程就好了 ....