Soyez le premier à donner votre avis sur cette source.
Snippet vu 7 989 fois - Téléchargée 16 fois
############# 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"); }
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
"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.