Trigger perl xchat
Soyez le premier à donner votre avis sur cette source.
Snippet vu 7 989 fois - Téléchargée 16 fois
Contenu du snippet
Ce Script vous permettra d'amuser vos amis avec des triggers marrants
Exemple:
<Mandrack_> !GregPast
<Mandrack> Samouz est un noob-gayzou-nolife-innutil :D
Il permet de reagir sur un evenement textuel et d'y repondre instantanement
Le code est essé simple mais j'ai assé galerer pour trouver comment traiter les données avec xchat et les events ;)
sub trigger;
cette partie permet de gerrer le status du script par simple commandes comme:
/trigger on #Activation du script
/trigger off #Desactivation du script
/trigger status #Nous donne le status du script (on ou off)
sub on_mess;
Cette seconde partie nous permet de gerrer nos evenements textuels
Exemple:
<Mandrack_> !GregPast
<Mandrack> Samouz est un noob-gayzou-nolife-innutil :D
Il permet de reagir sur un evenement textuel et d'y repondre instantanement
Le code est essé simple mais j'ai assé galerer pour trouver comment traiter les données avec xchat et les events ;)
Source / Exemple :
############# Trigger Pluggin V1.00 ###############
## definition du script
IRC::register("Trigger Script", "1.00", "", "");
IRC::print "\002\0034:: Trigger Script By MaNDraCk Loaded ::\n";
##Declaration des subs
sub trigger;
sub on_mess;
##Declaration des events et variable
IRC::add_command_handler("trigger", "trigger", "");
Xchat::hook_print('Your Message', \&on_mess);
Xchat::hook_print('Channel Message', \&on_mess);
$trigger_status = "on"; #Chargés par defaut
sub trigger {
$option = $_[0]; #traitement des données envoyée par Xchat
if ($option eq 'on') {
IRC::print "\002\0031 Activation des triggers\n";
$trigger_status = 'on';
}
elsif ($option eq 'off') {
IRC::print "\002\0031 Désactivation des triggers\n";
$trigger_status = 'off';
}
elsif ($option eq 'status') {
IRC::print "\002\0033 status du pluggin: $trigger_status";
$trigger_status = 'on';
}
}
sub on_mess {
$nick = $_[0][0]; #Traitement des donnée envoyée par Xchat
$PrivMsg = $_[0][1]; #Traitement des donnée envoyée par Xchat
if ($trigger_status eq 'on') {
if ($PrivMsg eq '!GregPast') {
IRC::command("/SAY Samouz est un noob-gayzou-nolife-innutil :D");
}
elsif ($PrivMsg eq '!Action_2') {
IRC::command("/SAY Seconde reponse");
}
}
Xchat::unhook("Your Message"); #le hook_print Nous empeche de voir le message avec cette commande ceci deviens possible
Xchat::unhook("Channel Message");
}
Conclusion :
sub trigger;
cette partie permet de gerrer le status du script par simple commandes comme:
/trigger on #Activation du script
/trigger off #Desactivation du script
/trigger status #Nous donne le status du script (on ou off)
sub on_mess;
Cette seconde partie nous permet de gerrer nos evenements textuels
ici j'ai presenté la source sous forme de triggers-says mais
IRC::command("/SAY ");
pourrait devenir
IRC::command("/GLINE ");
pour des badworlds ou autres
Je vais probablement monter un tutoriel pour xchat
M'enfin je me suis orienté vers les services ... il y a plus a explorer ;)
Je vous tiens au courant pour le tuto
Pour le perl c'est assez simple de l'apprendre avec une bonne doc mais les scripts pour xchats sont très peu nombreux (de memoire j'ai trouvé que le script away qui ne travail pas avec les variables d'xchat
Pour la doc la voici: http://www.xchat.org/docs/xchat2-perl.html
Il faut vraiment lire a fond la doc sur les hooks... Mais surtout beaucoup de test... j'ai vraiment la fleme de faire un tuto :P
comme exemple de script innutils
- auto-join on invite
- Counter-Slaps
- Counter-HL
- Anti-Ban
c'est pratique quand on veux ban un boulet qui chain le /mode +e
- Messages postés
-
1726
- Date d'inscription
- vendredi 12 septembre 2003
- Statut
- Membre
- Dernière intervention
- 13 juin 2009
1"Le code est essé simple mais j'ai assé galerer pour trouver comment traiter les données avec xchat et les events ;)"
si tu as des docs (si possible en français ou anglais..) je suis prenneur, ça fait longtemps que j'ai envie de me coller à faire des scripts perl pour mon client mais j'arrive pas à mettre la main sur des docs claires, je trouve que des trucs assez fouillis ou alors sur perl mais pas du tout lié avec xchat et du coup pour faire le rapprochement c'est pas toujours top..
ps: surtout prends pas mal ma remarque sur l'utilité de la source en elle même, c'est pas du tout agressif ni pour te casser c'était simplement pour souligner par la suite que ça permet de bien montrer les bases du perl pour xchat. ;)
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.