METEO, CECI PERMET DE VOIR LA METEO POUR LES 3JOURS QUI VIENNENT

alias sockdownload { sockclose dwl | sockclose recupe | set %dwl.file $1 | sockopen dwl $gettok(%dwl.file,1,47) 80 }
on *:sockopen:dwl:{
  tokenize 47 %dwl.file
  sockwrite -nt $sockname GET $replace($+($chr(47),$2-),$chr(32),$chr(47)) HTTP/1.1
  tokenize 46 $remove($1,$chr(119))
  sockwrite -nt $sockname HOST: $replace($1-,$chr(32),$chr(46)) $+ $str($crlf,2)
}
on *:sockread:dwl:{
  sockread %a 
  if (%a = $null) {
    sockrename dwl recupe
  }
}
on *:sockread:recupe:{
  sockread &bin
  var %a $gettok(%dwl.file,0,47)
  bwrite $scriptdir $+ $gettok(%dwl.file,%a,47) -1 &bin
}
on *:sockclose:recupe:{
  var %a $gettok(%dwl.file,0,47)
  did -g meteo 1 $scriptdir $+ $gettok(%dwl.file,%a,47)
}
alias meteo dialog -m meteo meteo
dialog meteo {
  title "Meteo France"
  size -1 -1 349 317
  icon 1, 3 -30 342 350, 
  combo 2, 3 292 183 102, size drop
  button "Visualiser", 3, 188 292 62 21
  button "Fermer", 4, 282 292 62 21, ok
  box "" 5,0 -6 349 297
  box "" 6,0 283 349 34
}
on *:dialog:meteo:init:*:{
  did -a $dname 2 Ce matin
  did -a $dname 2 Cet apres midi
  did -a $dname 2 Demain matin
  did -a $dname 2 Demain apres midi
  did -a $dname 2 Apres demain
}
on *:dialog:meteo:sclick:*:{
  if ($did = 3) {
    if ($did($dname,2) = Ce matin) { sockdownload www.europe1.fr/images/meteo/frantmpp0AM.jpg }
    if ($did($dname,2) = Cet apres midi) { sockdownload www.europe1.fr/images/meteo/frantmpp0PM.jpg }
    if ($did($dname,2) = Demain matin) { sockdownload www.europe1.fr/images/meteo/frantmpp1AM.jpg }
    if ($did($dname,2) = Demain apres midi) { sockdownload www.europe1.fr/images/meteo/frantmpp0PM.jpg }
    if ($did($dname,2) = Apres demain) { sockdownload www.europe1.fr/images/meteo/frantenJ2.jpg }
  }
}