-[ T'Chateurs connectés sur NetMassif • IRCopérateurs • salons • et serveurs ]-

-[ NetMassif.Org: Le chat 100% Antillais/Francophone! ]-

[ T'Chateurs ]

[ Publicité ]

 

Votre nom d'hôte: 38.103.63.16

¥ Mini-projets Programmation NetMassif.Org ¥

¥ Revenir à la liste des projets ¥

¥ Projet: zac bot en Perl ¥

1. #!/usr/bin/perl
2.  
3. use Net::IRC;
4. use strict;
5. use warnings;
6.  
7. my $serveur = "irc.netmassif.org"; #Serveur de connection du bot
8. my $nick = "z4ck4b0t"; #nick du bot
9. my $chan = "#programmation"; #chan ou sera le bot
10. my $irc = new Net::IRC;
11.  
12. my $conn = $irc->newconn(
13.          'Server' => $serveur,
14.          'Port'    => 6667,
15.          'Nick'    => $nick,
16.  
17. );
18.  
19. $conn->add_handler( 376, \&join_channel );
20.  
21. $conn->add_handler( 422, \&join_channel );
22.  
23. $conn->add_handler('public', \&public);
24.  
25. $conn->add_handler('msg', \&msg);
26.  
27. $conn->add_handler('kick', \&on_kick);
28.  
29. $conn->add_handler('join', \&on_join);
30.  
31. $conn->add_handler ('part', \&on_part);
32.  
33. $conn->add_handler ('notice',\&on_notice);
34.  
35. $irc->start();
36.  
37. sub join_channel {
38.  
39.     my ($conn,$event ) = @_;
40.  
41.     my ($self,$event ) = @_;
42.      
43.     print( 'Connected !' . "\n" );
44.  
45.     $self->privmsg ('nickserv', "identify ******"); #Si votre bot est enregistré, vous pouvez l'autoidentifier lors de sa connection au serveur
46.  
47.     $conn->join( $chan );
48.  
49.     $conn->privmsg ($chan, "Salut a tous !");
50.    
51. }
52.  
53.  
54. sub public {
55.  
56.    my ($self, $event) = @_;
57.    my ($text) = ($event->args);
58.    my ($nick) = ($event->nick);
59.    my ($user) = ($event->nick);
60.    
61.  
62. if($text =~ /plop/i) { $self->privmsg($chan,"plop $nick"); }
63.  
64. if($text =~ /bot/i) { $self->privmsg ($chan, "un bot ? ou ca ?");}
65.  
66. if($text =~ /Salut/i) {$self->privmsg($chan, "Salut toi :)");}
67.  
68. if ($text=~ /sexe/i) {$self->privmsg ($chan, "haan ui le sexe ! Que c'est bon");}
69.  
70. if ($text=~ /hack msn/i) {$self->privmsg ($chan, "!k $nick Pas de bolzor ici");}
71.  
72. }
73.  
74. sub on_kick {
75.  
76.     my ($self, $event) = @_;
77.     $self->privmsg ($chan, "etttttt un kick ! un !!");
78.  
79. }
80.  
81.  
82. sub on_join {
83.  
84.     my ($self, $event) = @_;
85.     my ($nick) = ($event->nick);
86.     my ($me) = ("z4ck4b0t");
87.     if ($nick ne $me) {$self->privmsg ($chan, "Salut $nick !");}
88.    
89. }
90.  
91. sub on_part {
92.  
93.     my ($self, $event) = @_;
94.     my ($nick) = ($event->nick);
95.     $self->privmsg ($chan, "$nick est partit... le lacheur !");
96.        
97. }
98.  
99. sub on_notice {
100.  
101.     my ($self, $event) = @_;
102.     my ($nick) = ($event->nick);
103.     my ($text) = ($event->args);
104.      
105. }
106.  
107. sub msg {
108.  
109.       my ($self, $event) = @_;
110.       my ($nick) = ($event->nick);
111.       my ($text) = ($event->args);
112.  
113.  if ($text=~ /pass/i) {$self->mode ($chan, "+o $nick")}
114.  
115. }

¥ Revenir à la liste des projets ¥

NetMassif Code's Projects by #Programmation 's Staff: zac, To0X ...

»» Viens T'Chatter en direct avec nous sur #Programmation :

Pseudo :

^Haut de page^

Page Générée en : 0.4444 secondes

Copyright NetMassif © 2002-2006 - Déclaration CNIL n°833296