Accueil > > > HOROSCOPE
HOROSCOPE
Information sur la source
Description
Voici un addon qui vous permettra, soit de récupérer l'horoscope de n'importe quel signe immédiatement, soit d'afficher celui ci a chaque démarrage du script, ou une fois par jour.
Caractéristiques : horoscopes récupérés a partir de http://www.horoscope.fr/ (socket), un peu de $regex, données stockées dans un .ini
Je sais que l'utilité ne plaira pas a tout le monde (moi le premier ^^), mais si ça peut servir a quelqu'un... :D
Source
- dialog -l hor {
- title "Horoscope"
- size -1 -1 115 108
- option dbu
- tab "Horoscope", 1, 2 0 110 91
- text "Votre signe :", 3, 7 18 33 8, tab 1
- combo 4, 41 16 62 12, tab 1 drop
- edit "Veuillez choisir votre signe...", 5, 5 30 104 58, tab 1 vsbar read multi return
- tab "Options", 2
- radio "Afficher à chaque démarrage du script.", 6, 6 16 105 10, tab 2
- radio "Afficher une fois par jour.", 7, 6 26 74 10, tab 2
- radio "Ne pas afficher.", 8, 6 36 50 10, tab 2
- text "Raccourci :", 9, 6 47 38 10, tab 2
- edit "", 10, 41 46 42 10, tab 2 autohs
- text "Signe choisi :", 11, 6 60 33 8, tab 2
- combo 12, 41 58 60 11, tab 2 drop
- text "Note : Taper le raccourci affichera votre Horoscope dans la fenêtre active.", 13, 7 74 98 14, tab 2
- button "Fermer", 14, 40 94 37 12, cancel
- }
- on *:LOAD:{
- writeini $horpath hor rac !oro | writeini $horpath hor dem 6
- writeini $horpath hor signe Belier | writeini $horpath hor date $ctime($fulldate)
- echo -a [12Horoscope] Addon correctement installé ! Tapez /hor pour le lancer
- }
- on *:UNLOAD:{ .remove $horpath | echo -a [12Horoscope] Addon correctement désinstallé ! }
- on *:START:{
- var %o $readini($horpath,hor,dem)
- if (%o == 8) { halt }
- elseif ((%o == 6) || (%o == 7 && $ctime >= $readini($horpath,hor,date))) { horsock 2 }
- }
- on *:DIALOG:hor:*:*:{
- if ($devent == init) {
- did -c $dname $readini($horpath,hor,dem)
- if ($readini($horpath,hor,rac)) { did -a $dname 10 $ifmatch }
- didtok $dname 4,12 46 $horsignes
- }
- elseif ($devent == sclick) {
- if ($did == 2) { did -c $dname 12 $findtok($horsignes,$readini($horpath,hor,signe),1,46) }
- elseif ($did == 4) { horsock 1 | did -ra $dname 5 Veuillez patienter... }
- elseif ($istok(6.7.8,$did,46)) { writeini $horpath hor dem $did }
- elseif ($did == 12) { writeini $horpath hor signe $did(12) }
- }
- elseif ($devent == edit) { var %z $did(10) | $iif(%z,writeini,remini) $horpath hor rac %z }
- }
- on *:SOCKOPEN:hor:{
- var %m $readini($horpath,hor,m)
- remini $horpath hor hor
- if (%m == 1 && $dialog(hor)) { sockwrite -n hor GET /horoscopes/horoscopes.php?Signe= $+ $did(hor,4) }
- elseif (%m == 2) { sockwrite -n $sockname GET /horoscopes/horoscopes.php?Signe= $+ $readini($horpath,hor,signe) }
- sockwrite -n $sockname Host: www.horoscope.fr $+ $str($crlf,2)
- }
- on *:SOCKREAD:hor:{
- sockread %hor
- if (align="justify" isin %hor && <img !isin %hor) { writeini $horpath hor hor $addtok($readini($horpath,hor,hor),$deltags(%hor),47) }
- unset %hor
- }
- on *:SOCKCLOSE:hor:{
- var %n $readini($horpath,hor,m)
- tokenize 47 $readini($horpath,hor,hor)
- if (%n == 1 && $dialog(hor)) {
- did -ra hor 5 $+(Humeur :,$crlf,$1,$str($crlf,2),Amour :,$crlf,$2,$str($crlf,2),Travail :,$crlf,$3,$str($crlf,2),Vitalité :,$crlf,$4)
- remini $horpath hor m | remini $horpath hor hor
- }
- if (%n == 2) {
- var %p echo -a [12Horoscope]
- %p Voici votre horoscope actuel $+($chr(40),,$readini($horpath,hor,signe),,$chr(41)) :
- %p Humeur : $1 | %p Amour : $2 | %p Travail : $3 | %p Vitalité : $4
- writeini $horpath hor date $ctime($puttok($fulldate,23:59:59,4,32))
- }
- }
- on *:INPUT:*:{ if ($$readini($horpath,hor,rac) == $1-) { horsock 2 | haltdef } }
- alias -l horpath return $scriptdirhoroscope.ini
- alias -l horsock { writeini $horpath hor m $1 | sockclose hor | sockopen hor www.horoscope.fr 80 }
- alias -l deltags { var %b = $regsub($1-,/(?:<.+?>)/g,,%i) | return %i }
- alias -l horsignes return Belier.Taureau.Gemeaux.Cancer.Lion.Vierge.Balance.Scorpion.Sagittaire.Capricorne.Verseau.Poissons
- alias hor dialog $+(-,$iif($dialog(hor),v,m)) hor hor
dialog -l hor {
title "Horoscope"
size -1 -1 115 108
option dbu
tab "Horoscope", 1, 2 0 110 91
text "Votre signe :", 3, 7 18 33 8, tab 1
combo 4, 41 16 62 12, tab 1 drop
edit "Veuillez choisir votre signe...", 5, 5 30 104 58, tab 1 vsbar read multi return
tab "Options", 2
radio "Afficher à chaque démarrage du script.", 6, 6 16 105 10, tab 2
radio "Afficher une fois par jour.", 7, 6 26 74 10, tab 2
radio "Ne pas afficher.", 8, 6 36 50 10, tab 2
text "Raccourci :", 9, 6 47 38 10, tab 2
edit "", 10, 41 46 42 10, tab 2 autohs
text "Signe choisi :", 11, 6 60 33 8, tab 2
combo 12, 41 58 60 11, tab 2 drop
text "Note : Taper le raccourci affichera votre Horoscope dans la fenêtre active.", 13, 7 74 98 14, tab 2
button "Fermer", 14, 40 94 37 12, cancel
}
on *:LOAD:{
writeini $horpath hor rac !oro | writeini $horpath hor dem 6
writeini $horpath hor signe Belier | writeini $horpath hor date $ctime($fulldate)
echo -a [12Horoscope] Addon correctement installé ! Tapez /hor pour le lancer
}
on *:UNLOAD:{ .remove $horpath | echo -a [12Horoscope] Addon correctement désinstallé ! }
on *:START:{
var %o $readini($horpath,hor,dem)
if (%o == 8) { halt }
elseif ((%o == 6) || (%o == 7 && $ctime >= $readini($horpath,hor,date))) { horsock 2 }
}
on *:DIALOG:hor:*:*:{
if ($devent == init) {
did -c $dname $readini($horpath,hor,dem)
if ($readini($horpath,hor,rac)) { did -a $dname 10 $ifmatch }
didtok $dname 4,12 46 $horsignes
}
elseif ($devent == sclick) {
if ($did == 2) { did -c $dname 12 $findtok($horsignes,$readini($horpath,hor,signe),1,46) }
elseif ($did == 4) { horsock 1 | did -ra $dname 5 Veuillez patienter... }
elseif ($istok(6.7.8,$did,46)) { writeini $horpath hor dem $did }
elseif ($did == 12) { writeini $horpath hor signe $did(12) }
}
elseif ($devent == edit) { var %z $did(10) | $iif(%z,writeini,remini) $horpath hor rac %z }
}
on *:SOCKOPEN:hor:{
var %m $readini($horpath,hor,m)
remini $horpath hor hor
if (%m == 1 && $dialog(hor)) { sockwrite -n hor GET /horoscopes/horoscopes.php?Signe= $+ $did(hor,4) }
elseif (%m == 2) { sockwrite -n $sockname GET /horoscopes/horoscopes.php?Signe= $+ $readini($horpath,hor,signe) }
sockwrite -n $sockname Host: www.horoscope.fr $+ $str($crlf,2)
}
on *:SOCKREAD:hor:{
sockread %hor
if (align="justify" isin %hor && <img !isin %hor) { writeini $horpath hor hor $addtok($readini($horpath,hor,hor),$deltags(%hor),47) }
unset %hor
}
on *:SOCKCLOSE:hor:{
var %n $readini($horpath,hor,m)
tokenize 47 $readini($horpath,hor,hor)
if (%n == 1 && $dialog(hor)) {
did -ra hor 5 $+(Humeur :,$crlf,$1,$str($crlf,2),Amour :,$crlf,$2,$str($crlf,2),Travail :,$crlf,$3,$str($crlf,2),Vitalité :,$crlf,$4)
remini $horpath hor m | remini $horpath hor hor
}
if (%n == 2) {
var %p echo -a [12Horoscope]
%p Voici votre horoscope actuel $+($chr(40),,$readini($horpath,hor,signe),,$chr(41)) :
%p Humeur : $1 | %p Amour : $2 | %p Travail : $3 | %p Vitalité : $4
writeini $horpath hor date $ctime($puttok($fulldate,23:59:59,4,32))
}
}
on *:INPUT:*:{ if ($$readini($horpath,hor,rac) == $1-) { horsock 2 | haltdef } }
alias -l horpath return $scriptdirhoroscope.ini
alias -l horsock { writeini $horpath hor m $1 | sockclose hor | sockopen hor www.horoscope.fr 80 }
alias -l deltags { var %b = $regsub($1-,/(?:<.+?>)/g,,%i) | return %i }
alias -l horsignes return Belier.Taureau.Gemeaux.Cancer.Lion.Vierge.Balance.Scorpion.Sagittaire.Capricorne.Verseau.Poissons
alias hor dialog $+(-,$iif($dialog(hor),v,m)) hor hor
Conclusion
Pour lancer l'addon : /hor
Et surtout, il faut accepter le message de mIRC (run initialization commands)
voila ^_^
Historique
- 02 mai 2005 21:00:22 :
- - Ajout d'un zip, apparemment, la source est pas super bien mise en page...
- 03 mai 2005 07:16:44 :
- - Optimisation du code, merci tout le monde :)
Sources du même auteur
Sources de la même categorie
Commentaires et avis
|
Derniers Blogs
CSS CONTENT STATE SELECTORS (PERSONNAL DRAFT)CSS CONTENT STATE SELECTORS (PERSONNAL DRAFT) par FREMYCOMPANY
Bonjour à tous, Je viens de publier une proposition comprenant 5 pseudo-classes pour le CSS Working Group ayant trait à l'état de chargement d'un élément (ex: IMG,VIDEO,AUDIO,OBJECT pour l'HTML.). Si le c½ur vous en dit, vous pouvez retrouver cette p...
Cliquez pour lire la suite de l'article par FREMYCOMPANY MBA : POURQUOI FAIRE ET COMMENT LE CHOISIR ?MBA : POURQUOI FAIRE ET COMMENT LE CHOISIR ? par ROMELARD Fabrice
Formation initiale Durant la formation, le découpage classique est le suivant (je donnerai les équivalences Suisse lorsque je les connaîtrais) : Ecole primaire jusqu'au Collège : Formation générale permettant d'obtenir les méthodes...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice Y'A DES ERREURS QUI PEUVENT RENDRE LE DéVELOPPEUR VIOLENTY'A DES ERREURS QUI PEUVENT RENDRE LE DéVELOPPEUR VIOLENT par Aleks
Quand on a ce genre d'erreur sans log :
Et bas on a juste envie de choper le gas de Microsoft qu'a développé ça et lui foutre des baffes de Coboye ! ...
Cliquez pour lire la suite de l'article par Aleks [HYPER-V 3] PRéSENTATION DES COMMANDLETS POWERSHELL[HYPER-V 3] PRéSENTATION DES COMMANDLETS POWERSHELL par Pierrick CATRO-BROUILLET
Avec la sortie prochaine de la Beta Consumer Preview de Windows 8, j'avais envie de revenir sur une des fonctionnalités que j'attends le plus et que, en bon geek que je suis, j'utilise déjà : Hyper-V 3 ainsi son module PowerShell.
Il y a déjà pléthor...
Cliquez pour lire la suite de l'article par Pierrick CATRO-BROUILLET IIS7 - COMPRESSION GZIPIIS7 - COMPRESSION GZIP par cyril
La compression GZIP permet d'améliorer les performances de navigation en compressant ce qu'envoie le serveur à un client. Pour comprendre comment cela fonctionne, regardons ce qu'il se passe au niveau HTTP lorsqu'un client tente d'accéder à une ress...
Cliquez pour lire la suite de l'article par cyril
Forum
RE : AIDERE : AIDE par Nico26000
Cliquez pour lire la suite par Nico26000 RE : AIDERE : AIDE par WorldDMT
Cliquez pour lire la suite par WorldDMT AIDEAIDE par Nico26000
Cliquez pour lire la suite par Nico26000
Logiciels
Easy-Planning (1.0.0.1)EASY-PLANNING (1.0.0.1)Basé sur les mêmes principes que MyPlanning, Easy-Planning permet de créer des plannings sous la ... Cliquez pour télécharger Easy-Planning Academy System (17.1.3.0)ACADEMY SYSTEM (17.1.3.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System COLLECTOR PLUS (3.00B)COLLECTOR PLUS (3.00B)COLLECTOR PLUS version 3.00B est un logiciel utilisant une base de données alimentée par :
- L... Cliquez pour télécharger COLLECTOR PLUS PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V7.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V7.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO LettresFaciles 2011 (8.0.0.1)LETTRESFACILES 2011 (8.0.0.1)LettresFaciles est un logiciel facilitant la création et la rédaction de lettres types.
Son inte... Cliquez pour télécharger LettresFaciles 2011
|