xecho Babel translator loaded.  /tout or /tin langin langout "message"
xecho                           en es fr de it ru pt

assign babel_path /usr/local/bin/babel2

alias tlang (tlangtmp)
{
  	switch ($tlangtmp)
	{
		(en) {^assign tlang $tlangtmp}
		(es) {^assign tlang $tlangtmp}
		(fr) {^assign tlang $tlangtmp}
		(de) {^assign tlang $tlangtmp}
		(it) {^assign tlang $tlangtmp}
		(ru) {^assign tlang $tlangtmp}
		(pt) {^assign tlang $tlangtmp}
		(*) {^assign -tlang}
	}
}

alias tchat (bin, bout, person, bmessage)
{
	switch ($bin)
	{
		(en) {^assign tchatting 0;^assign tperson $person;^assign tlangin $bin}
		(es) {^assign tchatting 0;^assign tperson $person;^assign tlangin $bin}
		(fr) {^assign tchatting 0;^assign tperson $person;^assign tlangin $bin}
		(de) {^assign tchatting 0;^assign tperson $person;^assign tlangin $bin}
		(it) {^assign tchatting 0;^assign tperson $person;^assign tlangin $bin}
		(ru) {^assign tchatting 0;^assign tperson $person;^assign tlangin $bin}
		(pt) {^assign tchatting 0;^assign tperson $person;^assign tlangin $bin}
		(*) {^assign tchatting 1}
	}
	switch ($bout)
	{
		(en) {^assign tchatting2 0;^assign tperson $person;^assign tlangout $bout}
		(es) {^assign tchatting2 0;^assign tperson $person;^assign tlangout $bout}
		(fr) {^assign tchatting2 0;^assign tperson $person;^assign tlangout $bout}
		(de) {^assign tchatting2 0;^assign tperson $person;^assign tlangout $bout}
		(it) {^assign tchatting2 0;^assign tperson $person;^assign tlangout $bout}
		(ru) {^assign tchatting2 0;^assign tperson $person;^assign tlangout $bout}
		(pt) {^assign tchatting2 0;^assign tperson $person;^assign tlangout $bout}
		(*) {^assign tchatting2 1}
	}
	if ([$tlangin] != [] && [$tlangout] != [] && $[tchatting] != [1] && [$tchatting2] != [1])
	{
		exec -msg $tperson $BABEL_PATH -f$tlangin -t$tlangout "$bmessage\"
		timer 1 @ tchatting = tchatting2 = []
	}
	if ([$tchatting] == [1] && [$tchatting2] == [1] && [$tlangin] != [] && [$tlangout] != [])
	{
		exec -msg $tperson $BABEL_PATH -f$tlangin -t$tlangout "$bin $bout $person $bmessage\"
		timer 1 @ tchatting = tchatting2 = []
	}
	if (([$tchatting] == [1] && [$tchatting2] == [0]) || ([$tchatting] == [0] && [$tchatting2] == [1]))
	{
		xecho -b Initial usage:  /tchat langin langout person message
		xecho -b Further use  :  /tchat message
		xecho -b Perhaps unknown language: en es fr de it ru pt
		^assign thelp 1
		timer 1 @ tlangin = tlangout = tchatting = tchatting2 = []
	}
	if ((([$tlangin] == [] && [$tlangout] != []) || ([$tlangin] != [] && [$tlangout] == []) && !thelp) || ([$tchatting] == [1] && [$tchatting2] == [1] && [$tlangin] == [] && [$tlangout] == []) )
	{
		xecho -b Initial usage:  /tchat langin langout person message
		xecho -b Further use  :  /tchat message
		xecho -b Perhaps unknown language: en es fr de it ru pt
		@ tlangin = tlangout = tchatting = tchatting2 = thelp = []
	}
}

alias tin (bin, bout, bmessage)
{
	exec $BABEL_PATH -f $bin -t $bout "$bmessage\"
}

alias tout (bin, bout, bmessage)
{
	exec -out $BABEL_PATH -f $bin -t $bout "$bmessage\"
}

alias tmsg (user, bin, bout, bmessage)
{
	exec -msg $user $BABEL_PATH -f $bin -t $bout "$bmessage\"
}
on ^window '% % Process *\\[$BABEL_PATH\\]*' {}