Делать мне нечего было с утра, сделал эту фигню))
3 часа ржал над юзерами, которые принимали бота за человека и жестоко материли его. )))

Вот:

в файле vbshout.php ищем

PHP Code:

// ---------------------------------------------------
// Start Set PHP Environment
// --------------------------------------------------- 


ниже добавляем:

PHP Code:

srand((double) microtime()*1000000); 


ищем

PHP Code:

if ($_POST['do'] == 'shout')
{

    $vbulletin->input->clean_array_gpc('p', array(
        'shout'             => TYPE_STR,
        'color'          => TYPE_NOHTML,
        'fontFamily'     => TYPE_NOHTML,
        'fontWeight'     => TYPE_NOHTML,
        'fontStyle'      => TYPE_NOHTML,
        'textDecoration' => TYPE_NOHTML,
    ));

    $meShout = 0;
      
      $s_len = strlen($vbulletin->GPC['shout']);
    if (!empty($vbulletin->GPC['shout']) && $vbulletin->userinfo['userid'] > 0 && !isBanned($vbulletin->userinfo))
    {

        $ShoutData = addslashes(serialize(array(
                'color'      => addslashes(convert_urlencoded_unicode($vbulletin->GPC['color'])),
                'font'       => addslashes(convert_urlencoded_unicode($vbulletin->GPC['fontFamily'])),
                'bold'       => addslashes(convert_urlencoded_unicode($vbulletin->GPC['fontWeight'])),
                'italic'     => addslashes(convert_urlencoded_unicode($vbulletin->GPC['fontStyle'])),
                'underline'  => addslashes(convert_urlencoded_unicode($vbulletin->GPC['textDecoration'])),
        )));

        $vbulletin->GPC['shout'] = convert_urlencoded_unicode($vbulletin->GPC['shout']);

        if (($vbulletin->GPC['shout'] = execCommand($vbulletin->GPC['shout'])) !== true)
        {
            $DB->query("
                insert into ".TABLE_PREFIX."shout
                (s_time, s_by, s_shout, s_data, s_me)
                values
                (".TIMENOW.", {$vbulletin->userinfo['userid']}, '".addslashes($vbulletin->GPC['shout'])."', '{$ShoutData}', $meShout)
            ");
        }
    }
exit; 


убираем в конце exit и ниже добавляем:

PHP Code:

$bI[0] = "Сцуконах!";
$bI[1] = "Боян!";
$bI[2] = "кг/ам!";
$bI[3] = "жжош!!";
$bI[4] = "падонаг!!";
$bI[5] = "Первыйнах!";
$bI[6] = "Флудераст!";
$bI[7] = ":hah:";
$bI[8] = ":preved:";
$bI[9] = ":evil_lol:";
$bI[10] = "(=";
$bI[11] = "ПревеД!";
$bI[12] = "кагдила?";
$bI[13] = "ЛОЛ";
$bI[14] = "пнх";
$bI[15] = ":-P";
$bI[16] = ":bI:";
$bI[17] = "фтопку";
$bI[18] = "кросафчег";
$bI[19] = "Есть дунуть?";
$bI[20] = "бугагагагага";
$bI[21] = "по куне?";
$bI[22] = "wtf?";
$bI[23] = "выпей йаду";
$bI[24] = "убей сибя ап стену :apstenu:";
$bI[25] = "Аццкий сотона";
$bI[26] = "а мне пох :D";
$bI[27] = "А мне похуй на ваш бан ггггг))))";
$bI[28] = ":to_babruysk:";
$bI[29] = ":draz-m:";
$bI[30] = "убей сибя - спаси планету ©";
$bI[31] = "я имел честь сношаццо с вашим оральным отверстием © ovZa";
$bI[32] = "а давай займемся сексом?";
$bI[33] = "Я-МАЛЕНЬКИЙ АПЕЛЬСИН :)";
$bI[34] = "куищще!!!";
$bI[35] = "БЛЯ! приветик!";
$bI[36] = "Отхуярь его отвёрткой!";
$bI[37] = "Блядскоуебищный козлорогий харек с охуевающим еблядскососальником!!!!";
$bI[38] = "+1";


$r = rand(0,38);


    $vbulletin->input->clean_array_gpc('p', array(
        'shout'             => TYPE_STR,
        'color'          => TYPE_NOHTML,
        'fontFamily'     => TYPE_NOHTML,
        'fontWeight'     => TYPE_NOHTML,
        'fontStyle'      => TYPE_NOHTML,
        'textDecoration' => TYPE_NOHTML,
    ));

    $meShout = 0;

    if (!empty($vbulletin->GPC['shout']) && $vbulletin->userinfo['userid'] > 0 && !isBanned($vbulletin->userinfo))
    {

        $ShoutData = addslashes(serialize(array(
                'color'      => addslashes(convert_urlencoded_unicode($vbulletin->GPC['color'])),
                'font'       => addslashes(convert_urlencoded_unicode($vbulletin->GPC['fontFamily'])),
                'bold'       => addslashes(convert_urlencoded_unicode($vbulletin->GPC['fontWeight'])),
                'italic'     => addslashes(convert_urlencoded_unicode($vbulletin->GPC['fontStyle'])),
                'underline'  => addslashes(convert_urlencoded_unicode($vbulletin->GPC['textDecoration'])),
        )));

        $vbulletin->GPC['shout'] = convert_urlencoded_unicode($vbulletin->GPC['shout']);

        if (($vbulletin->GPC['shout'] = execCommand($vbulletin->GPC['shout'])) !== true)
        {
            
            
                $DB->query("
                insert into ".TABLE_PREFIX."shout
                (s_time, s_by, s_shout, s_data, s_me)
                values
                (".TIMENOW.", '201', '" . $bI[$r] . "', '{$ShoutData}', $meShout)
            ");
        }
    }

    exit; 


В этой строке((".TIMENOW.", '201', '" . $bI[$r] . "', '{$ShoutData}', $meShout)) вместо "201" можно поставить любой другой id(я создал нового юзера с ником "медвед").

Вообщем всем, у кого не очень серьёзный форум советую, посмеётесь.
P.S. правда у меня юзеры уже тревогу подняли)))

прикольно.. вот только у меня после этого чат не грузится..:o


хотя нет , все работает..

гы, прикольный ботик.
Правда я этим чатом не пользуюсь ;)

У меня ботик круче, зайдите пообщайтесь с Лужковым))

Originally Posted by КотЪ

У меня ботик круче, зайдите пообщайтесь с Лужковым))

Куда заходить?

а можно его только в один раздел пустить?

супер штучка риспект GRIF666
КотЪ я так тоже и не понял где посмотреть твоего бота?
Кста вот если бы из флеш чата выдрать бота - у него там все по логических цепях происходит - разговор тоесть - и это круто так как все чот он говорит имеет смысл!

Кто может выложить правленый vbshout.php а то у мну чего то не выходит...

добавлено через 26 минут
Так, удалось установить, но проблема в том, что фразы бота добавляются внизу фразы юзера а хотелось бы наоборот. подскажите как сделать

moschat.ru

Жестоко )) на соадмина хорошо повесить..