support

Собственно скрипт бота (IRC Bot script):

#!/usr/local/bin/php

// Параметры IRC сервера

$irc_server["ip"]='XXX.XXX.XXX.XXX';

$irc_server["port"]=6669;

$irc_server["name"]='irc.mine.net';

// Список каналов на которых будет присутствовать бот

$channels[0]="somechannel0";

$channels[1]="somechannel1";

$channels[2]="somechannel2";

// Таймер для отсчета времни чтобы выдать случайную фразу

$timer=0;

$privates=Array();

// Параметры бота

$bot["nick"]='PHP_Bot';

$bot["user"]='PHP_Bot';

$bot["host"]='bot.mine.net';

$bot["ip"]='XXX.XXX.XXX.XXX';

$bot["hz"]='PHP_Bot';

// Функция из мана используемая для получения "наиболее случайных чисел"

function make_seed() {

list($usec, $sec) = explode(' ', microtime());

return (float) $sec + ((float) $usec * 100000);

}

// Функция установки коннекта к IRC серверу

// Устанавливает начальный коннект

function connect_IRC () {

global $irc_server, $bot, $fp;

// Открываем сокет с заданым сервером и портом

$fp = fsockopen($irc_server["ip"], $irc_server["port"], $errno, $errstr,30);

$flag=0;

// Вычитываем все что даст нам сервер, до ключевой фразы, после которой,

// можно отсылать данные о пользователе

while (!$flag && !feof($fp)) {

$line=fgets ($fp);

if (preg_match("/bFoundsyourshostnameb/", $line)) {

$flag=1;

}

}

// Пишем в сокет данные о авторизации бота

fputs ($fp, sprintf ("NICK %sn", $bot["nick"]));

fputs ($fp, sprintf ("USER %s "%s" "%s" :%sn",

$bot["user"], $bot["host"], $bot["ip"], $bot["hz"]));

$flag=0;

// Снова вычитываем все до ключевого номера 700, после которого можно

// начинать заходить в каналы

while (!$flag && !feof($fp)) {

$line=fgets ($fp);

if (preg_match("/b700b/", $line)) {

$flag=1;

}

}

// Возвращаем указатель на открытый сокет основной части

return ($fp);

}

// Функция для подготовки вывода в канал

// одного из предопределенных случайных выражений

function is_time($chan) {

global $timer, $log_file, $bot;

// Полный путь к текстовому файл в котором определены возможные выражения

$texts=file('/home/myaccount/bot_conf/lyaps');

$message='';

$now=mktime(date ("H"), date("i"), date("s"), date ("m"),

date ("d"), date ("Y"));

// Определяем интервал с которым бот будет что-то говорить в канал

// (в этом примере - 10 минут)

$time_to_say=mktime(date ("H"), date("i")-10, date("s"),

date ("m"), date ("d"), date ("Y"));

// Если пора что-то говорить - формируем фразу,

// если нет - возвращаем пустое значение

if ($timer