<?// define your variables$host = "irc.hackthissite.org";$port=6667;$nick="ShadowsShadow";$ident="ShadowsShadow";$chan="#bots";$readbuffer="";$realname = "ShadowsShadow";// open a socket connection to the IRC server$fp = fsockopen($host, $port, $erno, $errstr, 30);// print the error if ther eis no connectionif (!$fp) { echo $errstr." (".$errno.")<br />\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"); } } fclose($fp);}?>