Script TCL de perroquet

Ce script vous fera repeter tout ce que dira la cible que vous avez choisi.

Pour choisir une cible, tapez : /prq pseudo (attention de ne pas mettre un espace apres le pseudo ou ca ne fonctionnera pas)
Pour arreter le perroquet, definissez un pseudo qui n'existe pas (ex : /prq #).

Sauvez le avec ".tcl" comme extension.

set cible "#"
global cible
alias prq {
global cible
set cible $_rest
print "cible : $cible"
complete EAT_XCHAT
}
on PRIVMSG perroquet {
global cible
splitsrc
if { $cible == "$_nick" } {
/say $_rest
}
complete
}