Connaître son horoscope

Soyez le premier à donner votre avis sur cette source.

Snippet vu 13 843 fois - Téléchargée 24 fois

Contenu du snippet

Comme le dit le titre, c'est un addon en socket pour connaître son horoscope :)

Source / Exemple :


;--------------------------
;
;    -=- Horoscope -=-
;      By Re[M]i_34
;
;---------------------------

dialog horos {
  title "-=- Horoscope -=- By Re[M]i_34"
  size -1 -1 136 173
  option dbu
  box "Résultats :", 6, 5 38 127 120
  text "Entrez votre signe zodiacal :", 1, 25 3 79 8, center
  edit "", 2, 27 13 77 10, center autohs
  button "Voir l'Horoscope", 3, 24 26 81 11, default flat
  edit "", 4, 8 46 119 10, center read
  edit "", 5, 8 57 119 96, multi autohs autovs hsbar vsbar
  button "Effacer", 7, 17 161 37 10
  button "Fermer", 8, 86 161 37 10, ok
}
menu * {
  -
  Horoscope:dialog -m horos horos
  -
}

on *:dialog:horos:*:*: {
  if $devent == sclick {
    if $did == 3 {
      set %signe $did(2)
      did -ra horos 4 Connexion en Cours...
      sockopen horos www.euroavenir.com 80
    }
    if $did == 7 {
      did -r horos 2,4,5
      sockclose horos
    }
  }
  if $devent == init {
    dll mdx.dll SetMircVersion $version 
    dll mdx.dll MarkDialog $dname
    dll mdx.dll SetColor $dname 4 text $rgb(255,0,0)
    dll mdx.dll SetColor $dname 5 text $rgb(0,0,255)
    dll mdx.dll SetColor $dname 4,5 textbg $rgb(255,255,255)
    dll mdx.dll SetColor $dname 4 background $rgb(255,255,255)
  }
}

on *:sockopen:horos: {
  sockwrite -n horos GET http://www.euroavenir.com/horoscope/horoscope.php?textcolorin=000000&bgcolor=FFFFFF&titlecolor=FF0000&signe= $+ %signe
  did -ra horos 4 Connexion Effectuée
}
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) { did -a horos 5 $reg(%hr) $CRLF }
}

Conclusion :


Je précise que j'ai réalisé cet addon tout seul :)

Voilà ;)

A voir également

Ajouter un commentaire

Commentaires

Little93
Messages postés
4
Date d'inscription
dimanche 3 août 2008
Statut
Membre
Dernière intervention
3 août 2008
-
bonjours, moi ossi je n's pas reusi a metre le scripte je les mit seule je c'est pas si il faut le rajoute avec le sricpte de Remi donc voila sil vous plai sa maiderez beaucoup que vous maidiez merci !
Blacknight91titi
Messages postés
1754
Date d'inscription
jeudi 17 juin 2004
Statut
Membre
Dernière intervention
9 mars 2015
1 -
je n'arrive pas a faire marcher ce script :
(c'est celui qu'a donner SornDrixer le 29/01/2004 à 14:39:29)


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 ( isin %hr) { msg %h.chan $reg(%hr) }
}




enfin bref voila
sinon la proposition de Fico75 pour la météo est bien
y en a t'il qui pourai nous aider la dessus svp ?
merci bcp d'avance :-)
Fico75
Messages postés
9
Date d'inscription
mercredi 28 janvier 2004
Statut
Membre
Dernière intervention
12 août 2004
-
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 :)
cs_SornDrixer
Messages postés
2087
Date d'inscription
jeudi 12 décembre 2002
Statut
Modérateur
Dernière intervention
30 janvier 2011
2 -
Fico75 :

ON *:TEXT:!horoscope*:#:{
if ($2) { set %h.nick $nick | 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 ( isin %hr) { msg %h.nick $reg(%hr) }
}

Là, sa enverra en pv à la personne, si tu veux que cela envoie en notice, tu remplaces "msg" par "notice". Voila
Fico75
Messages postés
9
Date d'inscription
mercredi 28 janvier 2004
Statut
Membre
Dernière intervention
12 août 2004
-
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 ( 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

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.