Accueil > > > TRIGGER PERL XCHAT
TRIGGER PERL XCHAT
Information sur la source
Description
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 ;)
Source
- ############# 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");
- }
############# 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
Sources de la même categorie
Commentaires et avis
Discussions en rapport avec ce code source dans le forum
recuperer l'host en perl (xchat) [ par aeled ]
J'essaie de faire une commande en perl qui récupere l'host d'un user placé en parametre.en gros /host [nick] doit renvoyer un truc du style : *!*@xxx.
events pour xchat en perl [ par Jamu ]
Salut a tous Je me suis mis au perl il y a peu de temps et ce que je voudrais fair c virer les evenements textuel d'origine de mon xchat pour me coder
add_handler - Script Perl pour Xchat [ par advi ]
Bonjour à tous,j'ai créé un script Perl pour Xchat. Il fonctionne parfaitement, j'ai juste un probleme.Je suis capable de déclencher mon script sur de
Aide pour petit script pour IRC (débutant + python) [ par SteFoy ]
Bonjour! J'explique la situation en premier lieu. Il y a un jeu qui s'appelle "!bombe". C'est une bombe qui s'allume en tappant "!allume" et on peut
Perl [ par uaip ]
Bonjour, depuis peu je me suis lancé dans le Perl, mais je ne trouve pas la rubrique qui lui est attribuée ici, est-ce normal ? y-en a t-il une ?merci
Xchat et clé wanadoo [ par LiLitheuh ]
Bonsoir,J'utilise depuis longtemps l'add-on de Vestax (ca doit s'écrire comme ca...) "wanakey", qui génere la clé orange tout seul comme un grand sans
Xchat [ par elwi ]
bonjour,voila je decouvre le monde de linux depuis une semainej'ai donc réussi a installer xchat, j'ai trouvé comment mettre des alias, remotes etc ..
pb de if() pour bot Perl [ par uaip ]
Bonjour à tous, ma question est très simple : quelqu'un sait-il comment coder en Perl l'hypothèse de la présence d'un user sur un salon IRC ? C'est en
eeexubuntu, xchat 1 et couleurs permanentes [ par Orkydee51 ]
bonjour suis sur eee xubuntu...on se moque pas de mon ignorance...=), j'aurais aimé savoir si quel'qun puvait me donner le tuto integral pour pouvoir
[Xchat] Créé un compteur de ligne par pseudo [ par Mattis ]
Bonjour, j'aimerais un script pour Xchat qui permet de compter le nombre de lignes qu'un pseudo a dit.Du genre je tappe !cpt_mattiset ça me donne le n
|
Derniers Blogs
PB LORS DE L'INSTALLATION SHAREPOINT 2010.PB LORS DE L'INSTALLATION SHAREPOINT 2010. par Patrick Guimonet
Lors de l'installation de SharePoint 2010, j'ai rencontré un problème de plantage à l'étape 5 du configuration Wizard. Ca se termine sur cet écran : Et en analysant le fichier de journalisation, on remarque vers la fin des 15000 et quelques lign...
Cliquez pour lire la suite de l'article par Patrick Guimonet [WF4] AJOUTER DES CONTRAINTES à UNE ACTIVITé (2/2)[WF4] AJOUTER DES CONTRAINTES à UNE ACTIVITé (2/2) par JeremyJeanson
Après mon précédent article qui attaque les contraintes par la fasse Nord de l'Everest. passons à la seconde possibilité offerte par WF4 pour valider une activité : la metadata . Je vous en ai déjà toucher un ou deux mots. La metadata dans WF4 est un élém...
Cliquez pour lire la suite de l'article par JeremyJeanson [WF4] AJOUTER DES CONTRAINTES à UNE ACTIVITé (1/2)[WF4] AJOUTER DES CONTRAINTES à UNE ACTIVITé (1/2) par JeremyJeanson
De WF3 à WF4 pas mal de choses on été changées pour faciliter la vie des développeurs, mais certain points peuvent sembler obscures. comme les contraintes. Pour vous guider, je me lance dans une série de deux articles. Ils présenterons deux approches poss...
Cliquez pour lire la suite de l'article par JeremyJeanson [ASP.NET] NE PAS SE FAIRE AVOIR PAR IHTTPMODULE ET SA MéTHODE INIT()[ASP.NET] NE PAS SE FAIRE AVOIR PAR IHTTPMODULE ET SA MéTHODE INIT() par tja
Beaucoup de développeurs pensent que lorsqu'on créé et enregistre un IHttpModule, il n'en existe qu'une seule instance et la méthode Init() sera appelée qu'une fois.
C'est faux
Cela peut vraiment créer des bugs subtils dont en ne se rend pas compte ...
Cliquez pour lire la suite de l'article par tja [MSTD10] SHAREPOINT 2010 ET TEAM FOUNDATION SERVER[MSTD10] SHAREPOINT 2010 ET TEAM FOUNDATION SERVER par phil
Un post rapide pour vous informer de la disponibilité de la vidéo de ma présentation sur SharePoint 2010 & Team Foundation Server. http://www.microsoft.com/france/vision/mstechdays10/Webcast.aspx?EID=20215d48-02e3-4d43-8c36-e53505c3b316 Dans la ...
Cliquez pour lire la suite de l'article par phil
Forum
RE : SOUCIRE : SOUCI par WorldDMT
Cliquez pour lire la suite par WorldDMT RE : SOUCIRE : SOUCI par IrX
Cliquez pour lire la suite par IrX RE : SOUCIRE : SOUCI par IrX
Cliquez pour lire la suite par IrX RE : SOUCIRE : SOUCI par WorldDMT
Cliquez pour lire la suite par WorldDMT RE : SOUCIRE : SOUCI par IrX
Cliquez pour lire la suite par IrX
Logiciels
Xilisoft Convertisseur Vidéo Ultimate (5.1.39.0305)XILISOFT CONVERTISSEUR VIDéO ULTIMATE (5.1.39.0305)Xilisoft Convertisseur Vidéo Ultimate est un outil puissant de conversion vidéo, facile à utilise... Cliquez pour télécharger Xilisoft Convertisseur Vidéo Ultimate Xilisoft DVD Ripper Ultimate (5.0.64.0304)XILISOFT DVD RIPPER ULTIMATE (5.0.64.0304)Xilisoft DVD Ripper Ultimate est un logiciel excellent pour copier et convertir DVD vers presque ... Cliquez pour télécharger Xilisoft DVD Ripper Ultimate Rigs of Rods (63.3)RIGS OF RODS (63.3)c'est un jeu de multi-simulation camions,autobus voitures, avions, bateaux, hélicoptère avec défo... Cliquez pour télécharger Rigs of Rods Konvertor (4.00)KONVERTOR (4.00)Le logiciel est un gestionnaire multimedia affichant, jouant et convertissant plus de 2000 format... Cliquez pour télécharger Konvertor
|