# AMIP announcer for xChat
# Author: Daniel Skytte (http://sprekcer.net/How_to_contact_me)
# Language: Perl, xChat
# Installation: 
#	1) Install AMIP for your player (http://amip.tools-for.net/) and ask it to write output to a file (http://sprekcer.net/png-foobar.conf) 
#	2) Change "$amip_output_path" below, to point to the AMIP output file.
# 	3) Place this script in xChat's "plugins" folder (.../xchat/plugins/) 
#	4) Type "/fp" and it should work - simple right?
 
#change this to point at the AMIP output text file.
$AMIP_output_path = "c:/np.txt";

Xchat::register ("AMIP announcer", "1.0", "Announces AMIP text output");
Xchat::hook_command ("fp", "AMIP_announce");

sub AMIP_announce {
	open(AMIP_output,$AMIP_output_path);
	my @output = <AMIP_output>;
	if (!$output[0]) { 
		return warn("EOF while reading " . $AMIP_output_path);
	}
	close(AMIP_output);
	return Xchat::command("say " . $output[0]);
}