wjxl1=DropList{"否":"1"|"是":"2"}=0 "武将一训练"
UserVar wjxl2=DropList{"否":"1"|"是":"2"}=0 "武将二训练"
UserVar wjxl3=DropList{"否":"1"|"是":"2"}=0 "武将三训练"
UserVar wjxl4=DropList{"否":"1"|"是":"2"}=0 "武将四训练"
UserVar wjxl5=DropList{"否":"1"|"是":"2"}=0 "武将五训练"
UserVar wjtf=DropList{"否":"0"|"武将一":"1"|"武将二":"2"|"武将三":"3"|"武将四":"4"|"武将五":"5"}=0 "武将突飞猛进"
Hwnd = Plugin.Window.MousePoint
Delay 1000
s =Plugin.Window.GetClientRect(Hwnd)
XYArray = Split(s, "|", -1, 1)
dx = XYArray(0)
dy = XYarray(1)
Rem xh
Delay 2000

//训练
 Call Plugin.Bkgnd.LeftClick(Hwnd,843-dx,695-dy)//点击部队图标
   Delay 1000      
If wjxl1=2 Then
   Call 武将一训练
   End If
   Delay 1000          
If wjxl2=2 Then
   Call 武将二训练
   End If 
   Delay 1000          
If wjxl3=2 Then 
   Call 武将三训练  
   Delay 1000
   End If   
If wjxl4=2 Then 
   Call 武将四训练
   End If
   Delay 1000       
If wjxl5=2 Then 
   Call 武将五训练
   Delay 1000
   Call Plugin.Bkgnd.LeftClick(Hwnd,814-dx,230-dy)//关闭窗口 
End If
//训练结束

Delay 300000
Goto xh
Sub 突飞猛进
    tftb=Plugin.Bkgnd.GetPixelColor(Hwnd,690-dx,575-dy)//得到突飞猛进图标颜色
        If tftb="CCCCCC" Then
        Delay 1000
           Call Plugin.Bkgnd.LeftClick(Hwnd,690-dx,575-dy)//点击突飞猛进图标
        End If
   Delay 1000
End Sub
Sub 提示
tss=Plugin.Bkgnd.GetPixelColor(Hwnd,499-dx,479-dy)//得到提示颜色
Delay 500
tss1=Plugin.Bkgnd.GetPixelColor(Hwnd,523-dx,483-dy)//得到提示颜色1
Delay 500
If tss="7197A3"and tss1="3D3C17" Then
Call Plugin.Bkgnd.LeftClick(Hwnd,499-dx,479-dy)//点击确定
End If
Delay 1000
End Sub 
Sub 判断并点击
    ksxl=Plugin.Bkgnd.GetPixelColor(Hwnd,696-dx,542-dy)//开始训练图标色
    If ksxl="CCCCCC" Then
    Call Plugin.Bkgnd.LeftClick(Hwnd,696-dx,542-dy)//点击开始
    Delay 1000
    Call 提示
    End If
End Sub
Sub 武将一训练
    Call Plugin.Bkgnd.LeftClick(Hwnd,339-dx,335-dy)//点击武将一
    Delay 1000
    Call 判断并点击
    Delay 2000
       If wjtf=1 Then
           Call 突飞猛进
               End If
 End Sub
Sub 武将二训练
    Call Plugin.Bkgnd.LeftClick(Hwnd,339-dx,355-dy)//点击武将二
    Delay 1000
     Call 判断并点击
    Delay 2000
       If wjtf=2 Then
          Call 突飞猛进
               End If
End Sub 
Sub 武将三训练  
     Call Plugin.Bkgnd.LeftClick(Hwnd,339-dx,375-dy)//点击武将三
     Delay 1000
    Call 判断并点击
     Delay 2000   
        If wjtf=3Then
            Call 突飞猛进
               End If
 End Sub
Sub 武将四训练
     Call Plugin.Bkgnd.LeftClick(Hwnd,339-dx,395-dy)//点击武将四
     Delay 1000
  Call 判断并点击