CodeS-SourceS est hébergé par Frontier.fr

Ce site au démarrage

begin process at 2010 03 13 17:35:18

Accueil Codes Tutoriels Forum Livres Emploi Services Connexion

Trouver un code source :

dans

[ Dernières recherches ]

Accueil >

AddOns

> METEO, DEPARTEMENTS ET ENSOLEILLEMENT MONDIAL

METEO, DEPARTEMENTS ET ENSOLEILLEMENT MONDIAL

Information sur la source

Note :
Aucune note

Catégorie :AddOns Classé sous :meteo, departements, ensoleillement, picwin, france Niveau :Initié Date de création :02/08/2007 Date de mise à jour :11/08/2007 23:15:29 Vu / téléchargé :15 159 / 95

Auteur : RCA ArKanis

Ecrire un message privé

Site perso

Commentaire sur cette source (9)

Ajouter un commentaire et/ou une note

Description

Cliquez pour voir la capture en taille normale

Ce code est en fait un regroupement des codes Météo et Départements déjà présents sur ce site, mais rajoute à ceux-là une image "Ensoleillement de la Terre à l'heure actuelle"

Je suis parti du code Météo, que j'ai bien largement amélioré :
- il télécharge désormais le fichier GUI-ArKanis.mrc et le charge automatiquement dès qu'il est nécessaire, ainsi que le fichier departements.ini
- la fonction désinstallation est plus performante
- de nombreux bugs ont été corrigés
URL de la source Météo de laquelle je suis parti : http://www.ircfr.com/codes/METEO-PICWIN-FRANCE-DOM -TOM_41367.aspx
Je rappelle que la météo présentée est celle de la France et de ses DOM-TOM

Le code Départements :
- Fonction recherche bien plus interessante (localise directement sur la carte le résultat de la recherche)
- Design refait (un rectangle où s'affichent les infos s'ouvre en passant la souris sur un département)
- Jeu recodé entièrement
URL de la source Départements que j'ai utilisée : http://www.ircfr.com/codes/DEPARTEMENTS-FRANCAIS-I NTERACTIF-JEU-PICWIN_33941.aspx

Le code Ensoleillement :
- Tout nouveau
- Télécharge l'image de l'ensoleillement sur un site internet
- Possibilité de choisir quel format télécharger (choix entre 1600 et 1024)

Si je fais une nouvelle sources, c'est tout d'abord parce que je pense laisser en libre téléchargement la météo et les départements individuellement, et qu'autrement je ne savais pas laquelle des deux modifier :)
En plus, comme ça je peux tester si l'envoi de sources fonctionne toujours, ce qui n'est pas le cas de uaip, à ce qu'il paraît

