sete 1 Report post Posted May 24, 2003 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) Quote Share this post Link to post
BeCo 0 Report post Posted May 24, 2003 http://www.hotscripts.com/Perl/Tips_and_Tutorials/ http://www.hotscripts.com/Perl/Scripts_and_Programs/ Quote Share this post Link to post
sete 1 Report post Posted May 25, 2003 Takk skal du ha! Skal sjekke ut de sidene nå Quote Share this post Link to post
sete 1 Report post Posted May 25, 2003 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? Quote Share this post Link to post
sete 1 Report post Posted May 25, 2003 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!"? Quote Share this post Link to post
Torbjørn 49 Report post Posted June 1, 2003 ikke så lett å si.. hvis du sjekker at den får inn "gay" kan du vel bare endre den til å sjekke "din gay!" istdet... Quote Share this post Link to post
Egil.B 1 Report post Posted July 14, 2003 Kunne ikke postet eksakt url til eventuelle irssi/perl-howtos du har brugt? Lyst til å lære meg litt selv :wink: Quote Share this post Link to post