Tfe

Old stuff/Perl/svn/scrabble/trunk/tests_dicco.pl

#!/usr/bin/perl 


use strict;
use lib 'api';
use Game;
use Data::Dumper;

my $dicco = './api/dico/Complet.txt';
print "tentative d'ouverture du fichier $dicco\n";
load_dictionnary($dicco);
my $verif = 0;
print "saisir un mot � rechercher : ";
chomp(my $try = <STDIN>);
 $verif = check_word($try);
print( ($verif == 1) ? "le mot $try existe\n" : "le mot $try n'existe pas \n");
print "choisir sa langue : "; 
chomp (my $try2 = <STDIN>);
print set_lang($try2),"\n"; 
print "saisir un message : ";
chomp(my $try3 = <STDIN>);

print send_message($try3),"\n";
print "saisir le mot � poser : ";
chomp (my $try4 = <STDIN>); 

print "le nombre de points pour le mot $try4 est de : ",  calculate_points($try4,"blabla"), "\n";
plateau_generate();

display_plateau();