// DEFINIMOS VARIABLES DE CONEXIÓN
$servidor="irc.chathispano.com";
$puerto="6667";
$nick="BPI";
$name="o";
$canal="#ufc";
$realname="no";
$quit="no";
$a = 0;

$CON[servidor]="irc.chathispano.com";
$CON[puerto]="6667";
$CON[nick]="BPI";
$CON[name]="o";
$CON[canal]="#ufc";
$CON[realname]="no";
$CON[quit] = "no";
$CON[a] = 0;

set_time_limit(0);

// INICIAMOS LA CONEXIÓN SOCKET AL SERVIDOR
$conexion = fsockopen($CON[servidor], $CON[puerto]);

if (!$conexion){
 echo "No se pudo conectar a $servidor por el puerto $puerto";
 }
 else {
 echo "conectando...\n\n";
 fputs($conexion, "nick $nick\n\n");
 fputs($conexion, "USER $nick BPI BPI :$CON[name]\n\n");
 }

// INICIAMOS EL BUCLE QUE LEERA CONSTANTEMENTE DEL SERVIDOR Y LO ALMACENARA EN LA VARIABLE $buffer HASTA UN EOF.
while (!feof($conexion)){

$buffer = trim(fgets($conexion, 4096));
print date("[d/m @ H:i]")."<- ".$buffer ."\n"; // IMPRIMIMOS EN PANTALLA EL CONTENIDO DE $buffer. (se puede prescindir de esto)

// RECOGEMOS NÚMERO DE PING
if(substr($buffer, 0, 6) == 'PING :') {
// ENVIAMOS NUESTRO PONG
fputs($conexion, 'PONG :'. substr($buffer, 6)."\n\n");

/* llegados a este punto ya esta establecida la conexión, ahora para saber si acaba de acceder al servidor usamos la variable $a = 0;, si $a vale 0 entrara en el canal e incrementaremos $a++ para que $a no sea igual a 0 y no vuelva a intentar acceder al canal*/
if ($CON[a] == 0){
fputs($conexion, "JOIN $CON[canal]\n\n");
$CON[a]++;
}
registro ($buffer);
}
elseif ($old_buffer != $buffer) {

// LLEGADOS A ESTE PUNTO PODEMOS DEFINIR NUESTRAS ORDENES PARA EL BOT.
if (eregi("!time",$buffer) && substr($buffer, 0, 11) == ":^Galactus^") {
          fputs($conexion,"privmsg $canal :time -> ".date("H:i:s",time())."\n\n"); }

if (eregi("!ver",$buffer) && substr($buffer, 0, 11) == ":^Galactus^") {
          fputs($conexion,"privmsg $canal :pruebas de phph\n\n"); }

}
}
//para guardar el whois
case 'join':
$user = $matches['1'];
?>