1)
on $:text:/^!w(eather)?|f(orecast)?/Si:#: {
if ($2 isnum) {
if ($istok(!w !weather,$1,32)) { set %usweatherWF W }
if ($istok(!f !forecast,$1,32)) { set %usweatherWF F }
set %usweatherzip $2 | set %usweatherchan $chan
sockopen usweather www.localweather.net 80
}
ignore -u60 !@
}
no flood:)
2) www.localweather.com, not www.localweather.net
3) msg %usweatherchan Latitude:03 $removecs($gettok(%whtemplat,3,58),N,E,S,W,Lon) Longitude:03 $removecs($gettok(%whtemplat,4,58),N,E,S,W,Lon)