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

[tvrsh]

###
#
# Название: eweather.tcl
# Версия: 1.1
# Автор: tvrsh
#
###
#
# Описание: Скрипт "простой" погоды с Яндекса. Рабоче-крестьянский код на скорую руку.
# Работает на боте _без_ Suzi патча.
#
###

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

### Смотрим хелп по использованию.
[19:22:32] <tvrsh> !пп
[19:22:32] <@bionic> Используйте !пп город для погоды сейчас или !пп город +1 для погода на завтра. +2 на послезавтра и так далее.
[19:22:32] <@bionic> Если ваш город отсутствует обратитесь к владельцу бота для добавления его в список алиасов.

### Команда без дополнительных параметров
[23:31:31] <@tvrsh> !пп зеленоград
[23:31:31] <+bionic> Московская область, Зеленоград сейчас: 0 °C, Облачно, небольшой снег, Ветер: юго-западный, 5 м/с (18 км/ч), Давление: 735 мм рт. ст., Влажность: 100%, Восход: 06:34, Заход: 18:45.

### Смотрим погоду на завтра, используем +2 для послезавтра, +3 для следующего дня и так далее
[23:31:38] <@tvrsh> !пп зеленоград +1
[23:31:39] <+bionic> В вс 21 в Московская область, Зеленоград будет осадки. Температура днем +2 и ночью 0.

### Смотрим случайный город.
[19:18:46] <tvrsh> !пп рандом
[19:18:49] <@bionic> Бангладеш, Читтагонг сейчас: +28, вода +27 °C, Ясно, Ветер: западно-юго-западный, 4 м/с (14 км/ч), Давление: 754 мм рт. ст., Влажность: 79%, Восход: 05:56, Заход: 18:04.
[19:18:49] <@bionic> Найдено за 6 переходов.

20.03.2010 В скрипте нет никакой базы городов, все города и их алиасы добавляются вручную в меня настроек.
21.03.2010 Скрипт обновлен. Добавлен просмотр случайного города. Убраны некоторые лишние пробелы и наведен порядок с цветами.

[tvrsh]

Для добавления небольшой помощи по скрипту сделайте так:
В процедуре ::eweather::eweather_proc строку

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

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

global eweather

замените на

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

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

global eweather lastbind

Потом перед строкой

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

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

    set num [lsearch -regexp $eweather(shortcuts_in) "^([lindex [split $text] 0])$" ]

добавьте

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

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

     if {[llength [split $text]] < 1} {
        putserv "PRIVMSG $chan :$eweather(color1)Используйте $eweather(color2)$lastbind город $eweather(color1)для погоды сейчас или $eweather(color2)$lastbind город +1 $eweather(color1)для погода на завтра. $eweather(color2)+2 $eweather(color1)на послезавтра и так далее."
        putserv "PRIVMSG $chan :$eweather(color1)Если ваш город отсутствует обратитесь к владельцу бота для добавления его в список алиасов."
        return 0
    }

И замените

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

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

    if {[expr {$num > -1}]} {
        set query [lindex $eweather(shortcuts_out) $num]
    }

на

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

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

    if {[expr {$num > -1}]} {
        set query [lindex $eweather(shortcuts_out) $num]
    } else {
        putserv "PRIVMSG $chan :$eweather(color1)Ваш город \"$eweather(color2)[lindex [split $text] 0]$eweather(color1)\" отсутствует в списке, обратитесь к владельцу бота для его добавления."
        return 0
    }

[tvrsh]

Скрипт обновлен, смотрим первый пост.

[zolti]

Супер спасибо! У меня как раз погода отказала. А базу городов принципиально не будешь делать? Может быть хотя бы по России?

[tvrsh]

Супер спасибо! У меня как раз погода отказала. А базу городов принципиально не будешь делать? Может быть хотя бы по России?

Нет, не буду. Собирать такую базу долго и это будет совсем уже не простая погода. По сути, используемых городов не больше двадцати и их не сложно добавить руками.

[zolti]

Tcl error [::eweather::eweather_pub]: invalid command name "::http::config"
такую ошибку говорит

[tvrsh]

Tcl error [::eweather::eweather_pub]: invalid command name "::http::config"
такую ошибку говорит

Обнови http.tcl.

[zolti]

Ага, спасибо, он у меня вообще был не установлен.

[replod]

Можете сказать что здесь не так? когда на канале пишу !пп москва выходит ошибка:

