sete Skrevet 24. mai 2003 Rapporter Del Skrevet 24. mai 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) Siter Lenke til kommentar
BeCo Skrevet 24. mai 2003 Rapporter Del Skrevet 24. mai 2003 www.hotscripts.com Siter Lenke til kommentar
BeCo Skrevet 24. mai 2003 Rapporter Del Skrevet 24. mai 2003 http://www.hotscripts.com/Perl/Tips_and_Tutorials/ http://www.hotscripts.com/Perl/Scripts_and_Programs/ Siter Lenke til kommentar
sete Skrevet 25. mai 2003 Forfatter Rapporter Del Skrevet 25. mai 2003 Takk skal du ha! Skal sjekke ut de sidene nå Siter Lenke til kommentar
sete Skrevet 25. mai 2003 Forfatter Rapporter Del Skrevet 25. mai 2003 use Irssi; sub event_privmsg { my ($server, $data, $nick, $mask, $target) =@_; 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? Siter Lenke til kommentar
sete Skrevet 25. mai 2003 Forfatter Rapporter Del Skrevet 25. mai 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!"? Siter Lenke til kommentar
Torbjørn Skrevet 1. juni 2003 Rapporter Del Skrevet 1. juni 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... Siter Lenke til kommentar
Egil.B Skrevet 14. juli 2003 Rapporter Del Skrevet 14. juli 2003 Kunne ikke postet eksakt url til eventuelle irssi/perl-howtos du har brugt? Lyst til å lære meg litt selv :wink: Siter Lenke til kommentar
Anbefalte innlegg
Bli med i samtalen
Du kan publisere innhold nå og registrere deg senere. Hvis du har en konto, logg inn nå for å poste med kontoen din.