Accueil > > > UN BOT METEOROLOGUE! (MISE À JOUR IMPORTANTE! )
UN BOT METEOROLOGUE! (MISE À JOUR IMPORTANTE! )
Information sur la source
Description
Ce script va chercher la meteo sur un site internet.
il est specialement optimisé pour la belgique, puisque il reonnait TOUTES les communes belges (normalement il n'en manque pas une ;) )
PS: Une mise a jour importante viens d'etre faites:
En effet le script a du etre quasiment completement refait puisque le site d'ou les informations étaient récupérées à changé complètement.
Des lors, dorénavant les prévisions avec 5 jours d'avances ne sont plus de mise par contre les prévisions sur la journée sont plus précises et plus fiable.
Source
- ON *:TEXT:*!meteo*:#:{
- UNSET %meteoville
- UNSET %meteoRead
- UNSET %MeteoRead1
- UNSET %MeteoReadLune
- IF (!meteo == $1) { SET %meteoville $2 }
- ELSEIF (!meteo == $2) { SET %meteoville $3 }
- SET %Meteochan $chan
- SET %MeteoRead1
- SET %MeteoReadLune
- SOCKCLOSE meteo
- SOCKCLOSE meteoA
- SOCKOPEN meteo www.meteo-consult.fr 80
- }
-
- ON *:SOCKOPEN:meteo:{
- SOCKWRITE -n meteo GET /ter/monde/prevision/moteur.php?langue=fr&saisie= $+ %meteoville
- }
- ON *:SOCKREAD:meteo:{
- SOCKREAD %meteoRead
- echo %meteoread
- IF (tresgros-gras ISIN %meteoRead) {
- %meteoRead = $remove(%meteoRead,<td width=60%><font class=tresgros-gras> , <tr class=tresgros-grasitalic-jaune>,</font></td><td width=40% align=right>,<font class=tresgros-gras>, ,</font>,</td>, </tr>)
- MSG %MeteoChan %meteoRead
- }
- IF (assezgros-gras-bleu ISIN %meteoRead) {
- %meteoRead = $remove(%meteoRead,<font class=assezgros-gras-bleu>,</font>)
- MSG %MeteoChan Etat général: %meteoRead
- MSG %MeteoChan
- }
- IF (lune</font> ISIN %meteoRead) {
- %meteoRead = $remove(%meteoRead,<font class=assezpetit-bleu>,</font>)
- %meteoReadLune = %MeteoRead
- }
- IF (</span></font></td> ISIN %meteoRead) {
- %meteoRead = $remove(%meteoRead,</span></font></td>,<BR>)
- %meteoRead1 = $+ %meteoRead $+ :
- }
- IF (°C ISIN %meteoRead) {
- IF (RESSENTIE ISIN %meteoRead) %meteoRead = </font>
- %meteoRead = $remove(%meteoRead,<font class=gros-gras-bleu>,</font>)
- %meteoRead = $replace(%meteoRead,°C,°C)
- MSG %MeteoChan %MeteoRead1 %meteoRead
- %meteoread = $null
- %meteoread1 = $null
- }
- IF (<p align=justify> ISIN %meteoRead) {
- %meteoRead = $remove(%meteoRead,<p align=justify>,<BR>)
- %meteoRead1 = %meteoRead
- }
- IF (.</p> ISIN %meteoRead) {
- %meteoRead = $remove(%meteoRead,</p>)
- MSG %MeteoChan %MeteoRead1 %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.meteo-consult.fr 80
- }
- ELSE { MSG %meteochan Soit la ville/commune n'est pas belge soit elle est mal orthographiée }
- }
- IF ((lune ISIN %meteoReadLune) && (</BODY> ISIN %meteoread)) MSG %MeteoChan Ephémérides: %meteoReadLune
- }
-
- ON *:SOCKOPEN:meteoA:{
- SOCKWRITE -n meteoA GET /ter/monde/prevision/moteur.php?langue=fr&saisie= $+ %meteoville
- }
-
- ON *:SOCKREAD:meteoA:{
- SOCKREAD %meteoRead
- IF (assezgros-gras-bleu ISIN %meteoRead) {
- %meteoRead = $remove(%meteoRead,<font class=assezgros-gras-bleu>,</font>)
- MSG %MeteoChan
- MSG %MeteoChan Etat général: %meteoRead
- }
- IF (lune</font> ISIN %meteoRead) {
- %meteoRead = $remove(%meteoRead,<font class=assezpetit-bleu>,</font>)
- %meteoReadLune = %MeteoRead
- }
- IF (</span></font></td> ISIN %meteoRead) {
- %meteoRead = $remove(%meteoRead,</span></font></td>,<BR>)
- %meteoRead1 = $+ %meteoRead $+ :
- }
- IF (°C ISIN %meteoRead) {
- IF (RESSENTIE ISIN %meteoRead) %meteoRead = </font>
- %meteoRead = $remove(%meteoRead,<font class=gros-gras-bleu>,</font>)
- %meteoRead = $replace(%meteoRead,°C,°C)
- MSG %MeteoChan %MeteoRead1 %meteoRead
- %meteoread = $null
- %meteoread1 = $null
- }
- IF (<p align=justify> ISIN %meteoRead) {
- %meteoRead = $remove(%meteoRead,<p align=justify>,<BR>)
- %meteoRead1 = %meteoRead
- }
- IF (.</p> ISIN %meteoRead) {
- %meteoRead = $remove(%meteoRead,</p>)
- MSG %MeteoChan %MeteoRead1 %meteoRead
- }
- IF ((lune ISIN %meteoReadLune) && (</BODY> ISIN %meteoread)) MSG %MeteoChan Ephémérides: %meteoReadLune
- }
ON *:TEXT:*!meteo*:#:{
UNSET %meteoville
UNSET %meteoRead
UNSET %MeteoRead1
UNSET %MeteoReadLune
IF (!meteo == $1) { SET %meteoville $2 }
ELSEIF (!meteo == $2) { SET %meteoville $3 }
SET %Meteochan $chan
SET %MeteoRead1
SET %MeteoReadLune
SOCKCLOSE meteo
SOCKCLOSE meteoA
SOCKOPEN meteo www.meteo-consult.fr 80
}
ON *:SOCKOPEN:meteo:{
SOCKWRITE -n meteo GET /ter/monde/prevision/moteur.php?langue=fr&saisie= $+ %meteoville
}
ON *:SOCKREAD:meteo:{
SOCKREAD %meteoRead
echo %meteoread
IF (tresgros-gras ISIN %meteoRead) {
%meteoRead = $remove(%meteoRead,<td width=60%><font class=tresgros-gras> , <tr class=tresgros-grasitalic-jaune>,</font></td><td width=40% align=right>,<font class=tresgros-gras>, ,</font>,</td>, </tr>)
MSG %MeteoChan %meteoRead
}
IF (assezgros-gras-bleu ISIN %meteoRead) {
%meteoRead = $remove(%meteoRead,<font class=assezgros-gras-bleu>,</font>)
MSG %MeteoChan Etat général: %meteoRead
MSG %MeteoChan
}
IF (lune</font> ISIN %meteoRead) {
%meteoRead = $remove(%meteoRead,<font class=assezpetit-bleu>,</font>)
%meteoReadLune = %MeteoRead
}
IF (</span></font></td> ISIN %meteoRead) {
%meteoRead = $remove(%meteoRead,</span></font></td>,<BR>)
%meteoRead1 = $+ %meteoRead $+ :
}
IF (°C ISIN %meteoRead) {
IF (RESSENTIE ISIN %meteoRead) %meteoRead = </font>
%meteoRead = $remove(%meteoRead,<font class=gros-gras-bleu>,</font>)
%meteoRead = $replace(%meteoRead,°C,°C)
MSG %MeteoChan %MeteoRead1 %meteoRead
%meteoread = $null
%meteoread1 = $null
}
IF (<p align=justify> ISIN %meteoRead) {
%meteoRead = $remove(%meteoRead,<p align=justify>,<BR>)
%meteoRead1 = %meteoRead
}
IF (.</p> ISIN %meteoRead) {
%meteoRead = $remove(%meteoRead,</p>)
MSG %MeteoChan %MeteoRead1 %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.meteo-consult.fr 80
}
ELSE { MSG %meteochan Soit la ville/commune n'est pas belge soit elle est mal orthographiée }
}
IF ((lune ISIN %meteoReadLune) && (</BODY> ISIN %meteoread)) MSG %MeteoChan Ephémérides: %meteoReadLune
}
ON *:SOCKOPEN:meteoA:{
SOCKWRITE -n meteoA GET /ter/monde/prevision/moteur.php?langue=fr&saisie= $+ %meteoville
}
ON *:SOCKREAD:meteoA:{
SOCKREAD %meteoRead
IF (assezgros-gras-bleu ISIN %meteoRead) {
%meteoRead = $remove(%meteoRead,<font class=assezgros-gras-bleu>,</font>)
MSG %MeteoChan
MSG %MeteoChan Etat général: %meteoRead
}
IF (lune</font> ISIN %meteoRead) {
%meteoRead = $remove(%meteoRead,<font class=assezpetit-bleu>,</font>)
%meteoReadLune = %MeteoRead
}
IF (</span></font></td> ISIN %meteoRead) {
%meteoRead = $remove(%meteoRead,</span></font></td>,<BR>)
%meteoRead1 = $+ %meteoRead $+ :
}
IF (°C ISIN %meteoRead) {
IF (RESSENTIE ISIN %meteoRead) %meteoRead = </font>
%meteoRead = $remove(%meteoRead,<font class=gros-gras-bleu>,</font>)
%meteoRead = $replace(%meteoRead,°C,°C)
MSG %MeteoChan %MeteoRead1 %meteoRead
%meteoread = $null
%meteoread1 = $null
}
IF (<p align=justify> ISIN %meteoRead) {
%meteoRead = $remove(%meteoRead,<p align=justify>,<BR>)
%meteoRead1 = %meteoRead
}
IF (.</p> ISIN %meteoRead) {
%meteoRead = $remove(%meteoRead,</p>)
MSG %MeteoChan %MeteoRead1 %meteoRead
}
IF ((lune ISIN %meteoReadLune) && (</BODY> ISIN %meteoread)) MSG %MeteoChan Ephémérides: %meteoReadLune
}
Conclusion
pour tout bug ou suggestion n'hesitez pas a me contacter à womby@epiknet.fr ou encore a passer faire un petit tour sur undernet salon #drogenbos :)
p.s pour l'installation mettez le script et le fichier texte dans le dossier meme de votre executable mirc
Sources du même auteur
INFORMATIONS SUR LES EXTENSIONSINFORMATIONS SUR LES EXTENSIONS Cet addon va vous permettre de rechercher des informations sur une extension de fichier
Imagions que vous ayez une extension du type .mrc et que vo...
NAHEULBEUK DANS VOTRE BOT ! :)NAHEULBEUK DANS VOTRE BOT ! :) Ce script permet de faire dire a votre bot les citations de la fameuse saga du "Donjon de Naheulbeuk" vu les paroles loufoques des personnages c'est a...
COMMANDE DE X (UNDERNET,ECT,...)COMMANDE DE X (UNDERNET,ECT,...) Voila une liste des fonction de X sous undernet classé par odre d'acces :)
A mettre dans un des menu popup (channel, ,nicklist,status,ect,ect)
C...
COMMANDES DE NICKSERV,CHANSERV ET MEMOSERVCOMMANDES DE NICKSERV,CHANSERV ET MEMOSERV Voila un petit script permettant d'avoir toute les commandes de chanserv memoserv et nickserv dans le menu de la list des nicks :) je sais j'aurait p...
Sources de la même categorie
Commentaires et avis
|
Derniers Blogs
VISUAL STUDIO TALK SHOW: EF4VISUAL STUDIO TALK SHOW: EF4 par Matthieu MEZIL
La semaine dernière, j'étais à Montréal pour y animer des conférences sur Entity Framework. J'en ai profité pour enregister un podcast Visual Studio Talk Show que vous pouvez retrouver ici ....(read more) ...
Cliquez pour lire la suite de l'article par Matthieu MEZIL [MIX 2010] - WINDOWS PHONE 7 EN SUPER STAR DU MICROSOFT MIX 2010 ![MIX 2010] - WINDOWS PHONE 7 EN SUPER STAR DU MICROSOFT MIX 2010 ! par redo
Me voici enfin arrivé au Microsoft Mix 2010, je dois vous avouer être arrivé un peu plus tard que d'habitude, ce qui explique que je n'ayez vu aucune info passer quant au premier keynote . certains événements sont plus importants que tout, ce qui était mo...
Cliquez pour lire la suite de l'article par redo [MIX 2010] - LIVRE GRATUIT SUR PROGRAMMER WINDOWS PHONE 7 SERIES ![MIX 2010] - LIVRE GRATUIT SUR PROGRAMMER WINDOWS PHONE 7 SERIES ! par redo
Disponible gratuitement : (153 pages) PDF Version : http://download.microsoft.com/download/7/C/8/7C820C6F-C205-4ECF-B9F3-1505DD13F9BF/ProgWinPhonePreview.pdf XPS Version : http://download.microsoft.com/download/E/3/5/E359FC51-1CF5-47F1-9BF3-74AB09D3339B/P...
Cliquez pour lire la suite de l'article par redo SQL SERVER : ESTIMER LE NOMBRE DE LIGNES RENVOYéES PAR UNE REQUêTE AVEC SQLCLRSQL SERVER : ESTIMER LE NOMBRE DE LIGNES RENVOYéES PAR UNE REQUêTE AVEC SQLCLR par christian
Dans certains cas très particuliers il peut être intéressant de savoir le nombre de ligne que va renvoyer une requête sans exécuter cette dernière. En effet les opérations de comptage sont généralement gourmande en ressource est très difficile à optim...
Cliquez pour lire la suite de l'article par christian [WF4] ACTIVITY AVEC VUE DéTAIL MASQUéE PAR DéFAUT, VIVE WPF![WF4] ACTIVITY AVEC VUE DéTAIL MASQUéE PAR DéFAUT, VIVE WPF! par JeremyJeanson
Le code suivant est destiné à répondre à une problématique courante en Workflow : Vous avez une activité dont le designer est complexe ou dont l'affichage prend une place importante à l'écran et la possibilité Collapse/Expand ne répond pas pleinement à vo...
Cliquez pour lire la suite de l'article par JeremyJeanson
Forum
RE : PROBLEMERE : PROBLEME par kamikaze97441
Cliquez pour lire la suite par kamikaze97441
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 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
|