mICQ Вопросы

[cren]

<?php

// Based on mlCQ library v0.4 by Sergey Danyushin aka I)estym

// (c)oded by S1B [SBT]
// 21.04.2007
// www.secbun.info
set_time_limit(0);
ignore_user_abort(true);

$file[0] = 'fact.txt';

$lines[0] = file($file[0]);






$help='Команды бота:

!news - Наши новости
!help - вывод справки (её Вы сейчас читаете)
!md5 <строка> - вернёт MD5 хэш переданной строки
!b64e <строка> - кодирует переданные данные в Base64
!b64d <строка> - декодирует переданные данные из Base64
!len <строка> - вернёт длину переданной строки
!tic <url сайта> - вернёт тИЦ данного сайта
!icq <номер> <сообщение> - Отправить сообщение с номера бота (Только для VIP)
!admin <сообщение> - Отправить сообщение админу
!fakt - Интересные факты (или 5)
!info - Контакты для связи с админом
';
$admin='Для связи с администратором можно использовать:
ICQ: 6-344-344-7
e-mail: waketwo@narod.ru
m-agent: serega_bomber
jabber: wake-two@jabber.ru';

$news='На бота добавили новые функции:
!fakt или 5 - Интересные факты (более 850щтук)
!icq - Отправка сообщений через бота

План следующего обновления обновления:
1) Добавить анекдоты
2) Добавить генератор слоганов
3) Убрать отправку сообщений через бота
4) Добавить рекламу
5) Добавить чат (_!_)

Новости нашей команды:

1) Был открыт недавно закрытый портал http://xak-zone.ru/
2) На портал http://xak-zone.ru/ проводится набор модераторов
3) Был открыт блог wake2(cren)a (админ бота) по новому адресу http://xak-zone.ru/
4) Был открыт самый дешёвый хостинг от Bestvds.co.cc

Пока это все новости! Спасибо за внимание!

(_!_) Врядли получится
';


function get_tic($url) {
if(isset($url)) {
$url=urlencode(str_replace("http://","",str_replace("www.","",strtolower(trim($url)))));
$s=fsockopen('bar-navig.yandex.ru','80');
fputs($s,"GET /u?ver=2&lang=1049&url=http://$url&target=_No__Name:5&show=1&thc=0 HTTP/1.0\r\nHost: bar-navig.yandex.ru\r\n\r\n");
while(!feof($s)) {
$get=fgets($s,128);
if(preg_match('!" value="(.*?)"/>!',$get,$tic)) {
return $tic[1];
}
}
}
}



require_once 'lib.php';
require_once 'conf.php';

if(BOT_BIRTHDAY=='1') { $BD='BIRTHDAY'; }

set_time_limit(0);
ignore_user_abort(true);

$mlCQ=new mlCQ();
$mlCQ->create_identity("me",UIN_BOT,PASS_BOT);
$mlCQ->connect();
$mlCQ->login();

if(LOG_SET=='1') { $mlCQ->start_logging(LOG_FILE); }

$mlCQ->set_status(BOT_STATUS, $BD);

$mlCQ->request_offline_messages();
$mlCQ->delete_offline_messages();

$still_there=true; $code='';

while($still_there) {

if(!is_resource($mlCQ->sock) || feof($mlCQ->sock)) $still_there=false;
if(!$code) sleep(1); // Спим
$code=$mlCQ->dance_for('me');

switch($code) {
case 7:

$msg=$mlCQ->id['in_messages']['last'];
$from=$msg['uin'];
list($cmd[1])=explode(' ',$msg['text']);
$cmd[2]=str_replace("$cmd[1] ",'',$msg['text']);

switch($cmd[1]) {

// Функция вывода хелпа
case '!help':
$mlCQ->send_message($from,$help);
break;

case '!ui':
$mlCQ->send_message($from,$mICQ->request_full_userinfo(4124477));
break;
// Функция вывода хелпа
case '!info':
$mlCQ->send_message($from,$admin);
break;
case '!news':
$mlCQ->send_message($from,$news);
break;
// Функция вывода хелпа



// Функция создания MD5 хэшей
case '!md5':
$mlCQ->send_message($from,md5($cmd[2]));
break;

// Функция кодирования в Base64
case '!b64e':
$mlCQ->send_message($from,base64_encode($cmd[2]));
break;

// Функция декодирования из Base64
case '!b64d':
$mlCQ->send_message($from,base64_decode($cmd[2]));
break;

// Функция подсчёта длины строки
case '!len':
$mlCQ->send_message($from,strlen($cmd[2]));
break;

// Функция получения Яндекс тИЦ заданного сайта
case '!tic':
$tic=get_tic($cmd[2]);
if($tic=='') { $tic='Определение тИЦ данного сайта невозможно, либо его значение меньше 10'; }
$mlCQ->send_message($from,$tic);
break;


// Функция остановки работы бота
case '!stop':
if($from==UIN_ADMIN) {
$mlCQ->send_message($from,'Работы бота завершена');
$mlCQ->close();
}
break;

case '!icq':
if($from==UIN_ADMIN,UIN_ADMIN2) {
$params = explode(' ', $msg['text']);
$mlCQ->send_message($params[1], $params[2]);
}
break;

case '!admin':
$params = explode('', $msg['text']);
$mlCQ->send_message(63443447, $params[2]);
break;

case '!fakt':
$mlCQ->send_message($from, $lines[0][rand(0, count($lines[0]) - 1)]);
break;


default:
$mlCQ->send_message($from,"Гы =))) А такой каманды нет!.\nДля вывода справки по командам наберите \"!help\" (без кавычек)");
break;
}
}
}

?>

Как в этого бота добавить:

1) Регистрацию на боте
2) Бан
3) Рекламу
4) Чтобы выводил текст из этой ссылки (http://anek.ws/anekdot/export.php?target=_blank&sign=no&cnt=1)

Всем кто поможет поставлю много плюсоВ!

[cren]

Можете писать в асю: 6-три44-три44-7

[cren]

Кто поможет сделать дам 10руб =)))))))))))) как утешительный приз =))) и много ПЛЮСОВ