ICQ

[Sany321312]

Может кто поделится недоделанным ботом ICQ, просто просить полный не смысла, ни кто все равно не даст его.
Функции бота такие:
Ответ на команду !help и еще парочку таких.
буду очень благодарен за помощь.

 

[rus-us]

здесь есть все

Для просмотра скрытого содержимого вы должны войти или зарегистрироваться.

и вот

Для просмотра скрытого содержимого вы должны войти или зарегистрироваться.

 

[Sany321312]

Спасибо!!!

Спасибо конечно за сайтик,но если честно, то я там не нашел ни чего полезного, что могло бы мне помочь!
Буду благодарен если, кто ни будь еще скинет информацию к размышлению!

Добавлено через 6 минут
Выложу наработку свою, может кому понадобится...

<?

$conf[ident]='me'; 
$conf[uin]=' '; 
$conf[pass]=' '; 

require("mlCQ.php");  

set_time_limit (0);
ignore_user_abort(true);

$mlCQ = new mlCQ();
$mlCQ->start_logging('summary.log');
$mlCQ->create_identity($conf[ident], $conf[uin], $conf[pass]);
$mlCQ->connect(); 
$mlCQ->login();       

$status = "ONLINE";  // AWAY, DND, NA, OCCUPIED, FREE4CHAT, INVISIBLE  

$mlCQ->set_status($status, 'DCDISABLED');
$mlCQ->request_offline_messages();
$mlCQ->delete_offline_messages();
$mlCQ->send_message(123456789, "Бот успешно запущен");  // Uin, text

$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'];
            parse_msg($msg);
           break;
       case 8:
            $msg = $mlCQ->id['in_messages']['last'];
            parse_msg($msg);
           break;
       default:

           break;
   }
}

function parse_msg($msg)
{
global $mlCQ;

      if ($msg[uin]=='123456' && $msg[text]=='@close'){
           $mlCQ->close();
      }    

      elseif (eregi('!about',$msg[text])){
           $mlCQ->send_message($msg[uin],"ICQ.bot by maximuz");
      }

      elseif (eregi('!help',$msg[text])){
      $out="Справочник по коммандам:\n";
      $out.="-----------------------------\n\n";
             $out.="!about - информация о боте";
             $out.="Спасибо за использование нашего сервиса!";     
             $mlCQ->send_message($msg[uin],$out);  
      }

      else {
             $out="Вас приветствует ICQ-бот !\n\n";
             $out.="Введите !help для получения помощи\n\n";
             $out.="Спасибо за использование нашего сервиса!";
             $mlCQ->send_message($msg[uin],$out);
      }

}

?>