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

[tvrsh]

Название: ytranslate.tcl
Версия: 1.1
Автор: tvrsh
Описание: Скрипт переводит текст используя Yandex API. Для работы скрипта необходимо получить бесплатный api ключ. Для его получения перейдите по этому адресу: http://api.yandex.ru/translate/
После получения введите ключ в настройке скрипта в опции apikey.
Поддержка Suzi: Да
Пример работы:

# Перевод
<tvrsh> !ytr Compilation against Tcl 8.3/8.4 works again.
<@bionic> [en-ru] Составление против Tcl 8.3/8.4 снова работает.

# Определение языка
<tvrsh> !ytr ?Compilation against Tcl 8.3/8.4 works again.
<@bionic> [en] английский

# Перевод на указанный язык
<tvrsh> !ytr Шла Саша по шоссе и сосала сушку !en
<@bionic> [ru-en] Sasha walked along the highway and sucked drying

# Превод с указанием обоих языков
<tvrsh> !ytr працюю в !uk-en
<@bionic> [uk-en] I work in

Дополнительная информация: Получить апи ключ оказалось очень просто, надо только зарегистрироваться на яндексе. Пусть это вас не пугает.
Ссылка на скрипт: ytranslate.tcl

Добавлено спустя 2 минуты 12 секунд:
Да, поздравляю всех С Новым Годом.

[EvilHeart]

English Version pls

::ytranslate::printtranslate "$ytranslate(color3)\002::\002 $ytranslate(color2)$lastbind $ytranslate(color3)<òåêñò> $ytranslate(color2)\[!ÿçûê\] $ytranslate(color1)äëÿ ïåðåâîäà $ytranslate(color3)òåêñòà $ytranslate(color1)íà óêàçàííûé $ytranslate(color2)ÿçûê$ytranslate(color1). Åñëè ÿçûê íå óêàçûâàòü, òî òåêñò áóäåò ïåðåâåäåí íà ðóññêèé.\003" "$nick"
::ytranslate::printtranslate "$ytranslate(color3)\002::\002 $ytranslate(color2)$lastbind $ytranslate(color3)<\002?\002òåêñò> $ytranslate(color1)äëÿ îïðåäåëåíèÿ ÿçûêà óêàæèòå $ytranslate(color3)? $ytranslate(color1)ïåðâûì ñèìâîëîì â $ytranslate(color3)òåêñòå$ytranslate(color1).\003" "$nick"

[tvrsh]

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

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

        ::ytranslate::printtranslate "$ytranslate(color3)\002::\002 $ytranslate(color2)$lastbind $ytranslate(color3)<text> $ytranslate(color2)\[!language\] $ytranslate(color1)to translate $ytranslate(color3)text $ytranslate(color1)to $ytranslate(color2)language$ytranslate(color1). If you didnt use !language text will translate into russian($ytranslate(defaultlanguage)).\003" "$nick"
        ::ytranslate::printtranslate "$ytranslate(color3)\002::\002 $ytranslate(color2)$lastbind $ytranslate(color3)<\002?\002text> $ytranslate(color1)to detect language use $ytranslate(color3)? $ytranslate(color1)as the first character of $ytranslate(color3)text$ytranslate(color1).\003" "$nick"

[tvrsh]

Обновил скрипт. Добавил возможность ручного указания исходного языка.

[Radiosignal]

tvrsh привет. Поставил скрипт, но он выдает вот такую ошибку:

Tcl error [::ytranslate::ytranslate_pub]: invalid command name "http::formatQuery"
.tcl set errorInfo
Tcl: invalid command name "http::formatQuery"
Tcl: while executing
Tcl: "http::formatQuery $text"
Tcl: (procedure "::ytranslate::ytranslate_proc" line 37)
Tcl: invoked from within
Tcl: "::ytranslate::ytranslate_proc $nick $uhost $hand $chan [string trim $text]"
Tcl: (procedure "::ytranslate::ytranslate_pub" line 8)
Tcl: invoked from within
Tcl: "::ytranslate::ytranslate_pub $_pub1 $_pub2 $_pub3 $_pub4 $_pub5"

[Radiosignal]

Разобрался с этой ошибкой. Теперь скрипт работает нормально.

[Quantum]

хороший скрипт.

[Quantum]

хороший скрипт.