Тема: Бот к асе
Показать сообщение отдельно

  #18  
Старый 20.05.2007, 19:30
GooD and EviL
Познающий
Регистрация: 17.02.2007
Сообщений: 92
Провел на форуме:
867300

Репутация: 69
По умолчанию

на какой хост заливал? если h2m.ru то он там и без крона висит сколько угодно, а если уж вылетит, то можно перезапустить без труда с мобилы. кстати, этот бот выкидывает джим, в нём кое что нужно исправить, но если используешь stICQ то вроде норм
ссылка где он обсуждался http://forum.antichat.ru/thread38465.html

набросал типа билет бота, только джим он всё равно вырубает, а вот бот icq 5132499 висящий на h2m.ru
PHP код:
<?

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

// (c)oded by S1B [SBT]
// 21.04.2007
// www.secbun.info

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

!help - Наберите номер нужного билета в формате !N где N номер билета
'
;
// переменные с текстом билетов
$b1='билет номер 1, бла-бла-бла';

$b2='билет номер 2, бла-бла-бла';

$b3='билет номер 3, бла-бла-бла';

$b4='билет номер 4, бла-бла-бла';

$b5='билет номер 5, бла-бла-бла';

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(!
$codesleep(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 '!1':
                    
$mlCQ->send_message($from,$b1);
                break;

                case 
'!2':
                    
$mlCQ->send_message($from,$b2);
                break;

                case 
'!3':
                    
$mlCQ->send_message($from,$b3);
                break;

                case 
'!4':
                    
$mlCQ->send_message($from,$b4);
                break;

                case 
'!5':  $mlCQ->send_message($from,$b5);

                break;

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

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

?>

Последний раз редактировалось GooD and EviL; 20.05.2007 в 20:53..
 
Ответить с цитированием