Code:

?[::http::formatQuery unitGroup metric key $::Visualcrossing::key]

Code:

set forecast_data [::Visualcrossing::download_weather https://weather.visualcrossing.com/VisualCrossingWebServices/rest/services/timeline/${arg}/next3days?unitGroup=metric&key=$::Visualcrossing::key]

Code:

### The Third Proc for 3 days Forecast proc ::Visualcrossing::forecast_weather {nick uhost hand chan arg} {set forecast_data [::Visualcrossing::download_weather https://weather.visualcrossing.com/VisualCrossingWebServices/rest/services/timeline/${arg}/next3days?[http::formatQuery unitGroup metric key $::Visualcrossing::key]]if {$arg == ""} { putserv "PRIVMSG $chan :Sintax: !3 location" ; return }set forecast_dict [::json::json2dict $forecast_data]set desc [dict get $forecast_data description]putserv "PRIVMSG $chan :TEST $desc" }

Code:

####################################### @UniBG irc.chatpat.bg ## @FreeUniBG irc.interbg.org  ## Credits: MeMoreX & SpiKe^^ ## Est: 01\2022 #######################################namespace eval Visualcrossing {### Requirementspackage require jsonpackage require tlspackage require http### Bindingbind PUB -|- !g ::Visualcrossing::group_weatherbind PUB -|- !w ::Visualcrossing::pub_weather  ### The API Keysset appid "Openweather api website"set apiKey "ipgeoinfo website"set key "visualcrossing website"}### Procedures start hereproc ::Visualcrossing::download_weather {url} {    ::http::register https 443 [list ::tls::socket -tls1 1]::http::config -useragent "Mozilla/5.0 (compatible; bingbot/2.0; +http://www.bing.com/bingbot.htm)"set socket [http::geturl $url -timeout 5000]set items_data [http::data $socket]if {[http::status $socket] ne "ok" || [http::ncode $socket] != 200} {set code [http::code $socket]putlog "\00304***\003 Weather HTTP error: $code"putlog "\00304***\003 Request url is: $url"http::cleanup $socketreturn 0    }http::cleanup $socketreturn $items_data}### The Main Procproc ::Visualcrossing::pub_weather {nick uhost hand chan arg} {set items_data [::Visualcrossing::download_weather https://weather.visualcrossing.com/VisualCrossingWebServices/rest/services/weatherdata/forecast?[::http::formatQuery location $arg aggregateHours 24 forecastdays 3 includeAstronomy true locationMode lookup unitGroup metric shortColumnNames false contentType json alertLevel event lang en nonulls true key $::Visualcrossing::key]]if {$arg == ""} { putserv "PRIVMSG $chan :Правилно: !w града/локацията" ; return }### The Main Dictset connect[::json::json2dict $items_data]### The First Stack set locations [dict get $connect locations]set cityname [lindex $locations 0]set citydata [lindex $locations 1]set tz [dict get $citydata tz]set long [dict get $citydata longitude]set lat [dict get $citydata latitude]### The Second Stackset current [dict get $citydata currentConditions]if {$current != "null"} { set conditions $current }if {$current == "null" || $current == "" || $current == " "} { set currCond "Няма информация. Моля опитайте по-късно." } else { set currCond $current }set wdir [join [::Visualcrossing::deg_to_dir [dict get $current wdir]]]set wspd [dict get $current wspd]if {$wdir == "null" || $wdir == "" || $wdir == " "} { set windir "Няма информация. Моля опитайте по-късно." } else { set windir $wdir }if {$wspd == "null" || $wspd == "" || $wspd == " "} { set wspeed "Нe се усеща" } else { set wspeed [expr round($wspd)]км/ч}if {$wspd != "null"} {set wspd [expr round($wspd)]} set wgust [dict get $current wgust]if {$wgust == "null" || $wgust == "" || $wgust == " "} { set wgustmsg "Нe се усеща" } else { set wgustmsg [expr round($wgust)]км/ч}if {$wgust != "null"} {set wgust [expr round($wgust)]}set temp [dict get $current temp]set temp [expr round($temp)]### The Third Stackset values [dict get $citydata values]set alert [dict get [lindex $values 0] alerts]if {$alert == "null"} { set alertmsg "Няма!" } else { set alertmsg $alert }set mint [dict get [lindex $values 0] mint]set mint [expr round($mint)]set maxt [dict get [lindex $values 0] maxt]set maxt [expr round($maxt)]set humi [dict get [lindex $values 0] humidity]set humi [expr round($humi)]set cond [dict get [lindex $values 0] conditions]if {$cond == "Rain, Overcast"} {set condmsg "\u2614 Дъжд"}elseif {$cond == "Snow"} { set condmsg "\u2744 Сняг"}elseif {$cond == "Rain, Partially cloudy"} { set condmsg "Дъжд, превалява на моменти" }elseif {$cond == "Snow, Overcast"} { set condmsg "Сняг, сиво, мрачно"}elseif {$cond == "Overcast"} { set condmsg "Облачно, сиво, мрачно"}elseif {$cond == "Clear"} { set condmsg "Ясно"}elseif {$cond == "Partially cloudy"} { set condmsg "Частична облачност"} else { set condmsg $cond }set cloud [dict get [lindex $values 0] cloudcover]### The Fourth Stackset sun_moon_data [::Visualcrossing::download_weather https://api.ipgeolocation.io/astronomy?[http::formatQuery apiKey $::Visualcrossing::apiKey location $arg]]if {$sun_moon_data == 0} { return }set sunmoon_dict [::json::json2dict $sun_moon_data]set sunrise [dict get $sunmoon_dict sunrise]set sunset [dict get $sunmoon_dict sunset]set current_time [string range [dict get $sunmoon_dict current_time] 0 4]if {$current_time > $sunset} { set currtime "Нощ" } { set currtime "Ден" }if {$cloud < 10} {if {$currtime eq "Ден"} { set sky "Слънчево" } else { set sky "Ясно" }} elseif {$cloud < 20} {if {$currtime eq "Ден"} { set sky "Приятно" } else { set sky "Меко" }} elseif {$cloud < 30} {if {$currtime eq "Ден"} { set sky "Предимно слънчево" } else { set sky "Предимно ясно" }} elseif {$cloud < 60} {if {$currtime eq "Ден"} { set sky "\u26c5 Слънчево на моменти" } else { set sky "Облачно на моменти" }} elseif {$cloud < 90} { set sky "Предимно облачно" } else { set sky "Облачно" }#putlog "Day\Night -> $currtime | CloudCover% -> $cloud | Conditions -> $cond | Sunset time: $sunset and Current time is $current_time ?"### The Fifth Stackset weather_data [::Visualcrossing::download_weather https://api.openweathermap.org/data/2.5/weather?[http::formatQuery q $arg appid $::Visualcrossing::appid lang bg units metric]]if {$weather_data == 0} { return }set weather_dict [::json::json2dict $weather_data]set city [dict get $weather_dict name]set country [join [dict get $weather_dict sys country]]putserv "PRIVMSG $chan :\00307\002$city, $country\003\002 \00314в момента: \00307$condmsg\003  \002\00307$temp°C\002\003 \00314Влажност \00307$humi\%\003 \00314Вятър\003 \00307$wspeed \00314от \00307$wdir\003 \00314Скорост на поривите\003 \00307$wgustmsg\003 \00314Облачна покривка\003 \00307$sky\003 \00314Утре: Мин/Макс (\003\00307↓$mint\°C\003\00314/\00307↑$maxt\C°\003\00314)\003"putserv "PRIVMSG $chan :\00314Сигнали за опасност:\003 \00304$alertmsg\003"set alerts [dict get $citydata alerts]if {$alerts != "null"} { set alert $alerts }set head [dict get [lindex $alerts 0] headline]set onsetEpoch [dict get [lindex $alerts 0] onsetEpoch]set endsEpoch [dict get [lindex $alerts 0] endsEpoch]set ondate [clock format $onsetEpoch -format "%a, %e %b %Y %H:%M"]set offdate [clock format $endsEpoch -format "%a, %e %b %Y %H:%M"]putserv "PRIVMSG $chan :\[\00304!\003\00314Опасност\00304!\003]\ \00304$head \003\[\00314FROM:\003]\00304 $ondate \003\[\00314TO:\003]\00304 $offdate\003"}### The Second proc for the group cities by IDproc ::Visualcrossing::group_weather {nick uhost hand chan arg} {set group_data [::Visualcrossing::download_weather https://api.openweathermap.org/data/2.5/group?[http::formatQuery id 727447,726051,727011,2643743,7839805 appid $::Visualcrossing::appid lang bg units metric]]if {$group_data == 0} { return }set group_dict [::json::json2dict $group_data]set cities [dict get $group_dict list]set cities_info ""foreach city $cities { set temp [dict get $city main temp]set temp [expr round($temp)]if {$temp >=0} {set temp "$temp"}set name [dict get $city name]set des [dict get [lindex [dict get $city weather] 0] description]lappend cities_info "\00307$name \00304$temp°C\003 /\00314$des\003/" }putserv "PRIVMSG $chan :\00314Времето в момента:\003 [join $cities_info " "]" }### Calculates the degrees from the API and converts them to words expresion like the string below### Attached to the Second Stack of the Main proc proc ::Visualcrossing::deg_to_dir {value} {set calc [expr ($value / 22.5) + 0.5]set dirs "Север Север-Североизток Североизток Изток-Североизток Изток Изток-Югоизток Югоизток Юг-Югоизток Юг Юг-Югозапад Югозапад Запад-Югозапад Запад Запад-Северозапад Северозапад Север-Североизток"return [lindex $dirs [expr int($calc) % 16]]}### Sets the crontab expresion like the string belowproc ::Visualcrossing::auto_say {min hour day month week} {::Visualcrossing::group_weather "-" "-" "-" "#Forbidden"}### Timer for making the weather posted in a channel, depends on the preference (refer to https://crontab.guru/)bind cron -|- "0 */6 * * *" ::Visualcrossing::auto_say### The Third Proc for 3 days Forecast #proc ::Visualcrossing::forecast_weather {nick uhost hand chan arg} {#set group_data [::Visualcrossing::download_weather https://weather.visualcrossing.com/VisualCrossingWebServices/rest/services/timeline/#namespace eval SunMoon {### Requirements package require jsonpackage require httppackage require tlspackage require Trf### Binding bind PUB - !a ::SunMoon::pub_sun_moon### The API Keys set appid "a12c83435763f3cc1342eecb4de4d48e"set apiKey "388be6b288bd45b8966c90dcf40517b0"set key "Z3UDHRSCXQHNDZRQXT2PDDGW4"### The Main Astro Proc proc ::SunMoon::download_data {url} {::http::register https 443 [list ::tls::socket -tls1 1]::http::config -useragent "Mozilla/5.0 (compatible; bingbot/2.0; +http://www.bing.com/bingbot.htm)"set sun_moon [http::geturl $url -timeout 5000]set sun_moon_data [http::data $sun_moon]if {[http::status $sun_moon] ne "ok" || [http::ncode $sun_moon] != 200} {set code [http::code $sun_moon]putlog "\00304***\003 SunMoon HTTP error: $code"putlog "\00304***\003 Requested url is: $url"http::cleanup $sun_moonreturn 0}http::cleanup $sun_moon  return $sun_moon_data}proc ::SunMoon::pub_sun_moon {nick uhost hand chan arg} {if {$arg == ""} { putserv "PRIVMSG $chan :Правилно: !a <Град/Локация>" ; return }set sun_moon_data [::SunMoon::download_data https://api.ipgeolocation.io/astronomy?[http::formatQuery apiKey $::SunMoon::apiKey location $arg]]if {$sun_moon_data == 0} { return }set sunmoon_dict [::json::json2dict $sun_moon_data]set current_time [string range [dict get $sunmoon_dict current_time] 0 4]set sunrise [dict get $sunmoon_dict sunrise]set sunset [dict get $sunmoon_dict sunset]set daylength [dict get $sunmoon_dict day_length]set moonrise [dict get $sunmoon_dict moonrise]set moonset [dict get $sunmoon_dict moonset]set moon_status [dict get $sunmoon_dict moon_status]if {$current_time < $sunset} { set currtime "Ден" } { set currtime "Вечер" }set items_data [::SunMoon::download_data https://weather.visualcrossing.com/VisualCrossingWebServices/rest/services/weatherdata/forecast?[::http::formatQuery location $arg aggregateHours 24 forecastDays 3 includeAstronomy true locationMode lookup unitGroup metric shortColumnNames false contentType json alertLevel event lang en nonulls true key $::SunMoon::key]]### The Main Astro Dictset connect[::json::json2dict $items_data]###The First Astro Stack set locations [dict get $connect locations]set cityname [lindex $locations 0]set citydata [lindex $locations 1]set tz [dict get $citydata tz]## The Second Astro Stackset current [dict get $citydata currentConditions]set moon [dict get $current moonphase]if {$moon==0 || $moon== 1} {  set phase "Новолуние"} elseif {$moon<0.25} {  set phase "Изгряващ полумесец"} elseif {$moon==0.25} {  set phase "Първа четвърт"} elseif {$moon<0.5} {  set phase "Растяща луна"} elseif {$moon==0.5} {  set phase "Пълнолуние"} elseif {$moon<0.75} {  set phase "Намаляваща луна"} elseif {$moon==0.75} {  set phase "Последна четвърт"} elseif {$moon<1} {  set phase "Залязващ полумесец"} else {  set phase "Грешка. Опитайте пак."}### The Third Astro Stackset values [dict get $citydata values]set uv [dict get [lindex $values 0] uvindex]if {$uv==0} {set index "Нисък"}elseif {$uv<5 || $uv==6}  {set index "Умерен"}elseif {$uv<7 || $uv==8}  {set index "Висок"}elseif {$uv<9 || $uv==10} {set index "Много висок"}elseif {$uv>11} {set index "Екстремен"}else {set index "Грешка. Няма данни."}set radiation [dict get [lindex $values 0] solarradiation]set energy [dict get [lindex $values 0] solarenergy]### The Fourth Astro Stackset weather_data [::SunMoon::download_data https://api.openweathermap.org/data/2.5/weather?[http::formatQuery q $arg appid $::SunMoon::appid lang bg units metric]]if {$weather_data == 0} { return }set weather_dict [::json::json2dict $weather_data]set city [dict get $weather_dict name]set country [join [dict get $weather_dict sys country]]putserv "PRIVMSG $chan :\002\00314 ---=== Астрономическа информация ===---\003\002"putserv "PRIVMSG $chan :\00314Часът в \00307\002$city, $country\003\002 \00314е \00307$current_time\ч.\003 \00314Часова зона\003 \00307$tz ($currtime) \003\00314Продължителност на деня\003 \00304$daylength\ч."putserv "PRIVMSG $chan :\00314Слънцето: \00307Изгрев в\003 \00304$sunrise\ч\003 \00314и\003 \00307Залез в\003 \00304$sunset\ч.\003 \00307УВ индекс: \00304$index\003 ☀️ \00314радиация \00304$radiation\W/m2\003 ☀️\u26a1 \00314енергия \00304$energy\kWh/m2\003"putserv "PRIVMSG $chan :\00314Луната: \00307Ще изгрее в\003 \00304$moonrise\ч\003 \00314и\003 \00307ще залезе в\003 \00304$moonset\ч.\00307 Лунна фаза: \00304$phase\003"}}### Lastly, help section on NOTICE for a bit more information### Bindingbind pub -|- !weather pub:helpproc pub:help {nick uhost hand chan text} {global botnickset text [cleanarg $text]if {[llength $text]<1} {putserv "NOTICE $nick :----------==========\002Weather Commands\002==========--------------"putserv "NOTICE $nick :!w града/локация - показва времето в момента."putserv "NOTICE $nick :!a града/локация - показва астрономическа информация"putserv "NOTICE $nick :!3 града/локация показва времето за три дни напред."putserv "NOTICE $nick :!g - показва информация за предварително зададени градове в една група"}}putlog "The complete Weather Tcl ...Loaded"

Code:

https://weather.visualcrossing.com/VisualCrossingWebServices/rest/services/timeline/London,UK/next5days?key=YOUR_API_KEY

Code:

if {$cloudcover < 10} {  if {$currtime eq "Day"} {  set sky "Sunny"  } else {  set sky "Clear"  }} elseif {$cloudcover < 20} {  if {$currtime eq "Day"} {  set sky "Sunny to Mostly Sunny"  } else {  set sky "Fair"  }} elseif {$cloudcover < 30} {  if {$currtime eq "Day"} {  set sky "Mostly Sunny"  } else {  set sky "Mostly Fair"  }} elseif {$cloudcover < 60} {  if {$currtime eq "Day"} {  set sky "Partly Sunny"  } else {  set sky "Partly Cloudy"  }} elseif {$cloudcover < 90} {  set sky "Mostly Cloudy"} else {  set sky "Cloudy"  }

Code:

### The Fourth Stackset sun_moon_data [::Visualcrossing::download_weather https://api.ipgeolocation.io/astronomy?[http::formatQuery apiKey $::Visualcrossing::apikey location $arg]]if {$sun_moon_data == 0} { return }set sunmoon_dict [::json::json2dict $sun_moon_data]set current_time [string range [dict get $sunmoon_dict current_time] 0 4]set sunset [dict get $sunmoon_dict sunset]set sunrise [dict get $sunmoon_dict sunrise]if {$current_time <= $sunset} { set currtime "Day" } else { set currtime "Night" } 

Code:

set cloudcover [dict get [lindex $values 0] cloudcover]if {$cloudcover == 0} { set skymsg "Sunny"}elseif {$cloudcover == 10} { set skymsg "Mostly Sunny" }elseif {$cloudcover == 20} { set skymsg "Mostly Sunny Spells"}elseif {$cloudcover < 50} { set skymsg "Partly Sunny"}elseif {$cloudcover < 70} { set skymsg "Mostly Cloudy"}elseif {$cloudcover < 99 || $cloudcover == 100 } { set skymsg "Cloudy"} else { set skymsg $cloudcover}set current_time [string range [dict get $sunmoon_dict current_time] 0 4]if {$current_time <= 18} { set currtime "Day"    } elseif {$current_time > 18} { set currtime "Night"} else { set currtime $current_time}