پرش به

  • تبلیغات تبلیغات تبلیغات تبلیغات تبلیغات تبلیغات
    تصویر

    • لطفا وارد حساب کاربری خود شوید تا بتوانید پاسخ دهید
    بدون پاسخ

    #1

    REX
    #!/usr/bin/perl##ircbot $Host, PeerPort => $Port, Proto => 'tcp', ) || die "No connection $!n";print $sock "NICK $nickrn";print $sock "USER $emailrn";while ($input = ){ if ($input =~ /004/){ last; } elsif ($input =~ /433/){ #nick already taken, auto switch to an alternate randomly from list $a = int(rand($#alternate)); $newnick = $alternate[$a]; print $sock "NICK $newnickrn"; }} print $sock "JOIN $channelrn"; while ($input = ){ chop $input; if ($input =~/^PING(.*)$/i){ print $sock "PONG $1rn"; print $sock "PRIVMSG $channel :irc bot coded in perl -> http://www.sevenz.netrn"; } elsif ($input =~/!start(.*)/){ for ($i = 0; $i < 20; ++$i) { $r = int(rand($#resp)); $message = $resp[$r]; print $sock "PRIVMSG $channel :$messagern"; sleep(10) } } elsif ($input =~/!time(.*)/){ $time = time(); print $sock "PRIVMSG $channel :local time/date: $timern"; } else{ #@tmp = split(/:/, $input); print $input #$tmp[1]} }
    • C0d3!Nj3ct!0N, mr.coxer و M3hran از این پست تشکر شده است

     



     





    0 کاربر در حال خواندن این موضوع است

    0 کاربر، 0 مهمان و 0 عضو مخفی