Gosub 定位
        Gosub 有怪
    EndIf 
    Delay 16
    MoveTo mx,my+int(54*rnd+10)
    LeftClick 2
    VBSCall Findcentercolor(mx-350,my-300,mx+300,my+200,MONSTERA,x1,y1)
    If x1>0
        Gosub 定位
        Gosub 有怪
    EndIf 
    Delay 16
    MoveTo mx,my-int(54*rnd+10)
    LeftClick 2
    VBSCall Findcentercolor(mx-350,my-300,mx+300,my+200,MONSTERA,x1,y1)
    If x1>0
        Gosub 定位
        Gosub 有怪
    EndIf 
    Delay 16
    Gosub 定位
Return 
Sub 有怪
    randomize
    guainow=now
    Rem 清怪
    For 2
        KeyPress F1,1
        Delay 256
    EndFor 
    If datediff("s",guainow,now)>fangka
        For 6
            KeyPress F3,1
            Delay 256
        EndFor 
        Delay 256
        MoveTo mx+int(50*rnd),my-int(50*rnd)
        Delay 8
        LeftClick 2
        Delay 32
        MoveTo mx-int(50*rnd),my+int(50*rnd)
        Delay 8
        LeftClick 2
        Delay 32
        MoveTo mx-int(50*rnd),my-int(50*rnd)
        Delay 8
        LeftClick 2
        Delay 32
        MoveTo mx-int(50*rnd),my+int(50*rnd)
        Delay 8
        LeftClick 2
        Delay 32
        guainow=now
        Goto 清怪结束
    EndIf 
    VBSCall Findcentercolor(mx-350,my-300,mx+300,my+200,MONSTERA,x1,y1)
    If x1>0
        For 3
            KeyPress F1,1
            Delay 256
        EndFor 
        Goto 清怪
    EndIf 
    If dierxue=1
        VBSCall Findcentercolor(mx-350,my-300,mx+300,my+200,MONSTERAE,x1,y1)
        If x1>0
            For 3
                KeyPress F1,1
                Delay 256
            EndFor 
            Goto 清怪
        EndIf 
    EndIf 
    Rem 清怪结束
    //捡东西
    KeyPress F8,2
    //捡东西
    Delay PICK
Return 
Sub 读出坐标
    //读取坐标赋初值
    nx=nx+4:ny=ny+1:strnum="":strxy=""
    curx=0:cury=0:cur=0
    //点只有一个
    point=0
    //点只有一个
    //读取坐标赋初值
    dim pcolor(12)
    Rem 读数
    pcolor(12)=Chen8.NewYNColor1(nx+2,ny-1,coor,rdev,gdev,bdev)
    If pcolor(12)=1
        strnum="]"
        Goto 读取结束
    EndIf 
    pcolor(2)=Chen8.NewYNColor1(nx+1,ny+1,coor,rdev,gdev,bdev)
    If pcolor(2)=1
        strnum="1"
        Goto 合并
    EndIf 
    pcolor(11)=Chen8.NewYNColor1(nx,ny+7,coor,rdev,gdev,bdev)