// define your variables
$host = "irc.freesteam.org";
$port=6667;
$nick="n3t-Bot";
$ident="n3tBot";
$chan="#n3t-t3z";
$readbuffer="";
$realname = "plsufag";
// open a socket connection to the IRC server
$fp = fsockopen($host, $port, $errno, $errstr, 30);
// print the error if there is no connection
if (!$fp) {
echo $errstr." (".$errno.")
\n";
} else {
// write data through the socket to join the channel
fwrite($fp, "NICK ".$nick."\r\n");
fwrite($fp, "USER ".$ident." ".$host." bla :".$realname."\r\n");
fwrite($fp, "JOIN :".$chan."\r\n");
// write data through the socket to print text to the channel
fwrite($fp, "PRIVMSG ".$chan." :Hello There!\r\n");
fwrite($fp, "PRIVMSG ".$chan." :I am a bot\r\n");
// loop through each line to look for ping
while (!feof($fp)) {
$line = fgets($fp, 128);
echo $line."
\n";
$line = explode(":ping ", $line);
echo $line[0]."
\n";
if ($line[1]) {
fwrite($fp, "PONG ".$line[1]."\r\n");
}
flush();
}
fclose($fp);
}
?>