图形法找怪按键脚本源码
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。是怪的话就攻击，杀死后跳到开始，重新开始找怪；不是的话，就跳到下一格接着找！ 很好，可以和VB比美 看看..有教程就好了 ....
页:
[1]