Return 补红蓝
Sub 自动攻防
    VBSCall FindPic(950,410,1015,710,"Attachment:\攻防0.bmp",0.9,GFx1,GFy1)
    VBSCall FindPic(950,410,1015,710,"Attachment:\攻防1.bmp",0.9,GFx2,GFy2)
    If GFx1<0 and GFy1<0 and GFx2<0 and GFy2<0
        For 3
            KeyPress kjjF1,1
            Delay 64
        EndFor 
        Delay 3200
    EndIf 
Return 自动攻防
Sub 无药回城
    If kjF3>0 and kjF3<5
        kjF_hx=596
        For kjF3
            kjF_hx=kjF_hx+37
        EndFor 
    ElseIf kjF3>4 and kjF3<9
        kjF_hx=753
        For kjF3
            kjF_hx=kjF_hx+37
        EndFor 
    EndIf 
    If kjF4>0 and kjF4<5
        kjF_lx=596
        For kjF4
            kjF_lx=kjF_lx+37
        EndFor 
    ElseIf kjF4>4 and kjF4<9
        kjF_lx=753
        For kjF4
            kjF_lx=kjF_lx+37
        EndFor 
    EndIf 
    IfColor kjF_hx,746,b5ffe7,2
        SayString "1111111111,买红。。。"
        Delay 128
        KeyPress 13,1
        Delay 512
        KeyPress kjjF6,1
        Delay 6000
        savestring="无红回城。。。"
        Gosub 写入日志
        Delay 6000
        Gosub 回城补充
    EndIf 
    IfColor kjF_lx,746,b5ffe7,2
        SayString "1111111111,买蓝。。。"
        Delay 128
        KeyPress 13,1
        Delay 512
        SayString "1111111111,买蓝。。。"
        Delay 128
        KeyPress 13,1
        Delay 512
        KeyPress kjjF6,1
        Delay 6000
        savestring="无蓝回城。。。"
        Gosub 写入日志
        Delay 6000
        Gosub 回城补充
    EndIf 
Return 无药回城
Sub 包满回城
    If (timer-t2)>bmT
        KeyPress 9,1
        Delay 256
        VBSCall FindPic(957,517,997,557,"Attachment:\空格2.bmp",0.7,kgX,kgY)
        If kgX>0 and kgY>0
            KeyPress 9,1
            Delay 64
            t2=timer
        Else 
            SayString "1111111。。。"
            Delay 32
            KeyPress 13,1
            Delay 256
            KeyPress kjjF6,1
            Delay 6000
            savestring="包满回城。。。"
            Gosub 写入日志
            Delay 6000
            KeyPress 9,1
            Delay 128
            Gosub 回城补充
        EndIf 
    EndIf 
Return 包满回城
Sub Gosub 是否退组
    duiyuan=-2
    For tuizuN
        duiyuan=duiyuan+1
    EndFor 
    VBSCall FindPic(0,42+28*duiyuan,20,70+28*duiyuan,"Attachment:\队员.bmp",0.8,ZDx,ZDy)
    If ZDx<0 and ZDy<0
        SayString "人太少，我先退了。。。"
        Delay 256
        KeyPress 13,1
        Delay 128