Code: Select all
#############################################################
## WunderWeather version 5.01 28/10/2017 ##
## Original Script by (lily@disorg.net) ##
## Version 5.0+ updates by SpiKe^^ www.mytclscripts.com ##
## ##
## VERSION 5.01 - 28/10/2017 ##
## - All processes and globals are now in a namespace ##
## - Replaced weather forecast (removed by Kiely Allen) ##
## - Replaced metric setting (removed by Kiely &/or David) ##
## - Added 3 new settings for removing colors and/or bolds ##
## - Added Throttle Users - Thanks to user & speechles ##
#############################################################
# International Weather script for Eggdrop.
# Displays in both F/C and MPH/KPH
# Will return weather from www.wunderground.com
# Requires TCL8.0 or greater
# Has been tested on Eggdrop 1.8.0 and 1.6.21
# You must ".chanset #channel +weather" for each chan
# you wish to use this in.
# Usage: !w <input>
# Input can be <zip> <city, st> <city, country> <airport code> <pws>
# To use PWS: !w pws:yourwundergroundpws
# VERSION 4.0 - output string rewrite
# VERSION 4.2 - http::cleanup, agent string update
# VERSION 4.3 - Single tag change in mobile.wunderground source
# (first in 4-ish years).
# VERSION 4.4 - fixed no windm var bug.
# VERSION 4.5 - Single tag change in mobile.wunderground source
# for forecast.
# VERSION 4.6 - Made default scale configurable
# VERSION 4.6+ - Edits/Updates by Kiely Allen and David Moore
# Edited Feb 01, 2014 - Kiely Allen:
# - Removed Forecast (may tidy up output later and add it again)
# - Added Barometer/Pressure (Rising & Falling)
# - Added Windchill & Fixed Output Tidyness
# Edited Feb 04, 2014 - David Moore:
# - Color Changing Temperature & Aliases
# - Don't Show Windchill If There Is None
# Edited Feb 09, 2014 - Kiely Allen/David Moore
# - Added Wind Gust, Cleaned Up Code, Fixed Multiple Choices Bug
# Edited Feb 10, 2014 - David Moore
# - Don't show windchill if $windcf/$windcc is <0.5F than $tempf
# Wind would often be 'calm' and windchill would show 0.1-0.5F±
# Edited Feb 13, 2014 - Kiely Allen/David Moore
# - Remove metric related config checks, all output includes
# both imperial and metric.
# - Don't show windchill if windchill is higher than $tempf,
# windchills under 1F of $tempf are insignificant
# Edited Feb 14, 2014 - Kiely Allen
# - Removed custom !ws as it didn't work as exoected,
# (need to fix missing $windgm error)
# Edited Jun 12, 2014 - Kiely Allen
# - Fixed $color extending to all text after $tempf with \003
# VERSION 4.7 - Edits/Updates made by SpiKe^^ - Oct 12, 2017
# Fixed two display issues with "Wind: ...gusting to..."
# - Added code to hide wind gusting string if have none.
# ( hides this: gusting to 0.0MPH (0.0KPH) )
# - Fixed a color-code issue in the display string used
# when showing "Wind: ...gusting to..."
####################################################################
package require http
setudef flag weather
namespace eval wunder {
## - Begin Script Settings - Begin Script Settings - ##
# Use Metric as the Primary in channel output?? #
# 1 = Yes, use metric as primary output. (0=no) #
variable metric 0
# Use Color Changing Temperatures?? (1=yes 0=no) #
variable colortemp 1
# Use WundergroundWeather Logo Color?? (1=yes 0=no)#
variable colorlogo 1
# Show Weather Item Names in Bold?? (1=yes 0=no) #
variable boldnames 1
# amount user can issue before throttle
variable throttle_max 2
# throttle time (seconds)
variable throttle_time 30
} ;## - End Script Settings - End Script Settings - ##
bind pub - !w ::wunder::pub_w
bind time - ?0* ::wunder::throttleclean
namespace eval wunder {
variable ver "5.01"
proc pub_w {nk uh hn ch input} {
if {![channel get $ch weather]} { return 0 }
set input [split [string trim $input]]
if {![llength $input]} {
puthelp "PRIVMSG $ch :You forgot the city or zip code"
return 0
}
if {[::wunder::throttle $uh $nk $ch]} { return 0 }
set agent "Mozilla/5.0 (X11; Linux i686; rv:2.0.1) Gecko/20100101 Firefox/4.0.1"
set query "http://mobile.wunderground.com/cgi-bin/findweather/getForecast?brand=mobile&query="
append query [join $input "+"]
set input [join $input]
set http [::http::config -useragent $agent]
set http [::http::geturl $query]
set html [::http::data $http] ; ::http::cleanup $http
#set open [open source.html w] ;puts $open $html ;close $open
regsub -all "\n" $html "" html
regexp {City Not Found} $html - nf
if {[info exists nf]} {
puthelp "PRIVMSG $ch :$input Not Found"
return 0
}
# // Checks if there are multiple choices for the city eg. "detroit" which has 6 entries
regexp {Place: Temperature} $html - mc
if {[info exists mc]} {
puthelp "PRIVMSG $ch :There are multiple choices for $input on wunderground.com. Try adding state, country, province, etc"
return 0
}
regexp {Observed at<b>(.*)</b> </td} $html - loc
if {![info exists loc]} {
puthelp "PRIVMSG $ch :Conditions not available for $input (try adding state, country, province, etc)"
return 0
}
regexp {Updated: <b>(.*?) on} $html - updated
regsub -all "\<.*?\>" $updated "" updated
regexp {Updated: <b>(.*?)Visibility</td} $html - data
regexp {Temperature</td>.*?<b>(.*?)</b>°F.*?<b>(.*?)</b>} $data - tempf tempc
if {![info exists tempf]} {
puthelp "PRIVMSG $ch :Weather for $loc is currently not available"
return 0
}
regexp {Conditions</td><td><b>(.*?)</b></td>} $data - cond
if {![info exists cond]} { set cond "Unknown" }
# // Wind Gust in MPH and KMH
regexp {Wind Gust</td>.*?<b>(.*?)</b> mph.*?<b>(.*?)</b>} $data - windgm windgk
# // Wind Chill in MPH and KMH
regexp {Windchill</td>.*?<b>(.*?)</b>°F.*?<b>(.*?)</b>} $data - windcf windcc
# // Pressure in inches and hPa
regexp {Pressure</td>.*?<b>(.*?)</b> in.*?<b>(.*?)</b>.*?<b>(.*?)</b>} $data - presi presh rifa
# // Humidity Percentage
regexp {Humidity</td><td><b>(.*?)</b>} $data - hum
# // Dew Point
# regexp {Dew Point</td>.*?<b>(.*?)</b>°F.*?<b>(.*?)</b>} $data - dewf dewc
#\002Dew Point:\002 ${dewf}F (${dewc}C)#
if {![info exists windgm]} { set windgm "0.0" }
if {![info exists windgk]} { set windgk "0.0" }
# // Wind Direction, Wind Speed.
regexp {Wind</td><td><b>(.*?)</b>.*?<b>(.*?)</b> mph.*?<b>(.*?)</b>} $data - windd windm windk
if {![info exists windm]} { set windm "0" }
if {$windm==0} {
set windout "Calm"
} else {
if {$::wunder::metric==1} { set windout "$windd @ ${windk}KPH (${windm}MPH)"
} else { set windout "$windd @ ${windm}MPH (${windk}KPH)" }
# hide wind gust if have none #
if {$windgm > $windm} {
if {$::wunder::metric==1} {
append windout " gusting to ${windgk}KPH (${windgm}MPH)"
} else { append windout " gusting to ${windgm}MPH (${windgk}KPH)" }
}
}
# // Build current weather string.
if {$::wunder::boldnames==0} { set b "" } else { set b "\002" }
if {$::wunder::colorlogo==0} { set logo "" ; set endl ""
} else { set logo "\00313" ; set endl "\003" }
set putthis ""
append putthis "${b}Temperature:$b[::wunder::color $tempf $tempc]"
if {$::wunder::metric==1} { append putthis " (${tempf}F) - "
} else { append putthis " (${tempc}C) - " }
if {[info exists windcf] && ($tempf > $windcf) && (abs($tempf - $windcf) > 1.0)} {
append putthis "${b}Windchill:$b[::wunder::color $windcf $windcc]"
if {$::wunder::metric==1} { append putthis " (${windcf}F) - "
} else { append putthis " (${windcc}C) - " }
}
append putthis "${b}Humidity:$b $hum - ${b}Wind:$b $windout - ${b}Pressure:$b "
if {$::wunder::metric==1} { append putthis "${presh}hPa (${presi}in) $rifa - "
} else { append putthis "${presi}in (${presh}hPa) $rifa - " }
append putthis "${b}Conditions:$b $cond - ${b}Updated:$b $updated"
puthelp "PRIVMSG $ch :${logo}$loc:$endl $putthis"
# // Build forecast string.
set x { Forecast as(.*?)<br /><b>(.*?)</b><br />.*?<br />(.*?)<br /><br />}
regexp $x $html - fdata next ncast
if {[info exists fdata]} {
regexp {<td align="left"><b>(.*?)</b>} $fdata - fday
regexp { alt="" /><br />(.*?)<br />} $fdata - fcast
puthelp "PRIVMSG $ch :${logo}Forecast:$endl $b$fday:$b $fcast - $b$next:$b $ncast"
} else {
set x {<a name="forecast">.*?<td align="left"><b>(.*?)</b><br />(.*?)</td></tr>}
set y {.*?<td align="left"><b>(.*?)</b><br />(.*?)</td></tr>}
set map [list \t " " "° " "" "°" "" ":" ""]
regexp $x$y [string map $map $html] - fday fcast next ncast
if {[info exists ncast]} {
set fcast [regsub -all -- {\s{2,}} [string trim $fcast] { }]
set ncast [regsub -all -- {\s{2,}} [string trim $ncast] { }]
puthelp "PRIVMSG $ch :${logo}Forecast:$endl $b$fday:$b $fcast - $b$next:$b $ncast"
}
}
}
# // End proc ::wunder::pub_w // #
# // Primary Temperature Color Changing.
# // You can change colors based on fahrenheit temperatures.
# // IRC allows only 16 colors. See mIRC color chart.
proc color {temp tempc} {
set x "${temp}F"
if {$::wunder::metric==1} { set x "${tempc}C" }
if {$::wunder::colortemp==0} { return " $x" }
if {$temp < 20} { return "\00312 $x\003" }
if {$temp < 45} { return "\00311 $x\003" }
if {$temp < 70} { return "\00309 $x\003" }
if {$temp < 85} { return "\00307 $x\003" }
if {$temp < 100} { return "\00304 $x\003" }
return "\00313 $x\003"
}
# // Throttle Proc (slightly altered, super action missles) - Thanks to user & speechles
# // See this post: http://forum.egghelp.org/viewtopic.php?t=9009&start=3
proc throttle {id nk ch} { set now [clock seconds]
if {[info exists ::wunder::throttle($id)]&&[lindex $::wunder::throttle($id) 0]>$now} {
lassign $::wunder::throttle($id) ut cnt
if {$cnt == $::wunder::throttle_max} {
puthelp "PRIVMSG $ch :$nk, you have been Throttled ([expr {$ut-$now}] secs)"
}
set ::wunder::throttle($id) [list $ut [incr cnt]]
if {$cnt > $::wunder::throttle_max} { set id 1 } { set id 0 }
} else {
set ::wunder::throttle($id) [list [expr {$now+$::wunder::throttle_time}] 1]
set id 0
}
}
# // sub - clean throttled users
proc throttleclean {args} { set now [clock seconds]
foreach {id time} [array get ::wunder::throttle] {
if {[lindex $time 0]<=$now} {unset ::wunder::throttle($id)}
}
}
}
# // End namespace eval wunder // #
putlog "\002W\002under\002W\002eather v$::wunder::ver Loaded"
