,,1)) && (!$hget(%Wunder.name,day2high)) && ($hget(%Wunder.name,day1high)) {
hadd %Wunder.name day2high $deg($between(%Wundervar,
,1)) && (!$hget(%Wunder.name,day2low)) && ($hget(%Wunder.name,day1low)) {
hadd %Wunder.name day2low $deg($between(%Wundervar,
,,1)) && (!$hget(%Wunder.name,day1high)) {
hadd %Wunder.name day1high $deg($between(%Wundervar,
,,1) )
}
if ($between(%Wundervar,
,,1)) && (!$hget(%Wunder.name,day1low)) {
hadd %Wunder.name day1low $deg($between(%Wundervar,
,,1))
}
}
}
}
alias -l deg {
return $replace($1-,°,$chr(186),°,$chr(176)) $iif(F isin $1-,$FtoC($remove($1-,°,°,F)),$CtoF($remove($1-,°,°,C)))
}
Alias -l GetPic {
if ($sock($+(getpic,$2))) { return }
if ($isfile($+(wunderground\,$2))) { return }
set %GetPic.Site $gettok($remove($1,http://),1,47)
set %GetPic.URL $remove($1,$gettok($1,1,47),$gettok($1,2,47),//)
set %GetPic.PicName $2
if (!$isdir($+($mircdir,wunderground))) { mkdir wunderground }
sockopen $+(GetPic,%getpic.picname) %getpic.site 80
}
On *:sockopen:GetPic*:{
sockwrite -nt $sockname GET %getpic.url HTTP/1.0
sockwrite $sockname Host: %getpic.site $+ $crlf $+ $crlf
}
On *:sockread:GetPic*:{
if (!$sock($sockname).mark) {
var %GetPic.var | sockread %GetPic.var
if (%GetPic.var == $null) { sockmark $sockname 1 }
}
else {
sockread &picture
bwrite $qt($+($mircdir,wunderground\,%getpic.picname)) -1 -1 &picture
}
}
Alias -l GetPik {
if ($isfile($+(wunderground\,$2))) { return }
sockclose GetPik
set %GetPik.Site $gettok($remove($1,http://),1,47)
set %GetPik.URL $remove($1,$gettok($1,1,47),$gettok($1,2,47),//)
set %GetPik.PicName $2
if (!$isdir($+($mircdir,wunderground))) { mkdir wunderground }
sockopen GetPik %GetPik.site 80
}
On *:sockopen:GetPik:{
sockwrite -nt $sockname GET %GetPik.url HTTP/1.0
sockwrite $sockname Host: %GetPik.site $+ $crlf $+ $crlf
}
On *:sockread:GetPik:{
if (!$sock($sockname).mark) {
var %GetPik.var | sockread %GetPik.var
if (%GetPik.var == $null) { sockmark $sockname 1 }
}
else {
sockread &pict
bwrite $qt($+($mircdir,wunderground\,%GetPik.picname)) -1 -1 &pict
}
}
On *:sockclose:GetPik:{
unset %GetPik.*
}
alias -l CurrentConditions {
if ($dialog(CurrentConditions)) { dialog -v CurrentConditions CurrentConditions }
else { dialog -m CurrentConditions CurrentConditions }
}
alias -l 5-Day {
if ($dialog(5-DayForecast)) { dialog -v 5-DayForecast 5-DayForecast }
else { dialog -m 5-DayForecast 5-DayForecast }
}
Alias -l GetRad {
if ($isfile($+(wunderground\,$2))) { .remove $+(wunderground/,$2) }
set %GetRad.Site $gettok($remove($1,http://),1,47)
set %GetRad.URL $remove($1,$gettok($1,1,47),$gettok($1,2,47),//)
set %GetRad.PicName $2
if (!$isdir($+($mircdir,wunderground))) { mkdir wunderground }
sockclose GetRad
sockopen GetRad %GetRad.site 80
}
On *:sockopen:GetRad:{
sockwrite -nt $sockname GET %GetRad.url HTTP/1.0
sockwrite $sockname Host: %GetRad.site $+ $crlf $+ $crlf
}
On *:sockread:GetRad:{
if (!$sock($sockname).mark) {
var %GetRad.var | sockread %GetRad.var
if (%GetRad.var == $null) { sockmark $sockname 1 }
}
else {
sockread &pict
bwrite $qt($+($mircdir,wunderground\,%GetRad.picname)) -1 -1 &pict
}
}
On *:sockclose:GetRad:{
unset %GetRad.*
}
;alias by Gummo
alias -l between {
noop $regex($1,/\Q $+ $2 $+ \E(.*?)\Q $+ $3 $+ \E/gi)
return $regml($4)
}
alias -l httpstrip {
var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9),$chr(13))
return %x
}
alias -l colorz {
var %string = $1-, %count = $gettok($1-,0,32), %counter = 1, %return
var %c1 04
var %c2 04
while (%counter <= %count) {
if ($left($gettok(%string,%counter,32),1) isalpha) {
%return = %return $+(,%c1,$left($gettok(%string,%counter,32),1),,%c2,$right($gettok(%string,%counter,32),$calc($len($gettok(%string,%counter,32)) - 1)),)
}
else { %return = %return $gettok(%string,%counter,32) }
inc %counter
}
$iif($isid,return,say) %return
}
alias -l FtoC { $iif($isid,return,echo -a) $+($round($calc((5 / 9) * ($1 - 32)),0),°,C) }
alias -l CtoF { $iif($isid,return,echo -a) $+($round($calc(((9 / 5) * $1) + 32),0),°,F) }
menu * {
Wunderground
.Weather Dialogs:CurrentConditions
.$iif($group(#Wunderground.Trigger) == On,$style(1)) Wunderground Trigger
..$iif($group(#Wunderground.Trigger) == On,$style(2)) On: .enable #Wunderground.Trigger
..$iif($group(#Wunderground.Trigger) == Off,$style(2)) Off: .disable #Wunderground.Trigger
-
}