#!/usr/bin/perl
#
# Announces the time
#
# Last updated by rb on Tue Dec 23 06:08:41 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, eyedrop time.",
   "$name, go do your eyedrops.",
   "$name, it's time for doing eyedrops.",
   "$name, do your eyedrops now.",
   "$name, do your eyedrops.",
   "$name, time to do eyedrops.",
   "Eyedrop time, $name.",
   "Go do your eyedrops, $name.",
   "It's time for doing eyedrops, $name.",
   "Do your eyedrops, $name.",
   "Do your eyedrops now, $name.",
   "Time for doing eyedrops, $name.",
);
my $message = $messages[rand @messages];
$message =~ s/eyedrops/lube/ if (rand > 0.9);

$Festival->say($message);

#
# End.
#