If dao=2
        VBSCall FindColorEx(980,25,981,30,"b84af6",1,0.8,x,y)
        If x>=0 and y>=0
            Delay 32
            KeyPress 115,1
        EndIf 
    EndIf 
Return 
Sub 定位3l
    If dao=3
        VBSCall FindColorEx(974,27,975,28,"2ec638",1,0.8,x,y)
        If x>=0 and y>=0
            Delay 32
            KeyPress 115,1
        EndIf 
    EndIf 
Return 
Sub 定位3h
    If dao=3
        VBSCall FindColorEx(968,22,969,23,"b84af6",1,0.8,x,y)
        If x>=0 and y>=0
            Delay 32
            KeyPress 115,1
        EndIf 
    EndIf 
Return 
Sub 定位5l
    If dao=5
        VBSCall FindColorEx(944,23,945,24,"2ec638",1,0.8,x,y)
        If x>=0 and y>=0
            Delay 32
            KeyPress 115,1
        EndIf 
    EndIf 
Return 
Sub 定位5h
    If dao=5
        VBSCall FindColorEx(942,18,943,20,"b84af6",1,0.8,x,y)
        If x>=0 and y>=0
            Delay 32
            KeyPress 115,1
        EndIf 
    EndIf 
Return 
Sub 回定位点
    If DateDiff("s",t4,now)>=n*4.5
        KeyPress 115,1
        Delay 32
        t4=now
    EndIf 
Return 
Sub 攻击
    VBSCall FindColorEx(150,100,820,460,"303b8",1,0.8,x1,y1)
    If x1>=0 and y1>=0
        MoveTo x1+n y1+m
        KeyPress 113,1
        RightClick 1
        Gosub 技能1
        Gosub 技能2
        e="":f=""
    EndIf 
EndIf 
Return 
Sub 技能1
    Delay 32
    jn1=jn1+1
    If jn1>=4
        KeyPress 113,1
        jn1=0
    EndIf 
Return 
Sub 技能2
    Delay 32
    jn2=jn2+1
    If jn2>=8
        KeyPress 114,1
        jn2=0
    EndIf 
Return 
Sub 补红
    IfColor hp*1.13+121,31,313033,2
        KeyPress 112,1
    EndIf 
Return 
Sub 状态
    If DateDiff("s",t1,now)>=zt(0)
        KeyPress 116,1
        RightClick 1
        Delay 32
        t1=now
    EndIf 
    If DateDiff("s",t2,now)>=zt(1)
        KeyPress 117,1
        RightClick 1
        Delay 32
        t2=now
    EndIf 
    If DateDiff("s",t3,now)>=zt(2)
        KeyPress 118,1
        RightClick 1