#!/usr/bin/perl
#
# Announces time to relax
#
# Last updated by rb on Tue Dec 23 06:13:57 EST 2003
#

use Festival::Client;
#use strict;

#
# User Config
#

my @user_names = (
   "Hey you",
   "Ms Buchanan",
   "Ricky Buchanan",
   "Ricky",
   "Master",
   "Boss",
   "Captain",
   "Soldier",
   "Kid",
);


#
# End user config
#

my $Festival = Festival::Client->new("localhost");
srand;
my $name = $user_names[rand @user_names];
my @messages = (
   "$name, relaxation time.",
   "$name, relaxation time now.",
   "$name, go take a relaxation break.",
   "$name, it's time for a relaxation break.",
   "$name, take a relaxation break now.",
   "$name, take a relaxation break.",
   "$name, time for a relaxation break.",
   "$name, time for a relaxation break now.",
   "Relaxation time $name.",
   "Relaxation time now, $name.",
   "Go take a relaxation break, $name.",
   "It's time for a relaxation break, $name.",
   "Take a relaxation break $name.",
   "Take a relaxation break now $name.",
   "Time for a break, $name.",
);


$Festival->say($messages[rand @messages]);

#
# End.
#