Blogging with attitude! You jump I watch!

Kambing!

Takala kebosanan melanda maka lahirlah sekor kambing yang tidak dpt di kesan asal usul nyer!

#!#c:\Perl\bin\perl.exe -w
# KAMBING BOT!
use strict;
use IO::Socket;

# maklumat penting! untuk ternakan kambing anda
my $pelayan = "oblivion.ca.us.irchighway.net";
my $nama_kambing_anda = "kekambing";
my $spesis = "gurun";

# kandang kambing anda
my $kandang = "#saiyaman-malay";

# koneksi ke irc server
my $sock = new IO::Socket::INET(PeerAddr => $pelayan,
PeerPort => 6667,
Proto => 'tcp') or
die "kambing betul takleh connect plak\n";
# membuat koneksi ke pelayan
print $sock "NICK $nama_kambing_anda\r\n";
print $sock "USER $spesis 8 * :Kambing Ternakan zuan\r\n";

# baca info dari pelayan tunjuk kambing dah masuk
while (my $input = < $sock>) {
if ($input =~ /004/) {
last;
}
elsif ($input =~ /433/) {
die "kambing telah mampus di baham rimau!.";
}
}

# masuk ke kandang.
print $sock "JOIN $kandang\r\n";

while (my $input = < $sock>) {
chop $input;
if ($input =~ /^PING(.*)$/i) {
# main ping pong dengan server kalau tak nanti kene sembelih
print $sock "PONG $1\r\n";
}
else {
# taik kambing bersepah-sepah
print "$input\n";
}
}

* [kekambing] (~gurun@18251e65.2f9b2a4a.4e929bd.2fc699fcX): Kambing Ternakan zuan
* [kekambing] #saiyaman-malay
* [kekambing] irc.irchighway.net :The IRCHighWay Network
* [kekambing] End of WHOIS list.

PS: nak curik copy ke ape dengan kod di atas silakan takda sape nak marah lepas ko amik ko cakap ko punya aku curik yg ko pun aku takde nak marah nyer sebab aku pun lupa mane aku dapat coding ni har har har harun!