begin process at 2012 02 11 12:18:06
  Trouver un code source :
 
dans
 

6 commentaire(s) de Fico75 sur des sources sur tout CodeS-SourceS

Déposé sur Controler notre mirc a distance avec les ctcp

ça n'a pas marché je me demande pkoi,!!
Posté le : 08/02/2004 12:03:55

Déposé sur Un bot meteorologue! (mise à jour importante! )

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 :)
Posté le : 08/02/2004 10:54:42

Déposé sur Un bot meteorologue! (mise à jour importante! )

salut
j'aimerais avoir ce remote de meteo quand tu tape !meteo (ville) il te donera la meteo en notice ou en pv, si c'est possible pour presque toutes les villes du monde , merci :)
Posté le : 07/02/2004 17:52:49

Déposé sur Connaître son horoscope

salut
je vouderais avoir le remote de la meteo  genre ,meme principe que le remote de horoscope , quand tu tappe !meteo (ville) tu as la meteo en pv ou en notice si possible meteo de presque tout les region du monde et merciiiiiiiiiiiiii bcp :)
Posté le : 07/02/2004 16:43:50

Déposé sur Connaître son horoscope

mat22a54 : Ce n'est pas très dur à faire, voici le code :


ON *:TEXT:!horoscope*:#:{
if ($2) { set %h.chan $chan | set %signe $2 | sockopen horos www.euroavenir.com 80 }
}
on *:sockopen:horos: {
sockwrite -n horos GET http://www.euroavenir.com/horoscope/horoscope.php?textcolorin=000000&bgcolor=FFFFFF&titlecolor=FF0000&signe= $+ %signe
}
alias reg { var %oo,%gg = $1-,%bb = $regsub(%gg,/<[^>]+>/gg,,%oo) | return $remove(%oo,$chr(59),$chr(38)) }
on *:sockread:horos: {
sockread %hr
if (<font size="2"> isin %hr) { msg %h.chan $reg(%hr) }
}

Ensuite, pour avoir l'horoscope, tu tapes :
!horoscope lesigne

Et voila.
( je n'ai pas testé mon adaption du code de ReMi34, mais cela doit être bon )

personnelement je le trouve tres bon mais je veux tout simplement que mon horoscope envoie ça en pv ou en Notice aux personnes demandeur d'horoscope et merci :) soyez gentil de me donner le script pareceque j y connais pas grand chose
Posté le : 07/02/2004 13:48:51

Déposé sur Anti-insultes(et pub)

il marche pas je me demande pkoi?
Posté le : 04/02/2004 12:26:34

1


Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,125 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales