<?php
/*
* Bot for connectfour https://botsarena.tinad.fr/connectFour
* by Gnieark https://blog-du-grouik.tinad.fr/ june 2016 
* GNU GPL License
*/

header('Access-Control-Allow-Origin: *');
header('Access-Control-Allow-Methods: GET, POST'); 
header('Access-Control-Allow-Headers: Origin, X-Requested-With, Content-Type, Accept');
header('Content-Type: application/json');


//connexion mysql
require_once("config.php");

if (!$lnMySQL=mysqli_connect($config['mysql_host'], $config['mysql_user'], $config['mysql_pass'])) {
    error(500,'database connexion failed');
    die;
}

mysqli_select_db($lnMySQL,$config['mysql_database']);
mysqli_set_charset($lnMySQL, 'utf8');  
//purge old games
mysqli_query($lnMySQL,"DELETE FROM battleship_current WHERE time < (NOW() - INTERVAL 10 MINUTE)");

$trace = "";

function hash_map($map,$me,$opponent){
  $hashMap = "";
  foreach($map as $line){
    foreach ($line as $cell){
	switch($cell){
	  case $me:
	    $hashMap.="1";
	    break;
	  case $opponent:
	    $hashMap.="2";
	    break;
	   default: 
	    $hashMap.="0";
	    break;
	}
    }
  }
  
 return base_convert($hashMap, 3, 16);
}
function remenber_previous_lap_is_a_bullshit(){
  global $params, $lnMySQL,$trace;
   $trace.="|I Learn it";
    mysqli_query($lnMySQL,
      "INSERT INTO battleshipLearn(map,	dont_play_col)
	  SELECT battleship_current.map, battleship_current.play_at 
	  FROM battleship_current
	  WHERE battleship_current.game_id='".mysqli_real_escape_string($lnMySQL,$params['game-id'])."'
	  AND battleship_current.player_index='".mysqli_real_escape_string($lnMySQL,$params['player-index'])."';"
    );

}

