If DateDiff("s",t3,now)>=jn(2)
        KeyPress 57,1
        Delay 125
        t3=now
    EndIf 
    If DateDiff("s",t4,now)>=jn(3)
        KeyPress 48,1
        Delay 125
        t4=now
    EndIf 
Return 
Sub 怪不死重新跟随
    VBSCall FindColorEx(503,13,570,31,"FFFFFF",1,0.8,x1,y1)
    VBSCall FindColorEx(503,13,570,31,"82ff",1,0.8,x2,y2)
    VBSCall FindColorEx(503,13,570,31,"ff0080",1,0.8,x3,y3)
    If x1<0 and y1<0 and x2<0 and y2<0 and x3<0 and y3<0
        Delay 225
        n=n+1
        If n>=i
            If GenSui=1
                KeyPress 113,1
                n=0
            Else 
                If GenSui=2
                    KeyPress 114,1
                    n=0
                Else 
                    If GenSui=3
                        KeyPress 115,1
                        n=0
                    Else 
                        If GenSui=4
                            KeyPress 116,1
                            n=0
                        Else 
                            If GenSui=5
                                KeyPress 117,1
                                n=0
                            Else 
                                If GenSui=6
                                    KeyPress 118,1
                                    n=0
                                Else 
                                    If GenSui=7
                                        KeyPress 119,1
                                        n=0
                                    Else 
                                        If GenSui=8
                                            KeyPress 120,1
                                            n=0
                                        Else 
                                            If GenSui=9
                                                KeyPress 121,1
                                                n=0
                                            EndIf 
                                        EndIf 
                                    EndIf 
                                EndIf 
                            EndIf 
                        EndIf 
                    EndIf 
                EndIf 
            EndIf 
        EndIf 
    EndIf 
Return 
Sub 补红
    IfColor hp*2.07+88,11,80c18,2
        KeyPress 49,1
    EndIf 
Return 
Sub 激励
    IfColor sp*2.07+88,26,101c18,2
        KeyPress 189,1
    EndIf 
Return 
Sub 交易
    VBSCall FindColorEx(515,131,517,133,"3186ff",1,0.8,x,y)
    If x>0 and y>0
        If JiaoYi=0
            Delay 32
            MoveTo 670,498
            LeftClick 1
        Else 
            If JiaoYi=1
                Delay 32
                MoveTo 640,498
                LeftClick 1
            EndIf 
        EndIf 
    EndIf 
Return 
Sub 组队
    VBSCall FindColorEx(560,438,562,440,"79c9f0",1,0.8,x,y)
    If x>0 and y>0
        If ZuDui=0
            Delay 225
            MoveTo 561,440
            LeftClick 1
        Else