Connaître son horoscope

Commenter

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

S'inscrire maintenant

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.

Du même auteur (cs_ReMi34)