RestoreMousePos 
                Goto ww
            EndIf 
            KeyPress 68,1
            Goto ww
        EndIf 
    EndFor 
    KeyPress 68,1
    Goto ww
Return 换炮