End sub
 
Sub 补血
    hong1=aa.ocr(32,132,93, 143)
    lan1=aa.ocr(39,144,101, 156)
    xie=hong1-hong
    If xie<0
        call 辅助
        Call 技能F1()
        Delay 100
        Call 技能F2()
    Else
    End If
    lan2=lan1-lan
    If lan2<0
        Call 技能F3()
        Delay 100
        Call 技能F4()
    Else
    End If
End sub
Sub 辅助
    If Vars ="1" then
        Call Plugin.Bkgnd.MoveTo(dm1, 20, 255)
        Call Plugin.Bkgnd.MoveTo(dm1, 20, 255)
        Call Plugin.Bkgnd.RightClick(dm1, 20, 255)
        Delay 300
        Call Plugin.Bkgnd.MoveTo(dm1, 25, 260)
        Call Plugin.Bkgnd.MoveTo(dm1, 25, 260)
        Call Plugin.Bkgnd.LeftClick(dm1, 25, 260)

        Call Plugin.Bkgnd.MoveTo(dm1, 20, 255)
        Call Plugin.Bkgnd.MoveTo(dm1, 20, 255)
        Call Plugin.Bkgnd.LeftClick(dm1, 20, 255)
        Call 技能血()
        Call 辅助人物技能补血()
    Else
    End if
End sub
sub 技能血
    TNs = Plugin.Sys.GetTime()
    TGs=TNs-TJs-TAs  
    If TGs>0
        Call Plugin.Bkgnd.KeyPress(dm1, 50)
        TJs=TNs
        Delay s1
    End If
End sub 
Sub 辅助人物技能补血
    IfColor 106,294,"2C2CC6",1 Then
        Call Plugin.Bkgnd.KeyPress(dm1, 32)
        Delay 300
        Call 技能血()
    Else
    End If
End sub




Sub 捡物
    If Var0 ="1" then 
        rem XX1 
        set bb=CreateObject("simplugocr.ocr")
        bb.dict="default_dict.txt"
        Call 全部
        Call 蓝色
        Call 紫色
        bb.bgcolor="FFFFFF"
        bb.BWPar=0
        bb.BlackOrWhite=1
        bb.NoiseSize=1
        bb.clearNoise=1
        bb.HSReady
        //对txt类型的字库重新建立散列表(字库记录越多效果越明显,对于HSFindStrs命令要求字具有唯一性,否则只找第一个对应的字),当使用MakeDict动态生成字库记录并希望用其进行高速查找时才需要使用,一般不需要用
        bb.setHSFDS(1)
        //为下面的hsfindstrs字符串数组查找设立字间距使其能在内存中生成字串图从而实现高效找,单位1像素,同时可以通过文字间空格" "来进行微调,1个空格代表2个文字之间临时再增加1像素
        //bb.HSfindstr "要找的文字",0,0,1280,1024,0.9
        //查找文字，最后一个参数是相似度：1~0.1，越小越速度越快，相似度也越低（越不像的也会被当作正确的找到），找到的坐标保存在bb.cx,bb.cy，没找到的结果是-1,-1
        //s=bb.HSfindstrs("字串1$字串2$字串3",0,0,1280,1024,9)
        z=bb.HSfindstrs("金$玉$血$牙$云$草$布$",362, 178,662, 552,3)
        //查找多个字串，最后一个参数是相似度：10-1，越小越速度越快，相似度也越低，返回首先找到的"x,y,字串"，同样坐标也保存在bb.cx,bb.cy
        If z>0
            MoveTo bb.cx,bb.cy
            MoveTo bb.cx,bb.cy
            Delay jw
            LeftClick 1  
            Delay wj
            Mover 500-bb.cx,400-bb.cy
            Delay wj
 LeftClick 1 
            Set bb=nothing
            Goto XX1  
        Else 
           
            Set bb=nothing
        End if
    Else
    End if
End sub