VBS dim NumA,NumB,NumC,NumK,NumN,CenterX,CenterY,GBX,GBY,StepX,StepY //NumA--X轴移动的变量,NumB--Y轴移动的变量,NumK--中间变量 VBS NumA=0:NumB=0:NumC=0:CenterX=385:CenterY=310:StepX=82:StepY=66 //CenterX,CenterY---中心坐标(一般是人数) StepY,StepY--步长 //****************************主程序开始************************************** While NumC<3 //NumC---三圈, 相当会把找怪范围会成25个格 VBS NumN=NumC*8:NumK=0 //NumN---找怪的格子位置 While NumK<NumN //向下移动 If NumK>0 and NumK<(NumN/4) VBS NumB=NumB+1 EndIf //向左移动 If NumK>=(NumN/4) and NumK<(NumN/2) VBS NumA=NumA-1 EndIf //向上移动 If NumK>=(NumN/2) and NumK<(NumN/4)*3 VBS NumB=NumB-1 EndIf //向右移动 If NumK>=(NumN/4)*3 and NumK<NumN VBS NumA=NumA+1 EndIf //每一格的中心坐标 VBS GBX=CenterX+StepX*NumA VBS GBY=CenterY+StepY*NumB Delay Time/2 //***************查看运行效果******************** //如果想看本脚本的执行路线,请打开图画,再打把下面三句前的//去掉 //MoveTo GBX GBY //Delay 100 //LeftClick 1 //******************************************* //××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××× //××××××××××××××××××××××××××××× 找怪部分 ×××××××××××××××××××××××××××××× VBSCall FindColorEx(GBX-StepX/2,GBY-StepY/2,GBX+StepX/2,GBY+StepY/2,"FFFFFF",1,0.6,AX,AY) //“FFFFFF”----怪的色,其它部分不要动,这里也可以改成在(GBX-StepX/2,GBY-StepY/2,GBX+StepX/2,GBY+StepY/2)范围内找图片 Delay Time/2 If AX>0 //找到色 MoveTo AX,AY //移动到AX,AY //*****判断是否是怪******** //gosub Mon //<判断是否是怪>子程序在这里调用! //************************* Delay Time Goto KillMon EndIf //×××××××××××××××××××××××××××××××××××××××××××××××××××××××××××× VBS NumK=NumK+1 EndFor VBS NumA=NumA+1:NumC=NumC+1 EndFor //************************************主程序结束*************************************** //************************************************************************************* //******************** 打怪 ******************** Rem KillMon //下面请自己添加打怪要的动作 //提示:1。可以先判断是否是怪。[要判断的话,就写个子程序,上面有提示<判断是否是怪>调用的地方。] // 2。是怪的话就攻击,杀死后跳到开始,重新开始找怪;不是的话,就跳到下一格接着找!