//AB蓝方带4个充数的
//建立房间并进入,站到红方
c=1
While c=1
    VBSCall findpic (628,565,719,602,"Attachment:\Define entry.bmp",0.8,x,y)
    If x>=628 y>=565
        MoveTo x,y
        Delay 500
        LeftClick 1
        VBS c=2
    EndIf 
    Delay 2000
EndWhile 
//切换操纵另四个充数的.
e=1
While e=1
    KeyDown 18,1
    KeyPress 9,1
    KeyUp 18,1
    g=1
    d=1
    While d=1
        VBSCall FindPic (700,610,771,631,"Attachment:\确定2.bmp",0.5,x,y)
        If x>=700 and y>=610
            Delay 2000
            KeyPress 27,1
            VBS d=2
        EndIf 
    EndWhile 
    Delay 1000
    MoveTo 58,589
    Delay 1000
    LeftClick 1
    VBS f=1
    While f=1
        VBSCall findpic (628,565,719,602,"Attachment:\Define entry.bmp",0.8,x,y)
        If x>=628 y>=565
            MoveTo x,y
            Delay 500
            LeftClick 1
            VBS f=2
        EndIf 
    EndWhile 
    If g>=4
        e=2
    EndIf 
    g=g+1
EndWhile 
Delay 1000
KeyDown 18,1
KeyPress 9,1
KeyUp 18,1
//进入战斗画面.
o=1
While o=1
    VBSCall FindPic (883,740,912,759,"Attachment:\速度.bmp",0.9,x,y)
    If x>=883 and y>=740
        o=2
    EndIf 
EndWhile 
VBS a=1
VBS b=1
MoveTo 511,381
Delay 1000
LeftClick 1
MoveTo 134.89
KeyDown 70,1
Delay 5000
KeyUp 70,1
KeyPress 32,1
KeyPress 82,1
KeyDown 65,1
Delay 2500
KeyUp 65,1
KeyDown 83,1
Delay 4000
KeyUp 83,1
Delay 1000
KeyPress 17,1
While a=1
    VBSCall FindPic (170,200,250,345,"Attachment:\徽标.bmp",0.5,x,y)
    If x>=170 and y>=200
        KeyDown 86,1
        Delay 4000
        KeyUp 86,1
        a=2
    EndIf 
    KeyPress 17,1
EndWhile 
KeyDown 70,1
Delay 1000
KeyUp 70,1
While b=1
    VBSCall FindPic (400,315,440,335,"Attachment:\重叠星徽.bmp",0.9,x,y)
    If x>=400 and y>=315
        KeyDown 86,1
        Delay 2000
        KeyUp 86,1
        b=2
        KeyPress 13,1