Automatisation script, for the frenchberet marathon

frenchberet.pl

use strict;
use warnings;
use Xchat qw(:all);

my @words = ("!runner", "!dons", "!planning", "!now", "!screen", "!war");
my $i = 0;

register('FrenchBerets', '1.0', 'Automatisation des commandes du frenchberet', \&unload);
prnt("\cC08FrenchBeret chargé !");

hook_timer('300000', \&automatisation);

sub automatisation {
	set_context('#djkanjo');
	command("say $words[$i]");
	$i++;
	if ($i == 6) { $i = 0; }
	return EAT_ALL;
}

#Déchargement de script
sub unload {
	prnt("\cC08FrenchBeret déchargé.");
}