use Tk;
use strict;
use warnings;
my $mw = MainWindow->new;
        my $main_menu = $mw->Menu();
        $mw->configure(-menu => $main_menu);

        my $btn = $main_menu->Menubutton(-text => "File",
                                         -underline => 0, -tearoff=>0);
        $btn->command(-label => "New Game",
                      -activebackground => "orange",
                      -foreground => "green",
                        -command => [ \&start ]);

        $btn->command(-label => "Away",
                      -activebackground => "red",
                      -activeforeground => "black",
                      -background => "yellow",
                      -foreground => "green",
                      -command => sub{$mw->messageBox(-message => "Ups")});

        $btn->command(-label => "Exit", -command => sub{exit});

$mw->title('Reversi');
$mw->geometry("512x412");
my $canvas = $mw->Canvas(
    -width      => 400,
    -height     => 400,
    -background => "black",
    -relief     => "groove"
)->pack( -side => "left" );

my $icon = $mw->Photo(-file => '1.bmp');
$mw->iconimage($icon);

my @pole;

my @right = ();

my $u = 1;

my $semafor = 0;

my $x = 10;

my $y = 10;

for ( $x = 10 ; ( $x + 40 ) < 400 ; $x += 45 ) {

    for ( $y = 10 ; ( $y + 40 ) < 400 ; $y += 45 ) {

        my $rec = $canvas->createRectangle(

            $x, $y, $x + 40, $y + 40,

            -fill => "red",

            -outline => "orange",

            -width => 2.0

        );

        my $oval = $canvas->createOval(

            $x + 2, $y + 2, $x + 38, $y + 38,

            -fill => "red",

            -outline => "red"

        );

        $canvas->bind( $oval, '<ButtonPress>' => [ \&callBack, $oval ] );

    }

    $y = 10;

}

my $start = $mw->Button(

    -text => 'Start',

    -command => [ \&start ]

)->pack( -side => "right", -padx => 10 );

$canvas->pack;

$start->pack;
my $type_game = $mw->Button(-text => "Chose type of game",
                          -command => \&button1_sub)->pack(-side => "right",-ipadx=>5 );
my $typeGame = 0;

#0- User vs AI
#1- User vs User
#2 AI vs AI
sub button1_sub{
my $game = $mw->Toplevel;
$game->geometry("300x150");
$game->title("Choosing type");

my $radio_frame = $game->Frame()->pack();
$radio_frame->Label( -text => "Type of game:" )->pack();
my $radio_us_ai = $radio_frame->Radiobutton(
    -text     => "User vs Computer",
    -value    => "0",
    -variable => \$typeGame
)->pack( -side => "top" );
my $radio_us_us = $radio_frame->Radiobutton(
    -text     => "User vs User",
    -value    => "1",
    -variable => \$typeGame
)->pack( -side => "top" );
my $radio_ai_ai = $radio_frame->Radiobutton(
    -text     => "Computer vs Computer",
    -value    => "2",
    -variable => \$typeGame
)->pack( -side => "top" );
my $game_ex = $game->Button(
    -text    => "OK",
    -command => [ $game => 'destroy' ]
)->pack();
}
MainLoop();

sub start {

    setUp();

}

sub setUp {

    for ( my $i = 0 ; $i < 8 ; $i++ ) {

        for ( my $j = 0 ; $j < 8 ; $j++ ) {

            $pole[$i][$j] = 0;

        }

    }

    for ( my $i = 2 ; $i <= 8 * 8 * 2 ; $i += 2 ) {

        $canvas->itemconfigure( $i, -fill => "red" );

    }

    $pole[3][3] = 1;

    $pole[4][4] = 1;

    $pole[3][4] = 2;

    $pole[4][3] = 2;

    $u = 2;

    push @right, 3, 4, 4, 3;

    draw();

    $u = 1;

    push @right, 3, 3, 4, 4;

    draw();

    $semafor = 1;

}

sub callBack {

    my $c;

    my $d;

    $b = $_[1];

    $c = int( ( $b - 2 ) / 16 );

    $d = ( ( $b - 2 ) % 16 ) / 2;

    if ($semafor) {

        if ( hod( $c, $d ) ) {
            if ( $typeGame == 0 || $typeGame == 2 ) {
                $semafor =
                  0;    #ВЫКЛЮЧАЕМ ХОД ПОЛЬЗОВАТЕЛЯ

                $canvas->after( 500, \&callAI )
                  ;     #ВЫЗЫВАЕМ ХОД БОТА
            }

        }

    }

}