function play($map,$colToPlay,$me,$opponent,$gameid,$player_index){
  global $lnMySQL,$trace;
  
  //save the lap on the database and then send the play response
  mysqli_query($lnMySQL,
    "INSERT INTO battleship_current (game_id,player_index,map,play_at) VALUES
    ('".mysqli_real_escape_string($lnMySQL,$gameid)."',
    '".mysqli_real_escape_string($lnMySQL,$player_index)."',
    '".hash_map($map,$me,$opponent)."',
    '".$colToPlay."')
    ON DUPLICATE KEY UPDATE
     map='".hash_map($map,$me,$opponent)."',
     play_at='".$colToPlay."';");
     
    echo '{"play":'.$colToPlay.',"trace":"'.$trace.'"}';
    die;
}

function can_win($line,$myChar,$depth=0){
    //retourne la position du caractere a remplacer dans la ligne pour gagner
    $arr=array();
    if($depth == 0){
        if (strpos($line,"+".$myChar.$myChar.$myChar)  !== false ){
            $arr[] = strpos($line,"+".$myChar.$myChar.$myChar);
        }
        if (strpos($line,$myChar."+".$myChar.$myChar)  !== false ){
            $arr[] = strpos($line,$myChar."+".$myChar.$myChar) + 1;
        }
        if (strpos($line,$myChar.$myChar."+".$myChar)  !== false ){
            $arr[] = strpos($line,$myChar.$myChar."+".$myChar) + 2;
        }
        if (strpos($line,$myChar.$myChar.$myChar."+")  !== false ){
            $arr[] = strpos($line,$myChar.$myChar.$myChar."+") + 3;
        }
    }else{
        if (strpos($line,"+".$myChar.$myChar."+")  !== false ){
            $arr[] = strpos($line,"+".$myChar.$myChar."+");
            $arr[] = strpos($line,"+".$myChar.$myChar."+") + 3;
        }
        if (strpos($line,"+".$myChar."+".$myChar)  !== false ){      
            $arr[] = strpos($line,"+".$myChar."+".$myChar);
            $arr[] = strpos($line,"+".$myChar."+".$myChar) + 2;
        }
        if (strpos($line,$myChar."+".$myChar."+")  !== false ){     
            $arr[] = strpos($line,$myChar."+".$myChar."+")  + 1;
            $arr[] = strpos($line,$myChar."+".$myChar."+")  + 3;
        }
    }
    return $arr;
}
function can_loose($line,$hisChar,$depth=0){
    //je pourrai perdre aux 2 prochains tours de jeu
    // retourne la place du caractere à remplacer pour éviter ça
    $arr=array();
    if ($depth == 0){

        if (strpos($line,"+".$hisChar.$hisChar.$hisChar)  !== false ){
            $arr[] = strpos($line,"+".$hisChar.$hisChar.$hisChar);
        }
        if (strpos($line,$hisChar."+".$hisChar.$hisChar)  !== false ){
            $arr[] = strpos($line,$hisChar."+".$hisChar.$hisChar) + 1;
        }
        if (strpos($line,$hisChar.$hisChar."+".$hisChar)  !== false ){
            $arr[] = strpos($line,$hisChar.$hisChar."+".$hisChar) + 2;
        }
        if (strpos($line,$hisChar.$hisChar.$hisChar."+")  !== false ){
	    $arr[] = strpos($line,$hisChar.$hisChar.$hisChar."+") + 3;
        }
        
    }else{
        if (strpos($line,"+".$hisChar.$hisChar."+")  !== false ){
            $arr[] = strpos($line,"+".$hisChar.$hisChar."+");
            $arr[] = strpos($line,"+".$hisChar.$hisChar."+") +3;
        }
        if(strpos($line,"+".$hisChar."+".$hisChar."+")  !== false ){
            $arr[] =  strpos($line,"+".$hisChar."+".$hisChar."+");
	    $arr[] =  strpos($line,"+".$hisChar."+".$hisChar."+") + 2;
	    $arr[] =  strpos($line,"+".$hisChar."+".$hisChar."+") + 4;
        }

    }
    return $arr;
    
}
function array_merge_and_increment_rigth ($arr1,$arr2,$incr){
    foreach($arr2 as $v){
        $arr1[] = $v + $incr;
    }
    return $arr1;
}
function analize($line,$me,$opponent,$isVertical,$decalageX){
    /*
    * Etudie les lignes fournies
    * Joue si une case est gagnante
    * Sinon, "peuple" des variables
    * qui permettront de prendre une décision
    */

    static $colForNoLose = array();
    static $colForNoLose1 = array();
    static $canWinDepth1 = array();
    
    global $params;
    
    if(count(can_win($line,$me,0)) > 0){
        if($isVertical){
	    play($params['board'],$decalageX,$me,$opponent,$params['game-id'],$params['player-index']);
        }else{
	    play($params['board'],(can_win($line,$me,0)[0] + $decalageX),$me,$opponent,$params['game-id'],$params['player-index']);
        }
        die;
        
    }
    
    if (count(can_loose($line,$opponent,0)) > 0){
    
      if($isVertical){
            $colForNoLose[] = $decalageX;
        }else{
            $colForNoLose = array_merge_and_increment_rigth($colForNoLose ,can_loose($line,$opponent,0),$decalageX);
        }
    }
    
    
    if (count(can_loose($line,$opponent,1)) > 0 ){
        if($isVertical){
            $colForNoLose1[] = $decalageX;
        }else{
            $colForNoLose1 = array_merge_and_increment_rigth($colForNoLose1 ,can_loose($line,$opponent,1),$decalageX);
        }
    }
    if(count(can_win($line,$opponent,1)) > 0){
        if($isVertical){
            $canWinDepth1[] = $decalageX;
        }else{
            $canWinDepth1= array_merge_and_increment_rigth($canWinDepth1, can_win($line,$me,1), $decalageX);
        }
    }
    
    return array(
                'colForNoLose'   => $colForNoLose, 
                'colForNoLose1'  => $colForNoLose1, 
                'canWinDepth1'   => $canWinDepth1
                );

}


function should_opponent_win_if_i_play_at($map,$me,$opponent,$colToPlay){
    //j'ouvre l'a possibilité à l'adversaire de jouer au dessus de mon pion
    // est-ce une connerie?
    
    if(($map[4][$colToPlay] == $me) OR ($map[4][$colToPlay] == $opponent)){
      //top of the grid
      return false;
    }
    
    for($y = 0; (($map[$y][$colToPlay] <> "+") && ($map[$y][$colToPlay] <> "-")); $y++){
    }
    
    $map[$y][$colToPlay] = $me;
    $map[$y +1][$colToPlay] = "$opponent";
    $y++;
    if(isset($map[$y +1][$colToPlay])){
      $map[$y +1][$colToPlay] = "+";
    }
    //tester les lignes qui passent pas $y+1,$colToPlay
    
    $loseStr = $opponent.$opponent.$opponent.$opponent;
    //horizontale
    $line="";
    for($x=0; $x < 7; $x++){
      $line.=$map[$y][$x];
    }
    if(strpos($line,$loseStr) !== false){
      return true;
    }
    
    //diagonal /
    $line="";
    if($colToPlay > $y){
      $kx=$colToPlay - $y;
      $ky = 0;
    }else{
      $kx = 0;
      $ky = $y - $colToPlay;
    }
    while(isset($map[$ky][$kx])){
      $line.=$map[$ky][$kx];
      $kx++;
      $ky++;
    }
    if(strpos($line,$loseStr) !== false){
      return true;
    }
    
    //diagional \
    $line = "";
    $kx = $colToPlay;
    $ky = $y;
    
    while(isset($map[$ky -1][$kx +1])){
      $kx++;
      $ky--;
    }

    while(isset($map[$ky][$kx])){
      $line.=$map[$ky][$kx];
      $kx--;
      $ky++;
    }
    if(strpos($line,$loseStr) !== false){
      return true;
    }
    return false;
}


//replace "" by " ", it will simplify my code.
$in=str_replace('""','"-"',file_get_contents('php://input'));

$params=json_decode($in, TRUE);
switch($params['action']){
	case "init":
		echo '{"name":"Gnieark"}';
		break;
	case "play-turn":
		//find $opponent and clean grid
		for($x = 0; $x < 7 ; $x++){
		  for($y = 0; $y < 6 ; $y++){
		  
                    //find opponent
		    if(($params['board'][$y][$x] <> "-" ) && ($params['board'][$y][$x] <> $params['you'] )){
		      $opponent= $params['board'][$y][$x];
		    }
		    
		    //tester si la case est jouable (s'il y a un support en dessous)
		    if  ($params['board'][$y][$x] == "-" ){   
                        //AND (($y==0) OR ($params['board'][$y - 1][$x] !== "-"))
                        //){
                        //la case est jouable, je la marque par un "+"
			if($y == 0){
                        	$params['board'][$y][$x] = "+";
			}elseif(($params['board'][$y -1 ][$x] !== "-") AND ($params['board'][$y -1 ][$x] !== "+")){
				$params['board'][$y][$x] = "+";
			}else{}
		    }
		  }
		}
		if((!isset($opponent)) && ($params['you'] == "X")){
		  $opponent="O";
		}elseif(!isset($opponent)){
		  $opponent="X";
		}

		//transformer la grille en lignes horizontales, verticales et diagonales

		//verticales
		for($x = 0; $x <7; $x ++){
                    $colStr="";
                    for($y = 0; $y <6; $y ++){
                        $colStr.= $params['board'][$y][$x];
                    }
                    $choice = analize($colStr,$params['you'],$opponent,true,$x);
		}
		
		//horizontales
		for($y = 0; $y <6; $y ++){
                    $lnStr="";
                    for($x = 0; $x <7; $x ++){
                       $lnStr.= $params['board'][$y][$x]; 
                    }
                    $choice = analize($lnStr,$params['you'],$opponent,false,0);
		}
		
		//tester seulement les diagonales >= 4 cases
		
		for ($k = 0; $k < 4; $k ++){
		
                    //diagonale /
                    $diagStr="";
                    for($x=$k , $y=0; isset($params['board'][$y][$x]); $x++, $y++){
                        $diagStr.=$params['board'][$y][$x];
                    }
                    $choice = analize($diagStr,$params['you'],$opponent,false,$k);
                    
                    //diagonale \
                    $diagStr="";
                    for($x=$k , $y=5; isset($params['board'][$y][$x]); $x++, $y--){
                    $diagStr.=$params['board'][$y][$x];
                    }
                    $choice = analize($diagStr,$params['you'],$opponent,false,$k);
                    
		}		
		for ($k = 0; $k < 3; $k ++){
                    //diagonale /
                    $diagStr="";
                    for($x = 0, $y = $k ; isset($params['board'][$y][$x]); $x++, $y++){
                        $diagStr.=$params['board'][$y][$x];
                    }
                    $choice = analize($diagStr,$params['you'],$opponent,false,0);
		}
		for ($k = 3 ; $k < 6 ; $k++){

                    //diagonales \
                    $diagStr="";
                    for($x=0 , $y=$k; isset($params['board'][$y][$x]); $x++, $y--){
                        $diagStr.=$params['board'][$y][$x];
                    }
                     $choice = analize($diagStr,$params['you'],$opponent,false,0);
                }
                           
                //si j'arrive là, je ne gagne pas à ce tour
                
                //liste des cases possible moins celles à éviter
               
		//Est-ce que cette combinaison est sauvegardée comme perdante?

		$rs = mysqli_query($lnMySQL,"SELECT dont_play_col FROM battleshipLearn WHERE map='".hash_map($params['board'],$params['you'],$opponent)."'");
		$learnedCells = array();
		while($r = mysqli_fetch_row($rs)){
			$learnedCells[] = $r[0];
		}
		
                $colAvailable=array();
		for($i=0;$i<7;$i++){
  			if((($params['board'][5][$i] == "+") OR ($params['board'][5][$i] == "-"))
                        AND (!should_opponent_win_if_i_play_at($params['board'],$params['you'],$opponent,$i))
			AND (!in_array($i,$learnedCells)))
  			{
    				$colAvailable[]=$i;
  			}
		}
                if(count($colAvailable) == 0){
                    //on risque de perdre au prochain tour
                    remenber_previous_lap_is_a_bullshit();
                    for($i=0;$i<7;$i++){		
                            if(($params['board'][5][$i] == "+") OR ($params['board'][5][$i] == "-")){
                                    $colAvailable[]=$i;
                            }
                    }
                }
		if(count(array_unique($choice['colForNoLose'])) > 1){
		  //opponent has to places to win
		  remenber_previous_lap_is_a_bullshit();
		}
		
		$trace.="|learnedCells:".implode(",",$learnedCells)."|colAva:".implode(",",$colAvailable)."|colforNoLose:".implode(",",$choice['colForNoLose'])."|col for no loose depth1:".implode(",",$choice['colForNoLose1']);
		
                if(count($choice['colForNoLose']) > 0){            
                    //intersection entre $choice['colForNoLose'] et $colAvailable
                    $intersection = array_intersect($choice['colForNoLose'],$colAvailable);
                    if(count($intersection) > 0){
                        shuffle($intersection);
                        play($params['board'],$intersection[0],$params['you'],$opponent,$params['game-id'],$params['player-index']);
                        die;
                    }else{
                        //on pourra perdre au prochain tour, tant pis
                        remenber_previous_lap_is_a_bullshit();
                        shuffle($choice['colForNoLose']);
                        play($params['board'],$choice['colForNoLose'][0],$params['you'],$opponent,$params['game-id'],$params['player-index']);
                        die;                      
                    }
                    
                }

                $colForNoLose1 = array_unique($choice['colForNoLose1']);
                $canWinDepth1 = array_unique($choice['canWinDepth1']);
                
                $intersection = array_intersect($colForNoLose1,$colAvailable,$canWinDepth1);
                if(count($intersection) > 0){
                    shuffle($intersection);
                    play($params['board'],$intersection[0],$params['you'],$opponent,$params['game-id'],$params['player-index']);
                    die;
                }
                
                $intersection = array_intersect($colForNoLose1,$colAvailable);
                if(count($intersection) > 0){
                    shuffle($intersection);
                    play($params['board'],$intersection[0],$params['you'],$opponent,$params['game-id'],$params['player-index']);
                    die;
                }
                
                $intersection = array_intersect($colForNoLose1,$canWinDepth1);
                if(count($intersection) > 0){
                    shuffle($intersection);
                    play($params['board'],$intersection[0],$params['you'],$opponent,$params['game-id'],$params['player-index']);
                    die;
                }
            
                //still there? random
				
		shuffle($colAvailable);
		play($params['board'],$colAvailable[0],$params['you'],$opponent,$params['game-id'],$params['player-index']);

		
		break;
	default:
		break;
}