Call 坐标五	
End Sub
//--------------
Sub 关闭任务追踪栏
    Rem 关 
    IfColor 838, 227, "FFFFFF", 0 Then
        Delay 500
        Call 打开列表任务
        Delay 500
        Call Plugin.Bkgnd.LeftClick(qq, 113 - 3, 529 - 22)
        Delay 500
        Call 关闭任务列表
        Goto 关
    End If
End Sub
Sub 收起聊天栏
    Rem 聊天栏
    IfColor 15,592,"0",0 Then
        Delay 500
        IfColor 22,684,"0",0 Then
            Delay 500
            Call Plugin.Bkgnd.LeftClick(qq, 18-3, 748-22)
            Delay 500
            Goto 聊天栏
        End If
    End If
End Sub  
Sub Esc
    Rem 按Esc
    IfColor 733,485,"FFFFFF",1 Then
        IfColor 450,330,"FFFFFF",1 Then
            KeyPress "Esc", 1
            Delay 500
            Goto 按Esc
        End If
    End If
    Rem 按Esc1
    IfColor 733,485,"FFFFFF",0 Then
        IfColor 450,330,"FFFFFF",0 Then
            KeyPress "Esc", 1
            Delay 500
            Goto 按Esc1
        End If
    End If
End Sub
Sub 下拉任务列表
    IfColor 213,470,"1F7FE9",0 Then
        Delay 1000
        MoveTo 213, 311
        Delay 200
        LeftDown 1
        Delay 200
        MoveTo 213, 424
        Delay 200
        LeftUp 1
        Delay 200
        MoveTo 16, 148
        Delay 2000
    End If
End Sub
Sub 打开列表任务
    Rem 打开任务
    dm_ret = dm.FindStr(19,507, 211,555, "任务列表", "ffffff-000000", 1, x, y)
    If x > 0 and y > 0 Then 
    Else 
        Delay 300
        KeyPress "Q", 1
        Delay 300
        Goto 打开任务
    End If
End Sub
Sub 关闭任务列表
    Rem 关闭任务
    dm_ret = dm.FindStr(19,507, 211,555, "任务列表", "ffffff-000000", 1, x, y)
    If x > 0 and y > 0 Then 
        Delay 300
        KeyPress "Q", 1
        Delay 300
        Goto 关闭任务
    End If
End Sub
Sub 捡东西
    Rem 捡东西
    KeyPress "Space", 2
    dm_ret = dm.FindStr(0, 0, 1031, 794, "建材碎块", "ffffff-000000", 1, x, y)
    If x > 0 and y > 0 Then 
        Delay 200
        KeyPress "Space", 2
        Delay 1000
        KeyPress "Space", 2
        Delay 1000
        Call 血蓝组队
        Goto 捡东西
    End If
End Sub
Sub 血蓝组队
    Call 验证码
    MoveTo 16, 148
    FindColorEx 143,66,147,72,"06815A",1,0.8,intX,intY//血
    If intX > 0 And intY > 0 Then