sub f {

    my $x = shift;      #координаты

    my $y = shift;

    my $sdvig_x = shift;    # и на сколько мы их сдвигаем

    my $sdvig_y = shift;

    my @ther = ();

    $x += $sdvig_x;

    $y += $sdvig_y;

    while ( $x < 8 && $x >= 0 && $y < 8 && $y >= 0 )

    {                       #цикл начался

        if ( $pole[$x][$y] == 0 ) {    #если 0 то выходим

            last;

        }

        if (

            $pole[$x][$y] ==

            ( $u == 1 ? 2 : 1 )

          )                            #если 1 кладём 2 иначе 1

        {    # если вражеские то кладём

            push @ther, $x, $y;

            #print $x, $y, $pole[$x][$y];

            $x += $sdvig_x;

            $y += $sdvig_y;

        }

        else {

            if ( $pole[$x][$y] == $u ) {

                push @right, @ther;

                last;

            }

        }

    }

    #конец цикла

}

#каждый элимент поля 1 - чёрный,2 - белый,0 - пустой

#функция которая говорит сделан ли ход

sub hod {

    #берем координаты хода

    my $a = $_[0];

    my $b = $_[1];

    #берем флаг count

    my $countFlag = $_[2];

    if ( $pole[$a][$b] == 0 ) {

        #проверка в поисках фишки того же юзера

        #проверка по строкам

        f( $a, $b, +1, 0 );

        f( $a, $b, -1, 0 );

        #проверка по столбцам

        f( $a, $b, 0, -1 );

        f( $a, $b, 0, 1 );

        #диагональки

        f( $a, $b, -1, -1 );

        f( $a, $b, +1, +1 );

        f( $a, $b, +1, -1 );

        f( $a, $b, -1, +1 );

        if ( scalar @right == 0 ) {

            return 0;

        }

        else {

            my $rightLen = scalar @right;

            if ( !$countFlag ) {

                push @right, $a, $b;

                #print $a, $b;

                for ( my $i = 0 ; $i < ( scalar @right ) ; $i += 2 ) {

                    $pole[ $right[$i] ][ $right[ $i + 1 ] ] = $u;

                }    #меняем состояние нужной клетки

                draw();

                $u = $u == 1 ? 2 : 1;    #переход хода

                my @hod = hasHod($u);

                print join ":", @hod;

                print "\n";

                if ( !$hod[2] ) {
                    @hod = hasHod( $u == 1 ? 2 : 1 );

                    if ( !$hod[2] ) {

                        $semafor = 0;

                        getResult();
                        return 0;

                    }

                    $u = $u == 1 ? 2 : 1;

                    return 1;

                }

            }

            @right = ();

            return $rightLen;

        }

    }

}

sub hasHod {

    my $buf_u = $u;

    $u = $_[0];

    my $lenHod = 0;

    my $a = 0;

    my $b = 0;

    for ( $x = 0 ; $x < 8 ; $x++ ) {

        for ( $y = 0 ; $y < 8 ; $y++ ) {

            if ( hod( $x, $y, 1 ) > $lenHod ) {

                $lenHod = hod( $x, $y, 1 );

                $a = $x;

                $b = $y;

            }

        }

    }

    $u = $buf_u;

    return ( $a, $b, $lenHod );

}

sub draw {

    for ( my $i = 0 ; $i < ( scalar @right ) ; $i += 2 ) {

        my $id = $right[$i] * 16 + $right[ $i + 1 ] * 2 + 2;

        if ( $u == 1 ) {

            $canvas->itemconfigure( $id, -fill => "black" );

        }

        else {

            $canvas->itemconfigure( $id, -fill => "white" );

        }

    }

    @right = ();

}

sub getResult {

    my @result = ();

    for ( $x = 0 ; $x < 8 ; $x++ ) {

        for ( $y = 0 ; $y < 8 ; $y++ ) {

            $result[ $pole[$x][$y] ]++;

        }

    }

    print "user: ", $result[1], "; AI: ", $result[2], "\n";

}

#AI section

sub callAI {

    my @hod = hasHod($u);

    if ( hod( $hod[0], $hod[1] ) ) {

        if ( $typeGame == 0 ) {
            $semafor = 1;
        }
        elsif ( $typeGame == 2 ) {
            $canvas->after( 500, \&callAI );
        }
    }

}