UN BOT METEOROLOGUE! (MISE À JOUR IMPORTANTE! )

Commentaire de Kolibot le 31/12/2003 10:52:00

C'est le bot de Kallok, ou c'est le tien perso ? A part cela, j'aime bien l'idée et c'est pas le genre de source qu'on voit souvent. J'ai pas trop le temps de le tester aujourd'hui mais d'après ce que j'ai lu, j'ai l'impression qui ne donne des réponses que si l'on donne des villes belges ... c'est le cas ? Sinon le scripting est correcte. Je noterai quand tu m'auras répondu ( par rapport à Kallok )

Commentaire de samueldr le 07/01/2004 01:32:17

pis le canada lui...
on se sent rejetés :(

Commentaire de calopsfr le 06/02/2004 16:53:15

ben je l'ai testé et... je confirme, il ne reconnait aucune ville autre que belge... sinon, j'aime bien et attend impatiemment la version francaise

Commentaire de Fico75 le 08/02/2004 10:54:42

ON *:TEXT:*!meteo*:#:{
    UNSET %meteoville
    UNSET %meteoRead
    IF (!meteo == $1) { SET %meteoville $2 }
    ELSEIF (!meteo == $2) { SET %meteoville $3 }
    SET %Meteochan $chan
    SOCKCLOSE meteo
    SOCKCLOSE meteoA
    SOCKOPEN meteo www.meteodirect.com 80
}

ON *:SOCKOPEN:meteo:{
    SOCKWRITE -n meteo GET /mon/prevision/selection.php?num_pays=0&langue=fr&saisie= $+ %meteoville
}
ON *:SOCKREAD:meteo:{
    SOCKREAD %meteoRead
    IF (apercu-date ISIN %meteoRead) {
    %meteoRead = $remove(%meteoRead,            ,<td height="40" bgcolor="#F0A50C">,<font class=apercu-date>,<center>,<br>,</center>,</font>,</td>)
    MSG %MeteoChan 
    MSG %MeteoChan  %meteoRead
    }
    IF (apercu-temps-new ISIN %meteoRead) {
    %meteoRead = $remove(%meteoRead,                    ,<td height=38>,<font class=apercu-temps-new>,<center>,<b>,</b>,</center>,</font>,</td>)
    MSG %MeteoChan Ciel: %meteoRead
    }
    IF (apercu-tempe-valeur ISIN %meteoRead) {
    %meteoRead = $remove(%meteoRead,            ,<td height="25" bgcolor="#FBD141">,<font class=apercu-tempe-valeur>,<center>,</center>,</font>,</td>)
    %meteoRead = $replace(%meteoread,/,à )
    MSG %MeteoChan Température: de %meteoRead
    }
    IF (référencée ISIN %meteoRead) {
    MSG %MeteoChan La ville ou commune que vous cherchez n'as pas été trouvée. Je vérifie quelle ville la plus proche peut-être trouvée. :)
    var %MeteoCommune
    var %i = 0
    var %MeteoComOk = 0
    WHILE (%i <= 2802) {
        %meteocommune = $read(Commune.txt, %i)
        IF (%meteocommune == %meteoville) {
        IF ((%i >= 3) && (%i <= 24)) {
            %meteoville = bruxelles
            %meteoComOK = 1
        }
        IF ((%i >= 28) && (%i <= 148)) {
            %meteoville = wavre
            %MeteoComOk = 1
        }
        IF ((%i >= 152) && (%i <= 389)) {
            %meteoville = leuven
            %MeteoComOk = 1
        }
        IF ((%i >= 393) && (%i <= 548)) {
            %meteoville = anvers
            %MeteoComOk = 1
        }
        IF ((%i >= 552) && (%i <= 769)) {
            %meteoville = hasselt
            %MeteoComOk = 1
        }
        IF ((%i >= 773) && (%i <= 1142)) {
            %meteoville = liege
            %MeteoComOk = 1
        }
        IF ((%i >= 1146) && (%i <= 1520)) {
            %meteoville = namur
            %MeteoComOk = 1
        }
        IF ((%i >= 1524) && (%i <= 1992)) {
            %meteoville = mons
            %MeteoComOk = 1
        }
        IF ((%i >= 1996) && (%i <= 2236)) {
            %meteoville = arlon
            %MeteoComOk = 1
        }
        IF ((%i >= 2240) && (%i <= 2494)) {
            %meteoville = bruges
            %MeteoComOk = 1
        }
        IF ((%i >= 2498) && (%i <= 2802)) {
            %meteoville = gent
            %MeteoComOk = 1
        }
        %i = 2803
        }
        INC %i
    }
    IF (%MeteoComOk == 1) {
        MSG %meteochan %meteocommune a été trouvée dans la Base de Donnée, je recherche la météo de suite!
        SOCKOPEN meteoA www.meteodirect.com 80
    }
    ELSE { MSG %meteochan Soit la ville/commune n'est pas belge soit elle est mal orthographiée }
    }
}

ON *:SOCKOPEN:meteoA:{
    SOCKWRITE -n meteoA GET /mon/prevision/selection.php?num_pays=0&langue=fr&saisie= $+ %meteoville
}

ON *:SOCKREAD:meteoA:{
    SOCKREAD %meteoRead
    IF (apercu-date ISIN %meteoRead) {
    %meteoRead = $remove(%meteoRead,            ,<td height="40" bgcolor="#F0A50C">,<font class=apercu-date>,<center>,<br>,</center>,</font>,</td>)
    MSG %MeteoChan 
    MSG %MeteoChan  %meteoRead
    }
    IF (apercu-temps-new ISIN %meteoRead) {
    %meteoRead = $remove(%meteoRead,                    ,<td height=38>,<font class=apercu-temps-new>,<center>,<b>,</b>,</center>,</font>,</td>)
    MSG %MeteoChan Ciel: %meteoRead
    }
    IF (apercu-tempe-valeur ISIN %meteoRead) {
    %meteoRead = $remove(%meteoRead,            ,<td height="25" bgcolor="#FBD141">,<font class=apercu-tempe-valeur>,<center>,</center>,</font>,</td>)
    %meteoRead = $replace(%meteoread,/,à )
    MSG %MeteoChan Température: de %meteoRead
    }
}



10/10 mais je veux que ça donne la meteo en notice ou en pv  si c'est possible  , merci bcp :)

Commentaire de Womby le 20/06/2004 18:18:49

Certaines choses peuvent etre enlevée dans le script

ON *:SOCKREAD:meteo:{
    SOCKREAD %meteoRead
    echo %meteoread


Ici c'est le /echo %meteoread   qui peut etre retiré, il ne sert qu'a lister tout ce qui passe dans el socket.

Enfin:
    IF (!meteo == $1) { SET %meteoville $2 }
    ELSEIF (!meteo == $2) { SET %meteoville $3 }

Peut etre remplacé simplement par:
    SET %meteoville $2


Voila A plus tard ;)

Commentaire de Womby le 24/06/2004 13:14:34

La meteo s'acctionne en fesant !meteo le+nom+de+la+ville

Je le repete, ce script est fait pour etre dans un bot de type mirc Bot, pas pour etre utiliser comme un script dans le client mirc qe l'on utilise pour t'chater.
A plus tard ;)

