hearts.pl

#!/usr/bin/perl
##
#   File : hearts.pl
#   Date : 16/Mar/2024
#   Author : spjspj
#   Purpose : Implement Hearts with bots!
#   Purpose : Requires having an Apache service setup (see conf file)
##

use strict;
use LWP::Simple;
use Socket;
use File::Copy;
use List::Util qw(shuffle);
use Time::HiRes;
use URI::Escape;
use POSIX qw(strftime);

$| = 1;

my $GAME = "Hearts";
my $GAME_URL = "hearts";
my $BCK = "back";
my $HALF_BCK = "half_back";
my $NUM_CARDS_IN_FULL_DECK = 52;
my $NUM_CARDS_TO_REMOVE = 8;
my $GAME_WON;
my $ROUND_OVER;
my $CURRENT_LOGIN_NAME = "";
my $USER_SHOT_MOON = 0;
my $INVALID_PLAYER_NUM = -1;
my $LEFT = 1;
my $RIGHT = 2;
my $ACROSS = 3;
my $KEEP = 0;

my $ALL_SUITS_HDSC = "HDSC";
my $NON_HEART_SUITS_DSC = "DSC";
my $PATH = "d:\\perl_programs\\$GAME_URL";
my %rand_colors;

my $DEBUG = "";
my @player_names;
my @NEEDS_REFRESH;

my @deck;
my %player_cards;
my %passed_player_cards;
my %passed_from_player_cards;
my %player_won_cards;
my %player_knowledge;
my %player_score;

my %BANNED_NAMES;
my %PLAYER_IS_BOT;

my $whos_turn;
my $num_players_in_game = -1;
my @player_ips;
my $num_players_in_lobby = 0;

my $TOTAL_TRICKS = 13;
my $TRICKS_BEFORE_SHOOT_MOON = 5;
my $TOTAL_CARDS_IN_SUIT = 13;
my $JACK_VALUE = 11;
my $QUEEN_VALUE = 12;
my $KING_VALUE = 13;
my $ACE_VALUE = 14;
my $HEARTS_POINTS = 1;
my $QUEEN_SPADES_POINTS = 13;
my $MAX_CARD_VAL = $ACE_VALUE + 1;
my $LOSING_POINTS = 100;
my $ROUND_POINTS = 26;
my $trick_number = 0;
my $must_pass_3_cards = 0;
my %players_who_must_pass_cards;
my $direction_passing = $LEFT;
my $must_lead_2c = 0;
my $hearts_broken = 0;
my $current_trick = "";
my $last_trick = "";
my $last_trick_table = "";
my $last_trick_led_by = "";
my $current_trick_card_count = 0;
my $current_trick_leading_card = "";
my $current_trick_led_by;
my $current_trick_suit = "";
my %current_trick_cards;

my $NOSUIT = "NOSUIT";
my $NOVALUE = "NOVALUE";

my $HEARTS = "H";
my $DIAMONDS = "D";
my $CLUBS = "C";
my $SPADES = "S";
my $QUEEN_SPADES = "QS";
my $ACE_SPADES = "AS";
my $KING_SPADES = "KS";
my $TWO_CLUBS = "2C";

my $last_trick_number = 0;

my $DO_DEBUG = 1;
#my $DO_DEBUG = 0;
sub get_debug
{
    if ($DO_DEBUG)
    {
        return ("<pre><br>$DEBUG </pre>");
    }
    return "";
}

sub add_to_debug
{
    if ($trick_number > $last_trick_number)
    {
        #$DEBUG .= "<br>=====================================<br>\n";
        $last_trick_number = $trick_number;
    }
    $DEBUG .= "$trick_number (Trick=$current_trick: Who=$whos_turn) $_[0]<br>\n";
    $DEBUG =~ s/10([HSCD]),/X$1,/img;
    print "$_[0]\n";
}

sub reset_debug
{
    $DEBUG = "";
    add_to_debug ("reset debug");
}

sub game_won
{
    my $win_con = $_ [0];

    if ($GAME_WON == 0)
    {
        force_needs_refresh();
        $GAME_WON = $_ [0];
        add_to_debug ($win_con . " GAME HAS FINISHED!");
    }
}

sub round_over
{
    my $win_con = $_ [0];

    if ($ROUND_OVER == 0)
    {
        force_needs_refresh();
        $ROUND_OVER = 1;
        add_to_debug ("Round OVER - adding scores..");
        add_scores ();
        if (!get_game_won ())
        {
            reset_for_round ();
        }
    }
}

sub get_game_won
{
    if ($GAME_WON eq "0")
    {
        return "";
    }
    my $t = "Won..";
    return $t;
}

sub set_hearts_broken
{
    my $a = $_ [0];
    $hearts_broken = 1;
    set_knowledge ("$a -- hearts_broken", 1);
    add_to_debug ("$a -- setting hearts_broken!!");
}

sub only_has_hearts
{
    my $wt = $_ [0];
    if (!player_has_suit ($wt, $CLUBS) && !player_has_suit ($wt, $DIAMONDS) && !player_has_suit ($wt, $SPADES))
    {
        if (player_has_suit ($wt, $HEARTS))
        {
            return 1;
        }
    }
    return 0;
}

sub get_round_over
{
    return $ROUND_OVER;
}

sub get_game_over
{
    return $GAME_WON ne "0";
}

sub do_shuffle
{
    my $d;
    my $s = "my \$index = 0;";
    @deck = shuffle (@deck);
    foreach $d (@deck)
    {
        $s .= "\$deck [\$index] = \"$d\"; \$index++;";
    }
    #add_to_debug ($s);

    add_to_debug ($s);
    if ($DO_DEBUG)
    {
        my $index = 0;
        $deck [$index] = "2C"; $index++;
        $deck [$index] = "5H"; $index++;
        $deck [$index] = "7D"; $index++;
        $deck [$index] = "2D"; $index++;
        $deck [$index] = "3C"; $index++;
        $deck [$index] = "3S"; $index++;
        $deck [$index] = "8D"; $index++;
        $deck [$index] = "JS"; $index++;
        $deck [$index] = "4C"; $index++;
        $deck [$index] = "9S"; $index++;
        $deck [$index] = "QS"; $index++;
        $deck [$index] = "KS"; $index++;
        $deck [$index] = "5C"; $index++;
        $deck [$index] = "9D"; $index++;
        $deck [$index] = "QD"; $index++;
        $deck [$index] = "JD"; $index++;
        $deck [$index] = "6C"; $index++;
        $deck [$index] = "3H"; $index++;
        $deck [$index] = "7H"; $index++;
        $deck [$index] = "9H"; $index++;
        $deck [$index] = "7C"; $index++;
        $deck [$index] = "JH"; $index++;
        $deck [$index] = "QH"; $index++;
        $deck [$index] = "7S"; $index++;
        $deck [$index] = "8C"; $index++;
        $deck [$index] = "AS"; $index++;
        $deck [$index] = "4S"; $index++;
        $deck [$index] = "2S"; $index++;
        $deck [$index] = "9C"; $index++;
        $deck [$index] = "KH"; $index++;
        $deck [$index] = "4D"; $index++;
        $deck [$index] = "8S"; $index++;
        $deck [$index] = "10C"; $index++;
        $deck [$index] = "2H"; $index++;
        $deck [$index] = "5S"; $index++;
        $deck [$index] = "10S"; $index++;
        $deck [$index] = "JC"; $index++;
        $deck [$index] = "AD"; $index++;
        $deck [$index] = "KD"; $index++;
        $deck [$index] = "10H"; $index++;
        $deck [$index] = "QC"; $index++;
        $deck [$index] = "6H"; $index++;
        $deck [$index] = "3D"; $index++;
        $deck [$index] = "6D"; $index++;
        $deck [$index] = "KC"; $index++;
        $deck [$index] = "6S"; $index++;
        $deck [$index] = "8H"; $index++;
        $deck [$index] = "4H"; $index++;
        $deck [$index] = "AC"; $index++;
        $deck [$index] = "5D"; $index++;
        $deck [$index] = "10D";

my $index = 0;$deck [$index] = "6D"; $index++;$deck [$index] = "10S"; $index++;$deck [$index] = "7C"; $index++;$deck [$index] = "5C"; $index++;$deck [$index] = "10C"; $index++;$deck [$index] = "9D"; $index++;$deck [$index] = "2D"; $index++;$deck [$index] = "AS"; $index++;$deck [$index] = "8H"; $index++;$deck [$index] = "10D"; $index++;$deck [$index] = "AH"; $index++;$deck [$index] = "QC"; $index++;$deck [$index] = "JS"; $index++;$deck [$index] = "JC"; $index++;$deck [$index] = "6S"; $index++;$deck [$index] = "QH"; $index++;$deck [$index] = "KC"; $index++;$deck [$index] = "8S"; $index++;$deck [$index] = "3D"; $index++;$deck [$index] = "6C"; $index++;$deck [$index] = "4H"; $index++;$deck [$index] = "9C"; $index++;$deck [$index] = "4C"; $index++;$deck [$index] = "2S"; $index++;$deck [$index] = "10H"; $index++;$deck [$index] = "AD"; $index++;$deck [$index] = "9S"; $index++;$deck [$index] = "8D"; $index++;$deck [$index] = "2H"; $index++;$deck [$index] = "3S"; $index++;$deck [$index] = "8C"; $index++;$deck [$index] = "9H"; $index++;$deck [$index] = "2C"; $index++;$deck [$index] = "7D"; $index++;$deck [$index] = "6H"; $index++;$deck [$index] = "JH"; $index++;$deck [$index] = "4D"; $index++;$deck [$index] = "KD"; $index++;$deck [$index] = "AC"; $index++;$deck [$index] = "5H"; $index++;$deck [$index] = "7H"; $index++;$deck [$index] = "3H"; $index++;$deck [$index] = "3C"; $index++;$deck [$index] = "JD"; $index++;$deck [$index] = "QD"; $index++;$deck [$index] = "7S"; $index++;$deck [$index] = "5S"; $index++;$deck [$index] = "KS"; $index++;$deck [$index] = "5D"; $index++;$deck [$index] = "QS"; $index++;$deck [$index] = "KH"; $index++;$deck [$index] = "4S"; $index++;

    }
}

sub write_to_socket
{
    my $sock_ref = $_ [0];
    my $msg_body = $_ [1];
    my $form = $_ [2];
    my $redirect = $_ [3];
    my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime (time);
    my $yyyymmddhhmmss = sprintf "%.4d%.2d%.2d-%.2d%.2d%.2d", $year+1900, $mon+1, $mday, $hour,  $min, $sec;

    $msg_body = '<html><head><META HTTP-EQUIV="CACHE-CONTROL" CONTENT="NO-CACHE"><br></head><body>' . $form . $msg_body . get_debug() . "</body></html>";
    $msg_body =~ s/\n\n/\n/mig;
    $msg_body =~ s/\n\n/\n/mig;
    $msg_body =~ s/\n\n/\n/mig;
    $msg_body .= chr (13) . chr (10);
    #$msg_body =~ s/<img.*?src="(.*?)".*?>(.*?)<\/img>/$1 - $2/img;
    $msg_body =~ s/href="/href="\/$GAME_URL\//img;
    $msg_body =~ s/\/\//\//img;
    $msg_body =~ s/$GAME_URL.$GAME_URL/$GAME_URL/img;
    $msg_body =~ s/$GAME_URL.$GAME_URL/$GAME_URL/img;
    $msg_body =~ s/$GAME_URL.$GAME_URL/$GAME_URL/img;
    $msg_body =~ s/$GAME_URL.$GAME_URL/$GAME_URL/img;

    my $header;
    if ($redirect =~ m/^redirect/i)
    {
        $header = "HTTP/1.1 302 Moved\nLocation: \/$GAME_URL\/\nLast-Modified: $yyyymmddhhmmss\nConnection: close\nContent-Type: text/html; charset=UTF-8\nContent-Length: " . length ($msg_body) . "\n\n";
    }
    elsif ($redirect =~ m/^noredirect/i)
    {
        if ($CURRENT_LOGIN_NAME ne "")
        {
            $header = "HTTP/1.1 200 OK\nLast-Modified: $yyyymmddhhmmss\nConnection: close\nContent-Type: text/html\nSet-Cookie: newloginname=$CURRENT_LOGIN_NAME\nContent-Length: " . length ($msg_body) . "\n\n";
        }
        else
        {
            $header = "HTTP/1.1 200 OK\nLast-Modified: $yyyymmddhhmmss\nConnection: close\nContent-Type: text/html\nContent-Length: " . length ($msg_body) . "\n\n";
        }
    }

    $msg_body = $header . $msg_body;

    syswrite ($sock_ref, $msg_body);
}

sub old_bin_write_to_socket
{
    my $sock_ref = $_ [0];
    my $img = $_ [1];
    my $buffer;
    my $size = 0;

    if (-f $img)
    {
        $size = -s $img;
    }
    my $msg_body = "HTTP/2.0 200 OK\nDate: Mon, 20 May 2019 13:20:41 GMT\nConnection: close\nContent-type: image/jpeg\nContent-length: $size\n\n";
    syswrite ($sock_ref, $msg_body);

    open IMAGE, $img;
    binmode IMAGE;

    my $buffer;
    while (read (IMAGE, $buffer, 16384))
    {
        syswrite ($sock_ref, $buffer);
    }
}

