Jump to content
Sign in to follow this  
sete

Irssiscripts og perl

Recommended Posts

Hei!

 

Jeg prøver å lage et lite irssiscript til min bot som skal svare automatisk og tilfeldig på bestemte msg's. Jeg lurer på om det er noen som har en nyttig side for irssiscripts (tutorials, howto's osv i forbindelse med perl og irssi)

Share this post


Link to post

use Irssi;



sub event_privmsg {

my ($server, $data, $nick, $mask, $target) [email protected]_;

my ($target, $text) = $data =~ /^(S*)s:(.*)/;

       if ( $text =~ /^gay$/i ) {

               @svar = (1 .. 6);

               $key = int (rand($#svar));

               reply = ( "1" => nerd, "2" => "lol", "3" => "lol njub", "4" => jj, "5" => roflol, "6" => omg );

               $server->command ( "msg $target $lol{$key}" );



       }

       else {

               my ($gimmie) = $text =~ /!(.*)/;

               $server->command ( "action $target Gets $nick $gimmie 0032<%)");

       }

}

Irssi::signal_add('event privmsg', 'event_privmsg');



Jeg prøver å lage et script slik at min klient kan svare automatisk, men med tilfeldige svar. Jeg er helt fersk på Perl og jeg håper at noen av dere kan hjelpe meg litt med dette. Koden ovenfor fungerer ikke, hva er feil?

Share this post


Link to post

Fikk det til å fungere, "boten" svarer når jeg skriver gay. hva må jeg gjøre hvis den skal svare på f.eks "din gay!"?

Share this post


Link to post

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...
Sign in to follow this  

×
×
  • Create New...