Форум о ботах Eggdrop/Windrop

wr` · wr` » 12 мар 2012 22:46

Доброго времени суток,хотел вас попросить о написании скрипта для добавления цитат боту,плюс рандомно выводящий их на канал.
К примеру юзер добавляет цитату боту,а бот потом через некоторый интервал времени выводит все цитаты которые юзеры добавили,если есть такой скрипт подскажите где он.Заранее извините если не по теме.

Radiosignal · Radiosignal » 13 мар 2012 17:02

http://www.egghelp.ru/files/103
http://www.egghelp.ru/files/332

tvrsh · tvrsh » 13 мар 2012 21:01

Radiosignal, только в скрипте во второй ссылке нет возможности автоматического вывода цитат в канал.
wr`, попробуй пользоваться поиском по скриптам, я слышал, что это очень помогает.

Radiosignal · Radiosignal » 13 мар 2012 21:54

tvrsh, он попросил ссылки, а дальше сам уж пусть разберется, какой ему там нужен.

wr` · wr` » 04 апр 2012 21:23

tvrsh писал(а):Radiosignal, только в скрипте во второй ссылке нет возможности автоматического вывода цитат в канал.

а можно сделать автоматический вывод?

tvrsh · tvrsh » 04 апр 2012 21:30

Можно, но скрипт с автоматическим выводом уже есть.

wr` · wr` » 04 апр 2012 21:32

понял,это первая ссылка,и еще вопрос,а можно сделать чтоб при добавлении цитаты бот ее загружал на сайт?

tvrsh · tvrsh » 05 апр 2012 09:06

Да, можно.

wr` · wr` » 06 апр 2012 10:23

не могли бы вы помочь с этим?

tvrsh · tvrsh » 06 апр 2012 10:35

Да, мог бы.

wr` · wr` » 06 апр 2012 10:50

что требуется от меня?я понимаю что заслуживаю такие ответы,т.к. вопросы не лучше...

tvrsh · tvrsh » 06 апр 2012 11:12

Вариантов два:
1. Написать пхп скрипт, который будет из базы с цитатами доставать эти самые цитаты. Оформить все это в какую-нибудь страничку. Так сделано в одной из версий викторины с ее пхп статистикой.
2. Сделать так, чтобы страничка генерировалась самим скриптом. То есть, чтобы бот создал html файл содержащий цитаты и тэги разметки страницы.

От тебя требуется сказать, находится ли бот и сайт на одном сервере. Так как если они в разных местах живут, то второй вариант не сработает. Ну или придется городить какую-то закачку сгенерированного файла на удаленный сервер.
Да и первый вариант тоже не особо прокатит, так как я не знаю пхп ни разу. А без таких знаний получится разве что просто отдельная страничка с цитатами, подогнать под дизайн сайта или встроить в него у меня не получится.

Тут даже и к ботам это не имеет отношения. Так как база цитат уже есть, остается ее только обработать.

Посмотрю что можно придумать.

tvrsh · tvrsh » 06 апр 2012 21:20

Сохраняй как .php файл и клади его на свой хостинг. В строке

PHP: [ Скачать ] [ Скрыть ]

$lines = file('quote.data');

укажи путь до базы с цитатами.

PHP: [ Скачать ] [ Скрыть ]

<? $t_start = array_sum(explode(' ', microtime())); ?>

<html>

<head>

<meta http-equiv="content-type" content="text/html; charset=cp1251">

</head>

<body><center><table>

<td bgcolor=gray style=color:#ffffff align=Center>Номер</td>

<td bgcolor=gray style=color:#ffffff align=Center>Канал</td>

<td bgcolor=gray style=color:#ffffff align=Center>Ник</td>

<td bgcolor=gray style=color:#ffffff align=Center>Цитата</td><tr>

<?

$lines = file('quote.data');

$i = 0;

foreach ($lines as $line_num => $line) {

    $arr = explode("|", $line);

    $chan[$i] = $arr[0];

    $nick[$i] = $arr[1];

    $quote[$i] = $arr[2];

    $i++;

}

$i = 0;

foreach ($lines as $line_num => $line) {

    $i++;

    $arr = explode("|", $line);

    $ka = $i / 2;

    if ($arr[0] == "") {

        continue;

    }

    if (is_int($ka)) {

        $color = "#ffffff";

    } else {

        $color = "#c8d2df";

    }

    echo "<td align=center bgcolor=$color nowrap>$i</td>";  

    echo "<td align=center bgcolor=$color nowrap>$arr[0]</td>";  

    echo "<td align=center bgcolor=$color nowrap>$arr[1]</td>";

    echo "<td align=center bgcolor=$color nowrap>$arr[2]</td><tr>";

}

?>

</TABLE></center><br>

<center>Сгенерировано за <? $exec_time = array_sum(explode(' ', microtime())) - $t_start; echo round($exec_time, 3);?> сек.</center>

</center></body></html>

wr` · wr` » 07 апр 2012 11:56

это мы рассматриваем тот пример ,если бот и сайт на одном сервере?

tvrsh · tvrsh » 07 апр 2012 12:13

Ну по идее да. Но ты можешь сделать так, чтобы к базе с цитатами был доступ извне. А в пхп скрипте указать, например, так: твойсайт/путь/до/quote.data
Пробуй.

wr` · wr` » 07 апр 2012 13:16

все получилось,спасибо большое,как я понимаю дизайн странички подводить нужно под себя

tvrsh · tvrsh » 07 апр 2012 16:41

Естественно, цвета поменять, какие-нибудь рамки, картинку в бэкграунд и т.д.

wr` · wr` » 08 апр 2012 11:20

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

юзверь1:с 1 апреля
юзверь2:и тебя с первым апреля

бот выводил так же по строкам,а не в одну

Bot [5/5] юзверь1:с 1 апреля ;юзверь2:и тебя с первым апреля

может добавить какой нибудь символ в конце предложения первого,чтоб следующий начинал с новой строки
извините заранее если не понятно разъяснил

tvrsh · tvrsh » 08 апр 2012 13:51

Замени процедуру ::quote::out на это:

TCL: [ Скачать ] [ Скрыть ]

proc ::quote::out {nick chan text} {

        global botnick

        if {$nick != $botnick} {

                if {[validchan $chan]} {

                    if {[string match "*|*" $text]} {

                        foreach line [split $text "|"] {

                            putserv "PRIVMSG $chan :$nick, $line"

                        }

                    } else {

                    putserv "PRIVMSG $chan :$nick, $text"

                    }

                } elseif {$nick == $chan} {

                    if {[string match "*|*" $text]} {

                        foreach line [split $text "|"] {

                            putserv "PRIVMSG $nick :$line"

                        }

                    } else {

                    putserv "PRIVMSG $nick :$text"

                    }

                } else {

                    if {[string match "*|*" $text]} {

                        foreach line [split $text "|"] {

                            putserv "NOTICE $nick :$line"

                        }

                    } else {

                    putserv "NOTICE $nick :$text"

                    }

                }

        } else {

            if {[string match "*|*" $text]} {

                foreach line [split $text "|"] {

                            putserv "PRIVMSG $chan :$line"

                }

            } else {

            putserv "PRIVMSG $chan :$text"

            }

        }

}

И при добавлении цитат разделяй строки символом |.

wr` · wr` » 08 апр 2012 13:59

спасибо большое,все работает!

Добавлено спустя 2 минуты 47 секунд:
поспешил..проблема теперь с выводом на сайт,выводится первая строка,а то что после | нет

Форум о ботах Eggdrop/Windrop

quote.tcl

quote.tcl

Re: quote.tcl

Re: quote.tcl

Re: quote.tcl

Re: quote.tcl

Re: quote.tcl

Re: quote.tcl

Re: quote.tcl

Re: quote.tcl

Re: quote.tcl

Re: quote.tcl

Re: quote.tcl

Re: quote.tcl

Re: quote.tcl

Re: quote.tcl

Re: quote.tcl

Re: quote.tcl

Re: quote.tcl

Re: quote.tcl

Re: quote.tcl

Кто сейчас на конференции