Une aide est inclue dans un des menus (comme d'habitude).

mIRC version 6.17 minimum, 6.21 très largement conseillée ! (il y a un bug graphique avec la 6.17)

Source

;*********************************
; Meteo, Departements & SunLight
; By ArKanis
; www.arkanis.eu
;*********************************
; Version 2.2
; Powered by
; www.lachainemeteo.com
; &
; www.die.net/earth
alias meteo {
if ($version < 6.17) {
return $input(Il faut impérativement avoir une version de mIRC plus récente ou équivalente à la version 6.17,o)
}
if ($window(@DepCache)) window -c @DepCache
if ($hget(@DepDL)) hfree $ifmatch
if ($hget(@DepDLDo)) hfree $ifmatch
var %l = france.bmp departements.ini, %t = 1, %m = $numtok(%l,32)
while %t <= %m {
var %w = $gettok(%l,%t,32)
if (!$exists($meteo.f(%w))) hadd -m @DepDL %w 1
inc %t
}
if (!$script(GUI-ArKanis.mrc)) {
if ($findfile($mircdir,GUI-ArKanis.mrc,1)) {
.load -rs $qt($ifmatch)
.timer 1 1 meteo
return
}
else {
hadd -m @DepDL GUI-ArKanis.mrc 1
dep.DL
return
}
}
if (!$isalias(²picwin)) {
if ($?!="L'alias ²picwin n'existe pas. Voulez-vous retélécharger le code GUI-ArKanis pour corriger ce problème ?") hadd -m @DepDL GUI-ArKanis.mrc 1
else return
}
if ($hget(@DepDL)) dep.DL
else {
²freehash @Dep Colors Nums DL DLDo
hmake @DepColors 20
hload -i @DepColors $meteo.f(departements.ini) Couleur
hmake @DepNums 20
hload -i @DepNums $meteo.f(departements.ini) Num
²picwin @Meteo 500 500 "Meteo"
titlebar @Meteo By ArKanis
²newmenu @Meteo Consulter la météo
²newitem @Meteo En France:²meteo.sel France,DOM TOM:²meteo.sel,$chr(9),Changer le jour:²meteo.selday,$chr(9),Fermer:²close @Meteo
²newmenu @Meteo Autres écrans
²newitem @Meteo Vigilance:²meteo.vigilance,Recherche:²meteo.rech
²newmenu @Meteo Départements
²newitem @Meteo Voir la carte:²meteo.dep,Jouer:²meteo.play
²newmenu @Meteo Ensoleillement
²newitem @Meteo Voir la carte:²meteo.ens,Configurer:²meteo.enscfg
²newmenu @Meteo ?
²newitem @Meteo Aide:²meteo.aide,Crédits:²meteo.credits,Désinstaller:²meteo.delete
if ($1 == dep) ²drawmenu @Meteo 3 1
elseif ($1 == sunlight) ²drawmenu @Meteo 4 1
else ²drawmenu @Meteo $iif($exists($meteo.f(Backup.png)),1 1,5 1)
²description @Meteo Temps 400
²ref @Meteo
}
}
alias ²meteo.sel {
if (!$window(@Meteo)) return
if ($hget(Meteo,Jour) !isnum 0-9) hadd -m Meteo Jour 0
if ($1) {
hadd -m Meteo Link $+(index.php?langue=fr&echeance=,$hget(Meteo,Jour))
²meteoopen France
}
else {
²centre @Meteo -b 40 Sélection d'un DOM-TOM
²centre @Meteo 225 Sélectionnez votre DOM-TOM
²select @Meteo 100 150 245 200 30 Guadeloupe¥Martinique¥Guyane¥La Réunion¥St Pierre et Miquelon¥Mayotte¥Polynésie Française¥Nouvelle Calédonie¥Wallis et Futuna
²button @Meteo 101 200 280 100 20 Sélectionner
²setdefault @Meteo 101
²description @Meteo 100 Change la région sélectionnée dans une permutation circulaire
²description @Meteo 101 Affiche la météo de la région choisie
}
}
alias ²meteo.selday {
if (!$window(@Meteo)) return
²centre @Meteo -b 40 Sélection du jour
var %l = Aujourd'hui¥Demain¥Après-Demain¥Dans 3 jours¥Dans 4 jours¥Dans 5 jours¥Dans 6 jours, %s = $gettok(%l,$calc($hget(Meteo,Jour) +1),165)
if ($hget(Meteo,Jour) isnum 0-6) {
while ($gettok(%l,1,165) != %s) var %l = $addtok($deltok(%l,1,165),$gettok(%l,1,165),165)
}
²select @Meteo 102 200 245 100 30 %l
²button @Meteo 103 200 280 100 20 Sélectionner
²setdefault @Meteo 103
²description @Meteo 103 Donne la météo prévue pour dans X jours pour toutes les demandes à venir
}
alias ²meteo.rech {
²centre @Meteo -b 40 Recherche
²centre @Meteo 70 Entrez le nom de la ville ou son code postal
²edit @Meteo -a 8 200 110 100 20
²button @Meteo 9 200 135 100 20 Rechercher
²setdefault @Meteo 9
²description @Meteo 9 Etablie une liste des résultats trouvés pour sélectionner rapidement une ville
}
alias meteo.answer if ($1 == ²meteo.rech) meteo.sclick 9 $2
alias ²meteo.delete {
²close @Meteo
noop $findfile($meteo.f,*,0,.remove $qt($1-))
.rmdir Meteo
window -a "Status Window"
if ($?!="Souhaitez-vous décharger le fichier $script (contient la Météo) ?") {
if (!$?!="Voulez-vous GARDER le fichier ?") .timer 1 1 .remove $qt($script)
.timer 1 1 .unload -rs $qt($script)
}
var %s = $script(GUI-ArKanis.mrc)
if ((%s) && ($?="Voulez-vous décharger le code GUI-ArKanis ?")) {
.unload -rs GUI-ArKanis.mrc
echo 2 -at * Déchargement du code GUI-ArKanis effectué.
}
if (($exists(%s)) && ($?!="Voulez-vous effacer le fichier GUI-ArKanis.mrc ?")) {
.remove $qt(%s)
echo 2 -at * Effacement du fichier GUI-ArKanis.mrc effectué.
}
}
;**************
;Données du GUI
;**************
alias meteo.menu {
sockclose meteo*
if (($1) && ($hget(MeteoLocation))) hfree MeteoLocation
}
alias meteo.close {
²freehash @Dep Colors Num DL DLDo Jeu
hfree -w Meteo*
if ($window(@Meteo.copyVilles)) window -c $ifmatch
if ($window(@DepCache)) window -c $ifmatch
if ($window(@DepCache2)) window -c $ifmatch
}
on *:close:@Meteo:meteo.close
alias meteo.mouse {
if (!$window(@Meteo)) return
var %x = $1, %y = $2
if ($hget(@Meteo,Main) == ²meteo.dep) {
var %c = $rgb($getdot(@DepCache2,$1,$2))
if (($inrect($1,$2,40,70,500,500)) && ($hget(@DepColors,%c))) {
var %x = $calc($1 +10), %y = $calc($2 +4), %l = $+($ifmatch,¥,$hget(@DepNums,$ifmatch)), %z = Numéro :-Département :-Préfecture :-Région :
if ($hget(@Dep,Temp) == %c) return
drawcopy -n @DepCache 0 0 500 470 @Meteo 0 0
hadd -m @Dep Temp %c
var %t = 1, %w = 100, %h = 46
while %t <= 4 {
if ($width($gettok(%z,%t,45) $gettok(%l,%t,165),Tahoma,10,0,1) > %w) var %w = $v1
inc %t
}
if (!%w) return
inc %w 6
if ($calc(%x + %w) > 497) dec %x $calc(%w +20)
if ($calc(%y + %h) > 469) dec %y $calc(%h +8)
drawrect -fnr @Meteo 16761024 1 %x %y %w %h
drawrect -nr @Meteo 0 1 %x %y %w %h
var %i = 1
while %i <= 4 {
drawtext -pnr @Meteo 0 Tahoma 10 $calc(%x +3) $calc(%y + %i *10-8) $gettok(%z,%i,45) $gettok(%l,%i,165)
inc %i
}
drawdot @Meteo
}
elseif ($hget(@Dep,Temp)) {
drawcopy -n @DepCache 0 0 500 470 @Meteo 0 0
hdel @Dep Temp
}
}
else {
var %x = $1, %y = $2, %g
var %f = $hget(Meteo,Origin), %ox = $gettok(%f,1,32), %oy = $gettok(%f,2,32), %dx = $gettok(%f,3,32), %dy = $gettok(%f,4,32)
if (($inrect(%x,%y,%ox,%oy,%dx,%dy)) && ($hget(MeteoLocation)) && ($hget(Meteo,Ready))) {
var %t = 1, %l = MeteoLocation
while $hget(%l,%t).item {
var %i = $ifmatch, %d = $hget(%l,%i)
tokenize 32 %d
if ($inrect(%x,%y,$1,$2,35,28)) {
var %g = 1
if ($hget(MeteoTemp,Loc) == %i) break
hadd -m MeteoTemp Loc %i
.²backup @Meteo Villes
if (!$window(@Meteo.copyVilles)) ²svg @Meteo Villes
var %ht = $+(MeteoVille,$hget(Meteo,Period))
if (!$hget(%ht,0).item) var %ht = MeteoVille0
var %t1 = $replace(%i,$chr(165),$chr(32)), %t2 = T° : $gettok($hget(%ht,%i),3,32), %dy = 32
if (%t2 == T° : ø) var %t2, %dy = $calc(%dy - 14)
var %w = $max($width(%t1,Tahoma,10),$width(%t2,Tahoma,10)), %ox = $calc($1 -4 - %w / 2), %oy = $calc($2 -26)
drawrect -nr @Meteo 0 1 $calc($1 - %w) %oy $calc(%w +6) %dy
drawrect -fnr @Meteo 16761024 1 $calc($1 - %w +1) $calc(%oy +1) $calc(%w +4) $calc(%dy -2)
drawtext -nr @Meteo 0 Tahoma 10 $calc($1 -%w + (%w +6- $width(%t1,Tahoma,10)) /2) $calc(%oy + 2) %t1
if (%t2) drawtext -nr @Meteo 0 Tahoma 10 $calc($1 -%w + (%w +6- $width(%t2,Tahoma,10)) /2) $calc(%oy +17) %t2
²ref @Meteo
break
}
inc %t
}
if (%g) return
}
if ((!%g) && ($hget(MeteoTemp,Loc))) {
hdel MeteoTemp Loc
²backup @Meteo Villes
}
if ((!$hget(MeteoVille,Vigilance)) && ($hget(Meteo,Jour) <= 2) && ($hget(Meteo,Ready)) && (!$hget(@Meteo,Main))) {
if (($inrect(%x,%y,49,471,56,23)) && ($hget(Meteo,Period) != 0)) {
hadd -m Meteo Period 0
²efface @Meteo 25 60 450 410
.meteo.fond.apply Meteo/Backup.png
meteo.fond.apply
}
elseif (($inrect(%x,%y,371,471,79,23)) && ($hget(Meteo,Period) != 1)) {
hadd -m Meteo Period 1
²efface @Meteo 25 60 450 410
.meteo.fond.apply Meteo/Backup.png
meteo.fond.apply
}
}
}
}
alias meteo.sclick {
if (!$window(@Meteo)) return
var %x = $mouse.x, %y = $mouse.y
if ($hget(@Meteo,Main) == ²meteo.dep) {
if ($hget(@Meteo,On)) {
hdel @Meteo On
meteo.newgame
return
}
if ($inrect(%x,%y,40,70,500,500)) {
var %c = $rgb($getdot(@DepCache2,%x,%y))
if ($hget(@DepColors,%c)) {
var %g = $ifmatch
url -n $+(http://www.quid.fr/departements.html?mode=detail&style=fiche,&dep=,$iif(%g < 10,$+(0,%g),%g))
}
}
}
elseif ($hget(@Meteo,Main) == ²meteo.play) {
if ($inrect(%x,%y,40,70,500,500)) {
var %c = $rgb($getdot(@DepCache2,%x,%y))
if ($hget(@DepColors,%c)) {
var %it = $ifmatch
if ($istok($hget(@DepJeu,Sol),%it,165)) {
hadd -m @DepJeu Score $+($calc($gettok($hget(@DepJeu,Score),1,47) + $iif(!$hget(@DepJeu,Aide),2,1)),/,$calc($gettok($hget(@DepJeu,Score),2,47) +1))
hadd -m @DepJeu Last 1
meteo.newgame
meteo.mouse %x %y
}
elseif (!$hget(@DepJeu,$+(Clic,%it))) {
hadd -m @DepJeu Score $+($gettok($hget(@DepJeu,Score),1,47),/,$calc($gettok($hget(@DepJeu,Score),2,47) +1))
hinc -m @DepJeu Aide
tokenize 44 $hfind(@DepColors,$gettok($hget(@DepJeu,Sol),1,165)).data
hadd -m @DepJeu Last 0
if (($hget(@DepJeu,Aide) == 4) && ($rgb($1,$2,$3))) drawrect -fnr @Meteo $ifmatch 1 250 450 50 20
elseif ($hget(@DepJeu,Aide) > 7) meteo.newgame
hadd -m @DepJeu $+(Clic,%it) 1
}
²efface @Meteo 10 40 60 20
drawtext -cnr @Meteo 12 Tahoma 0 10 40 60 20 $hget(@DepJeu,Score)
drawdot @Meteo
}
}
}
elseif ($left($hget(@Meteo,Main),10) == ²meteo.ens) {
if ($1 == 300) {
if ($exists($meteo.f(map.jpg))) run $qt($meteo.f(map.jpg))
if ($window(@²Desc)) window -c $ifmatch
}
elseif ($1 == 301) writeini -n $meteo.f(departements.ini,Config,Resol) $²did(@Meteo,301)
elseif ($1 == 302) ²menu.do @Meteo ²meteo.ens
}
else {
if ($1 == 101) {
var %g = $calc(96 + $findtok(Guadeloupe¥Martinique¥Guyane¥La Réunion¥St Pierre et Miquelon¥Mayotte¥Polynésie Française¥Nouvelle Calédonie¥Wallis et Futuna,$²did(@Meteo,100),1,165))
hadd -m Meteo Link $+(index.php?langue=fr&echeance=,$hget(Meteo,Jour),&domtom=,%g)
²meteoopen $²did(@Meteo,100)
}
elseif ($1 == 103) {
hadd -m Meteo Jour $calc($findtok(Aujourd'hui¥Demain¥Après-Demain¥Dans 3 jours¥Dans 4 jours¥Dans 5 jours¥Dans 6 jours,$²did(@Meteo,102),1,165) -1)
²drawmenu @Meteo 1 1
}
elseif ($hget(MeteoTemp,Loc)) {
var %i = $ifmatch
if ($hget(Meteo,Jour) < 3) var %t = $hget(Meteo,Period)
else var %t = 0
hadd -m Meteo Link $+(index_detail.php?langue=fr&echeance=,$hget(Meteo,Jour),&num_ville=,$gettok($hget($+(MeteoVille,%t),%i),5,32))
²meteoopen $hget(MeteoTemp,Loc)
}
elseif ($1 == 9) {
if ($²did(@Meteo,8)) {
hadd -m Meteo Link $+(moteur_recherche.php?langue=fr&txt_search=,$ifmatch)
²efface @Meteo 150 195 210 230
if ($hget(@MeteoButtons,11)) hdel @MeteoButtons 11
hadd -m MeteoVille Rech 1
.meteo.wait Recherche
.²meteoopen
}
}
elseif ($1 == 11) {
if (!$hget(Meteo,Jour)) hadd -m Meteo Jour 0
var %v = $replace($²did(@Meteo,10),$chr(32),$chr(165)), %r = /($[^$]+\))/g
hadd -m Meteo Link $+(index_detail.php?langue=fr&echeance=,$hget(Meteo,Jour),&num_ville=,$hget(MeteoVille,%v))
²meteoopen $regsubex(%v,%r,)
}
}
}
alias meteo.edit .timermeteoedit -m 1 500 meteo.edit2 $1-
alias meteo.edit2 {
if ($1 == 200) {
tokenize 32 $replace($²did(@Meteo,$1),-,$chr(32))
if ($1-) {
var %r = $1-, %t = 1
drawcopy -n @DepCache2 0 0 500 470 @Meteo 0 0
while $hget(@DepNums,%t).data {
var %i = 1, %m = $0, %n = $hget(@DepNums,%t).item, %h = $+(%n,¥,$replace($ifmatch,-,$chr(165),$chr(32),$chr(165))), %ok = 1
var %c = $hfind(@DepColors,%n).data, %rgb = $rgb($gettok(%c,1,44),$gettok(%c,2,44),$gettok(%c,3,44))
if (%rgb) {
while %i <= %m {
var %f = $gettok($1-,%i,32)
if (%f isnum) var %re = %f
else var %re = $+(%f,$iif(%i == %m,*))
if (!$wildtok(%h,%re,1,165)) unset %ok
inc %i
}
if (%ok) drawreplace -nr @Meteo %rgb 255 40 70 427 397
}
inc %t
}
drawcopy -n @Meteo 0 0 500 470 @DepCache 0 0
}
else {
drawcopy -n @DepCache2 0 0 500 470 @Meteo 0 0
drawcopy -n @Meteo 0 0 500 470 @DepCache 0 0
}
drawdot @Meteo
}
}
;*******
;Sockets
;*******
alias -l ²meteoopen {
if (!$window(@Meteo)) return
if ($window(@Meteo.copyVilles)) window -c $ifmatch
if ($show) {
meteo.wait
²centre @Meteo -b 40 $replace($1-,¥,$chr(32)) $meteo.date($iif($hget(Meteo,Jour) isnum 0-,$ifmatch,0))
if ($hget(Meteo,Jour) <= 2) {
var %p = 51
while %p < 451 {
drawline -nr @Meteo $rgb($calc(30 + %p /2),250,$calc(255 - %p /2)) 2 %p 471 %p 494
inc %p 2
}
drawrect -nr @Meteo 0 1 49 470 402 26
drawtext -nr @Meteo 8388608 Tahoma 12 60 475 MATIN
drawtext -nr @Meteo 8388608 Tahoma 12 376 475 APRES-MIDI
}
}
sockclose meteo
sockopen meteo www.lachainemeteo.com 80
}
alias -l meteo.date {
var %d = $+($chr(40),$date($calc($ctime + 86400 * $1)),$chr(41))
if ($1 == 0) return aujourd'hui %d
if ($1 == 1) return demain %d
if ($1 == 2) return après-demain %d
else return dans $1 jours %d
}
on *:sockopen:meteo:{
if ($hget(MeteoQueue)) hfree MeteoQueue
var %t
if ($hget(MeteoVille,Rech)) var %t = 1
hfree -w MeteoVille*
if (%t) hadd -m MeteoVille Rech 1
hfree -w MeteoTemp
hadd -m Meteo Period 1
sockwrite -n $sockname GET $+(http://www.lachainemeteo.com/,$$hget(Meteo,Link)) HTTP/1.0
sockwrite -n $sockname $+(Host: lachainemeteo.com,$str($crlf,2)))
}
on *:sockread:meteo:{
var %a
sockread %a
if ($gettok(%a,1,9) == .Fond_Carte) sockmark $sockname FOND
elseif (($regex(%a,/background-image:url$'(.+)'$/gi)) && ($sock($sockname).mark == FOND)) {
fond.meteo $regml(1)
sockmark $sockname 0
}
elseif ($regex(%a,Menu_Periode_200_([0-9])_J([0-9]))) {
if ($regml(2) != $hget(Meteo,Jour)) sockmark $sockname 0
else {
hadd -m MeteoTemp Heure $regml(1)
sockmark $sockname VILLES
if ($exists(Meteo/Backup.png)) drawpic -n @Meteo 50 70 Meteo/Backup.png
drawrect -nr @Meteo 0 1 49 69 402 402
²centre @Meteo 240 Chargement en cours ...
}
}
elseif ($regex(%a,bloc_ephem_j([0-9]))) {
if ($regml(1) == $hget(Meteo,Jour)) sockmark $sockname Ephemerides
}
elseif ($sock($sockname).mark == Ephemerides) {
if ($regex(%a,/height: 30px;.+>([^>]+)</div>$/i)) hadd -m MeteoVille Eph $hget(MeteoVille,Eph) $replace($regml(1),$chr(32),$chr(165))
elseif ($regex(%a,(-?[0-9]+)°C)) hadd -m MeteoVille Eph $hget(MeteoVille,Eph) $replace($+($regml(1),°C),$chr(32),$chr(165))
elseif ($regex(%a,/height: 13px;.+">(.+)</div>/U)) hadd -m MeteoVille Eph $hget(MeteoVille,Eph) $replace($regml(1),<br>,$chr(165),$chr(32),$chr(165))
elseif ($regex(%a,/(Lever|Coucher) : <[^>]+>([^<]+)</span></div>/i)) hadd -m MeteoVille Eph $hget(MeteoVille,Eph) $replace($regml(2),$chr(32),$chr(165))
elseif ($regex(%a,/info([0-9])_ephem/i)) {
if (($regml(1) isnum 2-) && ($regex(H,%a,/>([^>]+)</div>/i))) hadd -m MeteoVille Eph $hget(MeteoVille,Eph) $replace($regml(H,1),$chr(32),$chr(165))
}
}
elseif ($regex(%a,/num_ville=([0-9]+)".+class="Liste_Elt_href">(.+)</a>/gU)) {
hadd -m MeteoVille Rech $addtok($hget(MeteoVille,Rech),$regml(2),165)
hadd -m MeteoVille $replace($regml(2),$chr(32),$chr(165)) $regml(1)
}
elseif ($regex(%a,/src="/image/logo/lachainemeteo/lcm_60x40.gif"/i)) sockmark $sockname VILLES
elseif ($sock($sockname).mark == VILLES) {
if ($regex(%a,/Periode_Temps_([0-1])/i)) hadd -m MeteoTemp Heure $regml(1)
if ($regex(%a,(-?[0-9]+) &\#176;)) hadd -m $+(MeteoVille,$hget(MeteoTemp,Heure)) $hget(MeteoTemp,Ville) $regml(1) $hget(MeteoTemp,Pic) $hget(MeteoTemp,CP)
elseif ($regex(%a,num_ville=([0-9]+))) hadd -m MeteoTemp CP $regml(1)
else {
if ($regex(%a,src="(.+)" class='Lien_Icone')) {
var %i = $regml(1), %f = $gettok(%i,-1,47)
if (!$exists($+(Meteo/,%f))) dl.meteo %i 1
hadd -m MeteoTemp Pic %f
}
var %r = /left\:(-?[0-9]+\.?[0-9]?)px\;top\:([0-9]+\.?[0-9]?)px.+'(.+)'/ig
if ($regex(%a,%r)) hadd -m MeteoTemp Ville $remove($replace($regml(3),é,é,è,è,ç,ç,$chr(32),$chr(165),#039;,',ï,ï),&) $regml(1) $regml(2)
}
}
}
on *:sockclose:meteo:{
if ($hget(Meteo,Link)) hdel Meteo Link
if ($hget(MeteoVille,Rech)) {
if ($deltok($hget(MeteoVille,Rech),1,165)) {
²list @Meteo 10 150 200 200 200 $v1
²button @Meteo 11 150 405 200 20 Sélectionner
²setdefault @Meteo 11
}
else {
²efface @Meteo 150 195 210 230
²centre @Meteo 240 Aucun résultat !
}
hdel MeteoVille Rech
drawdot @Meteo
}
}
alias -l fond.meteo {
if (!$isdir(Meteo)) mkdir Meteo
var %f = $meteo.f($+(fond.,$extension($1-)))
if ($exists(%f)) .remove %f
hadd -m Meteo Fond $1-
hadd -m Meteo Fond2 %f
sockclose MeteoFond
sockopen MeteoFond www.lachainemeteo.com 80
}
on *:sockopen:MeteoFond:{
sockwrite -n $sockname GET $$hget(Meteo,Fond) HTTP/1.0
sockwrite -n $sockname $+(Host: lachainemeteo.com,$str($crlf,2)))
}
on *:sockread:MeteoFond:{
var %a
sockread &a
if ((!$sock($sockname).mark) && ($bfind(&a, 1,$str($crlf,2)))) {
bcopy &b 1 &a $calc($ifmatch +4) -1
if ($bvar(&b,0)) bwrite $hget(Meteo,Fond2) -1 -1 &b
sockmark $sockname 1
}
elseif ($bvar(&a,0)) bwrite $hget(Meteo,Fond2) -1 -1 &a
}
on *:sockclose:MeteoFond:meteo.fond.apply
alias -l meteo.fond.apply {
if (!$window(@Meteo)) return
var %f = $hget(Meteo,Fond2)
if ($1-) var %f = $1-
elseif (!%f) var %f = $meteo.f(fond.png)
if (!$exists(%f)) return
var %x = $pic(%f).width, %y = $pic(%f).height, %ox = $calc(250 - %x / 2), %oy = $calc(270 - %y /2)
drawrect -nr @Meteo 0 1 $calc(%ox -1) $calc(%oy -1) $calc(%x +2) $calc(%y +2)
drawpic -n @Meteo %ox %oy $shortfn(%f)
if ($show) {
hdel -w Meteo Fond*
hadd -m Meteo Origin %ox %oy %x %y
if ((!$sock(Meteo.dl)) && (!$hget(MeteoQueue,0).item)) meteo.generate
}
}
alias -l dl.meteo {
hadd -m MeteoQueue $1- 1
if ($exists($+(Meteo/,$gettok($1,-1,47)))) .remove $meteo.f($gettok($1,-1,47))
if ($sock(dl.meteo)) return
.timer -h 1 500 dl.meteo.do
}
alias -l dl.meteo.do {
var %f = $hget(MeteoQueue,1).item
if (!%f) {
if (!$sock(MeteoFond)) meteo.generate
return
}
hadd -m MeteoTemp DL %f
hadd -m MeteoTemp DLName $meteo.f($gettok(%f,-1,47))
sockclose Meteo.dl
sockopen Meteo.dl www.lachainemeteo.com 80
}
on *:sockopen:Meteo.dl:{
sockwrite -n $sockname GET $$hget(MeteoTemp,DL) HTTP/1.0
sockwrite -n $sockname $+(Host: lachainemeteo.com,$str($crlf,2)))
}
on *:sockread:Meteo.dl:{
sockread &a
if ((!$sock($sockname).mark) && ($bfind(&a, 1,$str($crlf,2)))) {
bcopy &b 1 &a $calc($ifmatch +4) -1
if ($bvar(&b,0)) bwrite $$hget(MeteoTemp,DLName) -1 -1 &b
sockmark $sockname 1
}
elseif ($bvar(&a,0)) bwrite $$hget(MeteoTemp,DLName) -1 -1 &a
}
on *:sockclose:Meteo.dl:{
if ($hget(MeteoQueue,$hget(MeteoTemp,DL))) hdel MeteoQueue $hget(MeteoTemp,DL)
hdel -w MeteoTemp DL*
dl.meteo.do
}
alias -l meteo.generate {
if (!$window(@Meteo)) return
if ($window(@Meteo.copyVilles)) window -c @Meteo.copyVilles
var %t = 1, %p = MeteoLocation
if ($hget(%p)) hfree %p
var %ht = $+(MeteoVille,$hget(Meteo,Period)), %f = $hget(Meteo,Origin), %ox = $gettok(%f,1,32), %oy = $gettok(%f,2,32), %x = $gettok(%f,3,32)
if (!$hget(%ht,0).item) var %ht = MeteoVille0
if ($pic(Meteo/fond.png).width > 350) .copy -o $qt($meteo.f(fond.png)) $qt($meteo.f(Backup.png))
while $hget(%ht,%t).item {
var %i = $ifmatch, %d = $hget(%ht,%i)
tokenize 32 %d
if (anim !isin $4) drawpic -tn @Meteo 0 $calc($1 + %ox) $calc($2 + %oy) $shortfn($meteo.f($4))
else drawpic -ctn @Meteo 16777215 $calc($1 + %ox) $calc($2 + %oy) $shortfn($meteo.f($4))
if ($3 != ø) drawtext -nr @Meteo 0 Tahoma 10 $calc($1 + %ox + 15) $calc($2 + %oy + 25) $+($3,°)
hadd -m %p %i $calc($1 + %ox) $calc($2 + %oy)
inc %t
}
if (!$hget(MeteoVille,Vigilance)) {
var %te = $meteo.translate($puttok($asctime(dd mm yyyy),$calc($asctime(dd) + $hget(Meteo,Jour)),1,32)) $iif($hget(Meteo,Jour) <= 2,$iif(!$hget(Meteo,Period),Matin,Après-Midi))
²surligne @Meteo 10 $calc(%ox +2) $calc(%oy +2) %te
}
if ($hget(MeteoVille,Eph)) {
tokenize 32 $replace($gettok($ifmatch,$+($calc($hget(Meteo,Period) +1),-),32), ,$chr(165))
²surligne @Meteo 12 70 375 $replace($1,$chr(165),$chr(32))
²surligne @Meteo -l 12 430 375 $replace($3,$chr(165),$chr(32))
²surligne @Meteo 12 70 395 $replace($5,$chr(165),$chr(32))
²surligne @Meteo 12 70 415 Lever du soleil : $replace($gettok($1-,-3,32),$chr(165),$chr(32))
²surligne @Meteo 12 70 435 Coucher du soleil : $replace($gettok($1-,-2,32),$chr(165),$chr(32))
²surligne @Meteo -l 12 430 395 Lune : $replace($gettok($1-,-1,32),$chr(165),$chr(32))
}
hadd -m Meteo Ready 1
²ref @Meteo
}
;*************
;Autres écrans
;*************
alias ²meteo.vigilance {
if (!$window(@Meteo)) return
²centre @Meteo -b 40 Carte de vigilance
meteo.wait
if ($hget(MeteoLocation)) hfree MeteoLocation
if ($hget(Meteo,Period) != $null) hdel Meteo Period
hfree -w MeteoVille*
hadd -m MeteoVille Vigilance 0 0 ø vigilance.gif
fond.meteo /image/carte/vigilance/vigilance_fond.gif
dl.meteo /image/carte/vigilance/vigilance.gif
hadd -m MeteoTemp Carte Vigilance
}
alias ²meteo.aide {
if (!$window(@Meteo)) return
²centre @Meteo -b 40 Aide
var %d = drawtext -pnr @Meteo 0 Tahoma 12 30
%d 80 Bienvenue sur l'aide de Meteo & Départements (codé par ArKanis)
%d 120 Météo :
%d 140 Cette version très simple permet de connaître la météo en France ou ses
%d 160 DOM-TOMs et ce de un à six jours.
%d 180 Pour commencer, choisissez où regarder la météo.
%d 200 Vous obtiendrez plus d'informations et passant la souris sur une ville et en
%d 220 cliquant dessus
%d 260 Départements :
%d 280 Vous donne toutes les infos relatives à chaque département à savoir son
%d 300 numéro, son nom, sa préfecture et sa région.
%d 320 En cliquand sur un département, vous ouvrirez le quid à la page du département.
%d 340 Le jeu consiste à localiser le département à partir d'une de ses
%d 360 informations. Au bout de quatre erreurs, une aide s'affiche.
%d 380 Trouver du premier coup vous octroie deux points, ne pas trouver au bout
%d 400 de huit fait passer à une autre question.
%d 440 Ensoleillement :
%d 460 Montre l'ensoleillement actuel du monde. Nuages actualisés toutes les heures.
%d 480 Pour les connexions lentes, choisissez l'image en 1024.
}
alias ²meteo.credits {
if (!$window(@Meteo)) return
²centre @Meteo -b 40 Crédits
var %d = drawtext -pnr @Meteo 0 Tahoma 12 40
%d 105 Utilitaire codé par ArKanis
%d 125 Mon Site :
²link @Meteo 96 213 125 "www.arkanis.eu" www.arkanis.eu
%d 145 Météo, images provenant de :
²link @Meteo 97 213 145 "www.lachainemeteo.com" www.lachainemeteo.com
%d 165 Départements :
²link @Meteo 95 213 165 "www.arkanis.eu" ArKanis
%d 185 Ensoleillement :
²link @Meteo 94 213 185 "www.die.net/earth/" www.die.net/earth
drawtext -onr @Meteo 0 Tahoma 12 40 240 Remerciements :
%d 260 A mes testeurs, Meli, NeoBlaster et Panthouffle
%d 280 A mes amis (non cités car trop nombreux pour l'être sans oubli :D)
%d 300 A ma famille
%d 345 Deux sites de scripting mIRC :
²link @Meteo 98 204 345 "www.ircfr.com" IRCfr
drawtext -nr @Meteo 0 Tahoma 12 233 345 et
²link @Meteo 99 247 345 "www.scriptsdb.org" ScriptsDB
²centre @Meteo 375 Météo : 03/02/07 et 04/02/07
²centre @Meteo 395 Départements : 01/08/07
²centre @Meteo 415 Ensoleillement : 02/08/07
}
;***************************************
;Téléchargement des fichiers nécessaires
;***************************************
alias -l dep.DL {
if (!$isdir(Meteo)) mkdir Meteo
var %n = $hget(@DepDL,0).item
if (!%n) { dep.dl.end | return }
if ($hget(@DepDLDo)) .hfree $ifmatch
else echo 2 -at * Le code Meteo doit télécharger %n $+(fichier,$iif(%n > 1,s),.)
hadd -m @DepDLDo Fichier $hget(@DepDL,1).item
hadd -m @DepDLDo Ticks $ticks
sockclose dep.dl
sockopen dep.dl arkanisfr.free.fr 80
}
on *:sockopen:dep.dl:{
if ($sockerr) return
if (!$hget(@DepDLDo,Fichier)) return
sockwrite -n $sockname GET $+(http://arkanisfr.free.fr/Script-ArKanis/,$hget(@DepDLDo,Fichier)) HTTP/1.0
sockwrite -n $sockname $+(Host: free.fr,$str($crlf,2))
}
on *:sockread:dep.dl:{
sockread &a
if ((!$sock($sockname).mark) && ($bfind(&a, 1,$str($crlf,2)))) {
bcopy &b 1 &a $calc($ifmatch +4) -1
if ($bvar(&b,0)) bwrite $qt($meteo.f($$hget(@DepDLDo,Fichier))) -1 -1 &b
sockmark $sockname 1
}
elseif ($bvar(&a,0)) bwrite $qt($meteo.f($$hget(@DepDLDo,Fichier))) -1 -1 &a
}
on *:sockclose:dep.dl:{
var %n = $hget(@DepDLDo,Fichier)
echo 2 -at * Téléchargement de %n terminé.
if ($hget(@DepDL,%n)) hdel @DepDL %n
dep.dl
}
alias -l dep.dl.end {
echo 2 -at * Tous les fichiers ont été téléchargés en $+($calc($ticks - $hget(@DepDLDo,Ticks)),ms.)
if ($hget(@DepDLDo)) .hfree $ifmatch
dep
}
;******
;Divers
;******
alias -l meteo.wait {
if ($show) ²clear @Meteo
hadd -m Meteo Ready 0
²centre @Meteo 240 $iif($1,$1,Chargement) en cours ...
²ref @Meteo
}
alias -l meteo.f return $+(Meteo\,$1-)
alias dep departements $1-
alias departements {
if (!$1) meteo dep
else {
if (!$exists($meteo.f(departements.ini))) {
echo 2 -at * Veuillez taper /dep avant d'accéder aux options de cette commande (pour télécharger les fichiers nécessaires).
return
}
if (!$hget(@DepNums)) {
hmake @DepNums 20
hload -i @DepNums $meteo.f(departements.ini) Num
}
if (!$hget(@DepNums,Liste)) {
var %t = 1, %max = $hget(@DepNums,0).item
while %t <= %max {
hadd -m @DepNums Liste $addtok($hget(@DepNums,Liste),$hget(@DepNums,%t).item,165)
inc %t
}
hadd -m @DepNums Liste $sorttok($hget(@DepNums,Liste),165,n)
}
if (($1 isnum) && ($hget(@DepNums,$1))) echo -a 2 $+ $asctime([HH:nn:ss]) 12,1[ 0Département $1 : $gettok($hget(@DepNums,$1),1,165) 12::0 Préfecture : $gettok($hget(@DepNums,$1),2,165) 12::0 Région administrative : $gettok($hget(@DepNums,$1),3,165) 12]
else {
var %t = 1, %max = $numtok($hget(@DepNums,Liste),165)
while %t <= %max {
var %f = $gettok($hget(@DepNums,Liste),%t,165), %g = $hget(@DepNums,%f)
if (($wildtok(%g,$1,0,165)) && (%f != Liste)) echo -a 2 $+ $asctime([HH:nn:ss]) 12,1[ 0Département %f : $gettok(%g,1,165) 12::0 Préfecture : $gettok(%g,2,165) 12::0 Région administrative : $gettok(%g,3,165) 12]
inc %t
}
}
}
}
;************
;Départements
;************
alias ²meteo.dep {
if (!$window(@Meteo)) return
drawpic -ct @Meteo 16777215 40 70 $qt($meteo.f(france.bmp))
if ($window(@DepCache)) window -c @DepCache
drawtext -nr @Meteo 0 Tahoma 12 20 455 Recherche :
²edit @Meteo -a 200 20 470 200 20 $chr(124)
window -BCdg0hk0npRz +d @DepCache 0 0 500 470
window -BCdg0hk0npRz +d @DepCache2 0 0 500 470
drawcopy -n @Meteo 0 0 500 470 @DepCache 0 0
drawcopy -n @Meteo 0 0 500 470 @DepCache2 0 0
}
alias ²meteo.play {
if (!$window(@Meteo)) return
if ($hget(@DepJeu)) .hfree @DepJeu
hadd -m @DepJeu Score 0/0
drawpic -ct @Meteo 16777215 40 70 $qt($meteo.f(france.bmp))
if ($window(@DepCache2)) window -c $ifmatch
window -BCdg0hk0npRz +d @DepCache2 0 0 500 470
²efface @Meteo 10 40 60 20
drawtext -cnr @Meteo 12 Tahoma 0 10 40 60 20 $hget(@DepJeu,Score)
drawcopy -n @Meteo 0 0 500 470 @DepCache2 0 0
meteo.newgame
}
alias -l meteo.newgame {
if ($hget(@DepJeu,Sol)) {
var %t = 1
²efface @Meteo 10 40 60 20
drawtext -cnr @Meteo 12 Tahoma 0 10 40 60 20 $hget(@DepJeu,Score)
drawcopy -n @Meteo 0 0 500 470 @DepCache2 0 0
while $gettok($hget(@DepJeu,Sol),%t,165) {
var %it = $ifmatch, %c = $hfind(@DepColors,%it).data
tokenize 44 %c
drawreplace -nr @Meteo $rgb($1,$2,$3) 255 40 70 427 397
drawrect -fnr @Meteo $rgb($1,$2,$3) 1 250 450 50 20
drawrect -nr @Meteo $iif($hget(@DepJeu,Last),65280,255) 1 250 450 50 20
inc %t
}
if ($window(@DepCache)) window -c $ifmatch
window -BCdg0hk0npRz +d @DepCache 0 0 500 470
drawcopy -n @Meteo 0 0 500 470 @DepCache 0 0
hadd -m @Meteo On 1
hadd -m @Meteo Main ²meteo.dep
hdel @DepJeu Sol
drawdot @Meteo
return
}
drawcopy -n @DepCache2 0 0 500 470 @Meteo 0 0
hadd -m @Meteo Main ²meteo.play
var %ok, %type = $r(1,4), %titre = $replace(%type,1,du numéro,2,du département,3,de la préfecture,4,de la région)
while !%ok {
var %r = $r(1,100)
if (%r isnum 96-100) var %r = $calc(%r + 874)
if (%r != $hget(@DepJeu,Num)) var %ok = 1
if (%r == 20) var %r = $+(20,$r(a,b))
if (!$hfind(@DepColors,%r).data) var %ok = 0
}
hadd -m @DepJeu,Num) %r
hadd -m @DepJeu Type %type
hadd -m @DepJeu Aide 0
hdel -w @DepJeu Clic*
var %l = $+(%r,¥,$hget(@DepNums,%r)), %sol = $gettok(%l,%type,165), %t = 1, %m
if (!%sol) {
.timer -m 1 0 meteo.newgame
return
}
var %max = $hget(@DepNums,0).item
while %t <= %max {
var %rep = $hget(@DepNums,%t).item, %it = %rep
if (%type > 1) var %rep = $gettok($hget(@DepNums,%rep),$calc(%type -1),165)
if (%rep == %sol) var %m = $addtok(%m,%it,165)
inc %t
}
hadd -m @DepJeu Sol %m
if (%type == 1) var %qu = %sol
elseif (%type == 2) var %qu = $qt(%sol)
elseif (%type == 3) var %qu = dont la préfecture est %sol
else var %qu = faisant partie de la région %sol
²efface @Meteo 20 450 300 20
drawtext -nr @Meteo 0 Tahoma 12 20 450 A partir $+(%titre,$chr(44))
²efface @Meteo 20 470 475 20
drawtext -cnr @Meteo 0 Tahoma 12 20 470 475 20 localisez $iif(%type != 2,$iif(%type == 4,un,le) département) %qu
drawdot @Meteo
}
;**************
;Ensoleillement
;**************
alias sunlight meteo sunlight
alias ²meteo.ens {
.meteo.wait
²centre @Meteo -b 40 Ensoleillement sur Terre
sockclose meteo.sunlight
if ($exists($meteo.f(map.jpg))) .remove $qt($meteo.f(map.jpg))
sockopen meteo.sunlight static.die.net 80
}
on *:sockopen:meteo.sunlight:{
if ($sockerr) return
var %r = $readini($meteo.f(departements.ini),Config,Resol)
sockwrite -n $sockname GET $+(http://static.die.net/earth/mercator/,$iif($istok(1600 1024,%r,32),%r,1600),.jpg) HTTP/1.0
sockwrite -n $sockname Host: $+(die.net,$str($crlf,2))
}
on *:sockread:meteo.sunlight:{
sockread &a
if ((!$sock($sockname).mark) && ($bfind(&a, 1,$str($crlf,2)))) {
bcopy &b 1 &a $calc($ifmatch +4) -1
if ($bvar(&b,0)) bwrite $qt($meteo.f(map.jpg)) -1 -1 &b
sockmark $sockname 1
}
elseif ($bvar(&a,0)) bwrite $qt($meteo.f(map.jpg)) -1 -1 &a
}
on *:sockclose:meteo.sunlight:{
drawpic -smn @Meteo 20 130 460 255 $qt($meteo.f(map.jpg))
²zone @Meteo 300 20 130 460 255
drawrect -nr @Meteo 0 1 19 129 462 257
²description @Meteo 300 Ensoleillement sur Terre provenant de www.die.net/earth/. Cliquez pour agrandir
²button @Meteo 302 200 390 100 20 Rafraîchir
²centre @Meteo 415 Dernière mise à jour : le $date à $time
drawdot @Meteo
}
alias ²meteo.enscfg {
²centre @Meteo -b 40 Configuration de la partie Ensoleillement
var %r = $readini($meteo.f(departements.ini),Config,Resol)
if ($istok(1600 1024,%r,32)) var %l = $+(%r,¥,$iif(%r == 1600,1024,1600))
else var %l = 1600¥1024
²select @Meteo 301 200 250 100 20 %l
}
;**************
;Aliases utiles
;**************
alias -l min return $calc(($1 + $2 - $abs($calc($1 - $2)))/2)
alias -l max return $calc(($1 + $2 + $abs($calc($1 - $2)))/2)
alias -l extension return $regsubex($1,(.+)\.([^\.]+)$,\2)
alias -l meteo.translate {
tokenize 32 $1-
if (!$3) return
var %j = $1, %m = $2, %a = $3
if (%m < 3) var %n = $calc($int($calc(365.25*(%a - 1))) + $int($calc(30.6*(%m + 13))) + %j - 621049)
else var %n = $calc($int($calc(365.25 * %a)) + $int($calc(30.6*(%m +1))) + %j - 621049)
var %d = $iif($calc(%n % 7),$ifmatch,7)
return $gettok(Lundi Mardi Mercredi Jeudi Vendredi Samedi Dimanche,%d,32)
}
;End Of File

;*********************************
; Meteo, Departements & SunLight
;           By ArKanis
;         www.arkanis.eu
;*********************************
; Version 2.2

;      Powered  by
; www.lachainemeteo.com
;           &
;   www.die.net/earth

alias meteo {
  if ($version < 6.17) {
    return $input(Il faut impérativement avoir une version de mIRC plus récente ou équivalente à la version 6.17,o)
  }
  if ($window(@DepCache)) window -c @DepCache
  if ($hget(@DepDL)) hfree $ifmatch
  if ($hget(@DepDLDo)) hfree $ifmatch
  var %l = france.bmp departements.ini, %t = 1, %m = $numtok(%l,32)
  while %t <= %m {
    var %w = $gettok(%l,%t,32)
    if (!$exists($meteo.f(%w))) hadd -m @DepDL %w 1
    inc %t
  }
  if (!$script(GUI-ArKanis.mrc)) {
    if ($findfile($mircdir,GUI-ArKanis.mrc,1)) {
      .load -rs $qt($ifmatch)
      .timer 1 1 meteo
      return
    }
    else {
      hadd -m @DepDL GUI-ArKanis.mrc 1
      dep.DL
      return
    }
  }
  if (!$isalias(²picwin)) {
    if ($?!="L'alias ²picwin n'existe pas. Voulez-vous retélécharger le code GUI-ArKanis pour corriger ce problème ?") hadd -m @DepDL GUI-ArKanis.mrc 1
    else return
  }
  if ($hget(@DepDL)) dep.DL
  else {
    ²freehash @Dep Colors Nums DL DLDo
    hmake @DepColors 20
    hload -i @DepColors $meteo.f(departements.ini) Couleur
    hmake @DepNums 20
    hload -i @DepNums $meteo.f(departements.ini) Num
    ²picwin @Meteo 500 500 "Meteo"
    titlebar @Meteo By ArKanis
    ²newmenu @Meteo Consulter la météo
    ²newitem @Meteo En France:²meteo.sel France,DOM TOM:²meteo.sel,$chr(9),Changer le jour:²meteo.selday,$chr(9),Fermer:²close @Meteo
    ²newmenu @Meteo Autres écrans
    ²newitem @Meteo Vigilance:²meteo.vigilance,Recherche:²meteo.rech
    ²newmenu @Meteo Départements
    ²newitem @Meteo Voir la carte:²meteo.dep,Jouer:²meteo.play
    ²newmenu @Meteo Ensoleillement
    ²newitem @Meteo Voir la carte:²meteo.ens,Configurer:²meteo.enscfg
    ²newmenu @Meteo ?
    ²newitem @Meteo Aide:²meteo.aide,Crédits:²meteo.credits,Désinstaller:²meteo.delete
    if ($1 == dep) ²drawmenu @Meteo 3 1
    elseif ($1 == sunlight) ²drawmenu @Meteo 4 1
    else ²drawmenu @Meteo $iif($exists($meteo.f(Backup.png)),1 1,5 1)
    ²description @Meteo Temps 400
    ²ref @Meteo
  }
}

alias ²meteo.sel {
  if (!$window(@Meteo)) return
  if ($hget(Meteo,Jour) !isnum 0-9) hadd -m Meteo Jour 0
  if ($1) {
    hadd -m Meteo Link $+(index.php?langue=fr&echeance=,$hget(Meteo,Jour))
    ²meteoopen France
  }
  else {
    ²centre @Meteo -b 40 Sélection d'un DOM-TOM
    ²centre @Meteo 225 Sélectionnez votre DOM-TOM
    ²select @Meteo 100 150 245 200 30 Guadeloupe¥Martinique¥Guyane¥La Réunion¥St Pierre et Miquelon¥Mayotte¥Polynésie Française¥Nouvelle Calédonie¥Wallis et Futuna
    ²button @Meteo 101 200 280 100 20 Sélectionner
    ²setdefault @Meteo 101
    ²description @Meteo 100 Change la région sélectionnée dans une permutation circulaire
    ²description @Meteo 101 Affiche la météo de la région choisie
  }
}

alias ²meteo.selday {
  if (!$window(@Meteo)) return
  ²centre @Meteo -b 40 Sélection du jour
  var %l = Aujourd'hui¥Demain¥Après-Demain¥Dans 3 jours¥Dans 4 jours¥Dans 5 jours¥Dans 6 jours, %s = $gettok(%l,$calc($hget(Meteo,Jour) +1),165)
  if ($hget(Meteo,Jour) isnum 0-6) {
    while ($gettok(%l,1,165) != %s) var %l = $addtok($deltok(%l,1,165),$gettok(%l,1,165),165)
  }
  ²select @Meteo 102 200 245 100 30 %l
  ²button @Meteo 103 200 280 100 20 Sélectionner
  ²setdefault @Meteo 103
  ²description @Meteo 103 Donne la météo prévue pour dans X jours pour toutes les demandes à venir
}
alias ²meteo.rech {
  ²centre @Meteo -b 40 Recherche
  ²centre @Meteo 70 Entrez le nom de la ville ou son code postal
  ²edit @Meteo -a 8 200 110 100 20
  ²button @Meteo 9 200 135 100 20 Rechercher
  ²setdefault @Meteo 9
  ²description @Meteo 9 Etablie une liste des résultats trouvés pour sélectionner rapidement une ville
}
alias meteo.answer if ($1 == ²meteo.rech) meteo.sclick 9 $2
alias ²meteo.delete {
  ²close @Meteo
  noop $findfile($meteo.f,*,0,.remove $qt($1-))
  .rmdir Meteo
  window -a "Status Window"
  if ($?!="Souhaitez-vous décharger le fichier $script (contient la Météo) ?") {
    if (!$?!="Voulez-vous GARDER le fichier ?") .timer 1 1 .remove $qt($script)
    .timer 1 1 .unload -rs $qt($script)
  }
  var %s = $script(GUI-ArKanis.mrc)
  if ((%s) && ($?="Voulez-vous décharger le code GUI-ArKanis ?")) {
    .unload -rs GUI-ArKanis.mrc
    echo 2 -at * Déchargement du code GUI-ArKanis effectué.
  }
  if (($exists(%s)) && ($?!="Voulez-vous effacer le fichier GUI-ArKanis.mrc ?")) {
    .remove $qt(%s)
    echo 2 -at * Effacement du fichier GUI-ArKanis.mrc effectué.
  }
}
;**************
;Données du GUI
;**************
alias meteo.menu {
  sockclose meteo*
  if (($1) && ($hget(MeteoLocation))) hfree MeteoLocation
}
alias meteo.close {
  ²freehash @Dep Colors Num DL DLDo Jeu
  hfree -w Meteo*
  if ($window(@Meteo.copyVilles)) window -c $ifmatch
  if ($window(@DepCache)) window -c $ifmatch
  if ($window(@DepCache2)) window -c $ifmatch
}
on *:close:@Meteo:meteo.close

alias meteo.mouse {
  if (!$window(@Meteo)) return
  var %x = $1, %y = $2
  if ($hget(@Meteo,Main) == ²meteo.dep) {
    var %c = $rgb($getdot(@DepCache2,$1,$2))
    if (($inrect($1,$2,40,70,500,500)) && ($hget(@DepColors,%c))) {
      var %x = $calc($1 +10), %y = $calc($2 +4), %l = $+($ifmatch,¥,$hget(@DepNums,$ifmatch)), %z = Numéro :-Département :-Préfecture :-Région :
      if ($hget(@Dep,Temp) == %c) return
      drawcopy -n @DepCache 0 0 500 470 @Meteo 0 0
      hadd -m @Dep Temp %c
      var %t = 1, %w = 100, %h = 46
      while %t <= 4 {
        if ($width($gettok(%z,%t,45) $gettok(%l,%t,165),Tahoma,10,0,1) > %w) var %w = $v1 
        inc %t
      }
      if (!%w) return
      inc %w 6
      if ($calc(%x + %w) > 497) dec %x $calc(%w +20)
      if ($calc(%y + %h) > 469) dec %y $calc(%h +8)
      drawrect -fnr @Meteo 16761024 1 %x %y %w %h
      drawrect -nr @Meteo 0 1 %x %y %w %h
      var %i = 1
      while %i <= 4 {
        drawtext -pnr @Meteo 0 Tahoma 10 $calc(%x +3) $calc(%y + %i *10-8) $gettok(%z,%i,45) $gettok(%l,%i,165)
        inc %i
      }
      drawdot @Meteo
    }
    elseif ($hget(@Dep,Temp)) {
      drawcopy -n @DepCache 0 0 500 470 @Meteo 0 0
      hdel @Dep Temp
    }
  }
  else {
    var %x = $1, %y = $2, %g
    var %f = $hget(Meteo,Origin), %ox = $gettok(%f,1,32), %oy = $gettok(%f,2,32), %dx = $gettok(%f,3,32), %dy = $gettok(%f,4,32)
    if (($inrect(%x,%y,%ox,%oy,%dx,%dy)) && ($hget(MeteoLocation)) && ($hget(Meteo,Ready))) {
      var %t = 1, %l = MeteoLocation
      while $hget(%l,%t).item {
        var %i = $ifmatch, %d = $hget(%l,%i)
        tokenize 32 %d
        if ($inrect(%x,%y,$1,$2,35,28)) {
          var %g = 1
          if ($hget(MeteoTemp,Loc) == %i) break
          hadd -m MeteoTemp Loc %i
          .²backup @Meteo Villes
          if (!$window(@Meteo.copyVilles)) ²svg @Meteo Villes
          var %ht = $+(MeteoVille,$hget(Meteo,Period))
          if (!$hget(%ht,0).item) var %ht = MeteoVille0
          var %t1 = $replace(%i,$chr(165),$chr(32)), %t2 = T° : $gettok($hget(%ht,%i),3,32), %dy = 32
          if (%t2 == T° : ø) var %t2, %dy = $calc(%dy - 14)
          var %w = $max($width(%t1,Tahoma,10),$width(%t2,Tahoma,10)), %ox = $calc($1 -4 - %w / 2), %oy = $calc($2 -26)
          drawrect -nr @Meteo 0 1 $calc($1 - %w) %oy $calc(%w +6) %dy
          drawrect -fnr @Meteo 16761024 1 $calc($1 - %w +1) $calc(%oy +1) $calc(%w +4) $calc(%dy -2)
          drawtext -nr @Meteo 0 Tahoma 10 $calc($1 -%w + (%w +6- $width(%t1,Tahoma,10)) /2) $calc(%oy + 2) %t1
          if (%t2) drawtext -nr @Meteo 0 Tahoma 10 $calc($1 -%w + (%w +6- $width(%t2,Tahoma,10)) /2) $calc(%oy +17) %t2
          ²ref @Meteo
          break
        }
        inc %t
      }
      if (%g) return
    }
    if ((!%g) && ($hget(MeteoTemp,Loc))) {
      hdel MeteoTemp Loc
      ²backup @Meteo Villes
    }
    if ((!$hget(MeteoVille,Vigilance)) && ($hget(Meteo,Jour) <= 2) && ($hget(Meteo,Ready)) && (!$hget(@Meteo,Main))) {
      if (($inrect(%x,%y,49,471,56,23)) && ($hget(Meteo,Period) != 0)) {
        hadd -m Meteo Period 0
        ²efface @Meteo 25 60 450 410
        .meteo.fond.apply Meteo/Backup.png
        meteo.fond.apply
      }
      elseif (($inrect(%x,%y,371,471,79,23)) && ($hget(Meteo,Period) != 1)) {
        hadd -m Meteo Period 1
        ²efface @Meteo 25 60 450 410
        .meteo.fond.apply Meteo/Backup.png
        meteo.fond.apply
      }
    }
  }
}

alias meteo.sclick {
  if (!$window(@Meteo)) return
  var %x = $mouse.x, %y = $mouse.y
  if ($hget(@Meteo,Main) == ²meteo.dep) {
    if ($hget(@Meteo,On)) {
      hdel @Meteo On
      meteo.newgame
      return
    }
    if ($inrect(%x,%y,40,70,500,500)) {
      var %c = $rgb($getdot(@DepCache2,%x,%y))
      if ($hget(@DepColors,%c)) {
        var %g = $ifmatch
        url -n $+(http://www.quid.fr/departements.html?mode=detail&style=fiche,&dep=,$iif(%g < 10,$+(0,%g),%g))
      }
    }
  }
  elseif ($hget(@Meteo,Main) == ²meteo.play) {
    if ($inrect(%x,%y,40,70,500,500)) {
      var %c = $rgb($getdot(@DepCache2,%x,%y))
      if ($hget(@DepColors,%c)) {
        var %it = $ifmatch
        if ($istok($hget(@DepJeu,Sol),%it,165)) {
          hadd -m @DepJeu Score $+($calc($gettok($hget(@DepJeu,Score),1,47) + $iif(!$hget(@DepJeu,Aide),2,1)),/,$calc($gettok($hget(@DepJeu,Score),2,47) +1))
          hadd -m @DepJeu Last 1
          meteo.newgame
          meteo.mouse %x %y
        }
        elseif (!$hget(@DepJeu,$+(Clic,%it))) {
          hadd -m @DepJeu Score $+($gettok($hget(@DepJeu,Score),1,47),/,$calc($gettok($hget(@DepJeu,Score),2,47) +1))
          hinc -m @DepJeu Aide
          tokenize 44 $hfind(@DepColors,$gettok($hget(@DepJeu,Sol),1,165)).data
          hadd -m @DepJeu Last 0
          if (($hget(@DepJeu,Aide) == 4) && ($rgb($1,$2,$3))) drawrect -fnr @Meteo $ifmatch 1 250 450 50 20
          elseif ($hget(@DepJeu,Aide) > 7) meteo.newgame
          hadd -m @DepJeu $+(Clic,%it) 1
        }
        ²efface @Meteo 10 40 60 20
        drawtext -cnr @Meteo 12 Tahoma 0 10 40 60 20 $hget(@DepJeu,Score)
        drawdot @Meteo
      }
    }
  }
  elseif ($left($hget(@Meteo,Main),10) == ²meteo.ens) {
    if ($1 == 300) {
      if ($exists($meteo.f(map.jpg))) run $qt($meteo.f(map.jpg))
      if ($window(@²Desc)) window -c $ifmatch
    }
    elseif ($1 == 301) writeini -n $meteo.f(departements.ini,Config,Resol) $²did(@Meteo,301)
    elseif ($1 == 302) ²menu.do @Meteo ²meteo.ens
  }
  else {
    if ($1 == 101) {
      var %g = $calc(96 + $findtok(Guadeloupe¥Martinique¥Guyane¥La Réunion¥St Pierre et Miquelon¥Mayotte¥Polynésie Française¥Nouvelle Calédonie¥Wallis et Futuna,$²did(@Meteo,100),1,165))
      hadd -m Meteo Link $+(index.php?langue=fr&echeance=,$hget(Meteo,Jour),&domtom=,%g)
      ²meteoopen $²did(@Meteo,100)
    }
    elseif ($1 == 103) {
      hadd -m Meteo Jour $calc($findtok(Aujourd'hui¥Demain¥Après-Demain¥Dans 3 jours¥Dans 4 jours¥Dans 5 jours¥Dans 6 jours,$²did(@Meteo,102),1,165) -1)
      ²drawmenu @Meteo 1 1
    }
    elseif ($hget(MeteoTemp,Loc)) {
      var %i = $ifmatch
      if ($hget(Meteo,Jour) < 3) var %t = $hget(Meteo,Period)
      else var %t = 0
      hadd -m Meteo Link $+(index_detail.php?langue=fr&echeance=,$hget(Meteo,Jour),&num_ville=,$gettok($hget($+(MeteoVille,%t),%i),5,32))
      ²meteoopen $hget(MeteoTemp,Loc)
    }
    elseif ($1 == 9) {
      if ($²did(@Meteo,8)) {
        hadd -m Meteo Link $+(moteur_recherche.php?langue=fr&txt_search=,$ifmatch)
        ²efface @Meteo 150 195 210 230
        if ($hget(@MeteoButtons,11)) hdel @MeteoButtons 11
        hadd -m MeteoVille Rech 1
        .meteo.wait Recherche
        .²meteoopen
      }
    }
    elseif ($1 == 11) {
      if (!$hget(Meteo,Jour)) hadd -m Meteo Jour 0
      var %v = $replace($²did(@Meteo,10),$chr(32),$chr(165)), %r = /(\([^\)]+\))/g
      hadd -m Meteo Link $+(index_detail.php?langue=fr&echeance=,$hget(Meteo,Jour),&num_ville=,$hget(MeteoVille,%v))
      ²meteoopen $regsubex(%v,%r,)
    }
  }
}
alias meteo.edit .timermeteoedit -m 1 500 meteo.edit2 $1-
alias meteo.edit2 {
  if ($1 == 200) {
    tokenize 32 $replace($²did(@Meteo,$1),-,$chr(32))
    if ($1-) {
      var %r = $1-, %t = 1
      drawcopy -n @DepCache2 0 0 500 470 @Meteo 0 0
      while $hget(@DepNums,%t).data {
        var %i = 1, %m = $0, %n = $hget(@DepNums,%t).item, %h = $+(%n,¥,$replace($ifmatch,-,$chr(165),$chr(32),$chr(165))), %ok = 1
        var %c = $hfind(@DepColors,%n).data, %rgb = $rgb($gettok(%c,1,44),$gettok(%c,2,44),$gettok(%c,3,44))
        if (%rgb) {
          while %i <= %m {
            var %f = $gettok($1-,%i,32)
            if (%f isnum) var %re = %f
            else var %re = $+(%f,$iif(%i == %m,*))
            if (!$wildtok(%h,%re,1,165)) unset %ok
            inc %i
          }
          if (%ok) drawreplace -nr @Meteo %rgb 255 40 70 427 397
        }
        inc %t
      }
      drawcopy -n @Meteo 0 0 500 470 @DepCache 0 0
    }
    else {
      drawcopy -n @DepCache2 0 0 500 470 @Meteo 0 0
      drawcopy -n @Meteo 0 0 500 470 @DepCache 0 0
    }
    drawdot @Meteo
  }
}
;*******
;Sockets
;*******
alias -l ²meteoopen {
  if (!$window(@Meteo)) return
  if ($window(@Meteo.copyVilles)) window -c $ifmatch
  if ($show) {
    meteo.wait
    ²centre @Meteo -b 40 $replace($1-,¥,$chr(32)) $meteo.date($iif($hget(Meteo,Jour) isnum 0-,$ifmatch,0))
    if ($hget(Meteo,Jour) <= 2) {
      var %p = 51
      while %p < 451 {
        drawline -nr @Meteo $rgb($calc(30 + %p /2),250,$calc(255 - %p /2)) 2 %p 471 %p 494
        inc %p 2
      }
      drawrect -nr @Meteo 0 1 49 470 402 26
      drawtext -nr @Meteo 8388608 Tahoma 12 60 475 MATIN
      drawtext -nr @Meteo 8388608 Tahoma 12 376 475 APRES-MIDI
    }
  }
  sockclose meteo
  sockopen meteo www.lachainemeteo.com 80
}
alias -l meteo.date {
  var %d = $+($chr(40),$date($calc($ctime + 86400 * $1)),$chr(41))
  if ($1 == 0) return aujourd'hui %d
  if ($1 == 1) return demain %d
  if ($1 == 2) return après-demain %d
  else return dans $1 jours %d
}
on *:sockopen:meteo:{
  if ($hget(MeteoQueue)) hfree MeteoQueue
  var %t
  if ($hget(MeteoVille,Rech)) var %t = 1
  hfree -w MeteoVille*
  if (%t) hadd -m MeteoVille Rech 1
  hfree -w MeteoTemp
  hadd -m Meteo Period 1
  sockwrite -n $sockname GET $+(http://www.lachainemeteo.com/,$$hget(Meteo,Link)) HTTP/1.0
  sockwrite -n $sockname $+(Host: lachainemeteo.com,$str($crlf,2)))
}

on *:sockread:meteo:{
  var %a
  sockread %a
  if ($gettok(%a,1,9) == .Fond_Carte) sockmark $sockname FOND
  elseif (($regex(%a,/background-image:url\('(.+)'\)/gi)) && ($sock($sockname).mark == FOND)) {
    fond.meteo $regml(1)
    sockmark $sockname 0
  }
  elseif ($regex(%a,Menu_Periode_200_([0-9])_J([0-9]))) {
    if ($regml(2) != $hget(Meteo,Jour)) sockmark $sockname 0
    else {
      hadd -m MeteoTemp Heure $regml(1)
      sockmark $sockname VILLES
      if ($exists(Meteo/Backup.png)) drawpic -n @Meteo 50 70 Meteo/Backup.png
      drawrect -nr @Meteo 0 1 49 69 402 402
      ²centre @Meteo 240 Chargement en cours ...
    }
  }
  elseif ($regex(%a,bloc_ephem_j([0-9]))) {
    if ($regml(1) == $hget(Meteo,Jour)) sockmark $sockname Ephemerides
  }
  elseif ($sock($sockname).mark == Ephemerides) {
    if ($regex(%a,/height: 30px;.+>([^>]+)</div>$/i)) hadd -m MeteoVille Eph $hget(MeteoVille,Eph) $replace($regml(1),$chr(32),$chr(165))
    elseif ($regex(%a,(-?[0-9]+)°C)) hadd -m MeteoVille Eph $hget(MeteoVille,Eph) $replace($+($regml(1),°C),$chr(32),$chr(165))
    elseif ($regex(%a,/height: 13px;.+">(.+)</div>/U)) hadd -m MeteoVille Eph $hget(MeteoVille,Eph) $replace($regml(1),<br>,$chr(165),$chr(32),$chr(165))
    elseif ($regex(%a,/(Lever|Coucher) : <[^>]+>([^<]+)</span></div>/i)) hadd -m MeteoVille Eph $hget(MeteoVille,Eph) $replace($regml(2),$chr(32),$chr(165))
    elseif ($regex(%a,/info([0-9])_ephem/i)) {
      if (($regml(1) isnum 2-) && ($regex(H,%a,/>([^>]+)</div>/i))) hadd -m MeteoVille Eph $hget(MeteoVille,Eph) $replace($regml(H,1),$chr(32),$chr(165))
    }
  }
  elseif ($regex(%a,/num_ville=([0-9]+)".+class="Liste_Elt_href">(.+)</a>/gU)) {
    hadd -m MeteoVille Rech $addtok($hget(MeteoVille,Rech),$regml(2),165)
    hadd -m MeteoVille $replace($regml(2),$chr(32),$chr(165)) $regml(1)
  }
  elseif ($regex(%a,/src="/image/logo/lachainemeteo/lcm_60x40.gif"/i)) sockmark $sockname VILLES
  elseif ($sock($sockname).mark == VILLES) {
    if ($regex(%a,/Periode_Temps_([0-1])/i)) hadd -m MeteoTemp Heure $regml(1)
    if ($regex(%a,(-?[0-9]+) &\#176;)) hadd -m $+(MeteoVille,$hget(MeteoTemp,Heure)) $hget(MeteoTemp,Ville) $regml(1) $hget(MeteoTemp,Pic) $hget(MeteoTemp,CP)
    elseif ($regex(%a,num_ville=([0-9]+))) hadd -m MeteoTemp CP $regml(1)
    else {
      if ($regex(%a,src="(.+)" class='Lien_Icone')) {
        var %i = $regml(1), %f = $gettok(%i,-1,47)
        if (!$exists($+(Meteo/,%f))) dl.meteo %i 1
        hadd -m MeteoTemp Pic %f
      }
      var %r = /left\:(-?[0-9]+\.?[0-9]?)px\;top\:([0-9]+\.?[0-9]?)px.+'(.+)'/ig
      if ($regex(%a,%r)) hadd -m MeteoTemp Ville $remove($replace($regml(3),&eacute;,é,&egrave;,è,&ccedil;,ç,$chr(32),$chr(165),#039;,',&iuml;,ï),&amp;) $regml(1) $regml(2)
    }
  }
}
on *:sockclose:meteo:{
  if ($hget(Meteo,Link)) hdel Meteo Link
  if ($hget(MeteoVille,Rech)) {
    if ($deltok($hget(MeteoVille,Rech),1,165)) {
      ²list @Meteo 10 150 200 200 200 $v1
      ²button @Meteo 11 150 405 200 20 Sélectionner
      ²setdefault @Meteo 11
    }
    else {
      ²efface @Meteo 150 195 210 230
      ²centre @Meteo 240 Aucun résultat !
    }
    hdel MeteoVille Rech
    drawdot @Meteo
  }
}

alias -l fond.meteo {
  if (!$isdir(Meteo)) mkdir Meteo
  var %f = $meteo.f($+(fond.,$extension($1-)))
  if ($exists(%f)) .remove %f
  hadd -m Meteo Fond $1-
  hadd -m Meteo Fond2 %f
  sockclose MeteoFond
  sockopen MeteoFond www.lachainemeteo.com 80
}
on *:sockopen:MeteoFond:{
  sockwrite -n $sockname GET $$hget(Meteo,Fond) HTTP/1.0
  sockwrite -n $sockname $+(Host: lachainemeteo.com,$str($crlf,2)))
}

on *:sockread:MeteoFond:{
  var %a
  sockread &a
  if ((!$sock($sockname).mark) && ($bfind(&a, 1,$str($crlf,2)))) {
    bcopy &b 1 &a $calc($ifmatch +4) -1
    if ($bvar(&b,0)) bwrite $hget(Meteo,Fond2) -1 -1 &b
    sockmark $sockname 1
  }
  elseif ($bvar(&a,0)) bwrite $hget(Meteo,Fond2) -1 -1 &a
}
on *:sockclose:MeteoFond:meteo.fond.apply
alias -l meteo.fond.apply {
  if (!$window(@Meteo)) return
  var %f = $hget(Meteo,Fond2)
  if ($1-) var %f = $1-
  elseif (!%f) var %f = $meteo.f(fond.png)
  if (!$exists(%f)) return
  var %x = $pic(%f).width, %y = $pic(%f).height, %ox = $calc(250 - %x / 2), %oy = $calc(270 - %y /2)
  drawrect -nr @Meteo 0 1 $calc(%ox -1) $calc(%oy -1) $calc(%x +2) $calc(%y +2)
  drawpic -n @Meteo %ox %oy $shortfn(%f)
  if ($show) {
    hdel -w Meteo Fond*
    hadd -m Meteo Origin %ox %oy %x %y
    if ((!$sock(Meteo.dl)) && (!$hget(MeteoQueue,0).item)) meteo.generate
  }
}

alias -l dl.meteo {
  hadd -m MeteoQueue $1- 1
  if ($exists($+(Meteo/,$gettok($1,-1,47)))) .remove $meteo.f($gettok($1,-1,47))
  if ($sock(dl.meteo)) return
  .timer -h 1 500 dl.meteo.do
}
alias -l dl.meteo.do {
  var %f = $hget(MeteoQueue,1).item
  if (!%f) {
    if (!$sock(MeteoFond)) meteo.generate
    return
  }
  hadd -m MeteoTemp DL %f
  hadd -m MeteoTemp DLName $meteo.f($gettok(%f,-1,47))
  sockclose Meteo.dl
  sockopen Meteo.dl www.lachainemeteo.com 80
}
on *:sockopen:Meteo.dl:{
  sockwrite -n $sockname GET $$hget(MeteoTemp,DL) HTTP/1.0
  sockwrite -n $sockname $+(Host: lachainemeteo.com,$str($crlf,2)))
}
on *:sockread:Meteo.dl:{
  sockread &a
  if ((!$sock($sockname).mark) && ($bfind(&a, 1,$str($crlf,2)))) {
    bcopy &b 1 &a $calc($ifmatch +4) -1
    if ($bvar(&b,0)) bwrite $$hget(MeteoTemp,DLName) -1 -1 &b
    sockmark $sockname 1
  }
  elseif ($bvar(&a,0)) bwrite $$hget(MeteoTemp,DLName) -1 -1 &a
}
on *:sockclose:Meteo.dl:{
  if ($hget(MeteoQueue,$hget(MeteoTemp,DL))) hdel MeteoQueue $hget(MeteoTemp,DL)
  hdel -w MeteoTemp DL*
  dl.meteo.do
}

alias -l meteo.generate {
  if (!$window(@Meteo)) return
  if ($window(@Meteo.copyVilles)) window -c @Meteo.copyVilles
  var %t = 1, %p = MeteoLocation
  if ($hget(%p)) hfree %p
  var %ht = $+(MeteoVille,$hget(Meteo,Period)), %f = $hget(Meteo,Origin), %ox = $gettok(%f,1,32), %oy = $gettok(%f,2,32), %x = $gettok(%f,3,32)
  if (!$hget(%ht,0).item) var %ht = MeteoVille0
  if ($pic(Meteo/fond.png).width > 350) .copy -o $qt($meteo.f(fond.png)) $qt($meteo.f(Backup.png))
  while $hget(%ht,%t).item {
    var %i = $ifmatch, %d = $hget(%ht,%i)
    tokenize 32 %d
    if (anim !isin $4) drawpic -tn @Meteo 0 $calc($1 + %ox) $calc($2 + %oy) $shortfn($meteo.f($4))
    else drawpic -ctn @Meteo 16777215 $calc($1 + %ox) $calc($2 + %oy) $shortfn($meteo.f($4))
    if ($3 != ø) drawtext -nr @Meteo 0 Tahoma 10 $calc($1 + %ox + 15) $calc($2 + %oy + 25) $+($3,°)
    hadd -m %p %i $calc($1 + %ox) $calc($2 + %oy)
    inc %t
  }
  if (!$hget(MeteoVille,Vigilance)) {
    var %te = $meteo.translate($puttok($asctime(dd mm yyyy),$calc($asctime(dd) + $hget(Meteo,Jour)),1,32)) $iif($hget(Meteo,Jour) <= 2,$iif(!$hget(Meteo,Period),Matin,Après-Midi))
    ²surligne @Meteo 10 $calc(%ox +2) $calc(%oy +2) %te
  }
  if ($hget(MeteoVille,Eph)) {
    tokenize 32 $replace($gettok($ifmatch,$+($calc($hget(Meteo,Period) +1),-),32),&nbsp;,$chr(165))
    ²surligne @Meteo 12 70 375 $replace($1,$chr(165),$chr(32))
    ²surligne @Meteo -l 12 430 375 $replace($3,$chr(165),$chr(32))
    ²surligne @Meteo 12 70 395 $replace($5,$chr(165),$chr(32))
    ²surligne @Meteo 12 70 415 Lever du soleil : $replace($gettok($1-,-3,32),$chr(165),$chr(32))
    ²surligne @Meteo 12 70 435 Coucher du soleil : $replace($gettok($1-,-2,32),$chr(165),$chr(32))
    ²surligne @Meteo -l 12 430 395 Lune : $replace($gettok($1-,-1,32),$chr(165),$chr(32))
  }
  hadd -m Meteo Ready 1
  ²ref @Meteo
}

;*************
;Autres écrans
;*************
alias ²meteo.vigilance {
  if (!$window(@Meteo)) return
  ²centre @Meteo -b 40 Carte de vigilance
  meteo.wait
  if ($hget(MeteoLocation)) hfree MeteoLocation
  if ($hget(Meteo,Period) != $null) hdel Meteo Period
  hfree -w MeteoVille*
  hadd -m MeteoVille Vigilance 0 0 ø vigilance.gif
  fond.meteo /image/carte/vigilance/vigilance_fond.gif
  dl.meteo /image/carte/vigilance/vigilance.gif
  hadd -m MeteoTemp Carte Vigilance
}


alias ²meteo.aide {
  if (!$window(@Meteo)) return
  ²centre @Meteo -b 40 Aide
  var %d = drawtext -pnr @Meteo 0 Tahoma 12 30
  %d 80 Bienvenue sur l'aide de Meteo & Départements (codé par ArKanis)
  %d 120 Météo :
  %d 140 Cette version très simple permet de connaître la météo en France ou ses
  %d 160 DOM-TOMs et ce de un à six jours.
  %d 180 Pour commencer, choisissez où regarder la météo.
  %d 200 Vous obtiendrez plus d'informations et passant la souris sur une ville et en
  %d 220 cliquant dessus
  %d 260 Départements :
  %d 280 Vous donne toutes les infos relatives à chaque département à savoir son
  %d 300 numéro, son nom, sa préfecture et sa région.
  %d 320 En cliquand sur un département, vous ouvrirez le quid à la page du département.
  %d 340 Le jeu consiste à localiser le département à partir d'une de ses
  %d 360 informations. Au bout de quatre erreurs, une aide s'affiche.
  %d 380 Trouver du premier coup vous octroie deux points, ne pas trouver au bout
  %d 400 de huit fait passer à une autre question.
  %d 440 Ensoleillement :
  %d 460 Montre l'ensoleillement actuel du monde. Nuages actualisés toutes les heures.
  %d 480 Pour les connexions lentes, choisissez l'image en 1024.
}
alias ²meteo.credits {
  if (!$window(@Meteo)) return
  ²centre @Meteo -b 40 Crédits
  var %d = drawtext -pnr @Meteo 0 Tahoma 12 40 
  %d 105 Utilitaire codé par ArKanis
  %d 125 Mon Site :
  ²link @Meteo 96 213 125 "www.arkanis.eu" www.arkanis.eu
  %d 145 Météo, images provenant de :
  ²link @Meteo 97 213 145 "www.lachainemeteo.com" www.lachainemeteo.com
  %d 165 Départements :
  ²link @Meteo 95 213 165 "www.arkanis.eu" ArKanis
  %d 185 Ensoleillement :
  ²link @Meteo 94 213 185 "www.die.net/earth/" www.die.net/earth
  drawtext -onr @Meteo 0 Tahoma 12 40 240 Remerciements :
  %d 260 A mes testeurs, Meli, NeoBlaster et Panthouffle
  %d 280 A mes amis (non cités car trop nombreux pour l'être sans oubli :D)
  %d 300 A ma famille
  %d 345 Deux sites de scripting mIRC :
  ²link @Meteo 98 204 345 "www.ircfr.com" IRCfr
  drawtext -nr @Meteo 0 Tahoma 12 233 345 et
  ²link @Meteo 99 247 345 "www.scriptsdb.org" ScriptsDB
  ²centre @Meteo 375 Météo : 03/02/07 et 04/02/07
  ²centre @Meteo 395 Départements : 01/08/07
  ²centre @Meteo 415 Ensoleillement : 02/08/07
}

;***************************************
;Téléchargement des fichiers nécessaires
;***************************************
alias -l dep.DL {
  if (!$isdir(Meteo)) mkdir Meteo
  var %n = $hget(@DepDL,0).item
  if (!%n) { dep.dl.end | return }
  if ($hget(@DepDLDo)) .hfree $ifmatch
  else echo 2 -at * Le code Meteo doit télécharger %n $+(fichier,$iif(%n > 1,s),.)
  hadd -m @DepDLDo Fichier $hget(@DepDL,1).item
  hadd -m @DepDLDo Ticks $ticks
  sockclose dep.dl
  sockopen dep.dl arkanisfr.free.fr 80
}
on *:sockopen:dep.dl:{
  if ($sockerr) return
  if (!$hget(@DepDLDo,Fichier)) return
  sockwrite -n $sockname GET $+(http://arkanisfr.free.fr/Script-ArKanis/,$hget(@DepDLDo,Fichier)) HTTP/1.0
  sockwrite -n $sockname $+(Host: free.fr,$str($crlf,2))
}
on *:sockread:dep.dl:{
  sockread &a
  if ((!$sock($sockname).mark) && ($bfind(&a, 1,$str($crlf,2)))) {
    bcopy &b 1 &a $calc($ifmatch +4) -1
    if ($bvar(&b,0)) bwrite $qt($meteo.f($$hget(@DepDLDo,Fichier))) -1 -1 &b
    sockmark $sockname 1
  }
  elseif ($bvar(&a,0)) bwrite $qt($meteo.f($$hget(@DepDLDo,Fichier))) -1 -1 &a
}
on *:sockclose:dep.dl:{
  var %n = $hget(@DepDLDo,Fichier)
  echo 2 -at * Téléchargement de %n terminé.
  if ($hget(@DepDL,%n)) hdel @DepDL %n
  dep.dl
}
alias -l dep.dl.end {
  echo 2 -at * Tous les fichiers ont été téléchargés en $+($calc($ticks - $hget(@DepDLDo,Ticks)),ms.)
  if ($hget(@DepDLDo)) .hfree $ifmatch
  dep
}

;******
;Divers
;******
alias -l meteo.wait {
  if ($show) ²clear @Meteo
  hadd -m Meteo Ready 0
  ²centre @Meteo 240 $iif($1,$1,Chargement) en cours ...
  ²ref @Meteo
}
alias -l meteo.f return $+(Meteo\,$1-)

alias dep departements $1-
alias departements {
  if (!$1) meteo dep
  else {
    if (!$exists($meteo.f(departements.ini))) {
      echo 2 -at * Veuillez taper /dep avant d'accéder aux options de cette commande (pour télécharger les fichiers nécessaires).
      return
    }
    if (!$hget(@DepNums)) {
      hmake @DepNums 20
      hload -i @DepNums $meteo.f(departements.ini) Num
    }
    if (!$hget(@DepNums,Liste)) {
      var %t = 1, %max = $hget(@DepNums,0).item
      while %t <= %max {
        hadd -m @DepNums Liste $addtok($hget(@DepNums,Liste),$hget(@DepNums,%t).item,165)
        inc %t
      }
      hadd -m @DepNums Liste $sorttok($hget(@DepNums,Liste),165,n)
    }
    if (($1 isnum) && ($hget(@DepNums,$1))) echo -a 2 $+ $asctime([HH:nn:ss]) 12,1[ 0Département $1 : $gettok($hget(@DepNums,$1),1,165) 12::0 Préfecture : $gettok($hget(@DepNums,$1),2,165) 12::0 Région administrative : $gettok($hget(@DepNums,$1),3,165) 12]
    else {
      var %t = 1, %max = $numtok($hget(@DepNums,Liste),165)
      while %t <= %max {
        var %f = $gettok($hget(@DepNums,Liste),%t,165), %g = $hget(@DepNums,%f)
        if (($wildtok(%g,$1,0,165)) && (%f != Liste)) echo -a 2 $+ $asctime([HH:nn:ss]) 12,1[ 0Département %f : $gettok(%g,1,165) 12::0 Préfecture : $gettok(%g,2,165) 12::0 Région administrative : $gettok(%g,3,165) 12]
        inc %t
      }
    }
  }
}

;************
;Départements
;************
alias ²meteo.dep {
  if (!$window(@Meteo)) return
  drawpic -ct @Meteo 16777215 40 70 $qt($meteo.f(france.bmp))
  if ($window(@DepCache)) window -c @DepCache
  drawtext -nr @Meteo 0 Tahoma 12 20 455 Recherche :
  ²edit @Meteo -a 200 20 470 200 20 $chr(124)
  window -BCdg0hk0npRz +d @DepCache 0 0 500 470
  window -BCdg0hk0npRz +d @DepCache2 0 0 500 470
  drawcopy -n @Meteo 0 0 500 470 @DepCache 0 0
  drawcopy -n @Meteo 0 0 500 470 @DepCache2 0 0
}
alias ²meteo.play {
  if (!$window(@Meteo)) return
  if ($hget(@DepJeu)) .hfree @DepJeu
  hadd -m @DepJeu Score 0/0
  drawpic -ct @Meteo 16777215 40 70 $qt($meteo.f(france.bmp))
  if ($window(@DepCache2)) window -c $ifmatch
  window -BCdg0hk0npRz +d @DepCache2 0 0 500 470
  ²efface @Meteo 10 40 60 20
  drawtext -cnr @Meteo 12 Tahoma 0 10 40 60 20 $hget(@DepJeu,Score)
  drawcopy -n @Meteo 0 0 500 470 @DepCache2 0 0
  meteo.newgame
}
alias -l meteo.newgame {
  if ($hget(@DepJeu,Sol)) {
    var %t = 1
    ²efface @Meteo 10 40 60 20
    drawtext -cnr @Meteo 12 Tahoma 0 10 40 60 20 $hget(@DepJeu,Score)
    drawcopy -n @Meteo 0 0 500 470 @DepCache2 0 0
    while $gettok($hget(@DepJeu,Sol),%t,165) {
      var %it = $ifmatch, %c = $hfind(@DepColors,%it).data
      tokenize 44 %c
      drawreplace -nr @Meteo $rgb($1,$2,$3) 255 40 70 427 397
      drawrect -fnr @Meteo $rgb($1,$2,$3) 1 250 450 50 20
      drawrect -nr @Meteo $iif($hget(@DepJeu,Last),65280,255) 1 250 450 50 20
      inc %t
    }
    if ($window(@DepCache)) window -c $ifmatch
    window -BCdg0hk0npRz +d @DepCache 0 0 500 470
    drawcopy -n @Meteo 0 0 500 470 @DepCache 0 0
    hadd -m @Meteo On 1
    hadd -m @Meteo Main ²meteo.dep
    hdel @DepJeu Sol
    drawdot @Meteo
    return
  }
  drawcopy -n @DepCache2 0 0 500 470 @Meteo 0 0
  hadd -m @Meteo Main ²meteo.play
  var %ok, %type = $r(1,4), %titre = $replace(%type,1,du numéro,2,du département,3,de la préfecture,4,de la région)
  while !%ok {
    var %r = $r(1,100)
    if (%r isnum 96-100) var %r = $calc(%r + 874)
    if (%r != $hget(@DepJeu,Num)) var %ok = 1
    if (%r == 20) var %r = $+(20,$r(a,b))
    if (!$hfind(@DepColors,%r).data) var %ok = 0
  }
  hadd -m @DepJeu,Num) %r
  hadd -m @DepJeu Type %type
  hadd -m @DepJeu Aide 0
  hdel -w @DepJeu Clic*
  var %l = $+(%r,¥,$hget(@DepNums,%r)), %sol = $gettok(%l,%type,165), %t = 1, %m
  if (!%sol) {
    .timer -m 1 0 meteo.newgame
    return
  }
  var %max = $hget(@DepNums,0).item
  while %t <= %max {
    var %rep = $hget(@DepNums,%t).item, %it = %rep
    if (%type > 1) var %rep = $gettok($hget(@DepNums,%rep),$calc(%type -1),165)
    if (%rep == %sol) var %m = $addtok(%m,%it,165)
    inc %t
  }
  hadd -m @DepJeu Sol %m
  if (%type == 1) var %qu = %sol
  elseif (%type == 2) var %qu = $qt(%sol)
  elseif (%type == 3) var %qu = dont la préfecture est %sol
  else var %qu = faisant partie de la région %sol
  ²efface @Meteo 20 450 300 20
  drawtext -nr @Meteo 0 Tahoma 12 20 450 A partir $+(%titre,$chr(44))
  ²efface @Meteo 20 470 475 20
  drawtext -cnr @Meteo 0 Tahoma 12 20 470 475 20 localisez $iif(%type != 2,$iif(%type == 4,un,le) département) %qu
  drawdot @Meteo
}
;**************
;Ensoleillement
;**************
alias sunlight meteo sunlight
alias ²meteo.ens {
  .meteo.wait
  ²centre @Meteo -b 40 Ensoleillement sur Terre
  sockclose meteo.sunlight
  if ($exists($meteo.f(map.jpg))) .remove $qt($meteo.f(map.jpg))
  sockopen meteo.sunlight static.die.net 80
}
on *:sockopen:meteo.sunlight:{
  if ($sockerr) return
  var %r = $readini($meteo.f(departements.ini),Config,Resol)
  sockwrite -n $sockname GET $+(http://static.die.net/earth/mercator/,$iif($istok(1600 1024,%r,32),%r,1600),.jpg) HTTP/1.0
  sockwrite -n $sockname Host: $+(die.net,$str($crlf,2))
}
on *:sockread:meteo.sunlight:{
  sockread &a
  if ((!$sock($sockname).mark) && ($bfind(&a, 1,$str($crlf,2)))) {
    bcopy &b 1 &a $calc($ifmatch +4) -1
    if ($bvar(&b,0)) bwrite $qt($meteo.f(map.jpg)) -1 -1 &b
    sockmark $sockname 1
  }
  elseif ($bvar(&a,0)) bwrite $qt($meteo.f(map.jpg)) -1 -1 &a
}
on *:sockclose:meteo.sunlight:{
  drawpic -smn @Meteo 20 130 460 255 $qt($meteo.f(map.jpg))
  ²zone @Meteo 300 20 130 460 255
  drawrect -nr @Meteo 0 1 19 129 462 257
  ²description @Meteo 300 Ensoleillement sur Terre provenant de www.die.net/earth/. Cliquez pour agrandir
  ²button @Meteo 302 200 390 100 20 Rafraîchir
  ²centre @Meteo 415 Dernière mise à jour : le $date à $time
  drawdot @Meteo
}
alias ²meteo.enscfg {
  ²centre @Meteo -b 40 Configuration de la partie Ensoleillement
  var %r = $readini($meteo.f(departements.ini),Config,Resol)
  if ($istok(1600 1024,%r,32)) var %l = $+(%r,¥,$iif(%r == 1600,1024,1600))
  else var %l = 1600¥1024
  ²select @Meteo 301 200 250 100 20 %l
}
;**************
;Aliases utiles
;**************
alias -l min return $calc(($1 + $2 - $abs($calc($1 - $2)))/2)
alias -l max return $calc(($1 + $2 + $abs($calc($1 - $2)))/2)
alias -l extension return $regsubex($1,(.+)\.([^\.]+)$,\2)
alias -l meteo.translate {
  tokenize 32 $1-
  if (!$3) return
  var %j = $1, %m = $2, %a = $3
  if (%m < 3) var %n = $calc($int($calc(365.25*(%a - 1))) + $int($calc(30.6*(%m + 13))) + %j - 621049)
  else var %n = $calc($int($calc(365.25 * %a)) + $int($calc(30.6*(%m +1))) + %j - 621049)
  var %d = $iif($calc(%n % 7),$ifmatch,7)
  return $gettok(Lundi Mardi Mercredi Jeudi Vendredi Samedi Dimanche,%d,32)
}
;End Of File

Conclusion

Charger le code et tapez /meteo pour télécharger les fichiers.
/meteo ouvrira la picwin sur la prévision météorologique de la France
/dep ouvrira la picwin sur la fenêtre Départements
/sunlight ouvrira la picwin sur la fenêtre Ensoleillement

(je me permets de copier un paragraphe que j'avais écrit pour le code Départements Français)
Une autre fonction du remote est de donner rapidement le résultat d'une recherche :
/dep 67 => renvoie [ Département 67 : Bas Rhin :: Préfecture : Strasbourg :: Région administrative : Alsace ]
/dep Strasbourg : la même chose
/dep Bas?Rhin : toujours pareil
/dep Alsace : [ Département 67 : Bas Rhin :: Préfecture : Strasbourg :: Région administrative : Alsace ] et [ Département 68 : Haut Rhin :: Préfecture : Colmar :: Région administrative : Alsace ]
/dep Als* : renvoie 2 résultats
(Vous l'aurez compris, j'habite en Alsace :))

J'espère qu'elle vous plaira tout autant que les autres, en espérant plus encore :)

Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Meteo-Departements-SunLight-By-ArKanis.mrc 33 878 octets

Télécharger le zip

Historique

03 août 2007 20:21:54 :: quelques erreurs, notamment avec la prévision >= 3 jours; ajout de l'heure pour l'ensoleillement
11 août 2007 23:15:29 :: Passage à la version 2.2 (voir commentaire) - Effacez le fichier GUI-ArKanis.mrc et déchargez le pour le mettre à jour

Sources du même auteur

EPGUIDES : SORTIES DES SÉRIES

BELOTE (MULTIJOUEURS) EN PICWIN

EDITB - ALIASES FAVORIS DANS L'EDITBOX (SUGGESTION, COMPLETI...

OUTILS LINGUISTIQUE (DICTIONNAIRE, TRADUCTEUR, SYNONYMES, SI...

ARKATOOL (MENU INTERACTIF DU STYLE LECTEUR MP3)

Toutes les sources de RCA ArKanis

Sources de la même categorie

TCL - AJOUT SUPPRESSION DE LOGS par Atok

BLACKLIST PSEUDOS/MASKS par usurpateur

[XCHAT] ANTI KICK / AWAY C++ par GeroXXXX

JEU DU CODE par alanpersonproject

SERVEUR FTP par hisoka2501

Toutes les sources de la catégorie AddOns

Sources en rapport avec celle ci

LAZER (JEU EN PICWIN) par Zova

[DLL] DESSINER COMME LES PICWINS SUR UNE DIALOGBOX (BONUS: J... par uaip

PACMAN ONLINE - 4 JOUEURS par wims

SINUSOÏDALE par wims

METEO EN PICWIN (FRANCE ET DOM-TOM) par RCA ArKanis

Commentaires et avis

Commentaire de ISoKa le 03/08/2007 00:59:54

jolie, ca à l'air trés bien codé en plus de ce que j'en voi :) pis surtout ca nous change des whois en 5 lignes ... xD jolie source :)

Commentaire de xstyled le 03/08/2007 02:39:47

je te l'ai déja dit Arkanis ... tout ce que tu fais ne sert a rien donc chut et ++
non je plaisante. c'est sympa. Enfin le seul souci c'est que sa fait toujours un effet de transparence. Sa devient lassant au bout d'un moment :(

Commentaire de RCA ArKanis le 03/08/2007 11:44:56

tu devrais essayer /setlayer 255 @Meteo
mais c'est étrange que par défaut tu aies de la transparence ... réinstalle mIRC sinon :D

Commentaire de uaip le 03/08/2007 11:46:37

Bah selon moi, tu n'as plus a faire tes preuves ^^
j'aime bien ta façon de coder, je trouve ça fluide, ça ne fait pas mal aux yeux, c'est nikel. Et de plus, j'aime bien ce que tu codes. C'est a la fois intéressant et original.. Bref, encore une source bien qui servira (a moi et a d'autres) de modèle, car c'est grâce à des sources comme ça, en les analysant, etc, qu'on progresse :)
voila voila. Beau boulot, encore uen fois

PS : (si je n'avais pas vu mon pseudo dans l'intro en parlant de mes problèmes de post, je me serai encore plaint de ce problème :p)

A uai et juste une question si tu as le temps de répondre :
if ($hget(@DepDL)) hfree $ifmatch
ça permet de libérer la table si elle existe, non ? parce-que j'avais mis ça mais ça n'avait pas marché, tout comme des .cnick voyants malgré le point, bref, que des emmerdes -_-
Bonne continuation

PSS : Arggg, faites moi taire, j'en ai marre de poster des messages de 3kms de long pour rien dire :(

Commentaire de RCA ArKanis le 03/08/2007 12:21:02

oui ça libère la table sans avoir d'erreur "no such table"
c'est que chez toi ça n'ait pas marché, tout autant que l'histoire du .cnick qui s'affiche tout de même. Toi aussi tu aurais besoin de réinstaller ton mIRC ? :)

Commentaire de xstyled le 03/08/2007 20:19:39

lol ok ArKanis mais le probleme c'est que sa fait sa avec tout les mIRC que j'ai :( 6.16 / 6.17 et 6.2x ) :(
bref tant pis. ( sous vista et sous xp pareil )

Commentaire de wims le 08/08/2007 11:01:24

Encore une source de 500 lignes bien faites, mais pas spécialement utile :p (tiens, je vais regardé la carte de l'ensoleillement mondial, super !!!)
J'regarderais le code et testerais ce soir, mais c'est comme d'habitude j'suis sur :D

Commentaire de wims le 08/08/2007 22:24:08

Hum donc, j'ai trouvé quelque trucs gênant :
-Le click droit nous donne une fenetre, comprenant ton gui, on dirait un pop up non finis (assez gênant, la fenetre peux resté en place)

-Dans le menu, pour changer le jour, le 0 est normal ? (me semble que j'avais déja posé la question) je pense que tu devrais affiché les jours de la semaine avec un petit signe distinctif s'il correspond a aujourdui parce que les chiffres de 0 a 6, c'est pas très très clair, c'est dmg aussi que tes controls pour naviguer ne sois pas + ou -

-La carte des vigilances, on ne sais pas de quel jour c'est, et il y a des petit bug graphique (mais je crois que ça viens de l'image du socket et non de toi)

-lors de recherche, il y a une fenetre ou le "enter" valide, et d'autre ou ça ne le fais pas, et ya une liste ou j'aurai bien aimé pouvoir double cliquer au lieu de cliqué une fois sur le truc et ensuite sur le bouton pour valider.Faire une recheche, puis en refaire une par dessus fait que le chargement en cours reviens par dessus l'ancienne recherche, c'est également dmg que la recherche sois directement mis en string (en tapant paris, je tombe sur des truc genre parisis etc..).Faire une recherche sans résultat amène a un chargement en cours infini.

-Les départements : a quoi sert la recherche ? Je kiff pas trop le fait de devoir checké la page internet pour voir les infos (un peu mince, et datant de 1990 ;() parce que en chipotant on pourrais dire : "dans ce cas autant tout allé voir sur le navigateur ^^"

-Le jeu, bien mais c'est pas marqué qu'il faut cliqué pour continuer :p
-L'ensoleilement, je ne vois pas de diff entre 1600 et 1024 :$

Bon j'ai look un peu les 800 lignes, comme d'hab c'est bien mais :p :

-en remplaçant les $ifmatch par $v1, tu doit gagné j'pense 800 char ? :(

-ligne 15-16, tu peux réunir le return et l'$input :
return $input(Il faut impérativement avoir une version de mIRC plus récente que la version 6.17,o)
et dailleur le msg devrais être Il faut impérativement avoir une version de mirc superieur a la 6.16 non ?

-ligne 18, tu peux utiliser $v1 :p
-a plusieur endroit, tu fait des var %a = $calc(5 + 6) (exemple) le $calc est inutile lors de var avec des operation simple, et dailleur, tu met des = tout le temps
alors que t'en a je crois (je dis ça sans connaitre le code par coeur) jamais besoin, le signe = nécéssaire seulement lorsque tu accèdes a une donnée que mirc doit "allé cherché"

-Tu fais souvent des $calc($N + %var) tu peux collé le + au $N même si c'est du chipotage

-Tu doit utiliser $r(a,b) au lieu de $iif($r(1,0),a,b) ici :

if (%r == 20) var %r = $+(20,$iif($r(0,1),a,b))

Voila, sinon bah je l'ai déja dis, ça ne me sera pas vraiment utile, mais c'est bien fait, et avec ce que l'on vois en ce moment, c'est ce qui compte :]

Commentaire de RCA ArKanis le 11/08/2007 23:12:31

- le bug graphique vient effectivement de l'image téléchargée

- la différence au niveau de l'ensoleillement concernant le format 1600 et le 1024 se fait sur le temps de téléchargement si tu as une petite connexion, mais également sur l'affichage. Clique sur l'aperçu, tu verras que ça s'agrandira et tu auras la taille originale.

- la fonction recherche affiche les résultats tels que le site les afficherait, parisis est donc normal

- la recherche permet de colorer les départements qui correspondent à ce que l'on recherche. Tu peux utiliser des jokers pour colorer plusieurs départements. Exemple : si tu mets Al*, tu auras l'Alsace, les Alpes, Alençon, Albi et l'Allier qui feront colorer leurs départements respectifs en rouge. Par défaut, le dernier mot entré est suivi d'une étoile. Ca ne fonctionne pas pour les chiffres. (Al* est équivalent à Al et 6 n'est pas équivalent à 6*)

- Le chargement infini a été corrigé, la fonction recherche aussi.

- J'ai codé ton histoire de double clic, ça fonctionne plutôt bien :D

- Je ne compte pas changer le fonctionnement du Select

- Je ne changerai pas non plus l'histoire des =, des /var et des $calc (question d'habitude)

- Le menu du GUI sera corrigé dans les prochaines versions

- C'est pas marqué qu'il faut cliquer pour le jeu, mais tu as quand même trouvé :D

J'update dans quelques minutes (version 2.2)

Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

Dégradé [ par Bloock ] Bon voila, je vais faire un lecteur mp3 en picwin, et j'aimerai savoir comment on fait [/b]un dégradé dans une fenêtre Picwin[/b]! Merci d'avance <img Aide Socket & picwin [ par _VeSpArO_ ] Salut tout le monde je voulai savoir comment stocker un fichier txt d'un site dans un fichier .txt ou autre dans mon mirc.CAD: telecharger par exemple Picwin je pense lol jsuis meme pas sur du nom :s [ par Panther007 ] Salut :) Bon je vous dit en quoi j'aimerais me faire aider , j'aimerais me fabriquer un jeu de Ping pong mais avant il faut que je sache comment utili Dialog + Picwin [ par DiGhan ] Bonjour,Voilà , j'ai plusieurs dialog, dans lequel je voudrais inclure des picwin.J'aimerais savoir comment faire pour bouger le dialog quand la title quelques question [ par KiNdErMaXi ] voila, j'ai quelques questions a vous poser:*1) est-il possible de faire apparaitre un petit truc. Je m'explique, pointez de la souris la croix en hau tutorial picwin [ par KiNdErMaXi ] alors voila j'ai fais un petit tutorial sur les picwin, mais comme on ne peut pas laisser de commentaire et puis qu'il est enfouis dans le fond du sit problème de picwin ... [ par KiNdErMaXi ] Bonsoir :)Alors voila, je trouvais bizarre certain /drawtext sur mon mIRC, alors j'ai tester avec un autre mIRC et la différence est flagrante .. Remplissage rectangle en picwin ? [ par talking ] Voilà bonjour tout le monde. Je poste ce message car j'ai un probléme lors du remplissage de mon rectangle drawrect . Prenons un exemple. Je Aide dialog => picwin [ par scandalz ] Salut la troupe. Est-ce possible de mettre des pw sur un dialog ?Merci. scandalz Aide Dialog/Picwin [ par AgoRa_ScripT ] Bonjour, Je cherche à savoir comment intégrer une fenêtre picwin dans un dialog. Je crois que c'est possible, mais je me rapelle plus

Nos sponsors

Derniers Blogs

FAIRE APPARAITRE L'ONGLET 'DéVELOPPEUR' DANS OFFICE 2010 par neodante

[ASTUCE] PATCH POUR MICROSOFT FORUMS NNTP BRIDGE V1 par pierre

PB LORS DE L'INSTALLATION SHAREPOINT 2010. par Patrick Guimonet

[WF4] AJOUTER DES CONTRAINTES à UNE ACTIVITé (2/2) par JeremyJeanson

[WF4] AJOUTER DES CONTRAINTES à UNE ACTIVITé (1/2) par JeremyJeanson

Forum

RE : SOUCI par WorldDMT

RE : SOUCI par IrX

RE : SOUCI par WorldDMT

RE : SOUCI par IrX

Côté IT

Offres d'emploi

Formations Video

Appels d'offres

Site internet php
Budget : 350€
site formation reiki distance
Budget : 900€
Banniere Flash Drupal
Budget : 150€

Logiciels

Xilisoft Convertisseur Vidéo Ultimate (5.1.39.0305)
XILISOFT CONVERTISSEUR VIDéO ULTIMATE (5.1.39.0305)

Xilisoft Convertisseur Vidéo Ultimate est un outil puissant de conversion vidéo, facile à utilise...

Cliquez pour télécharger Xilisoft Convertisseur Vidéo Ultimate
Xilisoft DVD Ripper Ultimate (5.0.64.0304)
XILISOFT DVD RIPPER ULTIMATE (5.0.64.0304)

Xilisoft DVD Ripper Ultimate est un logiciel excellent pour copier et convertir DVD vers presque ...

Cliquez pour télécharger Xilisoft DVD Ripper Ultimate
Axalot, logiciel de sauvegarde de données en ligne (1.10.108.1)
AXALOT, LOGICIEL DE SAUVEGARDE DE DONNéES EN LIGNE (1.10.108.1)

Perdre tout le contenu de votre disque dur, vous imaginez ? Vos photos, vos musiques, votre compt...

Cliquez pour télécharger Axalot, logiciel de sauvegarde de données en ligne
Rigs of Rods (63.3)
RIGS OF RODS (63.3)

c'est un jeu de multi-simulation camions,autobus voitures, avions, bateaux, hélicoptère avec défo...

Cliquez pour télécharger Rigs of Rods
Konvertor (4.00)
KONVERTOR (4.00)

Le logiciel est un gestionnaire multimedia affichant, jouant et convertissant plus de 2000 format...

Cliquez pour télécharger Konvertor