Goto 移动
    ElseIf r=tmpr
        Delay 8
        MoveTo mx-gox*1.5,my+goy*1.5
        Delay 64
        LeftClick 2
        Delay 8
        MoveTo mx-gox*0.5,my+goy*0.5
        Delay 64
        LeftClick 2
        Delay 256
        VBSCall Findcentercolor(mx-350,my-300,mx+300,my+200,MONSTERA,x1,y1)
        If x1>0
            Gosub 有怪
        EndIf 
        Goto 移动
    EndIf 
    Delay 256
    If dierxue=1
        VBSCall Findcentercolor(mx-350,my-300,mx+300,my+200,MONSTERAE,x1,y1)
        If x1>0
            Gosub 有怪
        EndIf 
    EndIf 
    Rem 定位结束
Return 
Sub 乱点引怪
    randomize
    If YINGUAI=1
        Delay 8
        MoveTo mx+int(luanjuli+20),my-int(luanjuli+20)
        LeftClick 2
        Delay luandelay
        MoveTo mx-int(luanjuli+20),my+int(luanjuli+20)
        LeftClick 2
        Delay luandelay
        MoveTo mx+int(luanjuli+20),my
        LeftClick 2
        Delay luandelay
        MoveTo mx-int(luanjuli+20),my
        LeftClick 2
        Delay luandelay
        MoveTo mx+int(luanjuli+20),my+int(luanjuli+20)
        LeftClick 2
        Delay luandelay
        MoveTo mx-int(luanjuli+20),my-int(luanjuli+20)
        LeftClick 2
        Delay luandelay
        MoveTo mx,my+int(luanjuli+20)
        LeftClick 2
        Delay luandelay
        MoveTo mx,my-int(luanjuli+20)
        LeftClick 2
        Delay luandelay
        Gosub 定位
    EndIf 
    MoveTo mx+int(54*rnd+10),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-int(54*rnd+10),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+int(54*rnd+10),my
    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-int(54*rnd+10),my
    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+int(54*rnd+10),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-int(54*rnd+10),my-int(54*rnd+10)
    LeftClick 2
    VBSCall Findcentercolor(mx-350,my-300,mx+300,my+200,MONSTERA,x1,y1)
    If x1>0