#!/usr/bin/perl -w
use strict;
use warnings;
use IO::Socket;

my $ip_serveru;
my $nick;

print "Zadej IP adresu serveru: ";
chomp($ip_serveru = <STDIN>);

print "Zadej nick: ";
chomp($nick = <STDIN>);

my $vzdaleny = IO::Socket::INET->new(
    Proto     => "tcp",
    PeerPort  => 9006,
    PeerAddr  => $ip_serveru
) or die "Nelze vytvorit socket! $!";

print $vzdaleny "$nick\n";
print "Jsme pripojeni! $nick\n" if <$vzdaleny>;


while(1){
    my $na_tahu = <$vzdaleny>;
    chomp $na_tahu;
    my($hod, $vysledek_hodu, $vysledek_soupere, $skore);

    if($na_tahu == 1){
        print "Mas v ruce kostku. Stiskni ENTER pro hod!";
        $hod = <STDIN>;
        print $vzdaleny "1\n";
        chomp($vysledek_hodu = <$vzdaleny>);
        print "Hodil jsi $vysledek_hodu. Cekame na soupere.\n";
        chomp($vysledek_soupere = <$vzdaleny>);
        print "Souper hodil $vysledek_soupere.\n";
        $skore = <$vzdaleny>;
        print $skore;
    }elsif($na_tahu == 2){
        print "Cekame na hod soupere.\n";
        chomp($vysledek_soupere = <$vzdaleny>);
        print "Souper hodil $vysledek_soupere.\n";
        print "Mas v ruce kostku. Stiskni ENTER pro hod!";
        $hod = <STDIN>;
        print $vzdaleny $hod;
        chomp($vysledek_hodu = <$vzdaleny>);
        print "Hodil jsi $vysledek_hodu.\n";
        $skore = <$vzdaleny>;
        print $skore;
    }elsif($na_tahu == -1){
        print "JSI VITEZ\n";
        last;
    }elsif($na_tahu == -2){
        print "JSI PORAZENY\n";
        last;
    }
}