mICQ Вопросы

PHP:

<?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: [email protected] 
m-agent: serega_bomber 
jabber: [email protected]'; 

$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)

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

 

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

 

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