Rem 开始
z=z+1
LockMouse 
MoveTo 485,180
SaveMousePos 
Rem 找房间
RestoreMousePos 
Delay 200
VBSCall FindPic(0,0,1024,786,"白房1.bmp",0.8,x,y)
If x>=0 and y>=0
    MoveTo x y
    SaveMousePos 
    Delay 200
    LeftClick 1
EndIf 
Delay 200
//战场
IfColor 528,29,ffffff,0
    KeyPress 113,1
EndIf 
Delay 200
//信息(公用信息)
IfColor 534,246,f7fbf7,0
    IfColor 533,248,f7fbf7,0
        MoveTo 515,357
        Delay 200
        LeftClick 1
        Delay 100
        RestoreMousePos 
        Goto 找房间
    EndIf 
EndIf 
Delay 200
//船厂
IfColor 489,27,FFFFFF,0
    MoveTo 63,588
    Delay 100
    LeftClick 1
    Delay 100
    Goto 找房间
EndIf 
Delay 200
//准备或分组
IfColor 908,33,efefef,0
    Delay 2000
    MoveTo 485,180
    //判断对面有没有人
    VBSCall FindCenterColor(375,25,385,35,"212021",intX,intY)
    If intX>=0 and intY>=0
    Else 
        KeyPress 27,1
        Delay 1000
        Goto 找房间
    EndIf 
    Rem 准备
    //准备或分组
    IfColor 908,33,efefef,0
        KeyPress 9,1
        //准备或分组
        IfColor 908,33,efefef,0
            KeyPress 13,1
            SayString z&"  Ci"&
            KeyPress 13,1
            Goto 准备
        Else 
            Goto 等待时间
        EndIf 
    EndIf 
Else 
    Goto 找房间
EndIf 
Rem 等待时间
Delay 250
y=y+1
If y=60
    KeyPress 27,1
    Delay 1000
    Goto 找房间
EndIf 
//战场(海)
IfColor 7,62,f7aa00,0
    Goto 开杀
Else 
    Goto 等待时间
EndIf 
Rem 开杀
KeyPress 27,1
Delay 1000
//*****************************************准备开战*****************************************
//信息(退出信息)
IfColor 534,276,f7fbf7,0
    IfColor 533,278,f7fbf7,0
        MoveTo 490,387
        Delay 200
        LeftClick 1
        Delay 100
        MoveTo 485,180
    Else 
        Goto 开杀
    EndIf