my %ips_slowed_down_for;
my %images;
sub newer_bin_write_to_socket
{
    my $sock_ref = $_ [0];
    my $img = $_ [1];
    my $ip = $_ [4];

    my $buffer;
    my $size = 0;

    if (-f $img)
    {
        $size = -s $img;
    }
    my $img_type = $img;
    $img_type =~ s/.*\.//;
    my $msg_body = "HTTP/2 304 Not Modified\nContent-type: image/$img_type\nConnection: close\nContent-length: $size\nExpires: Sat, 16 Aug 2025 06:46:59 GMT\nLast-modified: Fri, 14 Aug 2020 06:48:59 GMT\nCache-control: public, max-age=31536000\n\n";

    my $buffer;
    my $len;

    if (!defined ($images {$img}))
    {
        $msg_body = "HTTP/2 200 OK\nContent-type: image/$img_type\nConnection: close\nContent-length: $size\nExpires: Sat, 16 Aug 2025 06:46:59 GMT\nLast-modified: Fri, 14 Aug 2020 06:48:59 GMT\nCache-control: public, max-age=31536000\n\n";
        open IMAGE, $img;
        binmode IMAGE;
        while ($len = read (IMAGE, $buffer, 10000))
        {
            $images {$img} .= $buffer;
        }
        $images {$img} .= $buffer;
        close IMAGE;
    }

    $ips_slowed_down_for {$ip} ++;
    if ($ips_slowed_down_for {$ip} < 10)
    {
        $msg_body = "HTTP/2 200 OK\nContent-type: image/$img_type\nConnection: close\nContent-length: $size\nExpires: Sat, 16 Aug 2025 06:46:59 GMT\nLast-modified: Fri, 14 Aug 2020 06:48:59 GMT\nCache-control: public, max-age=31536000\n\n";
    }
    else
    {
        #$msg_body = "HTTP/2 304 Not Modified\nContent-type: image/$img_type\nConnection: close\nContent-length: $size\nExpires: Sat, 16 Aug 2025 06:46:59 GMT\nLast-modified: Fri, 14 Aug 2020 06:48:59 GMT\nCache-control: public, max-age=31536000\n\n";
        $msg_body = "HTTP/2 200 OK\nContent-type: image/$img_type\nConnection: close\nContent-length: $size\nExpires: Sat, 16 Aug 2025 06:46:59 GMT\nLast-modified: Fri, 14 Aug 2020 06:48:59 GMT\nCache-control: public, max-age=31536000\n\n";
    }
    syswrite ($sock_ref, $msg_body);

    if (defined ($images {$img}))
    {
        syswrite ($sock_ref, $images {$img});
    }
}

sub experimental_bin_write_to_socket
{
    my $sock_ref = $_ [0];
    my $img = $_ [1];
    my $ip = $_ [4];

    my $buffer;
    my $size = 0;

    if (-f $img)
    {
        $size = -s $img;
    }
    my $img_type = $img;
    $img_type =~ s/.*\.//;
    my $msg_body = "HTTP/2 200 OK\nContent-type: image/$img_type\nContent-length: $size\nPragma: no-cache\n\n";

    my $buffer;
    my $len;

    if (!defined ($images {$img}))
    {
        #$msg_body = "HTTP/2 200 OK\nContent-type: image/$img_type\nPragma: no-cache\n\n";
        open IMAGE, $img;
        binmode IMAGE;
        while ($len = read (IMAGE, $buffer, 10000))
        {
            $images {$img} .= $buffer;
        }
        $images {$img} .= $buffer;
        close IMAGE;
    }

    $ips_slowed_down_for {$ip} ++;
    if ($ips_slowed_down_for {$ip} < 10)
    {
        #$msg_body = "HTTP/2 200 OK\nContent-type: image/$img_type\nPragma: no-cache\n\n";
    }
    else
    {
        #$msg_body = "HTTP/2 200 OK\nContent-type: image/$img_type\nPragma: no-cache\n\n";
    }
    syswrite ($sock_ref, $msg_body);

    if (defined ($images {$img}))
    {
        syswrite ($sock_ref, $images {$img});
        #syswrite ($sock_ref, $images {$img});
    }
}

sub bin_write_to_socket
{
    my $sock_ref = $_ [0];
    my $img = $_ [1];
    my $buffer;
    my $size = 0;

    if (-f $img)
    {
        $size = -s $img;
    }
    my $img_type = $img;
    $img_type =~ s/.*\.//;
    my $msg_body = "HTTP/2 304 Not Modified\ncontent-type: image/$img_type\nConnection: close\ncontent-length: $size\nexpires: Sat, 16 Aug 2025 06:46:59 GMT\nlast-modified: Fri, 14 Aug 2020 06:48:59 GMT\ncache-control: public, max-age=31536000\n\n";

    my $buffer;
    my $len;

    if (!defined ($images {$img}))
    {
        $msg_body = "HTTP/2 200 OK\ncontent-type: image/$img_type\nConnection: close\ncontent-length: $size\nexpires: Sat, 16 Aug 2025 06:46:59 GMT\nlast-modified: Fri, 14 Aug 2020 06:48:59 GMT\ncache-control: public, max-age=31536000\n\n";
        open IMAGE, $img;
        binmode IMAGE;
        while ($len = read (IMAGE, $buffer, 10000))
        {
            $images {$img} .= $buffer;
        }
        $images {$img} .= $buffer;
        close IMAGE;
    }
    $msg_body = "HTTP/2 200 OK\ncontent-type: image/$img_type\nConnection: close\ncontent-length: $size\nexpires: Sat, 16 Aug 2025 06:46:59 GMT\nlast-modified: Fri, 14 Aug 2020 06:48:59 GMT\ncache-control: public, max-age=31536000\n\n";
    syswrite ($sock_ref, $msg_body);

    if (defined ($images {$img}))
    {
        syswrite ($sock_ref, $images {$img});
    }
}

sub read_from_socket
{
    my $sock_ref = $_ [0];
    my $ch = "";
    my $prev_ch = "";
    my $header = "";
    my $rin = "";
    my $rout;
    my $min;
    my $max;
    my $msg_type;
    my $msg_body;
    my $msg_len;

    vec ($rin, fileno ($sock_ref), 1) = 1;

    # Read the message header
    while ((!(ord ($ch) == 13 and ord ($prev_ch) == 10)))
    {
        if (select ($rout=$rin, undef, undef, 200) == 1)
        {
            $prev_ch = $ch;
            # There is at least one byte ready to be read..
            if (sysread ($sock_ref, $ch, 1) < 1)
            {
                return "resend";
            }
            $header .= $ch;
            my $h = $header;
            $h =~ s/(.)/",$1-" . ord ($1) . ";"/emg;
        }
    }

    return $header;
}

sub get_player_IP
{
    my $id = $_ [0];
    if ($id < $num_players_in_game)
    {
        return $player_ips [$id];
    }
    return -1;
}

sub get_player_id
{
    my $IP = $_ [0];
    my $ip_find;
    my $i = 0;

    my $x = get_player_id_from_name ($CURRENT_LOGIN_NAME, "aaa");
    if ($x != -1)
    {
        return $x;
    }
    while ($i < $num_players_in_lobby)
    {
        if ($player_ips [$i] eq $IP)
        {
            return $i;
        }
        $i ++;
    }
    return -1;
}

sub setup_deck
{
    # Cards in deck currently..
    my $total_number_cards_in_deck = $NUM_CARDS_IN_FULL_DECK;
    my %banned_cards;

    my $index = 0;
    my $str = "";
    my @new_deck;
    $new_deck [$index] = "2C"; $index++;
    $new_deck [$index] = "2D"; $index++;
    $new_deck [$index] = "2H"; $index++;
    $new_deck [$index] = "2S"; $index++;
    $new_deck [$index] = "3C"; $index++;
    $new_deck [$index] = "3D"; $index++;
    $new_deck [$index] = "3H"; $index++;
    $new_deck [$index] = "3S"; $index++;
    $new_deck [$index] = "4C"; $index++;
    $new_deck [$index] = "4D"; $index++;
    $new_deck [$index] = "4H"; $index++;
    $new_deck [$index] = "4S"; $index++;
    $new_deck [$index] = "5C"; $index++;
    $new_deck [$index] = "5D"; $index++;
    $new_deck [$index] = "5H"; $index++;
    $new_deck [$index] = "5S"; $index++;
    $new_deck [$index] = "6C"; $index++;
    $new_deck [$index] = "6D"; $index++;
    $new_deck [$index] = "6H"; $index++;
    $new_deck [$index] = "6S"; $index++;
    $new_deck [$index] = "7C"; $index++;
    $new_deck [$index] = "7D"; $index++;
    $new_deck [$index] = "7H"; $index++;
    $new_deck [$index] = "7S"; $index++;
    $new_deck [$index] = "8C"; $index++;
    $new_deck [$index] = "8D"; $index++;
    $new_deck [$index] = "8H"; $index++;
    $new_deck [$index] = "8S"; $index++;
    $new_deck [$index] = "9C"; $index++;
    $new_deck [$index] = "9D"; $index++;
    $new_deck [$index] = "9H"; $index++;
    $new_deck [$index] = "9S"; $index++;
    $new_deck [$index] = "10C"; $index++;
    $new_deck [$index] = "10D"; $index++;
    $new_deck [$index] = "10H"; $index++;
    $new_deck [$index] = "10S"; $index++;
    $new_deck [$index] = "JC"; $index++;
    $new_deck [$index] = "JD"; $index++;
    $new_deck [$index] = "JH"; $index++;
    $new_deck [$index] = "JS"; $index++;
    $new_deck [$index] = "QC"; $index++;
    $new_deck [$index] = "QD"; $index++;
    $new_deck [$index] = "QH"; $index++;
    $new_deck [$index] = "QS"; $index++;
    $new_deck [$index] = "KC"; $index++;
    $new_deck [$index] = "KD"; $index++;
    $new_deck [$index] = "KH"; $index++;
    $new_deck [$index] = "KS"; $index++;
    $new_deck [$index] = "AC"; $index++;
    $new_deck [$index] = "AD"; $index++;
    $new_deck [$index] = "AH"; $index++;
    $new_deck [$index] = "AS"; $index++;

    @deck = @new_deck;
    do_shuffle ();
    add_to_debug (join (",", @deck));
}

sub deal_deck
{
    $player_cards {0} = "";
    $player_cards {1} = "";
    $player_cards {2} = "";
    $player_cards {3} = "";

    $player_won_cards {0} = "";
    $player_won_cards {1} = "";
    $player_won_cards {2} = "";
    $player_won_cards {3} = "";

    my %new_player_knowledge;
    %player_knowledge = %new_player_knowledge;
    set_knowledge ("$HEARTS", $TOTAL_CARDS_IN_SUIT);
    set_knowledge ("$DIAMONDS", $TOTAL_CARDS_IN_SUIT);
    set_knowledge ("$CLUBS", $TOTAL_CARDS_IN_SUIT);
    set_knowledge ("$SPADES", $TOTAL_CARDS_IN_SUIT);
    set_knowledge ("hearts_broken", 0);
    set_knowledge ("qs_played", 0);
    set_knowledge ("someone_shooting_moon", 1);
    set_knowledge ("players_who_have_won_points", "");
    set_knowledge ("multi_players_have_won_points", 0);
    set_knowledge ("$HEARTS highest_card", "AH");
    set_knowledge ("$DIAMONDS highest_card", "AD");
    set_knowledge ("$CLUBS highest_card", "AC");
    set_knowledge ("$SPADES highest_card", "AS");

    my $cn = 0;
    my $pn;
    my %dealt_cards;
    while ($cn < $NUM_CARDS_IN_FULL_DECK)
    {
        $pn = $cn % 4;
        $player_cards {$pn} .= $deck [$cn] . ",";

        my $suit = get_card_suit ($deck [$cn]);
        increase_knowledge ("$pn - $suit");
        $cn++;
        $dealt_cards {$pn} ++;
    }

    add_to_debug ("Dealt out for player 0 - $dealt_cards{0} --- $player_cards{0}");
    add_to_debug ("Dealt out for player 1 - $dealt_cards{1} --- $player_cards{1}");
    add_to_debug ("Dealt out for player 2 - $dealt_cards{2} --- $player_cards{2}");
    add_to_debug ("Dealt out for player 3 - $dealt_cards{3} --- $player_cards{3}");

    for ($pn = 0; $pn < 3; $pn++)
    {
        set_knowledge ("$pn - can_shoot_moon", 1);
        set_knowledge ("$pn - want_to_shoot_moon", 0);
        set_knowledge ("$pn - can_win_rest", 0);
        set_knowledge ("$pn - stop_shooting_moon", 0);
        set_knowledge ("$pn - stop_someone_else_shooting_moon", 1);
        set_knowledge ("current_score - $pn", 0);
    }
}

sub get_player_name
{
    my $ID = $_ [0];
    return $player_names [$ID];
}

sub get_player_score
{
    my $ID = $_ [0];
    return $player_score {$ID};
}

sub set_whos_turn
{
    my $initial = $_ [0];
    my $wt = $_ [1];

    # Player with 2C goes first..
    if ($initial)
    {
        if ($player_cards {0} =~ m/$TWO_CLUBS/) { $whos_turn = 0; }
        elsif ($player_cards {1} =~ m/$TWO_CLUBS/) { $whos_turn = 1; }
        elsif ($player_cards {2} =~ m/$TWO_CLUBS/) { $whos_turn = 2; }
        elsif ($player_cards {3} =~ m/$TWO_CLUBS/) { $whos_turn = 3; }
    }
    else
    {
        $whos_turn = $wt;
        have_to_break_hearts ($wt, "111");
    }
    add_to_debug ("Setting who goes to $whos_turn (Initial=$initial)\n");
    force_needs_refresh ();
}

sub get_player_id_from_name
{
    my $this_name = $_ [0];
    my $degg = $_ [1];
    my $id = 0;
    for ($id = 0; $id < scalar @player_names; $id++)
    {
        if ($this_name eq $player_names [$id])
        {
            return $id;
        }
    }
    return -1;
}

sub is_bot
{
    my $name = $_ [0];
    my $id = $_ [1];
    my $from = $_ [2];

    if ($name eq "")
    {
        $name = $player_names [$id];
    }

    if (defined ($PLAYER_IS_BOT {$name}) && ($PLAYER_IS_BOT {$name} == 1))
    {
        return 1;
    }
    return 0;
}

sub get_card_suit
{
    my $check_card = $_ [0];
    $check_card =~ s/,$//;
    $check_card =~ s/ $//;

    my $check_card_suit = 0;
    my $suit = "";
    if ($check_card =~ m/([$ALL_SUITS_HDSC])$/)
    {
        $suit = $1;
        return $suit;
    }

    add_to_debug ("Invalid Suit: >>$check_card<<");
    return $NOSUIT;
}

sub get_card_value
{
    my $check_card = $_ [0];

    if ($check_card =~ m/^([2-9])/) { return $1; }
    if ($check_card =~ m/^10/)      { return 10; }
    if ($check_card =~ m/^1/)       { return 1; }
    if ($check_card =~ m/^J/)       { return $JACK_VALUE; }
    if ($check_card =~ m/^Q/)       { return $QUEEN_VALUE; }
    if ($check_card =~ m/^K/)       { return $KING_VALUE; }
    if ($check_card =~ m/^A/)       { return $ACE_VALUE; }
    return $NOVALUE;
}

sub is_valid_card
{
    my $check_card = $_ [0];
    my $suit = get_card_suit ($check_card);
    my $card_val = get_card_value ($check_card);

    if (!($card_val ne $NOVALUE && $suit ne $NOSUIT))
    {
        add_to_debug ("INVALID CARD $check_card had suit of $suit and $card_val\n");
    }

    return $card_val ne $NOVALUE && $suit ne $NOSUIT;
}

