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

[tvrsh]

###
#
# Название: synonims.tcl
# Версия: 1.0
# Автор: tvrsh
# Оффсайт: http://egghelp.ru/
#
###
#
# Описание: Словарь синонимов деловой лексики.
# Спасибо Vertigo за помощь в борьбе с кодировками.
#
###
#
# Установка:
# 1. Скопируйте скрипт synonims.tcl в папку scripts вашего бота.
# 2. В файле eggdrop.conf впишите строку source scripts/synonims.tcl
# 3. Сделайте .rehash боту.
#
###
#
# Версион хистори:
#
# 1.0(25.01.2011) Первая паблик версия.
#
###

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

<tvrsh> !синоним велосипед
<@bionic> Синонимы слова велосипед (найдено 16): трицикл, ровер, аквапед, лайба, тандем, велик, самокат, лисапед, железный конь, двухколесная машина, двухколесный конь, стальной конь.

Скачать: synonims.tcl

[oIIa4ku]

Очень интересный скрипт, но как сделать его под Сьюзи. В патилайне ошибок нет, а выдаёт такое:

(19:50:34) <@mircbot> Синонимы слова мама (найдено 0): .
(19:50:37) <bncbotik> Синонимы слова мама (найдено 53): родительница, мамуля, мать, маманя, мамаша, мамка, маменька, матка, матушка, родимая, матерь, река, мамочка, мамуся, мамусенька, мамулечка, мамусечка, мамушка, маманюшка, мамашенька, мамашечка, маман, маманька, мамонька, мамулька, мамунька, мамуня,
(19:50:37) <bncbotik> мамуша, мамысь, мамыса, маточка, матенка, матушь, матуша, матуха, матухна, матуня, матуничка, матуненька, матунюшка, матуся, матусенька, матуля, матуличка, матя, матика, матонька, матынька, матунька, мачка, поселок, родимая матушка.

bncbotik без сьюзи работает на УРА.

[Vertigo]

Вот поправленная версия с проверками на патченого бота, а также приделана выдача синтаксиса команды и сообщения если ничего не найдено.

[tvrsh]

Обновил скрипт в архиве.

[LuXe]

что то оно перестало работать

[20–29–17] «LuXe» !синоним згобель
[20–29–18] «@Eggdrop» Синонимы слова згобель (найдено 20): 502 Bad GatewayBad GatewayThe proxy server received an invalidresponse from an upstream server.accel: connect to 10.0.0.33:80 failed while processing http://10.0.0.33:80/display.php?action= ... 1%e5%eb%fc.

[tvrsh]

Бывает. Сайт сломался.

[tvrsh]

Чтобы исправить найди:

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

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

-urlencoding "cp1251"

Замени на:

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

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

-urlencoding "utf-8"

Найди:

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

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

http://www.synonyms.ru/display.php?action=search&word=$query

Замени на:

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

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

http://slova.zkir.ru/dict/$query

Найди:

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

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

        if {[info exists ::sp_version]} {
                set data [encoding convertfrom cp1251 $data]
        }

Замени на:

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: [ Скачать ] [ Скрыть ]

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

    regexp {</form>(.*?)<div align="center">} $data "" data

Замени на:

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

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

    regexp {<table>(.*?)</table>} $data "" data

[LuXe]

14–08–29] «@Eggdrop» Синонимы слова велосипед (найдено 6): аквапед, велик, лайба, самокат, тандем, трицикл.

[tvrsh]

Замени

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

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

set data [encoding convertfrom cp1251 $data]

на

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

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

set data [encoding convertfrom utf-8 $data]

[LuXe]

благодарю

[tvrsh]

Обновил скрипт по ссылке в первом посте. Внес в него изменения указанные выше.