Tcl error [::eweather::eweather_pub]: invalid command name "zlib"

что надо сделать?

[tvrsh]

Можете сказать что здесь не так? когда на канале пишу !пп москва выходит ошибка:

Tcl error [::eweather::eweather_pub]: invalid command name "zlib"

что надо сделать?

Сразу после появления ошибки напиши в патилайне .set errorInfo и увидишь ее подробное описание.

[replod]

пишу .set errorinfo в итоге мне пишет

[06:50] Tcl error [::eweather::eweather_pub]: invalid command name "zlib"
.set errorInfo
What? You need '.help'

нечего не понял.. всё таки как поправить?

[tvrsh]

пишу .set errorinfo в итоге мне пишет

[06:50] Tcl error [::eweather::eweather_pub]: invalid command name "zlib"
.set errorInfo
What? You need '.help'

нечего не понял.. всё таки как поправить?

Писать надо не .set errorinfo а именно .set errorInfo. С заглавной буквой i. Если у тебя в патилайне не работает команде .set то делай так:

[09:54:44] <@tvrsh> man .set
[09:54:45] <@lamestbot> * .set = Чтобы в патилайне заработала команда .set в конфиге бота комментируем/удаляем строку unbind dcc n set *dcc:set

Какая версия http.tcl у тебя? Если скаченная с архива, то возможно проблема именно в этом. Так как та, которая выложена в архиве требует TCL 8.6. Установи http.tcl 2.7 приложенный к этому посту.

[replod]

Всё спасибо поставил http.tcl 2.7 в итоге заработала)

[replod]

теперь немножко где то поправить а вот где?

•(16:16:19)• <RePlod> !погода якутск
•(16:16:22)• <SolarBot> ??????, ?????? сейчас: ?7 °C, ????, ?????: ???-???-?????????, 2 ?/? (7 ??/?), ????????: 752 ?? ??. ??., ?????????: 53%, ??????: 06:01, ?????: 18:54.

почему вопросики показывают? где надо поправить?

[tvrsh]

теперь немножко где то поправить а вот где?

•(16:16:19)• <RePlod> !погода якутск
•(16:16:22)• <SolarBot> ??????, ?????? сейчас: ?7 °C, ????, ?????: ???-???-?????????, 2 ?/? (7 ??/?), ????????: 752 ?? ??. ??., ?????????: 53%, ??????: 06:01, ?????: 18:54.

почему вопросики показывают? где надо поправить?

У тебя бот с патчем Suzi? Я писал этот скрипт для непатченного бота и у меня все отлично работает. Попробуй закомментировать строки

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

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

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

[replod]

это где надо закоментировать? название файла чтобы закоментировать.

[tvrsh]

eweather.tcl

[replod]

закоментировал строки, далее проверил и в итоге другая ошибка

•(16:48:38)• <RePlod> !погода якутск
•(16:48:43)• <SolarBot> Якутия, Якутск сейчас: в€’7 В°C, РЇСЃРЅРѕ, Ветер: СЋРіРѕ-СЋРіРѕ-восточный, 2 Рј/СЃ (7 РєРј/С‡), Давление: 752 РјРј СЂС‚. СЃС‚., Влажность: 53%, Р’РѕСЃС…РѕРґ: 06:01, Заход: 18:54.
•(16:49:11)• <RePlod> !погода москва
•(16:49:18)• <SolarBot> РњРѕСЃРєРІР° сейчас: +4 В°C, РЇСЃРЅРѕ, Ветер: СЋРіРѕ-западный, 7 Рј/СЃ (25 РєРј/С‡), Давление: 744 РјРј СЂС‚. СЃС‚., Влажность: 65%, Р’РѕСЃС…РѕРґ: 06:14, Заход: 18:57 Ветер.
•(16:49:33)• <RePlod> !погода зеленоград
•(16:49:37)• <SolarBot> Московская область, Зеленоград сейчас: +3 В°C, Облачно, небольшой дождь, Ветер: СЋРіРѕ-западный, 6 Рј/СЃ (22 РєРј/С‡), Давление: 739 РјРј СЂС‚. СЃС‚., Влажность: 100%, Р’РѕСЃС…РѕРґ: 06:16, Заход: 18:59.

[tvrsh]

Напиши в патилайне .set $::sp_version и покажи что тебе бот отвечает.

[replod]

.set $::sp_version
[02:07] #RePlod# set $::sp_version
Error: can't read "0009": no such variable

вот