sub is_valid_suit
{
    my $suit = $_ [0];
    if ($suit eq $HEARTS or $suit eq $CLUBS or $suit eq $SPADES or $suit eq $DIAMONDS)
    {
        return 1;
    }
    return 0;
}

sub beat_card
{
    my $current_winning_card = $_ [0];
    my $this_card = $_ [1];

    if (get_card_suit ($current_winning_card) eq get_card_suit ($this_card))
    {
        if (get_card_value ($current_winning_card) < get_card_value ($this_card))
        {
            return 1;
        }
    }
    return 0;
}

sub play_card
{
    my $wt = $_ [0];
    my $card_played = $_ [1];
    my $cards = $player_cards {$wt};
    my $ccards = count_cards ($player_cards {$wt});
    add_to_debug ("PLAY CARD ($wt) heartsborked=$hearts_broken ($current_trick_card_count)- card_played=$card_played; $wt player has $cards (>>> $ccards <<<)\n");

    if (!is_valid_card ($card_played))
    {
        add_to_debug ("INVALID CARD ($wt) - $card_played\n");
        return;
    }
    my $suit = get_card_suit ($card_played);

    if ($must_lead_2c && $cards !~ m/$TWO_CLUBS,/)
    {
        add_to_debug ("DOES NOT HAVE VALID $TWO_CLUBS CARD ($wt) - $suit\n");
        return;
    }

    decrease_knowledge ("$suit");
    decrease_knowledge ("$wt - $suit");
    append_knowledge ("played_cards", "$card_played,");

    if ($card_played eq $QUEEN_SPADES)
    {
        set_knowledge ("qs_played", 1);
    }

    if ($must_lead_2c && $cards =~ m/$TWO_CLUBS,/)
    {
        $trick_number++;
        $current_trick_leading_card = $card_played;
        $current_trick_suit = get_card_suit ($current_trick_leading_card);
        $must_lead_2c = 0;
        $player_cards {$wt} =~ s/$TWO_CLUBS,//;
        $current_trick = "$TWO_CLUBS,";
        $current_trick_cards {$wt} = "$TWO_CLUBS,";
        add_to_debug ("ADDed TO current_trick $current_trick -- ($current_trick_card_count) >>$current_trick_cards{$wt}--$wt<<\n");
        $current_trick_led_by = $wt;
        $current_trick_card_count = 1;

        set_knowledge ("player_winning_trick", $wt);
        set_knowledge ("card_winning_trick", $card_played);
        set_knowledge ("trick_has_points", 0);
        set_knowledge ("trick_points", 0);
        deal_with_trick_points ($card_played);
    }
    elsif ($cards =~ m/$card_played,/ && $current_trick_suit eq "")
    {
        $trick_number++;
        $current_trick_leading_card = $card_played;
        $current_trick_suit = get_card_suit ($current_trick_leading_card);
        $current_trick = "$card_played,";
        $current_trick_card_count = 1;
        $player_cards {$wt} =~ s/$card_played,//;
        $current_trick_cards {$wt} = "$card_played,";
        $current_trick_led_by = $wt;
        add_to_debug ("ADDed TO current_trick $current_trick -- ($current_trick_card_count) >>$current_trick_cards{$wt}--$wt<<\n");

        set_knowledge ("player_winning_trick", $wt);
        set_knowledge ("card_winning_trick", $card_played);

        deal_with_trick_points ($card_played);
    }
    elsif ($cards =~ m/$card_played,/ && $current_trick_suit eq $suit)
    {
        $current_trick .= "$card_played,";
        $current_trick_card_count++;
        $player_cards {$wt} =~ s/$card_played,//;
        $current_trick_cards {$wt} = "$card_played,";
        add_to_debug ("ADDed TO current_trick $current_trick -- ($current_trick_card_count) >>$current_trick_cards{$wt}--$wt<<\n");

        if (beat_card (get_knowledge ("card_winning_trick"), $card_played))
        {
            set_knowledge ("player_winning_trick", $wt);
            set_knowledge ("card_winning_trick", $card_played);
        }

        deal_with_trick_points ($card_played);
    }
    elsif ($cards =~ m/$card_played,/ && $current_trick_suit ne $suit)
    {
        $current_trick .= "$card_played,";
        $current_trick_card_count++;
        $player_cards {$wt} =~ s/$card_played,//;
        $current_trick_cards {$wt} = "$card_played,";
        add_to_debug ("ADDed TO current_trick (broke suit) $current_trick -- ($current_trick_card_count) >>$current_trick_cards{$wt}--$wt<<\n");
        set_knowledge ("no $current_trick_suit $wt", 1);
        deal_with_trick_points ($card_played);
    }

    if (!$hearts_broken && get_card_suit ($card_played) eq $HEARTS)
    {
        set_hearts_broken ("bbb");
    }

    if ($current_trick_card_count >= 4)
    {
        # Check who won the trick!
        my $current_winning_player = $current_trick_led_by;
        my $current_winning_card = $current_trick_leading_card;

        my $i = 0;
        for ($i = 0; $i < 4; $i++)
        {
            if (beat_card ($current_winning_card, $current_trick_cards {$i}))
            {
                $current_winning_card = $current_trick_cards {$i};
                $current_winning_player = $i;
            }
        }
        $last_trick = "$current_trick_cards{0},$current_trick_cards{1},$current_trick_cards{2},$current_trick_cards{3},";
        $last_trick_table = get_trick_table (1);
        $last_trick =~ s/,,/,/g;
        $last_trick_led_by = $current_trick_led_by;

        add_to_debug ("Player $current_winning_player won based on $current_trick_cards{0},$current_trick_cards{1},$current_trick_cards{2},$current_trick_cards{3}\n");

        my $won_cards = ",$current_trick_cards{0},$current_trick_cards{1},$current_trick_cards{2},$current_trick_cards{3},";

        $player_won_cards {$current_winning_player} .= "$won_cards";
        $player_won_cards {$current_winning_player} =~ s/,,/,/g;
        add_to_debug ("Won Cards: $current_winning_player, $player_won_cards{$current_winning_player}");

        # set players_who_have_won_points
        if (get_knowledge ("trick_has_points"))
        {
            my $k = get_knowledge ("players_who_have_won_points");
            $k =~ s/$current_winning_player,//g;
            set_knowledge ("players_who_have_won_points", $k . "$current_winning_player,");
            $k = get_knowledge ("players_who_have_won_points");
            if ($k =~ m/\d,\d/)
            {
                set_knowledge ("multi_players_have_won_points", 1);

                for (my $pp = 0; $pp < 4; $pp ++)
                {
                    set_knowledge ("$pp - can_shoot_moon", 0);
                    set_knowledge ("$pp - can_win_rest", 0);
                    set_knowledge ("$pp - want_to_shoot_moon", 0);
                    set_knowledge ("$pp - stop_shooting_moon", 1);
                    set_knowledge ("$pp - stop_someone_else_shooting_moon", 0);
                    set_knowledge ("player_shooting_moon", $INVALID_PLAYER_NUM);
                }
            }
            else
            {
                set_knowledge ("multi_players_have_won_points", 0);

                for (my $pp = 0; $pp < 4; $pp ++)
                {
                    if ($pp != $current_winning_player)
                    {
                        set_knowledge ("$pp - can_shoot_moon", 0);
                        set_knowledge ("$pp - can_win_rest", 0);
                        set_knowledge ("$pp - want_to_shoot_moon", 0);
                        set_knowledge ("$pp - stop_shooting_moon", 1);
                        set_knowledge ("$pp - stop_someone_else_shooting_moon", 1);
                    }
                    else
                    {
                        set_knowledge ("$pp - can_shoot_moon", 1);
                        set_knowledge ("$pp - can_win_rest", get_can_win_rest ($wt));

                        if ($trick_number > $TRICKS_BEFORE_SHOOT_MOON)
                        {
                            set_knowledge ("$pp - want_to_shoot_moon", 1);
                        }
                        else
                        {
                            set_knowledge ("$pp - want_to_shoot_moon", 0);
                        }
                        set_knowledge ("$pp - stop_shooting_moon", 0);
                        set_knowledge ("$pp - stop_someone_else_shooting_moon", 0);
                        set_knowledge ("player_shooting_moon", $pp);
                    }
                }
            }
        }

        add_to_debug ("Player $current_winning_player has won based on <<< ($player_won_cards{$current_winning_player}) >>> $current_trick_cards{0},$current_trick_cards{1},$current_trick_cards{2},$current_trick_cards{3}\n");
        add_to_debug ("RESET Current_trick $current_trick back to blank -- ($current_trick_card_count)\n");

        if ($trick_number == $TOTAL_TRICKS)
        {
            round_over ();
        }
        else
        {
            $current_trick = "";
            $current_trick_card_count = 0;
            $current_trick_suit = "";
            set_whos_turn (0, $current_winning_player);
            have_to_break_hearts ($current_winning_player, "afjaja");
            handle_turn ();
        }
    }
    else
    {
        set_next_turn ();
    }

    force_needs_refresh ();
}

sub player_has_suit
{
    my $wt = $_ [0];
    my $suit = $_ [1];
    my $cards = $player_cards {$wt};
    if ($cards =~ m/$suit,/)
    {
        return 1;
    }
    return 0;
}

