KeyPress 52,1
        Delay 32
        t1=now
    EndIf 
    If DateDiff("s",t2,now)>=jn(1)
        KeyPress 53,1
        Delay 32
        t2=now
    EndIf 
    If DateDiff("s",t3,now)>=jn(2)
        KeyPress 54,1
        Delay 32
        t3=now
    EndIf 
Return 
Sub 辅助技能
    If DateDiff("n",t4,now)>=jn(3)
        KeyPress 55,1
        Delay 32
        t4=now
    EndIf 
    If DateDiff("n",t5,now)>=jn(4)
        KeyPress 56,1
        Delay 32
        t5=now
    EndIf 
    If DateDiff("n",t6,now)>=jn(5)
        KeyPress 48,1
        Delay 32
        t6=now
    EndIf 
Return 
Sub 补红
    IfColor hp*0.79+187,41,292984,2
        KeyPress 49,1
        Gosub 生命石
    EndIf 
Return 
Sub 生命石
    VBSCall FindColorEx(48,745,59,746,"ffffff",1,0.8,x,y)
    If x<0 and y<0
        IfColor (hp-10)*0.79+187,41,292984,2
            KeyPress 81,1
        EndIf 
    EndIf 
Return 
Sub 补蓝
    IfColor mp*0.77+190,74,843929,2
        KeyPress 50,1
        Gosub 魔法石
    EndIf 
Return 
Sub 魔法石
    VBSCall FindColorEx(83,745,96,746,"ffffff",1,0.8,x,y)
    If x<0 and y<0
        IfColor (mp-10)*0.77+190,74,843929,2
            KeyPress 69,1
        EndIf 
    EndIf 
Return 
Sub 解咒1
    VBSCall FindColorEx(112,102,282,132,"2120ce",1,0.8,x1,y1)
    VBSCall FindColorEx(112,102,282,132,"9c863a",1,0.8,x2,y2)
    VBSCall FindColorEx(112,102,282,132,"ffffe6",1,0.8,x3,y3)
    Gosub B1
    If x1>=0 and y1>=0 and x2>=0 and y2>=0 and x3>=0 and y3>=0
        If B<l
            KeyPress 48,1
            Delay 32
            B=B+1
        EndIf 
    EndIf 
    VBSCall FindColorEx(112,102,282,132,"2120ce",1,0.8,x1,y1)
    VBSCall FindColorEx(112,102,282,132,"ff",1,0.8,x2,y2)
    VBSCall FindColorEx(112,102,282,132,"f7e784",1,0.8,x3,y3)
    Gosub Y1
    If x1>=0 and y1>=0 and x2>=0 and y2>=0 and x3>=0 and y3>=0
        If Y<l
            KeyPress 48,1
            Delay 32
            Y=Y+1
        EndIf 
    EndIf 
Return 
Sub B1
    VBSCall FindColorEx(112,102,282,132,"2120ce",1,0.8,x1,y1)
    VBSCall FindColorEx(112,102,282,132,"9c863a",1,0.8,x2,y2)
    VBSCall FindColorEx(112,102,282,132,"ffffe6",1,0.8,x3,y3)
    If x1<0 and y1<0 and x2<0 and y2<0 and x<=0 and y3<0
        B=0
    EndIf 
Return 
Sub Y1
    VBSCall FindColorEx(112,102,282,132,"2120ce",1,0.8,x1,y1)
    VBSCall FindColorEx(112,102,282,132,"ff",1,0.8,x2,y2)
    VBSCall FindColorEx(112,102,282,132,"f7e784",1,0.8,x3,y3)
    If x1<0 and y1<0 and x2<0 and y2<0 and x<=0 and y3<0
        Y=0
    EndIf 
Return