MoveTo 512,384
Delay 32
SaveMousePos 
MoveTo 100,25
Delay 64
LeftClick 1
//点自身血条准备群疗
Delay 512
RestoreMousePos 
t1=timer
//不吃蓝时间记时
t2=timer
//包满否检查时间记时
Rem 群疗
Gosub 补红蓝
KeyPress kjjF2,1
Delay 128
If zjGF=1
    Gosub 自动攻防
EndIf 
If baoman=1
    Gosub 包满回城
EndIf 
KeyPress kjjF2,1
Delay 128
If jyF=1
    Gosub 死亡回城
EndIf 
Gosub 是否退组
KeyPress kjjF2,1
Delay 128
Gosub 无药回城
Goto 群疗
Rem 停止挂机
Delay 3000
savestring="停止挂机。。。"
Gosub 写入日志
SayString "..."
KeyPress 13,1
Delay 128
KeyDown 17,1
KeyPress 67,1
KeyUp 17,1
Delay 3000
If guanji=1
    For 3
        KeyPress 27,1
        Delay 128
    EndFor 
    MoveTo 799,386
    Delay 128
    LeftClick 1
    //结束游戏
    Delay 1000
    MoveTo 481,181
    Delay 128
    LeftClick 1
    //确认
    Delay 30000
    savestring="退出游戏，关闭电脑。。。"
    Gosub 写入日志
    VBSCall Call RunApp("Shutdown.exe -s -t 30")
EndIf 
EndScript 
//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★子程序★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓〓〓〓
Sub 补红蓝
    Rem 低血回城
    IfColor dihui*1.28+21,5,4a5373,2
        KeyPress kjjF6 1
        Delay 3000
        If jyF=1
            Gosub 死亡回城
        EndIf 
        Delay 6000
        savestring="低血回城。。。"
        Gosub 写入日志
        Delay 6000
        Gosub 回城补充
    EndIf 
    Rem 补红
    IfColor hongBF*1.28+21,5,4a5373,2
        KeyPress kjjF3,1
        Delay 128
        SayString "来个人，9999999。。。"
        Delay 128
        KeyPress 13,1
        Delay 256
        savestring="有怪攻击。。。"
        Gosub 写入日志
    EndIf 
    Rem 补蓝
    IfColor lanBF*1.28+21,18,734b4a,2
        KeyPress kjjF4,1
        Delay 128
        t1=timer
    EndIf 
    If (timer-t1)>bclT
        Gosub 自动攻防
        t1=timer
    EndIf