IRC Bot Opcje

[braset]

Witam znalazłem w sieci pewnego irc bota lecz nie działa
połączam się do irc.quakenet.org port 6667

[PHP] pobierz, plaintext 
<?php
  function send($s) {
	echo 'wysylam: '.$s."rn";
	fputs($GLOBALS['fp'], $s."rn");
  }
 
  function zerofill ($num,$zerofill) {
   while (strlen($num)<$zerofill) {
	   $num = "0".$num;
   }
   return $num;
  }
 
  function get() {
	$s=fgets($GLOBALS['fp'], 1024);
	echo $s;
	return $s;
  }
 
  $fp=fsockopen('irc.quakenet.org', 6667);
  if (!$fp) die ('dupa z polaczneiem');
  send('NICK timerek');
  send('USER timerek . . :timerek');
 
  $na_kanale=0;
 
  while (!preg_match("#End of /MOTD command.#",($s=fgets($fp, 1024)))&&!feof($fp)) {
	if (preg_match("/PING :(.*)$/", $s, $t))
	  send('PONG '.$t[1]);
	echo $s;
  }
 
  $kanal='testbot';
  $start=108;
 
  send('JOIN #'.$kanal.'');
  sleep(10);
  stream_set_timeout($fp, 0, 200);
 
 
 
  do {
	$wpisany=0;
	//odliczenie do 4
	for ($i=$start; $i>4; $i--) {
	  send('PRIVMSG #'.$kanal.' :*'.$i.':00*');
	  sleep(60);
	  while (get());
	} 
 
	for ($l=240; $l>=0; $l-=2) {
	  while (($s=get())) {
		if (preg_match("/4 8 15 16 23 42/", $s)) {
		  send('PRIVMSG #'.$kanal.' :ziiiuuuuuuuuuuuuu');
		  sleep(2);
		  $wpisany=1;
		  break(2);
		}
	  }
	  send('PRIVMSG #'.$kanal.' :*'.(int)($l/60).':'.zerofill($l%60, 2).'*');
	  if (rand()%10==0) send('PRIVMSG #'.$kanal.' :BEEP BEEP BEEP');
	  sleep(2);
	}
  }
  while ($wpisany==1);
  send('PRIVMSG #'.$kanal.' :nikt nie wpisal :< / kupa :<');
 
?>
[PHP] pobierz, plaintext 

pokazuje sie "dupa z polaczenia" lub biale tlo prosze o szybką pomoc