//区域找图  0,0,1024,768为区域范围  "神盾.bmp"为图片名（路径）  0.9为找图的相似度 x,y为找到图片后的坐标变量
    If x>=0 and y>=0
        Delay 10
        //元素系
        aa=8
        Delay 10
        Goto 攻击
    ElseIf gj2=1
        Goto 人形系1
    ElseIf gj2=2
        Goto 妖兽系1
    ElseIf gj2=3
        Goto 幽冥系1
    ElseIf gj2=4
        Goto 鳞皇系1
    ElseIf gj2=5
        Goto 天空系1
    ElseIf gj2=6
        Goto 金属系1
    ElseIf gj2=7
        Goto 五毒系1
    ElseIf gj2=9
        Goto 木魔系1
    Else 
        Goto stat
    EndIf 
    Rem 木魔系1
    Delay 10
    VBSCall FindPic(355,17,600,80,"Attachment:\木魔系1024.bmp",0.9,x,y)
    //区域找图  0,0,1024,768为区域范围  "神盾.bmp"为图片名（路径）  0.9为找图的相似度 x,y为找到图片后的坐标变量
    If x>=0 and y>=0
        Delay 10
        //木魔系
        aa=9
        Delay 10
        Goto 攻击
    ElseIf gj2=1
        Goto 人形系1
    ElseIf gj2=2
        Goto 妖兽系1
    ElseIf gj2=3
        Goto 幽冥系1
    ElseIf gj2=4
        Goto 鳞皇系1
    ElseIf gj2=5
        Goto 天空系1
    ElseIf gj2=6
        Goto 金属系1
    ElseIf gj2=7
        Goto 五毒系1
    ElseIf gj2=8
        Goto 元素系1
    Else 
        Goto stat
    EndIf 
Return 匹配3
Sub 攻击
    IfColor l-70,m,0000FF,0
        Delay 50
        Gosub 人物补血补蓝
        Delay 100
        KeyPress gongji,1
        Delay 1000
        KeyPress gongji,1
        Delay 1000
        KeyPress gongji,1
        Delay gongjiyanshi
    EndIf 
    Rem stat3
    Delay 10
    IfColor l-97,m,0000FF,0
        Delay 100
        Gosub 人物补血补蓝
        Delay 100
        Goto stat3
    Else 
        Delay 100
        If o=3
            Delay 100
            Gosub 拾取
        EndIf 
    EndIf 
    Delay 10
Return 攻击
Sub 拾取
    For o
        KeyPress shiqu,1
        Delay 300
    EndFor 
    Delay 100
Return 拾取
Sub 人物补血补蓝
    Rem 补红
    IfColor hong/100*(a-c)+c,b,9d650d,2
        Delay 2000
        IfColor hong/100*(a-c)+c,b,9d650d,2
            //x2=血条在屏幕最右端坐标，x1=血条在屏幕最左端坐标，
            //y=x1,x2在血条中的同一纵坐标，color=血条的空血颜色值。
            KeyPress chihong,1
            //按下补血快捷键