Case "5"
        //会
        shanga_x=561
        shanga_y=482
    Case "6"
        //曲
        shanga_x=578
        shanga_y=377
    Case "7"
        //洛
        shanga_x=458
        shanga_y=476
    Case Else
        //否则
    End Select
End Sub
Sub 商队B()
    Select Case shangB
    Case "1"
        shangb_x=511
        shangb_y=317
    Case "2"
        shangb_x=591
        shangb_y=259
    Case "3"
        shangb_x=420
        shangb_y=469
    Case "4"
        shangb_x=505
        shangb_y=442
    Case "5"
        shanga_x=561
        shanga_y=482
    Case "6"
        shanga_x=578
        shanga_y=377
    Case "7"
        shanga_x=458
        shanga_y=476
    Case Else
        //否则
    End Select
End Sub

Sub 商队交易(jy_x, jy_y,buy)
    //进入交易界面
    Call Plugin.Bkgnd.LeftClick(Hwnd, jy_x, jy_y)
    Delay 2000
         
    //出售
    XY = Plugin.Bkgnd.FindColor(Hwnd,323,173,938,410,"A4FEFF")
    ZB = InStr(XY, "|")
    X = Clng(Left(XY, ZB - 1)): Y = Clng(Right(XY, Len(XY) - ZB))
    Call Plugin.Bkgnd.LeftClick(Hwnd, X, Y)
    Delay 500
    Call Plugin.Bkgnd.LeftClick(Hwnd, 572, 355)
    Delay 2000

    //购入，如果设置了只卖不买，则跳过购买步骤
    If buy = 0 Then 
        XY = Plugin.Bkgnd.FindColor(Hwnd,323,173,938,410,"B6FFFC")
        ZB = InStr(XY, "|")
        X = Clng(Left(XY, ZB - 1)): Y = Clng(Right(XY, Len(XY) - ZB))
        Call Plugin.Bkgnd.LeftClick(Hwnd,X,Y)
        Delay 500
        Call Plugin.Bkgnd.LeftClick(Hwnd, 572, 355)
        Delay 1000
    End If
    //关闭交易窗口
    Call Plugin.Bkgnd.LeftClick(Hwnd, 952, 68)
    Delay 500

End Sub
Sub 武将培养()
    Delay 200
    //运行前保证培养界面没有打开
    
    //点击武将培养，进入培养界面
    Call Plugin.Bkgnd.LeftClick(Hwnd, 208, 146)
    Delay 2000
    

    //选择要培养的武将
    Select Case pywj
    Case "1"
        Call Plugin.Bkgnd.LeftClick(Hwnd, 375, 165)
    Case "2"
        Call Plugin.Bkgnd.LeftClick(Hwnd, 445, 165)
    Case "3"
        Call Plugin.Bkgnd.LeftClick(Hwnd, 515, 165)
    Case "4"
        Call Plugin.Bkgnd.LeftClick(Hwnd, 375, 255)
    Case "5"
        Call Plugin.Bkgnd.LeftClick(Hwnd, 445, 255)
    Case "6"
        Call Plugin.Bkgnd.LeftClick(Hwnd, 515, 255)
    Case "7"
        Call Plugin.Bkgnd.LeftClick(Hwnd, 375, 345)
    Case "8"
        Call Plugin.Bkgnd.LeftClick(Hwnd, 445, 345)