sub player_number_cards_in_suit
{
    my $wt = $_ [0];
    my $suit = $_ [1];
    my $cards = $player_cards {$wt};
    my $num_suit = 0;

    while ($cards =~ s/[^,]*$suit,//)
    {
        $num_suit ++;
    }
    return $num_suit;
}

sub player_has_card
{
    my $wt = $_ [0];
    my $card = $_ [1];
    my $cards = $player_cards {$wt};
    if ($cards =~ m/(^|,)$card,/)
    {
        return 1;
    }
    return 0;
}

sub get_first_card_in_suit
{
    my $wt = $_ [0];
    my $suit = $_ [1];
    my $cards = $player_cards {$wt};

    if ($cards =~ m/^([^,]+?$suit),/)
    {
        return $1;
    }
    if ($cards =~ m/,([^,]+?$suit),/)
    {
        return $1;
    }
    return "";
}

sub get_lowest_card_in_suit
{
    my $wt = $_ [0];
    my $suit = $_ [1];
    my $value_under = $_ [2];
    my $cards = $player_cards {$wt};

    my $card_winning_trick = get_knowledge ("card_winning_trick");
    my $card_val = $value_under;

    for ($card_val = $card_val; $card_val > 1; $card_val--)
    {
        my $cc = "$card_val$suit";
        if (player_has_card ($wt, $cc))
        {
            return $cc;
        }
    }

    my $c = 2;
    for ($c = 2; $c <= 10; $c++)
    {
        if ($cards =~ m/($c$suit)/)
        {
            return $1;
        }
    }
    if ($cards =~ m/(J$suit)/) { return "J$suit"; }
    if ($cards =~ m/(Q$suit)/) { return "Q$suit"; }
    if ($cards =~ m/(K$suit)/) { return "K$suit"; }
    if ($cards =~ m/(A$suit)/) { return "A$suit"; }

    return "";
}

sub get_highest_card_in_suit
{
    my $wt = $_ [0];
    my $suit = $_ [1];
    my $value_over = $_ [2];
    my $cards = $player_cards {$wt};

    my $card_val = $value_over;
    for ($card_val = $value_over; $card_val <= $ACE_VALUE; $card_val++)
    {
        my $cc = "$card_val$suit";
        if (player_has_card ($wt, $cc))
        {
            return $cc;
        }
    }

    if ($cards =~ m/(A$suit)/) { return "A$suit"; }
    if ($cards =~ m/(K$suit)/) { return "K$suit"; }
    if ($cards =~ m/(Q$suit)/) { return "Q$suit"; }
    if ($cards =~ m/(J$suit)/) { return "J$suit"; }

    my $c = 10;
    for ($c = 10; $c >= 2; $c--)
    {
        if ($cards =~ m/($c$suit)/)
        {
            return $1;
        }
    }

    return "";
}

sub get_player_knowledge
{
    my $k;
    foreach $k (sort keys (%player_knowledge))
    {
        add_to_debug ("player_knowledge - '$k' => $player_knowledge{$k}\n")
    }
}

sub get_lowest_card
{
    my $wt = $_ [0];
    my $cards = $player_cards {$wt};
    my $lowest_card_val = 15;
    my $lowest_card;

    my $temp_cards = $cards;
    my $found_lowest_card = 0;

    have_to_break_hearts ($wt, "111zz");

    while ($temp_cards =~ s/^([^,]+[$ALL_SUITS_HDSC]),//)
    {
        my $card = $1;
        my $this_card_val = get_card_value ($card);
        my $this_card_suit = get_card_suit ($card);
        if (!$hearts_broken && $this_card_suit eq $HEARTS)
        {
            next;
        }
        if ($lowest_card_val > $this_card_val)
        {
            $lowest_card_val = $this_card_val;
            $lowest_card = $card;
            $found_lowest_card = 1;
        }
    }

    add_to_debug (" aa Lowest card is $lowest_card (for $wt with $cards and hearts_broken = $hearts_broken)..\n");
    return $lowest_card;
}

sub have_to_break_hearts
{
    my $wt = $_ [0];
    my $a = $_ [1];

    if (only_has_hearts ($wt))
    {
        set_hearts_broken ("player $wt - ccc" . $a);
    }
}

sub deal_with_trick_points
{
    my $cp = $_ [0];
    set_knowledge ("trick_has_points", 0);
    set_knowledge ("trick_points", 0);

    if (point_card ($cp))
    {
        set_knowledge ("trick_has_points", 1);
        set_knowledge ("trick_points", get_score_from_cards ($current_trick));
        
        if (get_card_suit ($cp) eq $HEARTS)
        {
            set_hearts_broken ("aaa");
        }
    }
}

sub is_last_in_trick
{
    if ($current_trick_card_count >= 3)
    {
        return 1;
    }
    return 0;
}

sub get_highest_card
{
    my $wt = $_ [0];
    my $cards = $player_cards {$wt};
    my $highest_card_val = -1;
    my $highest_card;

    my $temp_cards = $cards;
    have_to_break_hearts ($wt, "222");

    while ($temp_cards =~ s/^([^,]+[$ALL_SUITS_HDSC]),//)
    {
        my $card = $1;
        my $this_card_val = get_card_value ($card);
        my $this_card_suit = get_card_suit ($card);
        if (!$hearts_broken && $this_card_suit eq $HEARTS)
        {
            next;
        }
        if ($highest_card_val < $this_card_val)
        {
            $highest_card_val = $this_card_val;
            $highest_card = $card;
        }
    }

    return $highest_card;
}

sub get_knowledge
{
    my $key = $_ [0];
    if (!exists ($player_knowledge {$key}))
    {
        add_to_debug ("$key - error with >$key< in knowledge");
    }
    return $player_knowledge {$key};
}

sub set_knowledge
{
    my $key = $_ [0];
    my $val = $_ [1];
    $player_knowledge {$key} = $val;
}

sub decrease_knowledge
{
    my $key = $_ [0];
    my $val = $player_knowledge {$key};
    $val--;
    $player_knowledge {$key} = $val;
}

sub increase_knowledge
{
    my $key = $_ [0];
    my $val = $player_knowledge {$key};
    $val++;
    $player_knowledge {$key} = $val;
}

sub append_knowledge
{
    my $key = $_ [0];
    my $val = $_ [1];
    $player_knowledge {$key} .= $val;
}

sub get_chasing_qs
{
    my $wt = $_ [0];
    if (get_knowledge ("qs_played"))
    {
        return 0;
    }

    if (get_knowledge ("player_shooting_moon") == $INVALID_PLAYER_NUM)
    {
        return 0;
    }

    if (get_knowledge ("player_shooting_moon") == $wt)
    {
        return 0;
    }
    return 1;
}

sub get_highest_point_card
{
    my $wt = $_ [0];
    if ($trick_number <= 1)
    {
        # No points card :(
        my $c = get_highest_non_point_card ($wt);
        return $c;
    }

    if (player_has_card ($wt, $QUEEN_SPADES))
    {
        return $QUEEN_SPADES;
    }
    if (player_has_suit ($wt, $HEARTS))
    {
        return get_highest_card_in_suit ($wt, $HEARTS, $MAX_CARD_VAL);
    }
    return get_highest_card ($wt);
}

sub get_highest_non_point_card
{
    my $wt = $_ [0];
    my $c = get_highest_card ($wt);

    if (get_card_suit ($c) eq "$CLUBS" || get_card_suit ($c) eq "$DIAMONDS")
    {
        return $c;
    }

    if (get_card_suit ($c) eq "$SPADES" && $c ne "$QUEEN_SPADES")
    {
        return $c;
    }

    if (player_has_suit ($wt, $CLUBS)) { return get_highest_card_in_suit ($wt, $CLUBS, $MAX_CARD_VAL); }
    if (player_has_suit ($wt, $DIAMONDS)) { return get_highest_card_in_suit ($wt, $CLUBS, $MAX_CARD_VAL); }
    if (player_has_suit ($wt, $SPADES)) { return get_lowest_card_in_suit ($wt, $SPADES, $QUEEN_VALUE+1); }
    return "";
}

sub get_lowest_spade_for_leading
{
    my $wt = $_ [0];
    if (player_has_suit ($wt, $SPADES) && !player_has_card ($wt, $QUEEN_SPADES))
    {
        my $card = get_lowest_card_in_suit ($wt, $SPADES, $QUEEN_VALUE);
        if (is_valid_card ($card) && get_card_value ($card) < $QUEEN_VALUE)
        {
            return $card;
        }
    }
    return get_lowest_card ($wt);
}

sub get_moon_player_winning_trick
{
    my $wt = $_ [0];
    my $player_winning_trick = get_knowledge ("player_winning_trick");

    if (get_knowledge ("$player_winning_trick - can_shoot_moon"))
    {
        return  1;
    }
    return 0;
}

sub count_cards
{
    my $cards = $_ [0];
    my $cc = 0;
    while ($cards =~ s/^(\w+),//)
    {
        my $c = $1;
        if (is_valid_card ($c))
        {
            $cc++;
        }
    } 
    return $cc;
}

sub point_card
{
    my $card = $_ [0];

    if ($card =~ m/$HEARTS/) { return 1; }
    if ($card =~ m/$QUEEN_SPADES/) { return 1; }
    return 0;
}

sub stop_the_moon
{
    my $wt = $_ [0];
    if (get_knowledge ("multi_players_have_won_points"))
    {
        return 0;
    }

    if (get_knowledge ("$wt - want_to_shoot_moon"))
    {
        return 0;
    }

    if (get_knowledge ("$wt - stop_someone_else_shooting_moon"))
    {
        return 1;
    }
    return 0;
}

#sub handle_bot_next_go_old
#{
#    # Slightly weird algorithm but human thought process here
#    my $wt = $_ [0];
#
#    if ($must_lead_2c)
#    {
#        if (player_has_card ($wt, $TWO_CLUBS))
#        {
#            play_card ($wt, "$TWO_CLUBS");
#            return;
#        }
#    }
#
#    # Leading for trick
#    if ($current_trick_suit eq "")
#    {
#        my $card = get_lowest_card ($wt);
#        add_to_debug ("bbb Lowest card $wt for leading is $card");
#
#        # Still chasing Queen?
#        if (get_chasing_qs ($wt))
#        {
#            $card = get_lowest_spade_for_leading ($wt);
#        }
#        play_card ($wt, $card);
#        return;
#    }
#
#    # Not leading for trick
#    my $num_in_suit = player_number_cards_in_suit ($wt, $current_trick_suit);
#
#    # 1 card in suit..
#    if ($num_in_suit == 1)
#    {
#        play_card ($wt, get_first_card_in_suit ($wt, $current_trick_suit));
#        return;
#    }
#
#    # 0 cards in suit..
#    if ($num_in_suit == 0)
#    {
#        if (player_has_card ($wt, $QUEEN_SPADES) && is_card_valid_for_trick ($QUEEN_SPADES))
#        {
#            add_to_debug ("player $wt offloads $QUEEN_SPADES");
#            play_card ($wt, $QUEEN_SPADES);
#            return;
#        }
#
#        if (stop_the_moon ($wt))
#        {
#            if (!get_moon_player_winning_trick ())
#            {
#                add_to_debug ("player $wt !get_moon_player_winning_trick $current_trick_suit " . get_highest_point_card ($wt));
#                play_card ($wt, get_highest_point_card ($wt));
#                return;
#            }
#
#            if (get_moon_player_winning_trick ())
#            {
#                add_to_debug ("player $wt get_moon_player_winning_trick!! $current_trick_suit " . get_lowest_card ($wt));
#                play_card ($wt, get_lowest_card ($wt));
#                return;
#            }
#        }
#        add_to_debug ("!stopping the moon so player $wt $current_trick_suit " . get_highest_point_card ($wt));
#        play_card ($wt, get_highest_point_card ($wt));
#        return;
#    }
#
#    # >1 cards in suit..
#    if ($num_in_suit > 1)
#    {
#        add_to_debug ("player $wt for $current_trick_suit has got multiple cards -- trick has points??? " . get_knowledge ("trick_has_points"));
#        if (stop_the_moon ($wt))
#        {
#            if (get_knowledge ("trick_has_points"))
#            {
#                if (!get_moon_player_winning_trick ())
#                {
#                    play_card ($wt, get_lowest_card_in_suit ($wt, $current_trick_suit, get_card_value (get_knowledge ("card_winning_trick"))));
#                    return;
#                }
#
#                if (get_moon_player_winning_trick ())
#                {
#                    play_card ($wt, get_highest_card_in_suit ($wt, $current_trick_suit, $MAX_CARD_VAL));
#                    return;
#                }
#            }
#            play_card ($wt, get_lowest_card_in_suit ($wt, $current_trick_suit, get_card_value (get_knowledge ("card_winning_trick"))));
#            return;
#        }
#
#        if ($trick_number <= 1 || $current_trick_card_count >= 3)
#        {
#            if (get_knowledge ("trick_has_points"))
#            {
#                play_card ($wt, get_lowest_card_in_suit ($wt, $current_trick_suit, get_card_value (get_knowledge ("card_winning_trick"))));
#                return;
#            }
#            else
#            {
#                play_card ($wt, get_highest_card_in_suit ($wt, $current_trick_suit, $MAX_CARD_VAL));
#                return;
#            }
#        }
#
#        if (get_knowledge ("trick_has_points"))
#        {
#            add_to_debug ("trick has point: player $wt for $current_trick_suit multiple cards");
#            my $lc = get_lowest_card_in_suit ($wt, $current_trick_suit, get_card_value (get_knowledge ("card_winning_trick")));
#            add_to_debug ("trick has point: player $wt for $current_trick_suit multiple cards got $lc");
#            play_card ($wt, $lc);
#            return;
#        }
#
#        add_to_debug ("trick has NO point: player $wt for $current_trick_suit multiple cards");
#
#        my $lc = get_lowest_card_in_suit ($wt, $current_trick_suit, get_card_value (get_knowledge ("card_winning_trick")));
#        add_to_debug ("trick has NO point: player $wt for $current_trick_suit multiple cards - $lc");
#        if ($current_trick_suit eq $SPADES && !get_knowledge ("qs_played"))
#        {
#            add_to_debug ("trick has NO point: $QUEEN_SPADES not played.. want to get low card here");
#            $lc = get_lowest_card_in_suit ($wt, $current_trick_suit, $JACK_VALUE);
#        }
#        elsif ($current_trick_suit eq $HEARTS)
#        {
#            $lc = get_lowest_card_in_suit ($wt, $current_trick_suit, 1);
#        }
#
#        add_to_debug ("trick has NO point: player $wt for $current_trick_suit multiple cards highest card is $lc");
#        play_card ($wt, $lc);
#    }
#}

sub handle_bot_next_go
{
    my $wt = $_ [0];
    my $card;

    # Special cases..
    if ($must_lead_2c)
    {
        if (player_has_card ($wt, $TWO_CLUBS))
        {
            play_card ($wt, "$TWO_CLUBS");
            return;
        }
    }

    my $num_in_suit = 0;
    if (is_valid_suit ($current_trick_suit))
    {
        $num_in_suit = player_number_cards_in_suit ($wt, $current_trick_suit);
    }

    #==============================================================
    # Easiest case - only one card in the current suit in the trick
    # 1 card in suit..
    if ($num_in_suit == 1)
    {
        play_card ($wt, get_first_card_in_suit ($wt, $current_trick_suit));
        return;
    }

    #=========================================================
    # Harder cases - 0 or many cards in the current trick suit
    my %card_weightings;
    my $cards = $player_cards {$wt};
    my $is_valid_card;
    while ($cards =~ s/^(\w+),//)
    {
        my $c = $1;
        if (is_valid_card ($c))
        {
            $card_weightings {$c} = 0;
        }
    }

    my $cws;
    foreach $card (sort keys (%card_weightings))
    {
        $cws .= "$card:$card_weightings{$card};";
    }
    add_to_debug ("00) Bot $wt has to play from >$cws<");

    # Leading or 0 cards in suit..
    my $best_card = "";
    my $want_to_stop_moon = stop_the_moon ($wt);
    my $trick_has_points = get_knowledge ("trick_has_points");
    my $trick_points = get_knowledge ("trick_points");
    my $moon_player_winning_trick = get_moon_player_winning_trick ();
    my $want_to_shoot_moon = get_knowledge ("$wt - want_to_shoot_moon");
    my $is_last_in_trick = is_last_in_trick ();

    add_to_debug ("bb) Bot $wt ($current_trick_suit) num_in_suit=$num_in_suit want_to_stop_moon=$want_to_stop_moon; trick_has_points=$trick_has_points; trick_points=$trick_points; moon_player_winning_trick=$moon_player_winning_trick; want_to_shoot_moon=$want_to_shoot_moon");

    have_to_break_hearts ($wt, "333");
    if ($current_trick_suit eq "" || $num_in_suit == 0)
    {
        foreach $card (keys (%card_weightings))
        {
            my $suit = get_card_suit ($card);
            if (!$want_to_shoot_moon)
            {
                if ($card eq get_lowest_card_in_suit ($wt, $suit, $MAX_CARD_VAL))
                {
                    $card_weightings {$card} += 2;
                }
            }
            if ($want_to_shoot_moon)
            {
                if ($card eq get_highest_card_in_suit ($wt, $suit, $MAX_CARD_VAL))
                {
                    $card_weightings {$card} += 2;
                }
            }

            if ($current_trick_suit ne "" && $want_to_stop_moon)
            {
                if (!$moon_player_winning_trick)
                {
                    if (point_card ($card))
                    {
                        $card_weightings {$card} += 2;
                        if ($card eq $QUEEN_SPADES)
                        {
                            $card_weightings {$card} += 3;
                        }
                    }
                }

                if ($moon_player_winning_trick)
                {
                    if (point_card ($card))
                    {
                        $card_weightings {$card} -= 1;
                    }
                }
            }
        }

        if (!$want_to_shoot_moon)
        {
            $card = get_lowest_card ($wt);
            if (is_valid_card ($card))
            {
                $card_weightings {$card} += 2;
            }
            if (get_chasing_qs ($wt))
            {
                $card = get_lowest_spade_for_leading ($wt);
                $is_valid_card = is_card_valid_for_trick ($card, $wt);
                if ($is_valid_card && $card ne $QUEEN_SPADES && $card ne $ACE_SPADES && $card ne $KING_SPADES)
                {
                    $card_weightings {$card} += 2;
                }
            }
        }
        elsif ($want_to_shoot_moon)
        {
            $card = get_highest_card ($wt);
            if (is_valid_card ($card))
            {
                $card_weightings {$card} += 2;
            }
        }

        have_to_break_hearts ($wt, "333");
        foreach $card (keys (%card_weightings))
        {
            my $suit = get_card_suit ($card);
            if ($current_trick_suit eq "" && $suit eq $HEARTS && !$hearts_broken)
            {
                $card_weightings {$card} = -10;
            }
        }

        my $cws;
        foreach $card (sort keys (%card_weightings))
        {
            $cws .= "$card:$card_weightings{$card};";
        }
        
        $best_card = "";
        my $best_card_val = -100;
        foreach $card (keys (%card_weightings))
        {
            if ($card_weightings {$card} > $best_card_val)
            {
                $best_card = $card;
                $best_card_val = $card_weightings {$card};
            }
        }
 
        add_to_debug ("11) Bot $wt going to play >$best_card< (from $best_card_val) >$cws<");
    }
    else
    {
        # More than one card in suit
        if ($want_to_shoot_moon)
        {
            $card = get_highest_card_in_suit ($wt, $current_trick_suit, get_card_value (get_knowledge ("card_winning_trick")));
            $is_valid_card = is_card_valid_for_trick ($card, $wt);
            $card_weightings {$card} += 2;
        }
        elsif (!$want_to_shoot_moon)
        {
            $card = get_lowest_card_in_suit ($wt, $current_trick_suit, get_card_value (get_knowledge ("card_winning_trick")));
            $is_valid_card = is_card_valid_for_trick ($card, $wt);
            if ($is_valid_card)
            {
                $card_weightings {$card} += 2.1;
            }
        }
        
        if ($want_to_stop_moon && $trick_has_points && $trick_points < 5 && $is_last_in_trick)
        {
            # Try and win it..
            $card = get_highest_card_in_suit ($wt, $current_trick_suit, get_card_value (get_knowledge ("card_winning_trick")));
            $is_valid_card = is_card_valid_for_trick ($card, $wt);
            if ($is_valid_card)
            {
                if ($card ne $QUEEN_SPADES)
                {
                    $card_weightings {$card} += 2.2;
                }
            }
        }
        
        have_to_break_hearts ($wt, "444");
        foreach $card (keys (%card_weightings))
        {
            my $suit = get_card_suit ($card);
            if ($suit eq $HEARTS && !$hearts_broken or $suit ne $current_trick_suit)
            {
                $card_weightings {$card} = -10;
            }
        }

        $best_card = "";
        my $best_card_val = -100;
        foreach $card (keys (%card_weightings))
        {
            if ($card_weightings {$card} > $best_card_val)
            {
                $best_card = $card;
                $best_card_val = $card_weightings {$card};
            }
        }
        my $cws;
        foreach $card (sort keys (%card_weightings))
        {
            $cws .= "$card:$card_weightings{$card};";
        }
        add_to_debug ("22) Bot $wt going to play >$best_card< (from $best_card_val) : $cws");
    }
    play_card ($wt, $best_card);
}

sub handle_bots_passing_cards
{
    my $i;
    for ($i = 0; $i < 4; $i++)
    {
        my $c1;
        my $c2;
        my $c3;
        my %cs;
        if ($players_who_must_pass_cards {$i} && is_bot ("", $i))   
        {
            # Ok, get 3 cards..
            if (player_has_suit ($i, $HEARTS))
            {
                $cs {get_highest_card_in_suit ($i, $HEARTS, $ACE_VALUE)} = 1;
            }
            if (player_has_suit ($i, $SPADES))
            {
                if (player_has_card ($i, "AS")) { $cs {"AS"} = 1; }
                if (player_has_card ($i, "KS")) { $cs {"KS"} = 1; }
                if (player_has_card ($i, "QS")) { $cs {"QS"} = 1; }
                $cs {get_highest_card_in_suit ($i, $CLUBS, $MAX_CARD_VAL)} = 1;
                $cs {get_highest_card_in_suit ($i, $DIAMONDS, $MAX_CARD_VAL)} = 1;
                $cs {get_highest_card_in_suit ($i, $SPADES, $MAX_CARD_VAL)} = 1;
                $cs {get_highest_card_in_suit ($i, $HEARTS, $MAX_CARD_VAL)} = 1;
                $cs {get_highest_card ($i)} = 1;
            }

            my $c;
            my $c_count = 0;
            foreach $c (keys (%cs))
            {
                if (is_valid_card ($c)) 
                {
                    if ($c_count == 0) { $c1 = $c; $c_count++; }
                    elsif ($c_count == 1) { $c2 = $c; $c_count++; }
                    elsif ($c_count == 2) { $c3 = $c; $c_count++; }
                }
            }

            add_to_debug ("Bot $i is giving away: $c1,$c2,$c3");
            pass_3_cards ($i, $c1, $c2, $c3);
            my %new_cs;
            %cs = %new_cs;
        }
    }
}

sub handle_turn
{
    my $is_bot = is_bot ("", $whos_turn);
    if ($is_bot)
    {
        handle_bot_next_go ($whos_turn);
    }
}

sub set_next_turn
{
    if ($must_lead_2c)
    {
        add_to_debug ("Can't change turn from $whos_turn due to leading $TWO_CLUBS..");
        return;
    }
    add_to_debug ("Setting who goes from $whos_turn to " . ($whos_turn + 1));
    $whos_turn++;
    if ($whos_turn >= 4)
    {
        $whos_turn = 0;
    }
    handle_turn ();
}

sub get_player_name_from_IP
{
    my $IP = $_ [0];
    my $id = get_player_id ($IP);
    return $player_names [$id];
}

sub add_new_user
{
    my $in = $_ [0];
    my $IP = $_ [1];
    my $is_bot = $_ [2];

    my $this_name = "";
    if ($in =~ m/name=([\w][\w][\w][\w_ ]+)$/)
    {
        $this_name = $1;
        $this_name =~ s/\W/_/g;
        $this_name =~ s/_*$//g;
        $this_name =~ s/HTTP.*//g;
        $IP .= "_$this_name";
        if ($this_name !~ m/..../)
        {
            return "";
        }
    }
    else
    {
        return "";
    }

    my $ip_find;
    foreach $ip_find (@player_ips)
    {
        if ($ip_find eq $IP)
        {
            return "";
        }
    }

    my $name_find;
    print ("IN ADDING $this_name!!!\n");
    foreach $name_find (@player_names)
    {
        if ($name_find eq $this_name)
        {
            return "";
        }
    }

    print (" OK IN ADDING $this_name!!!\n");
    {
        $player_names [$num_players_in_lobby] = $this_name;
        $player_ips [$num_players_in_lobby] = $IP;
        $NEEDS_REFRESH [$num_players_in_lobby] = 1;
        $num_players_in_lobby++;
        add_to_debug ("ADDING NEW_USER ($this_name)..\n");

        my $col = sprintf ("#%lX%1X%1X", int (rand (200) + 55), int (rand (200) + 55), int (rand (200) + 55));
        $rand_colors {$this_name} = $col;
        $PLAYER_IS_BOT {$this_name} = 0;
        if ($is_bot)
        {
            $PLAYER_IS_BOT {$this_name} = 1;
        }
        return "Welcome $this_name";
    }
}

sub boot_person
{
    my $person_to_boot = $_ [0];
    my $person_to_boot_id = get_player_id_from_name ($person_to_boot, "bbbb");

    if ($person_to_boot_id == -1)
    {
        return;
    }

    if (game_started () == 1)
    {
        return;
    }

    my @new_player_ips;
    my $len = scalar @player_ips;
    my @new_player_names;
    my $i = 0;
    my $new_i = 0;

    add_to_debug ("BOOT_PERSON $i, $len boot_person $person_to_boot ");
    while ($i < $len)
    {
        add_to_debug ("BOOT_PERSON in $i, $len boot_person $person_to_boot ");
        if ($i == $person_to_boot_id)
        {
            add_to_debug ("Booting this person BOOT_PERSON found in $i, $len boot_person $person_to_boot add $player_names[$i] to banned..");
            $BANNED_NAMES {$player_names [$i]} = 1;
            $i++;
            $num_players_in_lobby--;
            next;
        }
        add_to_debug ("Not booting this person BOOT_PERSON found in $new_i, $i, $len boot_person $person_to_boot ");
        $new_player_names [$new_i] = $player_names [$i];
        $new_player_ips [$new_i] = $player_ips [$i];

        $i++;
        $new_i++;
    }

    if ($num_players_in_lobby < 0)
    {
        $num_players_in_lobby = 0;
    }
    add_to_debug ("Before BOOT_PERSON ($person_to_boot) had names of: " . join (",", sort (@player_names)));
    add_to_debug ("Before BOOT_PERSON ($person_to_boot) had ips of: " . join (",", sort (@player_ips)));
    @player_names = @new_player_names;
    @player_ips = @new_player_ips;
    add_to_debug ("After BOOT_PERSON ($person_to_boot) had names of: " . join (",", sort (@player_names)));
    add_to_debug ("After BOOT_PERSON ($person_to_boot) had ips of: " . join (",", sort (@player_ips)));
    return "";
}

sub force_needs_refresh
{
    my $i = 0;
    for ($i = 0; $i < $num_players_in_lobby; $i++)
    {
        $NEEDS_REFRESH [$i] = 1;
    }
}

sub get_needs_refresh
{
    my $i = 0;
    my $IP = $_ [0];
    my $id = get_player_id ($IP);

    if ($NEEDS_REFRESH [$id])
    {
        $NEEDS_REFRESH [$id] = 0;
        return 1;
    }
    return 0;
}

sub new_game
{
    reset_debug ();
    $must_lead_2c  = 0;
    $must_pass_3_cards = 1;
    my %new_players_who_must_pass_cards;
    %players_who_must_pass_cards = %new_players_who_must_pass_cards;
    $players_who_must_pass_cards {0} = 1;
    $players_who_must_pass_cards {1} = 1;
    $players_who_must_pass_cards {2} = 1;
    $players_who_must_pass_cards {3} = 1;
    $passed_player_cards {0} = "";
    $passed_player_cards {1} = "";
    $passed_player_cards {2} = "";
    $passed_player_cards {3} = "";
    $passed_from_player_cards {0} = "";
    $passed_from_player_cards {1} = "";
    $passed_from_player_cards {2} = "";
    $passed_from_player_cards {3} = "";
    $direction_passing = $LEFT;
    $trick_number = 0;
    $hearts_broken = 0;
    $current_trick = "";
    $last_trick = "";
    $last_trick_table = "";
    $current_trick_card_count = 0;
    $current_trick_leading_card = "";
    $current_trick_led_by = -1;
    $current_trick_suit = "";
    my %new_current_trick_cards;
    %current_trick_cards = %new_current_trick_cards;

    add_to_debug ("MUST LEAD $TWO_CLUBS aaa..\n");

    if ($num_players_in_lobby < 4) { add_new_user ("name=BBobJr", "192.185.155.150", 1); }
    if ($num_players_in_lobby < 4) { add_new_user ("name=GJCaesar", "192.186.155.150", 1); }
    if ($num_players_in_lobby < 4) { add_new_user ("name=RFeynman", "192.187.155.150", 1); }
    if ($num_players_in_lobby < 4) { add_new_user ("name=WRRobertson", "192.188.155.150", 1); }
    $num_players_in_game = $num_players_in_lobby;
    if ($num_players_in_game > 4)
    {
        $num_players_in_game = 4;
    }
    print ("Found $num_players_in_lobby are now in the game!!\n");

    $GAME_WON = "0";
    $ROUND_OVER = 0;
    $USER_SHOT_MOON = 0;

    # Setup the deck..
    add_to_debug ("Setup deck1\n");
    setup_deck ();
    $player_score {0} = 0;
    $player_score {1} = 0;
    $player_score {2} = 0;
    $player_score {3} = 0;

    deal_deck ();
    $whos_turn = 0;
    add_to_debug ("Initial $whos_turn was set\n");
    my $is_bot = is_bot ("", $whos_turn);
    if ($is_bot)
    {
        add_to_debug ("Initial $whos_turn is a bot! handle_bot_next_go\n");
        handle_turn ($whos_turn);
    }
    $current_trick_suit = $CLUBS;

    force_needs_refresh();
    return;
}

sub reset_game
{
    $num_players_in_game = -1;
    $GAME_WON = "0";
    $ROUND_OVER = 0;
    $USER_SHOT_MOON = 0;
    my @new_deck;
    @deck = @new_deck;
    my $out = "$GAME Game reset <a href=\"\/\">Lobby or Game window<\/a>";
    force_needs_refresh();

    add_to_debug ("Setup deck2\n");
    setup_deck ();
    $player_score {0} = 0;
    $player_score {1} = 0;
    $player_score {2} = 0;
    $player_score {3} = 0;

    deal_deck ();
    $must_lead_2c  = 0;
    $must_pass_3_cards = 1;
    my %new_players_who_must_pass_cards;
    %players_who_must_pass_cards = %new_players_who_must_pass_cards;
    $players_who_must_pass_cards {0} = 1;
    $players_who_must_pass_cards {1} = 1;
    $players_who_must_pass_cards {2} = 1;
    $players_who_must_pass_cards {3} = 1;
    $passed_player_cards {0} = "";
    $passed_player_cards {1} = "";
    $passed_player_cards {2} = "";
    $passed_player_cards {3} = "";
    $passed_from_player_cards {0} = "";
    $passed_from_player_cards {1} = "";
    $passed_from_player_cards {2} = "";
    $passed_from_player_cards {3} = "";
    $direction_passing = $LEFT;
    $current_trick_card_count = 0;
    return $out;
}

sub reset_for_round
{
    $ROUND_OVER = 0;
    my @new_deck;
    @deck = @new_deck;

    $current_trick = "";
    $current_trick_card_count = 0;
    $current_trick_leading_card = "";
    $current_trick_led_by = -1;
    $hearts_broken = 0;
    $last_trick = "";
    $last_trick_table = "";
    $trick_number = 0;
    my %new_current_trick_cards;
    %current_trick_cards = %new_current_trick_cards;
    my $out = "$GAME round reset <a href=\"\/\">Lobby or Game window<\/a>";
    my %new_current_trick_cards;
    setup_deck ();
    $must_lead_2c = 0;

    $must_pass_3_cards = 1;
    $players_who_must_pass_cards {0} = 1;
    $players_who_must_pass_cards {1} = 1;
    $players_who_must_pass_cards {2} = 1;
    $players_who_must_pass_cards {3} = 1;
    $passed_player_cards {0} = "";
    $passed_player_cards {1} = "";
    $passed_player_cards {2} = "";
    $passed_player_cards {3} = "";
    $passed_from_player_cards {0} = "";
    $passed_from_player_cards {1} = "";
    $passed_from_player_cards {2} = "";
    $passed_from_player_cards {3} = "";

    deal_deck ();
    $whos_turn = 0;
    if ($direction_passing == $LEFT) { $direction_passing = $RIGHT; }
    elsif ($direction_passing == $RIGHT) { $direction_passing = $ACROSS; }
    elsif ($direction_passing == $KEEP) { $direction_passing = $LEFT; }
    elsif ($direction_passing == $ACROSS)
    {
        $direction_passing = $KEEP; 
        $must_pass_3_cards = 0;
        $must_lead_2c = 1;
        $players_who_must_pass_cards {0} = 0;
        $players_who_must_pass_cards {1} = 0;
        $players_who_must_pass_cards {2} = 0;
        $players_who_must_pass_cards {3} = 0;
        set_whos_turn (1, -1);
        handle_turn ();
    }

    add_to_debug ("Reset round..Initial $whos_turn was set\n");
    $current_trick_suit = $CLUBS;
    force_needs_refresh();
    return $out;
}

sub in_game
{
    my $id = get_player_id_from_name ($CURRENT_LOGIN_NAME, "cxxc");
    if ($id >= 0 && $id < $num_players_in_game)
    {
        return 1;
    }
    return 0;
}

sub is_card_valid_for_trick
{
    my $card = $_ [0];
    my $player_num = $_ [1];
    $card =~ s/,//g;
    my $valid = 1;

    if (!is_valid_card ($card))
    {
        return 0;
    }
    my $suit = get_card_suit ($card);

    if ($must_lead_2c)
    {
        if ($card eq "$TWO_CLUBS")
        {
            return 1;
        }
    }
    else
    {
        if ($current_trick_suit eq "" && $hearts_broken)
        {
            return 1;
        }

        if ($current_trick_suit eq "" && !$hearts_broken && $suit ne $HEARTS)
        {
            return 1;
        }

        if ($current_trick_suit eq $suit)
        {
            return 1;
        }
        
        if ($current_trick_suit ne "" && $current_trick_suit ne $suit && player_has_suit ($player_num, $current_trick_suit))
        {
            return 0;
        }

        if ($trick_number <= 1 && ($suit eq $HEARTS || $card eq $QUEEN_SPADES))
        {
            return 0;
        }

        if (get_first_card_in_suit ($player_num, $current_trick_suit) eq "")
        {
            return 1;
        }
    }
    return 0;
}

sub get_images_from_cards
{
    my $cards = $_ [0];
    my $id = $_ [1];
    my $full_size = $_ [2];
    my $known_to_user = $_ [3];
    my $sort_cards = $_ [4];
    my $make_urls = $_ [5];
    my $passing_cards = $_ [6];

    my $dimmable = 0;
    $cards =~ s/^,*//;

    my %cards;
    my $vars_for_javascript_passing;
    my $vars_for_javascript_adding = "nc = ";
    my $vars_for_javascript_cards_strings;
    my $get_url_strs = "var url_str = '';";

    #add_to_debug ("get_images_from_cards :$cards:$id;known=$known_to_user:make_urls=$make_urls\n");
    while ($cards =~ s/^(\w+),//)
    {
        my $c = $1;
        my $adder = 100;
        if ($c =~ m/$CLUBS/) { $adder = 100; }
        if ($c =~ m/$SPADES/) { $adder = 200; }
        if ($c =~ m/$DIAMONDS/) { $adder = 300; }
        if ($c =~ m/$HEARTS/) { $adder = 400; }
        $adder += get_card_value ($c);

        if (!$sort_cards)
        {
            $adder = 0;
        }

        if ($known_to_user)
        {
            my $is_valid_card = is_card_valid_for_trick ($c, $id);
            my $a_pre = "";
            my $a_post = "";
            $dimmable = 1;
            if ($is_valid_card && $make_urls && !$passing_cards) 
            {
                $a_pre = "<a href=\"chosen_card_$id.$c\">";
                $a_post = "<\/a>";
                $dimmable = 0;
            }

            if ($passing_cards)
            {
                $a_pre = "<a onclick=\"javascript: var d_$c=document.getElementById('card.$c'); if (v_$c == 0 && nc < 3) { v_$c = 1; d_$c.style.position = 'relative'; d_$c.style.transform = 'translateY(+20px)'; } else { v_$c = 0; d_$c.style.transform = 'translateY(0px)'; } count_cards();\">";
                $a_post = "</a>";
                $vars_for_javascript_passing .= "var v_$c = 0;\n";
                $vars_for_javascript_adding .= " v_$c +";
                $vars_for_javascript_cards_strings .= "var s_$c = '$c';\n";
                $get_url_strs .= "if (v_$c == 1) { url_str = url_str + '&card=' + s_$c; }\n";
            }

            if ($full_size)
            {
                $cards {"$adder$c"} = $a_pre . "<img id=\"card.$c\" width=\"60\" height=\"86\" src=\"hearts/card$c.jpg\"><\/img>" . $a_post;
            }
            else
            {
                if ($dimmable)
                {
                    $cards {"$adder$c"} = $a_pre . "<img id=\"card.$c\" width=\"30\" height=\"43\" src=\"hearts/card$c" . "_dim.jpg\"><\/img>" . $a_post;
                }
                else
                {
                    $cards {"$adder$c"} = $a_pre . "<img id=\"card.$c\" width=\"30\" height=\"43\" src=\"hearts/card$c.jpg\"><\/img>" . $a_post;
                }
            }
        }
        else
        {
            if ($full_size)
            {
                $cards {"$adder$c"} = "<img width=\"60\" height=\"86\" src=\"hearts/$BCK.jpg\"><\/img>";
            }
            else
            {
                $cards {"$adder$c"} = "<img width=\"17\" height=\"47\" src=\"hearts/$HALF_BCK.jpg\"><\/img>";
            }
        }
    }

    my $javascript_passing = "";
    if ($passing_cards)
    {
        $vars_for_javascript_adding =~ s/\+$/;/;
        my $thing = "if (nc < 3) { document.getElementById('cards').innerHTML = '<font color=darkred>Chosen ' + nc + ' cards so far</font>'; document.getElementById('passcards').disabled = true; } else if (nc == 3) { document.getElementById('cards').innerHTML = '<font color=darkblue>Chosen ' + nc + ' cards.</font>'; document.getElementById('passcards').disabled = false; $get_url_strs\ndocument.getElementById('passcards').setAttribute ('onclick', 'window.location.href=\\'pass_3_cards/player_num=$id' + url_str + '\\''); }";
        $javascript_passing = "<script>$vars_for_javascript_passing\n$vars_for_javascript_cards_strings\nvar nc=0;\nfunction count_cards ()\n{\n$vars_for_javascript_adding\n$thing\n}\ncount_cards();\n</script><div id=\"cards\"><font color=darkred>Chosen 0 cards so far</font></div><input onclick=\"window.location.href=''\" type=\"submit\" value=\"Pass Cards\" id=\"passcards\" disabled><br>";
    }

    my $actual_card_cell = "";
    my $k;
    for $k (sort (keys %cards))
    {
        $actual_card_cell .= $cards {$k};
    }
    $actual_card_cell =~ s/^(.*)=.17.(.*)$HALF_BCK(.*?)$/$1=34$2$BCK$3/;
    $actual_card_cell = $javascript_passing . $actual_card_cell;
    return $actual_card_cell;
}

sub get_trick_table
{
    my $mini = $_ [0];

    my $card0 = $current_trick_cards {0};
    my $card1 = $current_trick_cards {1};
    my $card2 = $current_trick_cards {2};
    my $card3 = $current_trick_cards {3};

    $card0 =~ s/,//;
    $card1 =~ s/,//;
    $card2 =~ s/,//;
    $card3 =~ s/,//;
    $card0 =~ s/^/card/;
    $card1 =~ s/^/card/;
    $card2 =~ s/^/card/;
    $card3 =~ s/^/card/;

    my $keep0 = 0;
    my $keep1 = 0;
    my $keep2 = 0;
    my $keep3 = 0;

    my $position = $current_trick_led_by;
    my $c = 0;
    while ($c < $current_trick_card_count)
    {
        if ($position == 0) { $keep0 = 1; }
        if ($position == 1) { $keep1 = 1; }
        if ($position == 2) { $keep2 = 1; }
        if ($position == 3) { $keep3 = 1; }

        $c++;
        $position ++;
        if ($position > 3)
        {
            $position = 0;
        }
    }

    if ($keep0 == 0) { $card0 = "back"; }
    if ($keep1 == 0) { $card1 = "back"; }
    if ($keep2 == 0) { $card2 = "back"; }
    if ($keep3 == 0) { $card3 = "back"; }

    my $table = "
    <table>
    <tr>
        <td></td>
        <td><img width=\"60\" height=\"86\" src=\"hearts/$card0.jpg\"><\/img></td>
        <td></td>
    </tr>
    <tr>
        <td><img width=\"60\" height=\"86\" src=\"hearts/$card3.jpg\"><\/img></td>
        <td><font size=-1>Trick:</font></td>
        <td><img width=\"60\" height=\"86\" src=\"hearts/$card1.jpg\"><\/img></td>
    </tr>
    <tr>
        <td></td>
        <td><img width=\"60\" height=\"86\" src=\"hearts/$card2.jpg\"><\/img></td>
        <td></td>
    </tr>
    </table>";

    if ($mini)
    {
        $table =~ s/60/30/img;
        $table =~ s/86/43/img;
        $table =~ s/-1/-3/img;
    }
    return $table;
}
    
sub get_middle_cell_table
{
    my $mini = 1;

    my $card0 = $current_trick_cards {0};
    my $card1 = $current_trick_cards {1};
    my $card2 = $current_trick_cards {2};
    my $card3 = $current_trick_cards {3};

    $card0 =~ s/,//;
    $card1 =~ s/,//;
    $card2 =~ s/,//;
    $card3 =~ s/,//;
    $card0 =~ s/^/card/;
    $card1 =~ s/^/card/;
    $card2 =~ s/^/card/;
    $card3 =~ s/^/card/;

    my $keep0 = 0;
    my $keep1 = 0;
    my $keep2 = 0;
    my $keep3 = 0;

    my $position = $current_trick_led_by;
    my $c = 0;
    while ($c < $current_trick_card_count)
    {
        if ($position == 0) { $keep0 = 1; }
        if ($position == 1) { $keep1 = 1; }
        if ($position == 2) { $keep2 = 1; }
        if ($position == 3) { $keep3 = 1; }

        $c++;
        $position ++;
        if ($position > 3)
        {
            $position = 0;
        }
    }

    if ($keep0 == 0) { $card0 = "back"; }
    if ($keep1 == 0) { $card1 = "back"; }
    if ($keep2 == 0) { $card2 = "back"; }
    if ($keep3 == 0) { $card3 = "back"; }

    my $table = "<td><div text-align: center>
<img width=\"60\" height=\"86\" class=\"left_player\" src=\"hearts/$card3.jpg\"><\/img>
<img width=\"60\" height=\"86\" class=\"top_player\" src=\"hearts/$card0.jpg\"><\/img>
<img width=\"60\" height=\"86\" class=\"right_player\" src=\"hearts/$card1.jpg\"><\/img>
<img width=\"60\" height=\"86\" class=\"bottom_player\" src=\"hearts/$card2.jpg\"><\/img>
    </div></td>";

    if ($mini)
    {
        $table =~ s/60/30/img;
        $table =~ s/86/43/img;
        $table =~ s/-1/-3/img;
    }
    return $table;
}

sub player_cell
{
    my $id = $_ [0];
    my $IP = $_ [1];
    my $this_player_id = get_player_id_from_name ($CURRENT_LOGIN_NAME, "ddd");

    my $known_to_user = 0;
    my $who_has_card_cell = "";

    if ($id == $this_player_id)
    {
        $known_to_user = 1;
    }

    my $this_players_turn = "";
    if ($id == $whos_turn)
    {
        $this_players_turn = "*";
    }

    my $name_cell = "<td bgcolor=\"ffefef\">";
    
    my $out;

    my $cards = $player_cards {$id};
    my $score = get_player_score ($id);
    my $cards_in_hand = get_images_from_cards ($cards, $id, 0, $known_to_user | $DO_DEBUG, 1, $known_to_user, 0);

    my $name_bit = "";
    if ($id == $this_player_id)
    {
        $name_cell = "<td bgcolor=\"efefff\">";
        $name_bit = "<br><font size=+1 color=darkblue>" . get_player_name ($id) . "$this_players_turn </font>";
        $known_to_user = 1;
    }
    else
    {
        $name_bit = "<br><font size= color=darkgreen>" . get_player_name ($id) . "$this_players_turn </font>";
    }

    $cards_in_hand .= "<br>(Round Score: " . get_score_from_cards ($player_won_cards {$id}) . ")"; 
    if ($trick_number < 2)
    {
        my $passed_cards = get_images_from_cards ($passed_player_cards {$id}, $id, 0, $known_to_user | $DO_DEBUG, 1, 0, 0);
        $cards_in_hand .= " Received: $passed_cards</td>";
    }

    $out .= "$name_cell$name_bit<br>$cards_in_hand\n";

    return $out;
}

sub player_cell_for_passing
{
    my $id = $_ [0];
    my $IP = $_ [1];
    my $this_player_id = get_player_id_from_name ($CURRENT_LOGIN_NAME, "ddd");

    my $direction = "LEFT";
    if ($direction_passing == $RIGHT) { $direction = "RIGHT"; }
    if ($direction_passing == $ACROSS) { $direction = "ACROSS"; }
    if ($direction_passing == $KEEP) { $direction = "KEEP"; }

    my $name_cell = "<td><font size=+1 color=darkblue>" . get_player_name ($id) . "</font> Pick three cards to pass: $direction";
    my $out;
    my $cards_in_hand = get_images_from_cards ($player_cards {$id}, $id, 1, 1, 1, 1, 1);
    $cards_in_hand .= "</td>";

    return "$name_cell$cards_in_hand\n";
}

sub get_board
{
    my $IP = $_ [0];
    my $id = get_player_id ($IP);
    if (!in_game ($IP))
    {
        return " NO BOARD TO SEE..";
    }

    if (get_game_won () ne "")
    {
        return "<br>$GAME_WON!!<br>";
    }

    my $blank_td = "<td wxxxxxxxxxidth=33% bgcolor=\"ffffff\">&nbsp;&nbsp;&nbsp;</td>";
    my $start_tr = "<tr>";
    my $end_tr = "</tr>";
    my $out;
    my $middle_td = get_middle_cell_table ();

    # Passing cards
    if ($must_pass_3_cards)
    {
        $out .= player_cell_for_passing ($id);
    }
    else
    {
        # Cross pattern
        $out .= $start_tr . $blank_td            . player_cell (0, $IP) . $blank_td            . $end_tr;
        $out .= $start_tr . player_cell (3, $IP) . $middle_td          . player_cell (1, $IP) . $end_tr;
        $out .= $start_tr . $blank_td            . player_cell (2, $IP) . $blank_td            . $end_tr;
        $out .= "</table>";
        $out .= get_trick_table (0);
        $out .= "<br>Trick $trick_number, led by " . get_player_name ($current_trick_led_by). "\n";
        if ($trick_number >= 1)
        {
            $out .= "<br>$last_trick_table<br>Last Trick Led by: " . get_player_name ($last_trick_led_by);
        }
    }

    $out =~ s/<\/tr><\/tr>/<\/tr>/img;
    return $out;
}

sub get_faceup_image
{
    my $id = $_ [0];
}

sub get_scores
{
    my $x;
    my $ss = "<font size=-2>";
    for ($x = 0; $x < 4; $x++)
    {
        $ss .= get_player_name ($x) . "(Score = " . get_player_score ($x) . ")&nbsp;";
    }
    $ss .= "</font>";
}

sub print_game_state
{
    my $IP = $_ [0];
    if (in_game ($IP) == 0)
    {
        return "";
    }

    my $ss = get_scores ();
    my $out = "You are in the $GAME game! (Info: $ss)<br>";

    if (get_game_won () ne "")
    {
        $out .= get_game_won ();
        return "SOMEONE WON!";
    }

    $out .= "<style>table.blueTable { border: 1px solid #1C6EA4; background-color: #ABE6EE; wxxxxxxxxxidth: 100%; text-align: left; border-collapse: collapse; }\n table.blueTable td, table.blueTable th { wxxxxxxxxxidth:33%; border: 1px solid #AAAAAA; padding: 3px 2px; }\n table.blueTable tbody td { font-size: 13px; }\n table.blueTable tr:nth-child(even)\n { background: #D0E4F5; }\n table.blueTable tfoot td { font-size: 14px; }\n table.blueTable tfoot .links { text-align: right; }\n\n<br></style>\n";
    $out .= "<style>
.left_player   { position: relative; top: 0px;   left: 34px; }
.top_player    { position: relative; top: -10px; left: +15px; }
.right_player  { position: relative; top: 0px;   left: +0px; }
.bottom_player { position: relative; top: +10px; left: -48px; }
    </style>\n";

    $out .= "\n<table class=blueTable>\n";

    my $id = get_player_id ($IP);
    if ($id == $whos_turn)
    {
        $out .= "<b>YOUR TURN!!</b>";
        if (get_player_score ($id) > 0)
        {
            $out .= "&nbsp;&nbsp;";
        }
        $out .= "&nbsp;&nbsp;<br>";
    }

    $out .= get_board ($IP) . "<br>";
    return $out;
}

sub game_started
{
    return $num_players_in_game > -1;
}

sub get_refresh_code
{
    my $do_refresh = $_ [0];
    my $bb = $_ [1];
    my $bb2 = $_ [2];
    my $name = get_player_name ($bb);
    my $txt = "";

    if (!game_started ())
    {
        $do_refresh = 1;
    }

    $txt .= "<div id='countdown'></div>" . "\n";
    $txt .= "<script>" . "\n";

    $txt .= "var HttpClient = function() {\n";
    $txt .= "   this.get = function(aUrl, aCallback) {\n";
    $txt .= "       var anHttpRequest = new XMLHttpRequest();\n";
    $txt .= "       anHttpRequest.onreadystatechange = function() { \n";
    $txt .= "           if (anHttpRequest.readyState == 3 && anHttpRequest.status == 200)\n";
    $txt .= "               aCallback(anHttpRequest.responseText);\n";
    $txt .= "       }\n";
    $txt .= "       anHttpRequest.open( \"GET\", aUrl, true );            \n";
    $txt .= "       anHttpRequest.send( null );\n";
    $txt .= "   }\n";
    $txt .= "}\n";
    $txt .= "    var doRefresh = " . $do_refresh . ";\n";
    $txt .= "    var numseconds = 2;" . "\n";
    $txt .= "    function countdownTimer() {" . "\n";
    $txt .= "        if (numseconds > 0)" . "\n";
    $txt .= "        {" . "\n";
    $txt .= "            if (doRefresh)" . "\n";
    $txt .= "            {" . "\n";
    $txt .= "                numseconds --;" . "\n";
    $txt .= "            }" . "\n";
    $txt .= "        }" . "\n";
    $txt .= "        else" . "\n";
    $txt .= "        {" . "\n";
    $txt .= "            var client = new HttpClient();\n";
    $txt .= "            numseconds = 2;\n";
    $txt .= "            client.get('/$GAME_URL/needs_refresh', function(response) {\n";
    $txt .= "                    var str = response;\n";
    $txt .= "                    var match = str.match(/.*NEEDS_REFRESH.*/i);\n";
    $txt .= "                    numseconds = 2;\n";
    $txt .= "                    if (match != null && match.length > 0) {";
    $txt .= "                        location.reload();" . "\n\n";
    $txt .= "                    }";
    #$txt .= "                    document.getElementById('countdown').innerHTML = response;" . "\n\n";
    $txt .= "            });\n";
    $txt .= "        }" . "\n";
    $txt .= "        document.getElementById('countdown').innerHTML = '<font color=white>Refreshing page in:' + numseconds + '</font>';" . "\n";
    $txt .= "    }" . "\n";
    $txt .= "    countdownTimer();" . "\n";
    $txt .= "    setInterval(countdownTimer, 1000);" . "\n";
    $txt .= "    function setCookie(cname, cvalue, exdays) {\n";
    $txt .= "      const d = new Date();\n";
    $txt .= "      d.setTime(d.getTime() + (exdays * 24 * 60 * 60 * 1000));\n";
    $txt .= "      let expires = \"expires=\"+d.toUTCString();\n";
    $txt .= "      document.cookie = cname + \"=\" + cvalue + \";\" + expires + \";path=\/\";\n";
    $txt .= "    }\n";
    $txt .= "    setCookie(\"newloginname\", \"" . $CURRENT_LOGIN_NAME . "\", 0.05);\n";
    $txt .= "    function getCookie(cname) {\n";
    $txt .= "      let name = cname + \"=\";\n";
    $txt .= "      let decodedCookie = decodeURIComponent(document.cookie);\n";
    $txt .= "      let ca = decodedCookie.split(';');\n";
    $txt .= "      for(let i = 0; i < ca.length; i++) {\n";
    $txt .= "        let c = ca[i];\n";
    $txt .= "        while (c.charAt(0) == ' ') {\n";
    $txt .= "          c = c.substring(1);\n";
    $txt .= "        }\n";
    $txt .= "        if (c.indexOf(name) == 0) {\n";
    $txt .= "          return c.substring(name.length, c.length);\n";
    $txt .= "        }\n";
    $txt .= "      }\n";
    $txt .= "      return \"\";\n";
    $txt .= "    }\n";
    $txt .= "<\/script>" . "\n";
    $txt .= "<a href=\"\/$GAME_URL\/force_refresh\">Force Refresh<\/a><br>";
    return $txt;
}

sub get_game_state
{
    my $IP = $_ [0];

    my $out .= "<h1>Welcome to \"$GAME!\", <font color=" . $rand_colors {$CURRENT_LOGIN_NAME} . ">$CURRENT_LOGIN_NAME</font> </h1><br><br>&nbsp;There are $num_players_in_lobby players logged in.<br>";
    $out .= "Player names are:<br>" . join ("<br>", @player_names); # . "<br>IPs:<br>" . join ("<br>", @player_ips);
    $out .= "<br><br><font size=-2>You can boot players here whilst the game is not started:</font><br>";
    print ("Get game state\n");

    my $n;
    my %pns;
    foreach $n (sort @player_names)
    {
        $out .= "&nbsp;&nbsp;&nbsp;<font size=-2><a href=\"boot_person?name=$n\">Boot $n</a></font><br>";
        $pns {$n} = 1;
    }

    if (scalar keys (%BANNED_NAMES) > 0)
    {
        $out .= "<br><font size=-2>These players are already banned (use a new user name if you're affected :) ) |" . join (",", sort keys (%BANNED_NAMES)) . "|</font><br>";
    }

    my $id = get_player_id_from_name ($CURRENT_LOGIN_NAME, "fff");
    if ($id == -1)
    {
        #$out .= "Looked for $IP and didn't find it..<br>";
        $out .= "<font color=green size=+2>Join with your user name here:</font><br><br>";
        $out .= "
            <form action=\"/$GAME_URL/new_user\">
            <label for=\"fname\">User name:</label><br>
            <input type=\"text\" id=\"fname\" name=\"fname\" value=\"xyz\"><br>
            <input type=\"submit\" value=\"Join Now!!\">
            </form>";
        #$out .= "<a href=\"quick_start\">Begin Quick Debug<\/a><br>";
        my $next_num = $num_players_in_lobby +1;
        while (defined ($pns {"User$next_num"}) || defined ($BANNED_NAMES {"User$next_num"}))
        {
            $next_num++;
        }
        $out =~ s/xyz/User$next_num/img;
        $out .= "<a href=\"new_game\">Start new game!<\/a>&nbsp;&nbsp;<a href=\"new_game_debug\">Start new game (with debug)!<\/a>";
        $out .= "<br>Reset the game here: <a href=\"reset_game\">Reset<\/a>&nbsp;<a href=\"toggle_debug\">Toggle debug</a><br><br><br>";
        $out .= "</font>";
    }
    else
    {
        $out .= "<font size=+1 color=red>Welcome to \"$GAME!\", " . get_player_name ($id) . "<br><\/font>";
        if (in_game ($IP))
        {
            $out = print_game_state ($IP);

            if (get_game_over ())
            {
                $out .= "<br>$GAME_WON!!<br>";
            }
            elsif (get_round_over ())
            {
                $out .= "<br>Player " . get_player_name (0) . " won<br>"; $out .= get_images_from_cards ($player_won_cards {0}, $id, 1, 1, 1, 0, 0);
                $out .= "<br>Player " . get_player_name (1) . " won<br>"; $out .= get_images_from_cards ($player_won_cards {1}, $id, 1, 1, 1, 0, 0);
                $out .= "<br>Player " . get_player_name (2) . " won<br>"; $out .= get_images_from_cards ($player_won_cards {2}, $id, 1, 1, 1, 0, 0);
                $out .= "<br>Player " . get_player_name (3) . " won<br>"; $out .= get_images_from_cards ($player_won_cards {3}, $id, 1, 1, 1, 0, 0);
            }
            $out .= "<br>Reset the game here: <a href=\"reset_game\">Reset<\/a>&nbsp;<a href=\"toggle_debug\">Toggle debug</a><br><br><br>";
        }
        elsif (!game_started ())
        {
            if ($num_players_in_lobby >= 2)
            {
                $out .= "<a href=\"new_game\">Start new game!<\/a>&nbsp;&nbsp;<a href=\"new_game_debug\">Start new game (with debug)!<\/a>";
                $out .= "</font>";
            }
            else
            {
                $out .= "<a href=\"new_game\">Start new game!<\/a>&nbsp;&nbsp;<a href=\"new_game_debug\">Start new game (with debug)!<\/a>";
                $out .= "</font>";
            }
        }
        else
        {
            $out .= "Game has already started!<br><br>";
            $out .= "*Reset and Restart* the game here: <a href=\"reset_game\">Reset<\/a><br><br><br>";
            $out .= print_game_state ($IP);
        }
    }

    my $do_refresh = 1;
    if ($id == $whos_turn)
    {
        $do_refresh = 0;
    }
    $out .= get_refresh_code ($do_refresh, $id, $whos_turn);
    print ("DONE Get game state\n");
    return $out;
}

sub chosen_card
{
    my $id = $_ [0];
    my $card = $_ [1];
    my $IP = $_ [2];

    if ($id != $whos_turn)
    {
        add_to_debug ("CHOSEN CARD: failed as $id is not $whos_turn.  Tried $card<<\n");
        return ("");
    }

    if (!player_has_card ($id, $card))
    {
        add_to_debug ("CHOSEN CARD: failed as $id is not $whos_turn.  Doesn't have $card<<\n");
        return ("");
    }

    add_to_debug ("CHOSEN CARD: success as $id is $whos_turn.  Does have $card<<\n");
    return play_card ($id, $card);
}

sub get_score_from_cards
{
    my $cards = $_ [0];

    $cards =~ s/^,*//;
    my $score = 0;
    my $cv = 0;

    while ($cards =~ s/^(\w+),//)
    {
        my $c = $1;
        $cv = 0;
        if ($c =~ m/$HEARTS/) { $cv = 1; }
        if ($c eq "QS") { $cv = 13; }
        $score += $cv;
    }
    return $score;
}

sub get_can_win_rest
{
    # Only valid if leading.
    my $can_win_rest = 1;

    # Does this bot know if any players have any cards in suits
    # Does this bot know if any players have run out of cards in any suit
    # Does this bot know if any players have run out of cards in any suit
    # What cards have I seen
    return 0;
}

sub set_scores
{
    my $p0_score = $_ [0];
    my $p1_score = $_ [1];
    my $p2_score = $_ [2];
    my $p3_score = $_ [3];

    my $someone_won = $p0_score >= $LOSING_POINTS || $p1_score >= $LOSING_POINTS || $p2_score >= $LOSING_POINTS || $p3_score >= $LOSING_POINTS;

    $player_score {0} = $p0_score;
    $player_score {1} = $p1_score;
    $player_score {2} = $p2_score;
    $player_score {3} = $p3_score;

    my $total = $p0_score + $p1_score + $p2_score + $p3_score;
    my $total_round_points = $total % $ROUND_POINTS;
    add_to_debug ("SCORES: $p0_score $p1_score $p2_score $p3_score (total = $total ($total_round_points)) - someone has won? $someone_won");

    if ($someone_won)
    {
        my $winner = 0;
        my $lowest_score = $p0_score;
        if ($p1_score < $lowest_score) { $winner = 1; $lowest_score = $p1_score; }
        if ($p2_score < $lowest_score) { $winner = 2; $lowest_score = $p2_score; }
        if ($p3_score < $lowest_score) { $winner = 3; $lowest_score = $p3_score; }

        game_won (get_player_name ($winner) . " was the winner!<br><br>Final scores were: " . get_scores ());
    }
}

sub is_bad_score
{
    my $p0_score = $_ [0];
    my $p1_score = $_ [1];
    my $p2_score = $_ [2];
    my $p3_score = $_ [3];
    my $player_to_look_at = $_ [4];

    my $someone_won = $p0_score >= $LOSING_POINTS || $p1_score >= $LOSING_POINTS || $p2_score >= $LOSING_POINTS || $p3_score >= $LOSING_POINTS;

    my $winner = 0;
    my $lowest_score = $p0_score;
    if ($p1_score < $lowest_score) { $winner = 1; $lowest_score = $p1_score; }
    if ($p2_score < $lowest_score) { $winner = 2; $lowest_score = $p2_score; }
    if ($p3_score < $lowest_score) { $winner = 3; $lowest_score = $p3_score; }

    my $highest_score = $p0_score;
    my $loser = 0;
    if ($p1_score > $highest_score) { $loser = 1; $highest_score = $p1_score; }
    if ($p2_score > $highest_score) { $loser = 2; $highest_score = $p2_score; }
    if ($p3_score > $highest_score) { $loser = 3; $highest_score = $p3_score; }

    if ($someone_won)
    {
        if ($winner != $player_to_look_at)
        {
            return 1;
        }
    }
    else
    {
        if ($loser == $player_to_look_at)
        {
            return 1;
        }
    }
    return 0;
}

sub add_scores
{
    my $p0_score = get_score_from_cards ($player_won_cards {0});
    my $p1_score = get_score_from_cards ($player_won_cards {1});
    my $p2_score = get_score_from_cards ($player_won_cards {2});
    my $p3_score = get_score_from_cards ($player_won_cards {3});

    add_to_debug ("SCORES: $p0_score $player_won_cards{0}");
    add_to_debug ("SCORES: $p1_score $player_won_cards{1}");
    add_to_debug ("SCORES: $p2_score $player_won_cards{2}");
    add_to_debug ("SCORES: $p3_score $player_won_cards{3}");

    my $shot_moon = 0;
    my $shot_moon_player = -1;
    if ($p0_score == $ROUND_POINTS) { $shot_moon = 1; $shot_moon_player = 0; }
    if ($p1_score == $ROUND_POINTS) { $shot_moon = 1; $shot_moon_player = 1; }
    if ($p2_score == $ROUND_POINTS) { $shot_moon = 1; $shot_moon_player = 2; }
    if ($p3_score == $ROUND_POINTS) { $shot_moon = 1; $shot_moon_player = 3; }

    if ($shot_moon == 0)
    {
        my $p0s = $player_score {0} + $p0_score;
        my $p1s = $player_score {1} + $p1_score;
        my $p2s = $player_score {2} + $p2_score;
        my $p3s = $player_score {3} + $p3_score;
        set_scores ($p0s, $p1s, $p2s, $p3s);
    }
    else
    {
        add_to_debug ("SHOT MOON: $shot_moon_player!");
        if (is_bot ($shot_moon_player))
        {
            my $pot_p0_score = $player_score {0} + $ROUND_POINTS;
            my $pot_p1_score = $player_score {1} + $ROUND_POINTS;
            my $pot_p2_score = $player_score {2} + $ROUND_POINTS;
            my $pot_p3_score = $player_score {3} + $ROUND_POINTS;
            if ($shot_moon_player == 0) { $pot_p0_score -= $ROUND_POINTS; }
            if ($shot_moon_player == 1) { $pot_p1_score -= $ROUND_POINTS; }
            if ($shot_moon_player == 2) { $pot_p2_score -= $ROUND_POINTS; }
            if ($shot_moon_player == 3) { $pot_p3_score -= $ROUND_POINTS; }

            if (!is_bad_score ($pot_p0_score, $pot_p1_score, $pot_p2_score, $pot_p2_score, $shot_moon_player))
            {
                set_scores ($pot_p0_score, $pot_p1_score, $pot_p2_score, $pot_p2_score);
                add_to_debug ("SHOT MOON: added $ROUND_POINTS from $shot_moon_player!");
            }
            else
            {
                my $pot_p0_score = $player_score {0};
                my $pot_p1_score = $player_score {1};
                my $pot_p2_score = $player_score {2};
                my $pot_p3_score = $player_score {3};
                if ($shot_moon_player == 0) { $pot_p0_score -= $ROUND_POINTS; }
                if ($shot_moon_player == 1) { $pot_p1_score -= $ROUND_POINTS; }
                if ($shot_moon_player == 2) { $pot_p2_score -= $ROUND_POINTS; }
                if ($shot_moon_player == 3) { $pot_p3_score -= $ROUND_POINTS; }

                set_scores ($pot_p0_score, $pot_p1_score, $pot_p2_score, $pot_p3_score);
                add_to_debug ("SHOT MOON: minused 26 from $shot_moon_player!");
            }
        }
        else
        {
            my $pot_p0_score = $player_score {0} + $ROUND_POINTS;
            my $pot_p1_score = $player_score {1} + $ROUND_POINTS;
            my $pot_p2_score = $player_score {2} + $ROUND_POINTS;
            my $pot_p3_score = $player_score {3} + $ROUND_POINTS;
            if ($shot_moon_player == 0) { $pot_p0_score -= $ROUND_POINTS; }
            if ($shot_moon_player == 1) { $pot_p1_score -= $ROUND_POINTS; }
            if ($shot_moon_player == 2) { $pot_p2_score -= $ROUND_POINTS; }
            if ($shot_moon_player == 3) { $pot_p3_score -= $ROUND_POINTS; }
            set_scores ($pot_p0_score, $pot_p1_score, $pot_p2_score, $pot_p3_score);
            add_to_debug ("SHOT MOON: player $shot_moon_player added 26 to others!");
        }
    }
}

sub pass_3_cards
{
    my $id = $_ [0];
    my $card1 = $_ [1];
    my $card2 = $_ [2];
    my $card3 = $_ [3];

    if ($players_who_must_pass_cards {$id} == 0)
    {
        add_to_debug ("TRIED TO PASSING $id $card1, $card2, $card3 : direction=$direction_passing");
        return;
    }

    my $passing_to = $id;
    if ($direction_passing == $LEFT)
    {
        if ($id == 0) { $passing_to = 1; }
        if ($id == 1) { $passing_to = 2; }
        if ($id == 2) { $passing_to = 3; }
        if ($id == 3) { $passing_to = 0; }
    }
    if ($direction_passing == $RIGHT)
    {
        if ($id == 0) { $passing_to = 3; }
        if ($id == 1) { $passing_to = 0; }
        if ($id == 2) { $passing_to = 1; }
        if ($id == 3) { $passing_to = 2; }
    }
    if ($direction_passing == $ACROSS)
    {
        if ($id == 0) { $passing_to = 2; }
        if ($id == 1) { $passing_to = 3; }
        if ($id == 2) { $passing_to = 0; }
        if ($id == 3) { $passing_to = 1; }
    }

    $players_who_must_pass_cards {$id} = 0;
    add_to_debug (" Not finished passing - $passing_to will get ,$card1,$card2,$card3,  >> $id gave away ,$card1,$card2,$card3,");
    $passed_player_cards {$passing_to} = ",$card1,$card2,$card3,";
    $passed_from_player_cards {$id} = ",$card1,$card2,$card3,";

    if ($players_who_must_pass_cards {0} == 0
        && $players_who_must_pass_cards {1} == 0
        && $players_who_must_pass_cards {2} == 0
        && $players_who_must_pass_cards {3} == 0)
    {
        $must_pass_3_cards = 0;
        $must_lead_2c = 1;
        $trick_number = 0;

        # Actually pass all cards around..
        my $i;
        for ($i = 0; $i < 4; $i++)
        {
            my $passed_from_cards = $passed_from_player_cards {$i};
            my $passed_cards = $passed_player_cards {$i};
            my $my_cards = $player_cards {$i};
            add_to_debug (" before passing $i >> $my_cards (receiving=$passed_cards, given away=$passed_from_cards)");

            $passed_from_cards =~ s/^,//;
            while ($passed_from_cards =~ s/^(\w+?),//)
            {
                my $c = $1;
                $my_cards =~ s/$c,//ig;
            }
            $my_cards .= $passed_cards;
            $my_cards =~ s/,,/,/g;

            add_to_debug (" after passing $i >> $my_cards");
            $player_cards {$i} = $my_cards;
        }

        set_whos_turn (1, -1);
        handle_turn ();
    }
}

# Main
{
    my $paddr;
    my $proto = "TCP";
    my $iaddr;
    my $client_port;
    my $client_addr;
    my $pid;
    my $SERVER;
    my $port = 2718;
    my $trusted_client;
    my $data_from_client;
    $|=1;

    print ("example: $PATH\\$GAME_URL.pl 1 1 0 1 1 \"each opponent\" \".*\" 0 5\n\n");

    socket (SERVER, PF_INET, SOCK_STREAM, $proto) or die "Failed to create a socket: $!";
    setsockopt (SERVER, SOL_SOCKET, SO_REUSEADDR, 1) or die "setsocketopt: $!";

    # bind to a port, then listen
    bind (SERVER, sockaddr_in ($port, INADDR_ANY)) or die "Can't bind to port $port! \n";
    listen (SERVER, 10) or die "listen: $!";
    print ("Listening on port: $port\n");
    my $count;
    my $not_seen_full = 1;

    print ("========================\n");

    while ($paddr = accept (CLIENT, SERVER))
    {
        print ("\n\nNEW============================================================\n");
        print ("- - - - - - -\n");

        ($client_port, $iaddr) = sockaddr_in ($paddr);
        $client_addr = inet_ntoa ($iaddr);
        $client_addr =~ s/\W//img;

        my $lat;
        my $long;
        my $txt = read_from_socket (\*CLIENT);
        print $txt;

        $CURRENT_LOGIN_NAME = "";
        if ($txt =~ m/^Cookie.*?newloginname=(\w\w\w[\w_]+).*?(;|$)/im)
        {
            $CURRENT_LOGIN_NAME = $1;
        }

        if ($txt =~ m/fname=(\w\w\w[\w_]+) HTTP/im)
        {
            $CURRENT_LOGIN_NAME = $1;
        }

        if (defined $BANNED_NAMES {$CURRENT_LOGIN_NAME})
        {
            add_to_debug ("BANNING $CURRENT_LOGIN_NAME atm");
            $CURRENT_LOGIN_NAME = "";
        }

        $CURRENT_LOGIN_NAME =~ s/^(...........).*/$1/img;

        if ($CURRENT_LOGIN_NAME ne "" && get_player_id_from_name ($CURRENT_LOGIN_NAME, "ggg") == -1)
        {
            add_new_user ("name=$CURRENT_LOGIN_NAME", $client_addr);
            write_to_socket (\*CLIENT, get_game_state($client_addr), "", "noredirect");
            next;
        }

        if ($txt =~ m/.*need.*refresh.*/m)
        {
            if (get_needs_refresh ($client_addr))
            {
                write_to_socket (\*CLIENT, "NEEDS_REFRESH", "", "noredirect");
                next;
            }
            write_to_socket (\*CLIENT, "FINE_FOR_NOW", "", "noredirect");
            next;
        }

        if ($txt =~ m/.*force.*refresh.*/m)
        {
            force_needs_refresh ();
        }

        if ($txt =~ m/.*favico.*/m)
        {
            my $size = -s ("d:/perl_programs/$GAME_URL/_hearts.jpg");
            print (">>>>> size = $size\n");
            my $h = "HTTP/1.1 200 OK\nLast-Modified: 20150202020202\nConnection: close\nContent-Type: image/jpeg\nContent-Length: $size\n\n";
            print "===============\n", $h, "\n^^^^^^^^^^^^^^^^^^^\n";
            syswrite (\*CLIENT, $h);
            copy "d:/perl_programs/$GAME_URL/_hearts.jpg", \*CLIENT;
            next;
        }

        if ($txt =~ m/GET[^\n]*?new_user/mi)
        {
            add_to_debug ("REAL INSTANCE OF calling New_User: $txt with $client_addr<br>");
            my $ret = add_new_user ($txt, $client_addr);
            if ($ret =~ m/^Welcome/)
            {
                write_to_socket (\*CLIENT, "Welcome!!<a href=\"\/\">Lobby or Game window<\/a>", "", "noredirect");
                next;
            }
            write_to_socket (\*CLIENT, "Welcome!!<a href=\"\/\">Lobby or Game window<\/a>", "", "noredirect");
            next;
        }

        if ($txt =~ m/.*chosen_card_([0-3])\.([^ ]+).*/mi)
        {
            my $player_num = $1;
            my $card = $2;
            chosen_card ($player_num, $card, $client_addr);
            my $page = get_game_state($client_addr);
            write_to_socket (\*CLIENT, "$page", "", "redirect");
            print ("\n\n\n\n\n\n$page\n\n");
            next;
        }

        # HTTP
        if ($txt =~ m/.*boot.*person.*name=(\w\w\w[\w_]+)/mi)
        {
            my $person_to_boot = $1;
            boot_person ($person_to_boot);
            write_to_socket (\*CLIENT, "$person_to_boot was booted <a href=\"\/DONEDASBOOT\">Lobby or Game window<\/a>", "", "redirect");
            next;
        }

        # HTTP
        if ($txt =~ m/GET.*new_game_debug.*/m)
        {
            $DO_DEBUG = 1;
            new_game ();
            add_to_debug ("Starting new game with debug on ($hearts_broken = hearts is initially this..)");
            write_to_socket (\*CLIENT, get_game_state($client_addr), "", "redirect");
            next;
        }

        if ($txt =~ m/GET.*new_game.*/m)
        {
            $DO_DEBUG = 0;
            new_game ();
            add_to_debug ("Starting new game with debug off ($hearts_broken = hearts is initially this..)");
            write_to_socket (\*CLIENT, get_game_state($client_addr), "", "redirect");
            next;
        }

        # Passing 3 cards!
        if ($must_pass_3_cards && $txt =~ m/GET.*pass_3_cards.*player_num=([0-3]).*card=(\w+?).card=(\w+?).card=(\w+)/m)
        {
            my $id = $1;
            my $card1 = $2;
            my $card2 = $3;
            my $card3 = $4;
            $txt =~ m/GET.*(pass_3_cards.*player_num=[0-3].*card=\w+?.card=\w+?.card=\w+)/m;
            add_to_debug ("INCOMING TEXT was: $1 (make out of it $card1:$card2:$card3)\n");

            if (player_has_card ($id, $card1) && player_has_card ($id, $card2) && player_has_card ($id, $card3))
            {
                pass_3_cards ($id, $card1, $card2, $card3);
                handle_bots_passing_cards ();
                write_to_socket (\*CLIENT, get_game_state($client_addr), "", "redirect");
                next;
            }
        }

        if ($txt =~ m/.*reset.*game.*/m)
        {
            write_to_socket (\*CLIENT, reset_game (), "", "redirect");
            next;
        }

        if ($txt =~ m/.*toggle.*debug.*/m)
        {
            $DO_DEBUG = !$DO_DEBUG;
            write_to_socket (\*CLIENT, get_game_state($client_addr), "", "redirect");
            next;
        }

        $txt =~ s/$GAME_URL.*$GAME_URL/$GAME_URL/img;

        print ("2- - - - - - -\n");
        write_to_socket (\*CLIENT, get_game_state($client_addr), "", "noredirect");

        print ("============================================================\n");
    }

    #### Information about player_knowledge..
    # $CLUBS
    # $CLUBS highest_card
    # $DIAMONDS
    # $DIAMONDS highest_card
    # $HEARTS
    # $HEARTS highest_card
    # $SPADES
    # $SPADES highest_card
    # card_winning_trick
    # $pn - $suit
    # $pn - $suit << count
    # $pn - can_shoot_moon
    # $pn - stop_shooting_moon
    # $pn - stop_someone_else_shooting_moon
    # $pn - want_to_shoot_moon
    # current_score - $pn
    # hearts_broken
    # multi_players_have_won_points
    # no $current_trick_suit $wt
    # played_cards
    # players_who_have_won_points
    # player_winning_trick
    # qs_played
    # someone_shooting_moon
    # trick_has_points
    # PK: suit
}