VBS dim NumA,NumB,NumC,NumK,NumN,CenterX,CenterY,GBX,GBY,SetpX,SetpY
VBS NumA=0:NumB=0:NumC=0:CenterX=385:CenterY=310:SetpX=82:SetpY=66
//CenterX，CenterY---中心坐标(一般是人数) SetpY,SetpY--步长
While NumC<3
//NumcC---三圈， 相当会把找怪范围会成25个格
VBS NumN=NumC*8:NumK=0
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+SetpX*NumA
VBS GBY=CenterY+SetpY*NumB
Delay Time/2
//×××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××
//××××××××××××××××××××××××××××× 找怪部分 ××××××××××××××××××××××××××××××
VBSCall FindColorEx(GBX-SetpX/2,GBY-SetpY/2,GBX+SetpX/2,GBY+SetpY/2,"FFFFFF",1,0.6,AX,AY)
//“FFFFFF”----怪的色，其它部分不要动，这里也可以改成在GBX-SetpX/2,GBY-SetpY/2,GBX+SetpX/2,GBY+SetpY/2范围内找图片
Delay Time/2
If AX>0
MoveTo AX AY
Delay Time
Gosub TreeName
If TN=1
Delay 20*Time
//调用判断是否是怪子程序
GoSub Mon
Goto PlayMon
EndIf
EndIf
//××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××
VBS NumK=NumK+1
EndFor
VBS NumA=NumA+1:NumC=NumC+1
EndFor
//***************************************************************************
rem PlayMon
..
..
..
Goto Start
//*****************子程序判断是否是怪******************************************
Sub Mon
..
..
Retrun Mon