Скрипт онлайн-погоды, скрипт погоды сейчас |
Здравствуйте, гость ( Вход | Регистрация )
Скрипт онлайн-погоды, скрипт погоды сейчас |
24.2.2010, 18:04
Сообщение
#41
|
|
Site Reliability Engineer Группа: Модераторы Сообщений: 1 772 Регистрация: 27.6.2009 Из: Чувашия, г. Чебоксары Пользователь №: 3 719 Спасибо сказали: 479 раз |
можно попробовать переделать и скрипт мэйла
а насчёт вашего сайта ещё надо подумать, могу после работы попробовать сделать для практики. |
|
|
24.2.2010, 18:12
Сообщение
#42
|
|
Начинающий Группа: Пользователи Сообщений: 22 Регистрация: 5.8.2008 Пользователь №: 321 Спасибо сказали: 0 раз |
можно попробовать переделать и скрипт мэйла а насчёт вашего сайта ещё надо подумать, могу после работы попробовать сделать для практики. Можно и с майла, я попробовал не вышло. Подумал, кто может переделать сделает на наш, но это не принципиально. Все равно показывают одну и ту же практически, с разницей в пол градуса. Хуже когда при минус 27, он показывает -1 =)) |
|
|
24.2.2010, 18:25
Сообщение
#43
|
|
Site Reliability Engineer Группа: Модераторы Сообщений: 1 772 Регистрация: 27.6.2009 Из: Чувашия, г. Чебоксары Пользователь №: 3 719 Спасибо сказали: 479 раз |
Ну да, подобная проблема встретилась у этого скрипта http://mydc.ru/topic3121.html (Моя переделка. Парсер основан на этом же) Придётся оба чуть переделать. Ладно не будем оффтопить и флудить, как нибудь попробуем занятся.
|
|
|
24.2.2010, 18:49
Сообщение
#44
|
|
Активный участник Группа: Пользователи Сообщений: 89 Регистрация: 9.6.2008 Из: Крым Пользователь №: 23 Спасибо сказали: 5 раз |
Подскажите, как сделать, чтобы инфо бралась отсюда:
|
|
|
24.2.2010, 22:39
Сообщение
#45
|
|
Начинающий Группа: Пользователи Сообщений: 22 Регистрация: 5.8.2008 Пользователь №: 321 Спасибо сказали: 0 раз |
Интересно было бы если будет добавленно в скрипт то, что в скрипте по ссылке выше
Это по запросу: Цитата Температура за окном: Атмосферное давление: Влажность: Скорость ветра: А это (более простенько только погода) по времени в Хаб. Я в существующем скрипте сделал таким вывод. Цитата ******************************************************************
*** Сейчас в г.Томске за окном: -1° ****************************************************************** |
|
|
24.2.2010, 22:43
Сообщение
#46
|
|
Site Reliability Engineer Группа: Модераторы Сообщений: 1 772 Регистрация: 27.6.2009 Из: Чувашия, г. Чебоксары Пользователь №: 3 719 Спасибо сказали: 479 раз |
Как время будет - займусь
Но точно не сегодня и завтра. Возможно на выходных. |
|
|
25.2.2010, 20:24
Сообщение
#47
|
|
Site Reliability Engineer Группа: Модераторы Сообщений: 1 772 Регистрация: 27.6.2009 Из: Чувашия, г. Чебоксары Пользователь №: 3 719 Спасибо сказали: 479 раз |
Ksandor, Готово щас чуть пойже выложу
|
|
|
25.2.2010, 21:11
Сообщение
#48
|
|
Начинающий Группа: Пользователи Сообщений: 22 Регистрация: 5.8.2008 Пользователь №: 321 Спасибо сказали: 0 раз |
|
|
|
25.2.2010, 21:24
Сообщение
#49
|
|
Site Reliability Engineer Группа: Модераторы Сообщений: 1 772 Регистрация: 27.6.2009 Из: Чувашия, г. Чебоксары Пользователь №: 3 719 Спасибо сказали: 479 раз |
Тестируй
Temp.lua ( 2.99 килобайт )
Кол-во скачиваний: 58
Пример [21:09:57] <Bot[Security]> Информация о погоде *************************************************************************** Сейчас в г. Чебоксары за окном -7 Атмосферное давление 748mmHg Влажность 99% Скорость и направление ветра 1 м/с СЗ *************************************************************************** Находим строку local msg,err = http.request("http://pogoda.mail.ru/?city=2867") Заменяем 2867 на свой код города. Находим City = "Чебоксары" --Город хаба Пишем свой город. |
|
|
26.2.2010, 11:59
Сообщение
#50
|
|
Начинающий Группа: Пользователи Сообщений: 22 Регистрация: 5.8.2008 Пользователь №: 321 Спасибо сказали: 0 раз |
Бегло посмотрев, по команде выводит нормально. По времени в Хаб поставил 1 минуту, чтоб посмотреть. Ждать час долго )))
Первое, что вылезло. Цитата [14:57] Синтаксис \0.4.1.2\scripts\Temp.lua:55: bad argument count to 'SendToAll' (1 expected, got 2) Убрал. Здесь tUser, Код Core.SendToAll("<"..sBot.."> \tИнформация о погоде\r\n\t"..sLine.."\r\n".. Теперь все нормально выводит. Переодически вылетает правда: Раскрывающийся текст Цитата [15:11:47] <OpChat> Произошла ошибка при обновлении информации о погоде. Причина: timeout Информация о погоде *************************************************************************** *** Сейчас в г. Томск за окном [нет данных] ° *** Атмосферное давление [Ошибка. Нет данных] *** Влажность [Ошибка. Нет данных] *** Скорость и направление ветра [Ошибка. Нет данных] *************************************************************************** Но чаще все нормально. Огромное спасибо |
|
|
28.2.2010, 14:20
Сообщение
#51
|
|
Начинающий Группа: Пользователи Сообщений: 22 Регистрация: 5.8.2008 Пользователь №: 321 Спасибо сказали: 0 раз |
Подобное лучше наверное вообще убрать, ибо все же этот отчет начинает доставать сильно
Раскрывающийся текст [17:12:36] <OpChat> Произошла ошибка при обновлении информации о погоде. Причина: timeout [17:15:39] <OpChat> Произошла ошибка при обновлении информации о погоде. Причина: timeout [17:16:36] <OpChat> Произошла ошибка при обновлении информации о погоде. Причина: timeout [17:17:39] <OpChat> Произошла ошибка при обновлении информации о погоде. Причина: timeout |
|
|
1.3.2010, 21:11
Сообщение
#52
|
|
Участник Группа: Пользователи Сообщений: 41 Регистрация: 20.1.2010 Из: KHV Пользователь №: 5 772 Спасибо сказали: 4 раза |
Подобное лучше наверное вообще убрать, ибо все же этот отчет начинает доставать сильно Раскрывающийся текст [17:12:36] <OpChat> Произошла ошибка при обновлении информации о погоде. Причина: timeout [17:15:39] <OpChat> Произошла ошибка при обновлении информации о погоде. Причина: timeout [17:16:36] <OpChat> Произошла ошибка при обновлении информации о погоде. Причина: timeout [17:17:39] <OpChat> Произошла ошибка при обновлении информации о погоде. Причина: timeout Код iTimeOut = 10 или больше поставить.добавил вызов через меню, переделал чтоб парсил с апорта, останется только ссыль заменить, может кому пригодится. Если будут ошибки поправьте пожалуйста, так вродь робит)
Прикрепленные файлы
|
|
|
3.1.2011, 11:03
Сообщение
#53
|
|
Активный участник Группа: Пользователи Сообщений: 54 Регистрация: 13.9.2010 Из: Быдло сити)) Пользователь №: 7 687 Спасибо сказали: 3 раза |
Отличный скрипт, только трабла, неизвестно почему на на погода@mail.ru тупо нету моего города...
можно его как-то переделать чтоб брал с |
|
|
3.1.2011, 12:00
Сообщение
#54
|
|
Белый Волк Группа: Пользователи Сообщений: 1 723 Регистрация: 11.9.2008 Из: г.Томск Пользователь №: 516 Спасибо сказали: 657 раз |
1. Пусть скрипт берёт информацию про ближайший к тебе большой город, который есть в списках майл.ру (для тебя, наверно, Саратов), а ты перед выводом этой информации просто подмени тот город на свой через
Код s = string.gsub(s,x,y) где s - всё сообщение, выводимое в чат, x - чужой город, y - твой город. Чужой город подменится твоим. Близкие города - погода одинаковая, особенно в европейской части России. 2. Хотя можно ещё проще - как значение переменной City пишешь свой город, а индекс города для получения погоды ставишь саратовский (ближайший с индексом). |
|
|
3.1.2011, 13:41
Сообщение
#55
|
|
Активный участник Группа: Пользователи Сообщений: 54 Регистрация: 13.9.2010 Из: Быдло сити)) Пользователь №: 7 687 Спасибо сказали: 3 раза |
неа, ближайший город с похожей погодой оказался
его ставлю, он вместо "0°" ставит "-3°" + гисметео правдивей. |
|
|
3.1.2011, 17:33
Сообщение
#56
|
|
Белый Волк Группа: Пользователи Сообщений: 1 723 Регистрация: 11.9.2008 Из: г.Томск Пользователь №: 516 Спасибо сказали: 657 раз |
Кстати, выложу-ка я тоже чуть подправленную версию этого скрипта.
Изменения: - добавил меню - добавил выборку погодных явлений (облачность, осадки и т.д.) - подправил чуток вывод градусов и мм.рт.ст - подогнал под себя дизайн вывода - при запуске скрипта сразу же с сайта берётся инфа о погоде, не дожидаясь сигнала от таймера (дальше уже отработает таймер) Думаю, можно добавить в меню разные города (по желанию админа) --------------------------------------------------------------------------------------- UPD: Всё, сделал с городами. Готовый скрипт с меню и разными городами переложил отдельной темой сюда. |
|
|
17.7.2014, 5:17
Сообщение
#57
|
|
Активный участник Группа: Пользователи Сообщений: 65 Регистрация: 29.5.2010 Пользователь №: 6 945 Спасибо сказали: 2 раза |
Кто сможет подправит данный скрипт под mail.ru
Раскрывающийся текст Код bSendToChat = false -- Отправлять ли в чат сообщения по таймеру (true) или нет (false) local sLine = ("*"):rep(75) sBot = SetMan.GetString(21) City = "Хабаровске" -- Город хаба iTimeToSend = 60*60 -- Интервал в секундах для отправления в чат при включенной опции выше iTimeOut = 5 -- Таймаут ожидания загрузки страницы (чтобы хаб не подвисал), в секундах function UserConnected(tUser) Core.SendToUser(tUser,"$UserCommand 1 3 Развлечения\\Погода$<%[mynick]> !temp|") end OpConnected = UserConnected RegConnected = UserConnected function ChatArrival(tUser, sData) local cmd = sData:match"%b<>%s+(%S+).*|" if cmd == "!темп" or cmd == "!temp" or cmd == "!темп" or cmd == "+temp" then if not sTemp then GetData() end Core.SendToUser(tUser,"<"..sBot.."> \tИнформация о погоде\r\n\t"..sLine.."\r\n".. "\tСейчас в г. "..City.." за окном: "..(sTemp or "[нет данных]").."\r\n".. "\tАтмосферное давление: "..(sAtmos or "[Ошибка. Нет данных]").."\r\n".. "\tВлажность: "..(sHumidity or "[Ошибка. Нет данных]").."\r\n".. "\tСкорость и направление ветра: "..(sWind or "[Ошибка. Нет данных]").."\r\n".. "\t"..sLine.."") return true end end function OnStartup() http = require("socket.http") http.TIMEOUT = iTimeOut TmrMan.AddTimer(1*60000,"GetData") if bSendToChat then TmrMan.AddTimer(iTimeToSend*1000, "SendToChat") end end function SendToChat() Core.SendToAll(tUser,"<"..sBot.."> \tИнформация о погоде\r\n\t"..sLine.."\r\n".. "\tСейчас в г. "..City.." за окном "..(sTemp or "[нет данных]").."\r\n".. "\tАтмосферное давление "..(sAtmos or "[Ошибка. Нет данных]").."\r\n".. "\tВлажность "..(sHumidity or "[Ошибка. Нет данных]").."\r\n".. "\tСкорость и направление ветра "..(sWind or "[Ошибка. Нет данных]").."\r\n".. "\t"..sLine.."") end function GetData() local msg,err = http.request("http://weather.aport.ru/auto/31735/Habarovsk.htm") if msg then local temp = msg:match("<div class=\"field2\">(.-)</div>") local atmos = msg:match("Давление:(.-)<br>") local humidity = msg:match("Влажность:(.-)<br>") local wind = msg:match("<div class=\"field3\">.-%b<((.-)%b<>") if temp then sTemp = temp:gsub("[%°%s]", "") sAtmos = atmos:gsub("[%&de;C%s]", "") sHumidity = humidity:gsub("[%&de;C%s]", "") sWind = wind:gsub("[% (;C%s]", "") else Core.SendToOpChat(" Не удалось обработать информацию о погоде. Возможно, было изменено оформление страницы.") end else Core.SendToOpChat(" Произошла ошибка при обновлении информации о погоде. Причина: "..err) end end |
|
|
17.7.2014, 11:52
Сообщение
#58
|
|
Белый Волк Группа: Пользователи Сообщений: 1 723 Регистрация: 11.9.2008 Из: г.Томск Пользователь №: 516 Спасибо сказали: 657 раз |
Sinsei,
Current_Weather_All_Cities |
|
|
Похожие темы
|
Сейчас: 23.12.2024, 14:11 |