UserVar rhong =80 角色红低于%时补红
UserVar rlan =80 角色蓝低于%时补蓝
UserVar chong =80 宠红低于%时补红
UserVar clan =80 宠蓝低于%时补蓝
Rem =======================================================
//下面这句是得到当前最前面的窗口句柄
Plugin Hwnd = Window.Foreground()
//下面这句是移动窗口到(0, 0)位置
Plugin Window.Move(Hwnd, 0, 0)
Delay 1000
Rem H
Rem 打完重来
VBSCall Call FindPic(0,0,1023,767,"眼睛.bmp",0.8,x,y)
///找到 眼睛 并点击
If x>=0 and y>=0
    MoveTo x y
    Delay 500
    LeftClick 1
Else 
    VBSCall Call FindColorEx(0,0,800,600,"48fcf8",1,0.8,x,y)
    If x>=0 and y>=0
        MoveTo x y
        Delay 500
        LeftClick 1
    Else 
        Goto H
    EndIf 
EndIf 
Delay 1000
Rem cuo1
VBSCall Call FindPic(0,0,1023,767,"眼睛1.bmp",0.8,x,y)
///找到 眼睛 在偏移鼠标
If x>=0 and y>=0
    MoveTo x y+130
    Delay 500
    LeftClick 1
Else 
    Goto cuo1
EndIf 
Delay 1000
Rem cuo2
VBSCall Call FindPic(0,0,1023,767,"差.bmp",0.8,x,y)
///找到 眼睛(偏移点) 查找差进入打怪
If x>=0 and y>=0
    MoveTo x-100*4-15 y+56
    Delay 500
    LeftClick 1
Else 
    Goto cuo2
EndIf 
//======================进入打怪==========================
Rem 541
Delay 1000
IfColor 656,40,4038f8,2
    Delay 100
    MoveTo 768,99
    Delay 850
    LeftClick 1
    Delay 300
Else 
    Goto 541
EndIf 
Delay 1000
Rem 怪
Delay 100
IfColor 58,40,4038f8,1
    For 3
        IfColor 766,101,885028,2
        Else 
            Delay 100
            MoveTo 768,99
            Delay 850
            LeftClick 1
            Delay 300
        EndIf 
        Delay 1000
        Goto 怪
    EndFor 
Else 
EndIf 
Delay 1000
Gosub 检查红蓝
Goto 打完重来
Rem ====================循环打怪=================
EndScript 
Sub 检查红蓝
    Rem ===================角色红======================
    rx=58
    ry=41
    rx1=118
    ry1=40
    rxue=rx1-rx
    rhong1=rhong/100*rxue
    rhong2=rhong1+58
    Delay 100
    IfColor rhong2,41 4038f8 2
        /////不用加红
    Else 
        MoveTo rhong2,41
        Delay 800