user.cgi

自己原创的五子棋沙龙游戏

    $m = index($tempstring,substr(@robots[0],0,1));
    $n = substr(@robots[0],1);
    $x[$m][$n]=3;
}

@line2=split(/&&/,$entries[1]);
chop($line2[1]);
@whi=split(/;/,$line2[1]);
foreach  $plau (@whi) {
	@plauser=split(/!/,$plau);
    $m = index($tempstring,substr(@plauser[0],0,1));
    $n = substr(@plauser[0],1);
    $x[$m][$n]=4;
}

for ($j=1; $j<=15;$j++) {
	for ($jj=1; $jj<=15;$jj++) {


if ($x[$j][$jj]==2) {

        for ($a=-1; $a<=1; $a++) {
        for ($aa=-1; $aa<=1; $aa++) {

            if ($a != 0 or $aa != 0){

#'玩家赢(*****)
  if( $x[$j + $a][$jj + $aa] == 4 and $x[$j + 2 * $a][$jj + 2 * $aa] == 4 and $x[$j + 3 * $a][$jj + 3 * $aa] == 4 and $x[$j + 4 * $a][$jj + 4 * $aa] == 4 and $x[$j + 5 * $a][$jj + 5 * $aa] == 4 ){
	  $win_flg = 1;}

#'连五[_****     **_**      *_***]
  if( $x[$j + $a][$jj + $aa] == 3 and $x[$j + 2 * $a][$jj + 2 * $aa] == 3 and $x[$j + 3 * $a][$jj + 3 * $aa] == 3 and $x[$j + 4 * $a][$jj + 4 * $aa] == 3 ){
	  $jz[$j][$jj] = $jz[$j][$jj] + 100000000 + rand(1); 
	  $fail_flg = 1;
	}

  if( $x[$j + $a][$jj + $aa] == 3 and $x[$j + 2 * $a][$jj + 2 * $aa] == 3 and $x[$j - $a][$jj - $aa] == 3 and $x[$j - 2 * $a][$jj - 2 * $aa] == 3 ){
	  $jz[$j][$jj] = $jz[$j][$jj] + 50000000 + rand(1); 
	  $fail_flg = 1;
	}

  if( $x[$j + $a][$jj + $aa] == 3 and $x[$j + 2 * $a][$jj + 2 * $aa] == 3 and $x[$j - $a][$jj - $aa] == 3 and $x[$j + 3 * $a][$jj + 3 * $aa] == 3 ){
	  $jz[$j][$jj] = $jz[$j][$jj] + 100000000 + rand(1); 
      $fail_flg = 1;
    }

#'赌四[****_     **_**      *_***]
  if( $x[$j + $a][$jj + $aa] == 4 and $x[$j + 2 * $a][$jj + 2 * $aa] == 4 and $x[$j + 3 * $a][$jj + 3 * $aa] == 4 and $x[$j + 4 * $a][$jj + 4 * $aa] == 4 ){ $jz[$j][$jj] = $jz[$j][$jj] + 10000000 + rand(1);}


  if( $x[$j + $a][$jj + $aa] == 4 and $x[$j + 2 * $a][$jj + 2 * $aa] == 4 and $x[$j - $a][$jj - $aa] == 4 and $x[$j - 2 * $a][$jj - 2 * $aa] == 4 ){ $jz[$j][$jj] = $jz[$j][$jj] + 5000000 + rand(1);}


  if( $x[$j + $a][$jj + $aa] == 4 and $x[$j + 2 * $a][$jj + 2 * $aa] == 4 and $x[$j - $a][$jj - $aa] == 4 and $x[$j + 3 * $a][$jj + 3 * $aa] == 4 ){ $jz[$j][$jj] = $jz[$j][$jj] + 10000000 + rand(1);}


#'活四[_ ==***_       _*==**_]
  if( $x[$j + $a][$jj + $aa] == 3 and $x[$j + 2 * $a][$jj + 2 * $aa] == 3 and $x[$j - $a][$jj - $aa] == 2 and $x[$j + 3 * $a][$jj + 3 * $aa] == 3 and $x[$j + 4 * $a][$jj + 4 * $aa] == 2 ){ $jz[$j][$jj] = $jz[$j][$jj] + 1000000 + rand(1);}


  if( $x[$j + $a][$jj + $aa] == 3 and $x[$j + 2 * $a][$jj + 2 * $aa] == 3 and $x[$j - $a][$jj - $aa] == 3 and $x[$j + 3 * $a][$jj + 3 * $aa] == 2 and $x[$j - 2 * $a][$jj - 2 * $aa] == 2 ){ $jz[$j][$jj] = $jz[$j][$jj] + 1000000 + rand(1);}


#'赌活三[_ ==***_       _*==**_]
  if( $x[$j + $a][$jj + $aa] == 4 and $x[$j + 2 * $a][$jj + 2 * $aa] == 4 and $x[$j - $a][$jj - $aa] == 2 and $x[$j + 3 * $a][$jj + 3 * $aa] == 4 and $x[$j + 4 * $a][$jj + 4 * $aa] == 2 ){ $jz[$j][$jj] = $jz[$j][$jj] + 100000 + rand(1);}


  if( $x[$j + $a][$jj + $aa] == 4 and $x[$j + 2 * $a][$jj + 2 * $aa] == 4 and $x[$j - $a][$jj - $aa] == 4 and $x[$j + 3 * $a][$jj + 3 * $aa] == 2 and $x[$j - 2 * $a][$jj - 2 * $aa] == 2 ){ $jz[$j][$jj] = $jz[$j][$jj] + 100000 + rand(1);}


#'冲四[ _==***_     _*==**_]
  if( $x[$j + $a][$jj + $aa] == 3 and $x[$j + 2 * $a][$jj + 2 * $aa] == 3 and [$x[$j - $a][$jj - $aa] == 2 or $x[$j + 4 * $a][$jj + 4 * $aa] == 2] and $x[$j + 3 * $a][$jj + 3 * $aa] == 3 ){ $jz[$j][$jj] = $jz[$j][$jj] + 10000 + rand(1);}


  if( $x[$j + $a][$jj + $aa] == 3 and $x[$j + 2 * $a][$jj + 2 * $aa] == 3 and $x[$j - $a][$jj - $aa] == 3 and ($x[$j + 3 * $a][$jj + 3 * $aa] == 2 or $x[$j - 2 * $a][$jj - 2 * $aa] == 2) ){ $jz[$j][$jj] = $jz[$j][$jj] + 10000 + rand(1);}


    #'[ ==_***    *_==**    *_*==*    *_ **==]
  if( $x[$j + $a][$jj + $aa] == 2 and $x[$j + 2 * $a][$jj + 2 * $aa] == 3 and $x[$j + 3 * $a][$jj + 3 * $aa] == 3 and $x[$j + 4 * $a][$jj + 4 * $aa] == 3 ){ $jz[$j][$jj] = $jz[$j][$jj] + 10000 + rand(1);}


  if( $x[$j + $a][$jj + $aa] == 3 and $x[$j - $a][$jj - $aa] == 2 and $x[$j - 2 * $a][$jj - 2 * $aa] == 3 and $x[$j + 2 * $a][$jj + 2 * $aa] == 3 ){ $jz[$j][$jj] = $jz[$j][$jj] + 10000 + rand(1);}


  if( $x[$j + $a][$jj + $aa] == 3 and $x[$j - $a][$jj - $aa] == 3 and $x[$j - 2 * $a][$jj - 2 * $aa] == 2 and $x[$j - 3 * $a][$jj - 3 * $aa] == 3 ){ $jz[$j][$jj] = $jz[$j][$jj] + 10000 + rand(1);}


  if( $x[$j - $a][$jj - $aa] == 3 and $x[$j - 2 * $a][$jj - 2 * $aa] == 3 and $x[$j - 3 * $a][$jj - 3 * $aa] == 2 and $x[$j - 4 * $a][$jj - 4 * $aa] == 3 ){ $jz[$j][$jj] = $jz[$j][$jj] + 10000 + rand(1);}


    #'[ ==*_**     *==_**]
  if( $x[$j + $a][$jj + $aa] == 3 and $x[$j + 2 * $a][$jj + 2 * $aa] == 2 and $x[$j + 3 * $a][$jj + 3 * $aa] == 3 and $x[$j + 4 * $a][$jj + 4 * $aa] == 3 ){ $jz[$j][$jj] = $jz[$j][$jj] + 10000 + rand(1);}


  if( $x[$j + $a][$jj + $aa] == 2 and $x[$j - $a][$jj - $aa] == 3 and $x[$j + 2 * $a][$jj + 2 * $aa] == 3 and $x[$j + 3 * $a][$jj + 3 * $aa] == 3 ){ $jz[$j][$jj] = $jz[$j][$jj] + 10000 + rand(1);}


#'赌冲三[ _==***_     _*==**_]
  if( $x[$j + $a][$jj + $aa] == 4 and $x[$j + 2 * $a][$jj + 2 * $aa] == 4 and [$x[$j - $a][$jj - $aa] == 2 or $x[$j + 4 * $a][$jj + 4 * $aa] == 2] and $x[$j + 3 * $a][$jj + 3 * $aa] == 4 ){ $jz[$j][$jj] = $jz[$j][$jj] + 1000 + rand(1);}


  if( $x[$j + $a][$jj + $aa] == 4 and $x[$j + 2 * $a][$jj + 2 * $aa] == 4 and $x[$j - $a][$jj - $aa] == 4 and ($x[$j + 3 * $a][$jj + 3 * $aa] == 2 or $x[$j - 2 * $a][$jj - 2 * $aa] == 2) ){ $jz[$j][$jj] = $jz[$j][$jj] + 1000 + rand(1);}


    #'[ ==_***    *_==**    *_*==*    *_ **==]
  if( $x[$j + $a][$jj + $aa] == 2 and $x[$j + 2 * $a][$jj + 2 * $aa] == 4 and $x[$j + 3 * $a][$jj + 3 * $aa] == 4 and $x[$j + 4 * $a][$jj + 4 * $aa] == 4 ){ $jz[$j][$jj] = $jz[$j][$jj] + 1000 + rand(1);}


  if( $x[$j + $a][$jj + $aa] == 4 and $x[$j - $a][$jj - $aa] == 2 and $x[$j - 2 * $a][$jj - 2 * $aa] == 4 and $x[$j + 2 * $a][$jj + 2 * $aa] == 4 ){ $jz[$j][$jj] = $jz[$j][$jj] + 1000 + rand(1);}


  if( $x[$j + $a][$jj + $aa] == 4 and $x[$j - $a][$jj - $aa] == 4 and $x[$j - 2 * $a][$jj - 2 * $aa] == 2 and $x[$j - 3 * $a][$jj - 3 * $aa] == 4 ){ $jz[$j][$jj] = $jz[$j][$jj] + 1000 + rand(1);}


  if( $x[$j - $a][$jj - $aa] == 4 and $x[$j - 2 * $a][$jj - 2 * $aa] == 4 and $x[$j - 3 * $a][$jj - 3 * $aa] == 2 and $x[$j - 4 * $a][$jj - 4 * $aa] == 4 ){ $jz[$j][$jj] = $jz[$j][$jj] + 1000 + rand(1);}


    #'[ ==*_**     *==_**]
  if( $x[$j + $a][$jj + $aa] == 4 and $x[$j + 2 * $a][$jj + 2 * $aa] == 2 and $x[$j + 3 * $a][$jj + 3 * $aa] == 4 and $x[$j + 4 * $a][$jj + 4 * $aa] == 4 ){ $jz[$j][$jj] = $jz[$j][$jj] + 1000 + rand(1);}


  if( $x[$j + $a][$jj + $aa] == 2 and $x[$j - $a][$jj - $aa] == 4 and $x[$j + 2 * $a][$jj + 2 * $aa] == 4 and $x[$j + 3 * $a][$jj + 3 * $aa] == 4 ){ $jz[$j][$jj] = $jz[$j][$jj] + 1000 + rand(1);}


#'活三[_==$x$x_     _==_$x$x_       _$x==$x_         _==$x_$x_           _$x_==$x_]
  if( $x[$j + $a][$jj + $aa] == 3 and $x[$j + 2 * $a][$jj + 2 * $aa] == 3 and $x[$j + 3 * $a][$jj + 3 * $aa] == 2 and $x[$j - $a][$jj - $aa] == 2 and ($x[$j - 2 * $a][$jj - 2 * $aa] == 2 or $x[$j + 4 * $a][$jj + 4 * $aa] == 2) ){ $jz[$j][$jj] = $jz[$j][$jj] + 15000;}


  if( $x[$j + $a][$jj + $aa] == 2 and $x[$j + 2 * $a][$jj + 2 * $aa] == 3 and $x[$j + 3 * $a][$jj + 3 * $aa] == 3 and $x[$j + 4 * $a][$jj + 4 * $aa] == 2 and $x[$j - $a][$jj - $aa] == 2 ){ $jz[$j][$jj] = $jz[$j][$jj] + 15000 + rand(1);}


  if( $x[$j + $a][$jj + $aa] == 3 and $x[$j - $a][$jj - $aa] == 3 and $x[$j + 2 * $a][$jj + 2 * $aa] == 2 and $x[$j - 2 * $a][$jj - 2 * $aa] == 2 and [$x[$j - 3 * $a][$jj - 3 * $aa] == 2 or $x[$j + 3 * $a][$jj + 3 * $aa] == 2] ){ $jz[$j][$jj] = $jz[$j][$jj] + 7500 + rand(1);}


  if( $x[$j + $a][$jj + $aa] == 3 and $x[$j - $a][$jj - $aa] == 2 and $x[$j + 2 * $a][$jj + 2 * $aa] == 2 and $x[$j + 3 * $a][$jj + 3 * $aa] == 3 and $x[$j + 4 * $a][$jj + 4 * $aa] == 2 ){ $jz[$j][$jj] = $jz[$j][$jj] + 15000 + rand(1);}


  if( $x[$j + $a][$jj + $aa] == 3 and $x[$j - $a][$jj - $aa] == 2 and $x[$j + 2 * $a][$jj + 2 * $aa] == 2 and $x[$j - 2 * $a][$jj - 2 * $aa] == 3 and $x[$j - 3 * $a][$jj - 3 * $aa] == 2 ){ $jz[$j][$jj] = $jz[$j][$jj] + 15000 + rand(1);}


#'赌活二[_==$x$x_         _$x==$x_         _==$x_$x_           _$x_==$x_]
  if( $x[$j + $a][$jj + $aa] == 4 and $x[$j + 2 * $a][$jj + 2 * $aa] == 4 and $x[$j + 3 * $a][$jj + 3 * $aa] == 2 and $x[$j - $a][$jj - $aa] == 2 and ($x[$j - 2 * $a][$jj - 2 * $aa] == 2 or $x[$j + 4 * $a][$jj + 4 * $aa] == 2) ){ $jz[$j][$jj] = $jz[$j][$jj] + 1500;}


  if( $x[$j + $a][$jj + $aa] == 4 and $x[$j - $a][$jj - $aa] == 4 and $x[$j + 2 * $a][$jj + 2 * $aa] == 2 and $x[$j - 2 * $a][$jj - 2 * $aa] == 2 and ($x[$j - 3 * $a][$jj - 3 * $aa] == 2 or $x[$j + 3 * $a][$jj + 3 * $aa] == 2) ){ $jz[$j][$jj] = $jz[$j][$jj] + 750 + rand(1);}


  if( $x[$j + $a][$jj + $aa] == 4 and $x[$j - $a][$jj - $aa] == 2 and $x[$j + 2 * $a][$jj + 2 * $aa] == 2 and $x[$j + 3 * $a][$jj + 3 * $aa] == 4 and $x[$j + 4 * $a][$jj + 4 * $aa] == 2 ){ $jz[$j][$jj] = $jz[$j][$jj] + 1500 + rand(1);}


  if( $x[$j + $a][$jj + $aa] == 4 and $x[$j - $a][$jj - $aa] == 2 and $x[$j + 2 * $a][$jj + 2 * $aa] == 2 and $x[$j - 2 * $a][$jj - 2 * $aa] == 4 and $x[$j - 3 * $a][$jj - 3 * $aa] == 2 ){ $jz[$j][$jj] = $jz[$j][$jj] + 1500 + rand(1);}


#'冲三[_ _==**_ _]   [_ _*==*_ _]   [_==*_*_]   [_*==_*_]   [_**_==_]
#'    [==*_ _*]   [*==_ _*]   [**_ _==]   [==_*_*]   [*_==_*]
  if( $x[$j + $a][$jj + $aa] == 3 and $x[$j + 2 * $a][$jj + 2 * $aa] == 3 and (($x[$j + 3 * $a][$jj + 3 * $aa] == 2 and $x[$j - $a][$jj - $aa] == 2) or ($x[$j + 3 * $a][$jj + 3 * $aa] == 2 and $x[$j + 4 * $a][$jj + 4 * $aa] == 2) or ($x[$j - $a][$jj - $aa] == 2 and $x[$j - 2 * $a][$jj - 2 * $aa] == 2)) ){ $jz[$j][$jj] = $jz[$j][$jj] + 100;}


  if( $x[$j + $a][$jj + $aa] == 3 and $x[$j - $a][$jj - $aa] == 3 and (($x[$j + 2 * $a][$jj + 2 * $aa] == 2 and $x[$j - 2 * $a][$jj - 2 * $aa] == 2) or ($x[$j + 3 * $a][$jj + 3 * $aa] == 2 and $x[$j + 2 * $a][$jj + 2 * $aa] == 2) or ($x[$j - 2 * $a][$jj - 2 * $aa] == 2 and $x[$j - 3 * $a][$jj - 3 * $aa] == 2)) ){ $jz[$j][$jj] = $jz[$j][$jj] + 50;}

  
  if( $x[$j + $a][$jj + $aa] == 3 and $x[$j + 2 * $a][$jj + 2 * $aa] == 2 and $x[$j + 3 * $a][$jj + 3 * $aa] == 3 and ($x[$j - $a][$jj - $aa] == 2 or $x[$j + 4 * $a][$jj + 4 * $aa] == 2) ){ $jz[$j][$jj] = $jz[$j][$jj] + 100;}


  if( $x[$j + $a][$jj + $aa] == 2 and $x[$j + 2 * $a][$jj + 2 * $aa] == 3 and $x[$j - $a][$jj - $aa] == 3 and ($x[$j - 2 * $a][$jj - 2 * $aa] == 2 or $x[$j + 3 * $a][$jj + 3 * $aa] == 2) ){ $jz[$j][$jj] = $jz[$j][$jj] + 100;}


  if( $x[$j - $a][$jj - $aa] == 2 and $x[$j - 2 * $a][$jj - 2 * $aa] == 3 and $x[$j - 3 * $a][$jj - 3 * $aa] == 3 and ($x[$j + $a][$jj + $aa] == 2 or $x[$j - 4 * $a][$jj - 4 * $aa] == 2) ){ $jz[$j][$jj] = $jz[$j][$jj] + 100;}


  
  if( $x[$j + $a][$jj + $aa] == 3 and $x[$j + 2 * $a][$jj + 2 * $aa] == 2 and $x[$j + 3 * $a][$jj + 3 * $aa] == 2 and $x[$j + 4 * $a][$jj + 4 * $aa] == 3 ){ $jz[$j][$jj] = $jz[$j][$jj] + 100;}


  if( $x[$j + $a][$jj + $aa] == 2 and $x[$j + 2 * $a][$jj + 2 * $aa] == 2 and $x[$j + 3 * $a][$jj + 3 * $aa] == 3 and $x[$j - $a][$jj - $aa] == 3 ){ $jz[$j][$jj] = $jz[$j][$jj] + 100;}


  if( $x[$j - $a][$jj - $aa] == 2 and $x[$j - 2 * $a][$jj - 2 * $aa] == 2 and $x[$j - 3 * $a][$jj - 3 * $aa] == 3 and $x[$j - 4 * $a][$jj - 4 * $aa] == 3 ){ $jz[$j][$jj] = $jz[$j][$jj] + 100;}

  
  if( $x[$j + $a][$jj + $aa] == 2 and $x[$j + 2 * $a][$jj + 2 * $aa] == 3 and $x[$j + 3 * $a][$jj + 3 * $aa] == 2 and $x[$j + 4 * $a][$jj + 4 * $aa] == 3 ){ $jz[$j][$jj] = $jz[$j][$jj] + 100;}


  if( $x[$j + $a][$jj + $aa] == 2 and $x[$j - $a][$jj - $aa] == 2 and $x[$j + 2 * $a][$jj + 2 * $aa] == 3 and $x[$j - 2 * $a][$jj - 2 * $aa] == 3 ){ $jz[$j][$jj] = $jz[$j][$jj] + 50;}

  #'赌冲二[_ _==**_ _]   [_ _*==*_ _]   [_==*_*_]   [_*==_*_]   [_**_==_]
#'    [==*_ _*]   [*==_ _*]   [**_ _==]   [==_*_*]   [*_==_*]
  if( $x[$j + $a][$jj + $aa] == 4 and $x[$j + 2 * $a][$jj + 2 * $aa] == 4 and (($x[$j + 3 * $a][$jj + 3 * $aa] == 2 and $x[$j - $a][$jj - $aa] == 2) or ($x[$j + 3 * $a][$jj + 3 * $aa] == 2 and $x[$j + 4 * $a][$jj + 4 * $aa] == 2) or ($x[$j - $a][$jj - $aa] == 2 and $x[$j - 2 * $a][$jj - 2 * $aa] == 2)) ){ $jz[$j][$jj] = $jz[$j][$jj] + 10;}


  if( $x[$j + $a][$jj + $aa] == 4 and $x[$j - $a][$jj - $aa] == 4 and (($x[$j + 2 * $a][$jj + 2 * $aa] == 2 and $x[$j - 2 * $a][$jj - 2 * $aa] == 2) or ($x[$j + 3 * $a][$jj + 3 * $aa] == 2 and $x[$j + 2 * $a][$jj + 2 * $aa] == 2) or ($x[$j - 2 * $a][$jj - 2 * $aa] == 2 and $x[$j - 3 * $a][$jj - 3 * $aa] == 2)) ){ $jz[$j][$jj] = $jz[$j][$jj] + 5;}

  
  if( $x[$j + $a][$jj + $aa] == 4 and $x[$j + 2 * $a][$jj + 2 * $aa] == 2 and $x[$j + 3 * $a][$jj + 3 * $aa] == 4 and [$x[$j - $a][$jj - $aa] == 2 or $x[$j + 4 * $a][$jj + 4 * $aa] == 2] ){ $jz[$j][$jj] = $jz[$j][$jj] + 10;}


  if( $x[$j + $a][$jj + $aa] == 2 and $x[$j + 2 * $a][$jj + 2 * $aa] == 4 and $x[$j - $a][$jj - $aa] == 4 and [$x[$j - 2 * $a][$jj - 2 * $aa] == 2 or $x[$j + 3 * $a][$jj + 3 * $aa] == 2] ){ $jz[$j][$jj] = $jz[$j][$jj] + 10;}


  if( $x[$j - $a][$jj - $aa] == 2 and $x[$j - 2 * $a][$jj - 2 * $aa] == 4 and $x[$j - 3 * $a][$jj - 3 * $aa] == 4 and [$x[$j + $a][$jj + $aa] == 2 or $x[$j - 4 * $a][$jj - 4 * $aa] == 2] ){ $jz[$j][$jj] = $jz[$j][$jj] + 10;}


  
  if( $x[$j + $a][$jj + $aa] == 4 and $x[$j + 2 * $a][$jj + 2 * $aa] == 2 and $x[$j + 3 * $a][$jj + 3 * $aa] == 2 and $x[$j + 4 * $a][$jj + 4 * $aa] == 4 ){ $jz[$j][$jj] = $jz[$j][$jj] + 10;}


  if( $x[$j + $a][$jj + $aa] == 2 and $x[$j + 2 * $a][$jj + 2 * $aa] == 2 and $x[$j + 3 * $a][$jj + 3 * $aa] == 4 and $x[$j - $a][$jj - $aa] == 4 ){ $jz[$j][$jj] = $jz[$j][$jj] + 10;}


  if( $x[$j - $a][$jj - $aa] == 2 and $x[$j - 2 * $a][$jj - 2 * $aa] == 2 and $x[$j - 3 * $a][$jj - 3 * $aa] == 4 and $x[$j - 4 * $a][$jj - 4 * $aa] == 4 ){ $jz[$j][$jj] = $jz[$j][$jj] + 10;}

  
  if( $x[$j + $a][$jj + $aa] == 2 and $x[$j + 2 * $a][$jj + 2 * $aa] == 4 and $x[$j + 3 * $a][$jj + 3 * $aa] == 2 and $x[$j + 4 * $a][$jj + 4 * $aa] == 4 ){ $jz[$j][$jj] = $jz[$j][$jj] + 10;}


  if( $x[$j + $a][$jj + $aa] == 2 and $x[$j - $a][$jj - $aa] == 2 and $x[$j + 2 * $a][$jj + 2 * $aa] == 4 and $x[$j - 2 * $a][$jj - 2 * $aa] == 4 ){ $jz[$j][$jj] = $jz[$j][$jj] + 5;}


#'活二[_ _ _ ==*_]
  if( $x[$j + $a][$jj + $aa] == 3 and $x[$j - $a][$jj - $aa] == 2 and $x[$j + 2 * $a][$jj + 2 * $aa] == 2 and $x[$j - 2 * $a][$jj - 2 * $aa] == 2 and $x[$j - 3 * $a][$jj - 3 * $aa] == 2 ){
	  $jz[$j][$jj] = $jz[$j][$jj] + 100 + rand(1); 
	  $jz[$j - $a][$jj - $aa] = $jz[$j - $a][$jj - $aa] + 100 + rand(1); 
	  $jz[$j - 2 * $a][$jj - 2 * $aa] = $jz[$j - 2 * $a][$jj - 2 * $aa] + 100 + rand(1);
	  }

#赌活一[_ _ _ ==*_]
  if( $x[$j + $a][$jj + $aa] == 4 and $x[$j - $a][$jj - $aa] == 2 and $x[$j + 2 * $a][$jj + 2 * $aa] == 2 and $x[$j - 2 * $a][$jj - 2 * $aa] == 2 and $x[$j - 3 * $a][$jj - 3 * $aa] == 2 ){
	  $jz[$j][$jj] = $jz[$j][$jj] + 10 + rand(1);
	  $jz[$j - $a][$jj - $aa] = $jz[$j - $a][$jj - $aa] + 10 + rand(1); 
	  $jz[$j - 2 * $a][$jj - 2 * $aa] = $jz[$j - 2 * $a][$jj - 2 * $aa] + 10 + rand(1);
	  }
}
}
}
}}}


for ($m=1; $m<=15;$m++) {
	for ($n=1; $n<=15;$n++) {
		if ($jz[$m][$n] > $jz_max) {
			$jz_max = $jz[$m][$n];
			$m_max=$m;
            $n_max=$n;
		}
	}
}

$tempstring="zABCDEFGHIJKLMNO";
$m_max=substr($tempstring,$m_max,1);
$cgi{'puthere'}=$m_max.$n_max;

&put;
}
exit;