Страница 1 из 1

taforisms.tcl - Цитаты, афоризмы, пословицы и поговорки.

СообщениеДобавлено: 18 дек 2010 14:03
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) Первая паблик версия.
#
###


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


Скачать: taforisms.tcl

Re: taforisms.tcl - Цитаты, афоризмы, пословицы и поговорки.

СообщениеДобавлено: 19 дек 2010 03:17
oIIa4ku
Как сделать под Suzi и чтоб выкидывало через определённое время?

Re: taforisms.tcl - Цитаты, афоризмы, пословицы и поговорки.

СообщениеДобавлено: 19 дек 2010 10:22
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]]
    }
вставить это после
    set data [::http::data $taforisms_tok]


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

Re: taforisms.tcl - Цитаты, афоризмы, пословицы и поговорки.

СообщениеДобавлено: 20 дек 2010 00:14
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 секунды:
Такое ощущение чегота не хватает...

Re: taforisms.tcl - Цитаты, афоризмы, пословицы и поговорки.

СообщениеДобавлено: 20 дек 2010 00:16
Vertigo
Пакет http.tcl подгрузи перед всеми скриптами.