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

[tvrsh]

###
#
# Название: taforisms.tcl
# Версия: 1.0
# Автор: tvrsh
#
###
#
# Описание: Скрипт забирает с сайта http://www.ac-soft.ru афоризмы, пословицы и поговорки.
#
###
#
# Установка:
# 1. Скопируйте скрипт taforisms.tcl в папку scripts вашего бота.
# 2. В файле eggdrop.conf впишите строку source scripts/taforisms.tcl
# 3. Сделайте .rehash боту.
#
###
#
# Версион хистори:
#
# 1.0(18.12.2010) Первая паблик версия.
#
###

Пример работы:

<tvrsh> !af
<@bionic> tvrsh, Не доверяй первому впечатлению. Умей хранить молчание, когда тебя пытаются поразить или заинтересовать. «Пауло Коэльо "Книга воина света"»
<tvrsh> !af
-NOTICE- <bionic> Запрос не чаще одного раза в 30 секунд.
-NOTICE- <bionic> Подождите 22 секунды до следующего запроса.

Скачать: taforisms.tcl

[oIIa4ku]

Как сделать под Suzi и чтоб выкидывало через определённое время?

[tvrsh]

Чтобы скрипт рабтал с патченными ботами надо добавить перекодировку полученных данных

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

Синтаксис: [ Скачать ] [ Показать ]

    if {[info exists ::sp_version]} {
        set data [encoding convertfrom utf-8 $data]
    } else {
        set data [encoding convertto cp1251 [encoding convertfrom utf-8 $data]]
    }

вставить это после

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

Синтаксис: [ Скачать ] [ Показать ]

    set data [::http::data $taforisms_tok]

А для вывода по времени надо почитать и посмотреть на других примерах как работает bind time.

[ABATAP4uk]

[23:08:59] <ABATAP4uk> !аф
Tcl error [::taforisms::taforisms_pub]: invalid command name "::http::config"
.set errorInfo
[23:05] #ABATAP4uk# set errorInfo
Currently: invalid command name "::http::config"
Currently: while executing
Currently: "::http::config -useragent "Mozilla/4.0 (compatible; MSIE 4.01; Windows CE; PPC; 240x320)""
Currently: (procedure "::taforisms::taforisms_proc" line 9)
Currently: invoked from within
Currently: "::taforisms::taforisms_proc $nick $uhost $hand $chan"
Currently: (procedure "::taforisms::taforisms_pub" line 8)
Currently: invoked from within
Currently: "::taforisms::taforisms_pub $_pub1 $_pub2 $_pub3 $_pub4 $_pub5"

Добавлено спустя 54 секунды:
Такое ощущение чегота не хватает...

[Vertigo]

Пакет http.tcl подгрузи перед всеми скриптами.