satanbot

[ronaar DF Member Posts:40 Threads:22 Reputation 0]

#!/usr/bin/perl
#Satan bot - illuz1oN
require IO::Socket::INET;
use IO::Socket;
use strict;
my $server = "irc.nitrousirc.net";
my $nick = "Satan`Tezt";
my $channel = "\#MD5";
my $msg = "Death Will Be Upon j00!\n\r";
my $identd = "HELL";
my $host = "BlackBook";
my $owner = "illuz1oN";
my $version = "[illuz1oN's Satan IRCBot V1.0 BETA]\n";
my @quits = ("Death Is Near");
my $sock = new IO::Socket::INET(PeerAddr => $server,
                                            PeerPort => 6667,
                                            Proto => 'tcp') or die "Can't connect\n";
    print $sock "NICK ".$nick."\r\n";
    print "[!]Nick Set: ".$nick."\n";
    print $sock "USER ".$identd." 8 * :".$host."\r\n";
    print "[!]Identified\n";
    print $sock "JOIN ".$channel."\r\n";
    print "[!]Joined: ".$channel."\n";
    print $sock "PRIVMSG ".$channel." :".$msg."\r\n";
 
while (my $input = <$sock>){
            print $input;
            chop $input;
        if ($input =~ /^PING(.*)$/){
            print $sock "PONG ".$owner."\r\n";
    }
        elsif($input =~ m/^\:$owner\!(.*?)\@(.*?) PRIVMSG (.*?) :!nick (.*?)$/){
            print $sock "NICK ".$4."\n\r";
    }
        elsif($input =~ m/^\:$owner\!(.*?)\@(.*?) PRIVMSG (.*?) :!kick (.*?) (.*?)
$/){
            print $sock "KICK ".$3." ".$4." ".$5."\n\r";
    }
        elsif($input =~ m/^\:$owner\!(.*?)\@(.*?) PRIVMSG (.*?) :!kickban (.*?) (.
*?)$/){
            print $sock "MODE ".$3." +b ".$4."\n\r";
            print $sock "KICK ".$3." ".$4." ".$5."\n\r";
    }
        elsif($input =~ m/^\:$owner\!(.*?)\@(.*?) PRIVMSG (.*?) :!unban (.*?)$/){
            print $sock "MODE ".$3." -b ".$4."\n\r";
    }
        elsif($input =~ m/^\:$owner\!(.*?)\@(.*?) PRIVMSG (.*?) :!voice (.*?)$/){
            print $sock "MODE ".$3." +v ".$4."\n\r";
    }
        elsif($input =~ m/^\:$owner\!(.*?)\@(.*?) PRIVMSG (.*?) :!devoice (.*?)$/)
{
            print $sock "MODE ".$3." -v ".$4."\n\r";
    }
        elsif($input =~ m/^\:$owner\!(.*?)\@(.*?) PRIVMSG (.*?) :!op (.*?)$/){
            print $sock "MODE ".$3." +o ".$4."\n\r";
    }
        elsif($input =~ m/^\:$owner\!(.*?)\@(.*?) PRIVMSG (.*?) :!deop (.*?)$/){
            print $sock "MODE ".$3." -o ".$4."\n\r";
    }
        elsif($input =~ m/^\:$owner\!(.*?)\@(.*?) PRIVMSG (.*?) :!hop (.*?)$/){
            print $sock "MODE ".$3." +h ".$4."\n\r";
    }
        elsif($input =~ m/^\:$owner\!(.*?)\@(.*?) PRIVMSG (.*?) :!dehop (.*?)$/){
            print $sock "MODE ".$3." -h ".$4."\n\r";
    }
        elsif($input =~ m/^\:$owner\!(.*?)\@(.*?) PRIVMSG (.*?) :!chanmode (.*?)$/
){
            print $sock "MODE ".$3." ".$4."\n\r";
    }
}