//下面这句是得到当前最前面的窗口句柄
UserVar xue = 80 红少于%加血
UserVar lzc = 80 蓝少于%加蓝
Plugin Hwnd = Window.Foreground()
//下面这句是移动窗口到(0, 0)位置
Plugin Window.Move(Hwnd, 0, 0)
Gosub 检查红蓝
Delay 1000
Rem 没找到
VBSCall Call FindPic(0,0,1023,767,"yj.bmp",0.8,x,y)
If x>=0 and y>=0
    MoveTo x y
    Delay 100
    LeftClick 1
Else 
    Goto 没找到
EndIf 
Delay 500
////////////////////////////////////////////////////////////////////////
VBSCall Call FindPic(0,0,1023,767,"yj1.bmp",0.8,x,y)
If x>=0 and y>=0
    MoveTo x y+40*3+10
    Delay 100
    LeftClick 1
    Delay 500
    LeftClick 1
Else 
EndIf 
Rem =============进入打怪==================
//是TU就按ESC  取消自动
VBSCall Call FindPic(0,0,1023,767,"UT.bmp",0.8,x,y)
If x>=0 and y>=0
    KeyPress 27,1
    Delay 100
    KeyDown 18,1
    Delay 10
    KeyPress 68,1
    Delay 10
    KeyUp 18,1
    Delay 500
    KeyDown 18,1
    Delay 10
    KeyPress 68,1
    Delay 10
    KeyUp 18,1
    //////////防
Else 
    MoveTo 768,102
    Delay 500
    LeftClick 1
EndIf 
Rem 打怪延时
Delay 500
VBSCall Call FindPic(0,0,1023,767,"zd.bmp",0.8,x,y)
If x>=0 and y>=0
Else 
    MoveTo 768,102
    Delay 500
    LeftClick 1
EndIf 
IfColor 58,40,4038f8,0
    Gosub 检查红蓝
Else 
    Delay 1000
    Goto 打怪延时
EndIf 
IfColor 58,53,f86008,0
    Gosub 检查红蓝
Else 
EndIf 
Delay 1000
Goto 没找到
EndScript 
Sub 检查红蓝
    ////////////////////////////////
    x1=58
    y1=39
    x2=118
    y2=39
    xuet=x2-x1
    //xuet=60
    i=xue/100*xuet
    u=i+58
    Rem 回家血
    IfColor u,39 4038f8 1
        Goto 出去加红
    Else 
    EndIf 
    Rem ====================以下为加蓝========================
    x11=58
    y22=51
    x111=118
    y222=52
    ///////////////////////以上为坐标////////////////
    lzco=x111-x11
    //lzco=血总长
    lanc=lzco/100*lzco
    //LANC=?
    lann=lanc+58
    //LANN=蓝处始坐标