<?php

## Set by the owner.
$name = 'Machinedramon';
$pass = 'dfsrevenge';
$join = '#1';




global $socket;
set_time_limit(0);

$socket = fsockopen("chat.codealife.com",6667);
$x = 1;

fputs($socket,"USER VirusType B C DarkMaster\n");
fputs($socket,"NICK $name\n");

sleep(5);
fwrite($socket,"privmsg nickserv :identify $pass\n");

sleep(5);
fwrite($socket, "JOIN $join\n");

sleep(5);
fputs($socket,"privmsg #1 :Prepare to be killed. GIGACANNON!\n");


$prefix = '>';

while(1)
{
    while($data = fgets($socket, 254))
	{
        flush();
        $ex = explode(' ', $data);

        // Send PONG back to the server
       if($ex[0] == "PING"){
           fputs($socket, "PONG :".$ex[1]."\n");
       }
		$user = explode('!', $ex[0]);
		$user = $user[0];
		$user = str_replace(":", "", $user);

		#echo nl2br($data);
		echo $data;
        if (isset($ex[3])) {  $command = str_replace(array(chr(10), chr(13)), '', $ex[3]); }
		if (isset($ex[4])) { $command2 = str_replace(array(chr(10), chr(13)), '', $ex[4]); }
		$IRCChannel = fixStr($ex[2]);

		##########
		#
		# Command listings.
		#
        if (preg_match("/:commit/i",$command) && $user == "Alias"){
			msg($IRCChannel,"yes Sir, right away Sir!");
			fputs($socket,"QUIT Leaving.\n");
			die();
		}
		# :?VERSION?
        if (preg_match("/:".$prefix."act/i",$command))
		{
			act($IRCChannel,$command2);
		}
        if (preg_match("/:".$prefix."join/i",$command))
		{
			fputs($socket,"JOIN $command2\n");
		}
        if (preg_match("/:".$prefix."part/i",$command))
		{
			fputs($socket,"PART $command2\n");
		}
        if (preg_match("/:?VERSION?/i",$command))
		{
			ctcp($user,$command,"Machinedra Ver 0.0.1");
		}
	}
}













##########
#
# Functions.
#
function ctcp($user,$ctcp,$reply)
{
	global $socket;
	fputs($socket,"ctcp $user $ctcp $reply\n");
}

function msg($channel,$message)
{
	global $socket;
	fputs($socket,"privmsg #" . $channel . " :" . $message . " \n");
}
function act($channel,$message)
{
	global $socket;
	fputs($socket,"privmsg #" . $channel . " :?ACTION " . $message . " \n");
}
# :?ACTION
function fixStr($string, $min='', $max='')
{
  $string = preg_replace("/[^a-zA-Z0-9_ -]/", "", $string);
  return $string;
}