Call Plugin.Bkgnd.LeftClick(hwnd, X, Y)
    Delay 1000
End Sub

Sub 清除副本
    //点击“副”
    Call Plugin.Bkgnd.LeftClick(hwnd, 967, 140)
    Delay 500
    //确认清除副本
    Call Plugin.Bkgnd.LeftClick(hwnd, 391, 327)
    Delay 500
    jrfbcs = jrfbcs+1
End Sub

//队伍篇
Sub 创建队伍
    Call Plugin.Bkgnd.KeyPress(hwnd, 123)
    Delay 100
    Call Plugin.Bkgnd.KeyPress(hwnd, 80)
    Delay 1000
    Call Plugin.Bkgnd.LeftClick(hwnd,440,153)
    Delay 1000
    Call Plugin.Bkgnd.LeftClick(hwnd,362,468)
    Delay 1000
    Call Plugin.Bkgnd.LeftClick(hwnd,413,373)
    Delay 1000
    Call Plugin.Bkgnd.KeyPress(hwnd, 123)
    Delay 100
End Sub

Sub 组队加入黑名单
    Call Plugin.Bkgnd.LeftClick(hwnd, 383, 328)
    Delay 1000
    Color1 = Plugin.BkgndColor.GetPixelColor(hwnd, 25, 207) //2348532
    Color2 = Plugin.BkgndColor.GetPixelColor(hwnd, 29, 208) //196612
    If Color1 = 2348532 And Color2 = 196612 Then 
        Call Plugin.Bkgnd.KeyPress(hwnd, 123)
        Delay 1000
        Call Plugin.Bkgnd.LeftClick(hwnd, 25, 207)
        Delay 1000
        Call Plugin.Bkgnd.LeftClick(hwnd,70,368)
        Delay 1000
        Call Plugin.Bkgnd.LeftClick(hwnd, 25, 207)
        Delay 1000
        Call Plugin.Bkgnd.LeftClick(hwnd,72,250)
        Delay 10000
        Call Plugin.Bkgnd.KeyPress(hwnd, 123)
    End If
End Sub

Sub 补给
    If zhiye = 0 Then 
        Call 血低自动吃包子()
        Call 蓝低自动吃包子()
    ElseIf zhiye = 1 Then 
        Call 血低自动吃包子()
        Call 蓝低自动吃包子()
    ElseIf zhiye = 2 Then 
        Call 血低自动吃包子()
        Call 蓝低自动吃包子()
    ElseIf zhiye = 3 Then 
        Call 方士自动治疗()
        Call 蓝低自动吃包子()
    End If
End Sub

Sub 血低自动吃包子
    Rem X1
    GetColor = Plugin.Bkgnd.GetPixelColor(hwnd, 193, 44)
    Delay 300
    If GetColor = "190073" Then
        Call 释放技能(intXBj1, intYBj1, timeBj1, 0, 1000)
        Delay 14000
        Goto X1
    End If
End Sub

Sub 蓝低自动吃包子
    Rem X1
    Color4 = Plugin.BkgndColor.GetPixelColor(hwnd, 196,55)
    Delay 300
    If Color4 <> "14658104" Then 
        Call 释放技能(intXBj1, intYBj1, timeBj1, 0, 1000)
        Delay 14000
        Goto X1
    End If	
End Sub

//关闭窗口
Sub 关闭窗口
    Call Plugin.Bkgnd.KeyPress(hwnd, 123)
    Delay 100
    If laczy <> "2" Then 
        Call Plugin.Bkgnd.KeyPress(hwnd, 90)
    End If
    Delay 100
    i = 0
    Rem A
    Color0 = Plugin.BkgndColor.GetPixelColor(hwnd, 702, 429)
    If Color0 <> 8487421 And i<50 Then