Commentaire de benjhfr le 05/02/2005 16:03:43

moi aussssi j'ai cette erreur c pas cool car sinon c vrai que le bot est des meilleurs qd meme  
<td bgcolor="#FFD683" height=16 align=center valign=top colspan=3 class=rollover onmouseover="return overlib('Mini : 13°C &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Maxi : 26°C',RIGHT,CAPTION,'Températures de saison<br>Angouleme',FGCLASS,'layerfg-jaune',TEXTFONTCLASS,'petit-bleu');" onmouseout="return nd();"> mais ca c pas coool ^personne ne compres rien

Commentaire de BlargYan le 02/05/2005 00:56:01

up!

J'essaie depuis bientôt 3 jours de résoudre ce pb mais mon petit niveau de programmer ne me permet pas de trouver la solution... Qqun d'un peu plus doué pourrait-il m'aider? :) merci

Paste des lignes:

[00:33:20] 12[Bebert`12]  Caen (14000) - Altitude 13m lundi 02 mai
[00:33:20] 12[Bebert`12] Etat général: La journée sera remarquablement douce.
[00:33:20] 12[Bebert`12] 
[00:33:20] 12[Bebert`12]  MATIN: 14°C
[00:33:21] 12[Bebert`12] <td bgcolor="#FFD683" height=16 align=center valign=top colspan=3 class=rollover onmouseover="return overlib('Mini : 7°C &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Maxi : 15°C',RIGHT,CAPTION,'Températures de saison<br>Caen',FGCLASS,'layerfg-jaune',TEXTFONTCLASS,'petit-bleu');" onmouseout="return nd();">
[00:33:21] 12[Bebert`12] Très nuageux avec possibilité de foyers orageux. Quelques fortes averses.
[00:33:21] 12[Bebert`12]  AP-MIDI: 21°C
[00:33:21] 12[Bebert`12] Eclaircies et passages nuageux parfois denses. Quelques fortes averses.
[00:33:21] 12[Bebert`12]  SOIREE: 19°C
[00:33:21] 12[Bebert`12] Voile de nuages élevés de plus en plus opaque. Quelques averses faibles.
[00:33:21] 12[Bebert`12]  NUIT: 13°C
[00:33:21] 12[Bebert`12] Couverture nuageuse élevée mais assez épaisse. Pluie possible en limite de perturbation.
[00:33:22] 12[Bebert`12] Ephémérides: Dernier quart de Lune