DarkMindZ Codebase

Simple IRC Bot.

#!/usr/bin/perl

# Simple IRC Bot.

# Coded by: Saime.

# Options: !version , !killmaself , !op , !owner

use strict;

use IO::Socket;

use Socket; 

my $server = "irc.nitrousirc.net";

my $port= '6667';

my $chanel = "#perl";

my $nick = "King`Of`Noobs";

my $identify = "ohi";

my $name = "Hithere";

my $saime = "Saime";

my $socket = new IO::Socket::INET(PeerAddr => $server, PeerPort => $port, Proto => "tcp") or die "Get a life ?";

print $socket "NICK $nick>br /<";

print $socket "USER $identify 8 * :$name>br /<";

print $socket "JOIN $chanel>br /<"; 

while (my $body = <$socket>) { 

chop $body; 

if ($body =~ /^PING(.*)$/i) { print $socket "PONG $1>br /<"; } 

if ($body =~ /^.*!version(.*)$/i) { print $socket ("PRIVMSG $chanel Saime's BOT V1.2!>br /<"); }

if ($body =~ /^.*!killmaself(.*)$/i) { print $socket ("QUIT>br /<"); }

if ($body =~ /^.*!op(.*)$/i) { print $socket ("MODE $chanel op $saime>br /<"); }

if ($body =~ /^.*!owner(.*)$/i) { print $socket ("PRIVMSG $chanel Owner: Saime & illuz1oN>br /<"); }

}