a=zx-x1+12
            b=zy-y1+12
        Else 
            mz=1
            MoveTo zzx,zzy
            Delay 100
        EndIf 
    EndIf 
    If h=6
        MoveTo 300+定位点x,300+定位点y 
        Delay 500
        h=0
        Goto py
    EndIf 
    If mz=1
        h=h+1
        Goto py
    Else 
        If Abs(a)>n or Abs(b)>n
            MoveR a,b
            Delay 100
            h=h+1
            Goto py
        EndIf 
    EndIf 
End Sub
Sub 复位
    Rect = Plugin.Window.GetClientRect(窗口1)
    客户区 = Split(Rect, "|")
    定位点x1 = Clng(客户区(0))
    定位点y1 = Clng(客户区(1))
    Rect = Plugin.Window.GetClientRect(窗口2)
    客户区 = Split(Rect, "|")
    定位点x2 = Clng(客户区(0))
    定位点y2 = Clng(客户区(1))
    Rect = Plugin.Window.GetClientRect(窗口3)
    客户区 = Split(Rect, "|")
    定位点x3 = Clng(客户区(0))
    定位点y3 = Clng(客户区(1))
    Rect = Plugin.Window.GetClientRect(窗口4)
    客户区 = Split(Rect, "|")
    定位点x4 = Clng(客户区(0))
    定位点y4 = Clng(客户区(1))
    Rect = Plugin.Window.GetClientRect(窗口5)
    客户区 = Split(Rect, "|")
    定位点x5 = Clng(客户区(0))
    定位点y5 = Clng(客户区(1))
    MoveTo 中心点x, 中心点y
    操作x=中心点x:操作y=中心点y
    Delay 50
End Sub
Sub bba
    If  客户区(2)=640
        限制x = 640 + 定位点x : 限制y = 480 + 定位点y
        中心点x = 定位点x + 320 : 中心点y = 定位点y + 240
        地图x = 107 + 定位点x : 地图y = 59 + 定位点y
        箱子x = 360 + 定位点x : 箱子y = 456 + 定位点y
        任务卷x = 488 + 定位点x : 任务卷y = 460 + 定位点y
        人头x = 545 + 定位点x : 人头y = 27 + 定位点y
        宠头x = 440 + 定位点x : 宠头y = 20 + 定位点y
        停止点1x = 1 + 定位点x : 停止点1y = 1 + 定位点y
        停止点2x = 637 + 定位点x : 停止点2y = 447 + 定位点y
    ElseIf  客户区(2)=800
        限制x = 800 + 定位点x : 限制y = 600 + 定位点y
        中心点x = 定位点x + 400 : 中心点y = 定位点y + 300
        地图x = 107 + 定位点x : 地图y = 59 + 定位点y
        箱子x = 519 + 定位点x : 箱子y = 576 + 定位点y
        任务卷x = 647 + 定位点x : 任务卷y = 578 + 定位点y
        人头x = 705 + 定位点x : 人头y = 28 + 定位点y
        宠头x = 600 + 定位点x : 宠头y = 20 + 定位点y
        停止点1x = 1 + 定位点x : 停止点1y = 1 + 定位点y
        停止点2x = 797 + 定位点x : 停止点2y = 567 + 定位点y
    End If
End Sub
Sub 目标图
    w1 = 1
    While w1 = 1
        图片1="Attachment:\"&目标图片
        FindPic 定位点x,定位点y,限制x+40,限制y+40,图片1,0.95,目标x,目标y
        If 目标x > 0 And 目标y > 0 Then 
            目标x = 目标x + 2
            目标y = 目标y + 2
            w1 = 2
        End If
    Wend
End Sub
Sub 是否停止
    Do while true
        color1 = dm.GetAveRGB(定位点x,定位点y,定位点x+9,定位点y+9)
        Delay 500
        color2 = dm.GetAveRGB(定位点x+550,定位点y+440,定位点x+559,定位点y+449)   
        Delay 500
        color3 = dm.GetAveRGB(定位点x,定位点y,定位点x+9,定位点y+9)
        Delay 500
        color4 = dm.GetAveRGB(定位点x+550,定位点y+440,定位点x+559,定位点y+449)
        Delay 500    
        If color1 = color3 and color2 = color4 Then 
            Exit Do
        Else 
        End If