ganarOBloquear(Color,Config,Ranura):- disponible(Ranura,Config),
                                      colocarFicha(Color,Ranura,Config,ConfigR),
                                      cuatro_en_linea(Color,ConfigR,_Y).


jugadaSegura(Color,Config,Ranura):- disponible(Ranura,Config),
                                    otroColor(Color,ColorJugador),
                                    colocarFicha(Color,Ranura,Config,ConfigR),
                                    not(ganarOBloquear(ColorJugador,ConfigR,_)).


jugadaMate(Color, Config, Ranura):- otroColor(Color,ColorJugador),
                                    disponible(Ranura, Config),
                                    colocarFicha(Color,Ranura, Config, ConfigR),
                                    not(jugadaSegura(ColorJugador,ConfigR,_OtraRanura)).