CodeS-SourceS est hébergé par Frontier.fr

Ce site au démarrage

begin process at 2012 02 10 01:48:35

Accueil Codes Tutoriels Forum Livres Emploi Services Connexion

Trouver un code source :

dans

[ Dernières recherches ]

Accueil >

HOROSCOPE POUR BOT

Information sur la source

Note :

9,33 / 10

Catégorie :Bots Niveau :Débutant Date de création :16/11/2004 Date de mise à jour :11/12/2004 13:42:28 Vu :11 178

Auteur : World_mIRC

Ecrire un message privé

Commentaire sur cette source (27)

Ajouter un commentaire et/ou une note

Description

Bah voila un petit add-on pour lire votre Horoscope sur un BoT. j'ai vu qu'il y'en avait 1 a tout casser alors voila. Laisser vos commentaires :)

Source

;##################################
; Horoscope pour BoT
; (By Folken)
; http://www.pub-line.com/world.mirc/
;##################################
ON 1:LOAD:{
set %date.Belier 21.03 au 20.04 | set %date.Taureau 21.04 au 20.05
set %date.Gemeaux 21.05 au 20.06 | set %date.Cancer 21.06 au 22.07
set %date.Lion 23.07 au 22.08 | set %date.Vierge 23.08 au 22.09
set %date.Balance 23.09 au 23.10 | set %date.Scorpion 24.10 au 22.11
set %date.Sagittaire 23.11 au 22.12 | set %date.Capricorne 23.12 au 19.01
set %date.Verseau 20.01 au 18.02 | set %date.Poissons 19.02 au 20.03
/echo 1 -a 12(¯`'·.¸(¯`'·.¸ _______________ ¸.·'´¯)¸.·'´¯)
/echo 1 -a 4» Add-on Horoscope pour BoT 4Loaded avec Succé !
/Horo.PuB
}
ON 1:UNLOAD:{
unset %date.* | unset %Horo.*
/echo 1 -a 12(¯`'·.¸(¯`'·.¸ _______________ ¸.·'´¯)¸.·'´¯)
/echo 1 -a 4» Add-on Horoscope pour BoT 4Unloaded avec Succé !
/Horo.PuB
}
alias -l Horo.PuB {
/echo 1 -a 4» 6URL de Référance 3:: http://www.horoscope.fr/
/echo 1 -a 4» 7Auteur 3:: Folken
/echo 1 -a 4» 10Site 3:: http://www.pub-line.com/world.mirc/
/echo 1 -a 12 (_¸.·'´(_¸.·'´ ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯ `'·.¸_)`'·.¸_)
}
ON *:TEXT:!Horo*:#:{
if ($2 != $null ) {
if ($2 == Belier) { set %Horo.signe Belier }
elseif ($2 == Taureau) { set %Horo.signe Taureau }
elseif (($2 == Gemeau) || ($2 == Gemeaux)) { set %Horo.signe Gemeaux }
elseif ($2 == Cancer) { set %Horo.signe Cancer }
elseif ($2 == Lion) { set %Horo.signe Lion }
elseif ($2 == Vierge) { set %Horo.signe Vierge }
elseif ($2 == Balance) { set %Horo.signe Balance }
elseif ($2 == Scorpion) { set %Horo.signe Scorpion }
elseif (($2 == Sagittaire) || ($2 == Sagitaire)) { set %Horo.signe Sagittaire }
elseif ($2 == Capricorne) { set %Horo.signe Capricorne }
elseif (($2 == Verseau) || ($2 == Versau)) { set %Horo.signe Verseau }
elseif (($2 == Poisson) || ($2 == Poissons)) { set %Horo.signe Poissons }
else { /Horo.404 }
set %Horo.Chan $chan | set %Horo.Nick $nick | /horoscope
var %date.signe = % $+ date. $+ %Horo.signe
/msg %Horo.Chan Vous étes %Horo.signe - né(e) du6 [ [ %date.signe ] ]
}
else { /Horo.404 }
}
ON *:SOCKOPEN:horos:{ sockwrite -n horos GET http://www.horoscope.fr/horoscopes/horoscopes.php?Signe= $+ %Horo.signe }
ON *:SOCKREAD:horos:{
sockread %Horo.Read
set %Horo.Read $remove(%Horo.Read,<TD>,</td>,<TR>,</tr>,</table>,</font>,<b>,</b>,<br>,</a>,<center>,</center>,<HTML>,</html>)
set %Horo.Read $remove(%Horo.Read,</script>,<head>,</head>,<TITLE>,</TITLE>,</div>, ,<nobr>,</nobr>,<H1>,</body>,<br />)
if (humeur.gif isin %Horo.Read) { /msg %Horo.Chan .:: 10HUMEUR ::. }
if (amour.gif isin %Horo.Read) { /msg %Horo.Chan .:: 13AMOUR ::. }
if (travail.gif isin %Horo.Read) { /msg %Horo.Chan .:: 12TRAVAIL ::. }
if (vital.gif isin %Horo.Read) { /msg %Horo.Chan .:: 3VITALITE ::. }
if (<td width="290" align="justify" valign="top" class="typo1"> isin %Horo.Read) { /msg %Horo.Chan $Clear.horo(%Horo.Read) }
if (<td width="291" align="justify" valign="top" class="typo1"> isin %Horo.Read) { /msg %Horo.Chan $Clear.horo(%Horo.Read) }
if (<td width="292" align="justify" valign="top" class="typo1"> isin %Horo.Read) { /msg %Horo.Chan $Clear.horo(%Horo.Read) }
if (<td width="293" align="justify" valign="top" class="typo1"> isin %Horo.Read) { /msg %Horo.Chan $Clear.horo(%Horo.Read) }
if (<td width="294" align="justify" valign="top" class="typo1"> isin %Horo.Read) { /msg %Horo.Chan $Clear.horo(%Horo.Read) }
if (<td width="295" align="justify" valign="top" class="typo1"> isin %Horo.Read) { /msg %Horo.Chan $Clear.horo(%Horo.Read) }
}
alias -l horoscope { sockclose horos | sockopen horos www.horoscope.fr 80 }
alias -l Clear.horo {
set %Horo.Clear $1-
set %Horo.Clear $remove(%Horo.Clear,<td width="290" align="justify" valign="top" class="typo1">,<td width="291" align="justify" valign="top" class="typo1">,<td width="292" align="justify" valign="top" class="typo1">,<td width="293" align="justify" valign="top" class="typo1">,<td width="294" align="justify" valign="top" class="typo1">,<td width="295" align="justify" valign="top" class="typo1">)
return %Horo.Clear
}
alias -l Horo.404 {
notice $nick 4/1!4\ 4,8<<<< == Erreur de Synthaxe == >>>> 4/1!4\
notice $nick voici tous les signes Astrologique disponibles ::
notice $nick 10Belier 6¤ 10Taureau 6¤ 10Gemeaux 6¤ 10Cancer 6¤ 10Capricorne 6¤ 10Vierge
notice $nick 10Balance 6¤ 10Scorpion 6¤ 10Sagittaire 6¤ 10Lion 6¤ 10Verseau 6¤ 10Poissons
notice $nick 3[SYNTHAXE] 12!Horo Signe
HALT
}

;##################################
;                Horoscope pour BoT
;                         (By Folken)
;   http://www.pub-line.com/world.mirc/
;##################################

ON 1:LOAD:{
  set %date.Belier 21.03 au 20.04 | set %date.Taureau 21.04 au 20.05
  set %date.Gemeaux 21.05 au 20.06 | set %date.Cancer 21.06 au 22.07
  set %date.Lion 23.07 au 22.08 | set %date.Vierge 23.08 au 22.09
  set %date.Balance 23.09 au 23.10 | set %date.Scorpion 24.10 au 22.11
  set %date.Sagittaire 23.11 au 22.12 | set %date.Capricorne 23.12 au 19.01
  set %date.Verseau 20.01 au 18.02 | set %date.Poissons  19.02 au 20.03
  /echo 1 -a 12(¯`'·.¸(¯`'·.¸ _______________ ¸.·'´¯)¸.·'´¯)
  /echo 1 -a 4» Add-on Horoscope pour BoT 4Loaded avec Succé !
  /Horo.PuB
}
ON 1:UNLOAD:{
  unset %date.* | unset %Horo.*
  /echo 1 -a 12(¯`'·.¸(¯`'·.¸ _______________ ¸.·'´¯)¸.·'´¯)
  /echo 1 -a 4» Add-on Horoscope pour BoT 4Unloaded avec Succé !
  /Horo.PuB
}

alias -l Horo.PuB {
  /echo 1 -a 4» 6URL de Référance 3:: http://www.horoscope.fr/
  /echo 1 -a 4» 7Auteur 3:: Folken
  /echo 1 -a 4» 10Site 3:: http://www.pub-line.com/world.mirc/
  /echo 1 -a 12 (_¸.·'´(_¸.·'´ ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯ `'·.¸_)`'·.¸_)
}

ON *:TEXT:!Horo*:#:{
  if ($2 != $null ) {
    if ($2 == Belier) { set %Horo.signe Belier }
    elseif ($2 == Taureau) { set %Horo.signe Taureau }
    elseif (($2 == Gemeau) || ($2 == Gemeaux)) { set %Horo.signe Gemeaux }
    elseif ($2 == Cancer) { set %Horo.signe Cancer }
    elseif ($2 == Lion) { set %Horo.signe Lion }
    elseif ($2 == Vierge) { set %Horo.signe Vierge }
    elseif ($2 == Balance) { set %Horo.signe Balance }
    elseif ($2 == Scorpion) { set %Horo.signe Scorpion }
    elseif (($2 == Sagittaire) || ($2 == Sagitaire)) { set %Horo.signe Sagittaire }
    elseif ($2 == Capricorne) { set %Horo.signe Capricorne }
    elseif (($2 == Verseau) || ($2 == Versau)) { set %Horo.signe Verseau }
    elseif (($2 == Poisson) || ($2 == Poissons)) { set %Horo.signe Poissons }
    else { /Horo.404 }
    set %Horo.Chan $chan | set %Horo.Nick $nick | /horoscope
    var %date.signe = % $+ date. $+ %Horo.signe
    /msg %Horo.Chan Vous étes %Horo.signe - né(e) du6 [ [ %date.signe ] ] 
  }
  else { /Horo.404 }
}

ON *:SOCKOPEN:horos:{ sockwrite -n horos GET http://www.horoscope.fr/horoscopes/horoscopes.php?Signe= $+ %Horo.signe }

ON *:SOCKREAD:horos:{
  sockread %Horo.Read
  set %Horo.Read $remove(%Horo.Read,<TD>,</td>,<TR>,</tr>,</table>,</font>,<b>,</b>,<br>,</a>,<center>,</center>,<HTML>,</html>)
  set %Horo.Read $remove(%Horo.Read,</script>,<head>,</head>,<TITLE>,</TITLE>,</div>,&nbsp;,<nobr>,</nobr>,<H1>,</body>,<br />)
  if (humeur.gif isin %Horo.Read) { /msg %Horo.Chan .:: 10HUMEUR ::. }
  if (amour.gif isin %Horo.Read) { /msg %Horo.Chan .:: 13AMOUR ::. }
  if (travail.gif isin %Horo.Read) { /msg %Horo.Chan .:: 12TRAVAIL ::. }
  if (vital.gif isin %Horo.Read) { /msg %Horo.Chan .:: 3VITALITE ::. }
  if (<td width="290" align="justify" valign="top" class="typo1"> isin %Horo.Read) { /msg %Horo.Chan $Clear.horo(%Horo.Read) }
  if (<td width="291" align="justify" valign="top" class="typo1"> isin %Horo.Read) { /msg %Horo.Chan $Clear.horo(%Horo.Read) }
  if (<td width="292" align="justify" valign="top" class="typo1"> isin %Horo.Read) { /msg %Horo.Chan $Clear.horo(%Horo.Read) }
  if (<td width="293" align="justify" valign="top" class="typo1"> isin %Horo.Read) { /msg %Horo.Chan $Clear.horo(%Horo.Read) }
  if (<td width="294" align="justify" valign="top" class="typo1"> isin %Horo.Read) { /msg %Horo.Chan $Clear.horo(%Horo.Read) }
  if (<td width="295" align="justify" valign="top" class="typo1"> isin %Horo.Read) { /msg %Horo.Chan $Clear.horo(%Horo.Read) }
}

alias -l horoscope { sockclose horos | sockopen horos www.horoscope.fr 80 }

alias -l Clear.horo { 
  set %Horo.Clear $1-
  set %Horo.Clear $remove(%Horo.Clear,<td width="290" align="justify" valign="top" class="typo1">,<td width="291" align="justify" valign="top" class="typo1">,<td width="292" align="justify" valign="top" class="typo1">,<td width="293" align="justify" valign="top" class="typo1">,<td width="294" align="justify" valign="top" class="typo1">,<td width="295" align="justify" valign="top" class="typo1">)
  return %Horo.Clear
}

alias -l Horo.404 {
  notice $nick  4/1!4\ 4,8<<<< ==  Erreur de Synthaxe  == >>>> 4/1!4\
  notice $nick voici tous les signes Astrologique disponibles ::
  notice $nick 10Belier 6¤ 10Taureau 6¤ 10Gemeaux 6¤ 10Cancer 6¤ 10Capricorne 6¤ 10Vierge 
  notice $nick 10Balance 6¤ 10Scorpion 6¤ 10Sagittaire 6¤ 10Lion 6¤ 10Verseau 6¤ 10Poissons 
  notice $nick 3[SYNTHAXE] 12!Horo Signe
  HALT
}

Conclusion

simple à utiliser, il suffit de taper !horo et d'y ajouter votre signe astrologique.
Vous obtiendrez votre horoscope [ HUMEUR ; AMOUR ; TRAVAIL ; VITALITE ]

Historique

17 novembre 2004 12:33:05 :: voila j'ai reduit le dernier alias, y'a plus qu'un $remove et j'ai mis un var ^^
17 novembre 2004 12:49:45 :: petit erreur de racordement sur le $remove final ... dsl :)
17 novembre 2004 14:51:04 :: walllaaa maintenant les fautes d'orthographe (les vrai) ne sont plus acceptées. A vous de connaitre votre signe :p [ Belier ¤ Taureau ¤ Gemeaux ¤ Cancer ¤ Lion ¤ Vierge ¤ Balance ¤ Scorpion ¤ Sagittaire ¤ Capricorne ¤ Verseau ¤ Poisson ]
24 novembre 2004 14:14:14 :: j'ai remis le "on *:text:!horo:#:" comme au debut, car sa corrige certaines erreurs comme les fautes d'orthographe sur certain signe et aussi un probleme de date ou de connexion au site. wala, @++
11 décembre 2004 13:42:28 :: le site a subbit des modifications, alors normal que cette add-on en subbisse aussi ;) il est de nouveau opérationnel !!! -=[IRC 4 Ever]=-

Sources du même auteur

RECORD D'AUDIANCE

Toutes les sources de World_mIRC

Sources de la même categorie

GESTION.BOT V2.0 FINAL par aliassangelius

EXEMPLE DE TCL EN DCC par aliassangelius

SERVICE GEOFRONT (PERL) par iZyTeHPariaH

TCL EGGDROP par aliassangelius

ANIMATION POUR BOT par michounou

Toutes les sources de la catégorie Bots

Commentaires et avis

Commentaire de Zova le 17/11/2004 02:25:46

Bon alors je n'ai pas testé mais c'est pas superbe car tu mets plein de variable que tu set & unset par la suite pourquoi pas utiliser : "var %variable blabla" afin d'éviter de faire unset.
Sinon je suis plus pour scripter avec les hash tables donc je te conseil de les utiliser ce qui te fera un gain de temps considérable. Sinon les slash sont inutiles...
Je préfere pas noter :]
Bonne continuation et j'attend des améliorations..

Commentaire de SornDrixer le 17/11/2004 07:12:52 administrateur CS

Il y a quelques lignes à optimiser comme :

if ($2 == Belier) { set %Horo.signe Belier }
    elseif ($2 == Taureau) { set %Horo.signe Taureau }
    elseif (($2 == Gemeau) || ($2 == Gemeaux)) { set %Horo.signe Gemeaux }
    elseif ($2 == Cancer) { set %Horo.signe Cancer }
    elseif ($2 == Lion) { set %Horo.signe Lion }
    elseif ($2 == Vierge) { set %Horo.signe Vierge }
    elseif ($2 == Balance) { set %Horo.signe Balance }
    elseif ($2 == Scorpion) { set %Horo.signe Scorpion }
    elseif (($2 == Sagittaire) || ($2 == Sagitaire)) { set %Horo.signe Sagittaire }
    elseif ($2 == Capricorne) { set %Horo.signe Capricorne }
    elseif ($2 == Verseau) { set %Horo.signe Verseau }
    elseif (($2 == Poisson) || ($2 == Poissons)) { set %Horo.signe Poissons }

par :

var %a Belier Taureau Gemeaux Cancer Lion Vierge Balance Scorpion Sagittaire Capricorne Verseau Poisson
if $istok(%a,$2,32) { set %Horo.signe $2 }

Et là :
set %Horo.Clear $remove(%Horo.Clear,<td width="290" align="justify" valign="top">)
    set %Horo.Clear $remove(%Horo.Clear,<td width="291" align="justify" valign="top">)
    set %Horo.Clear $remove(%Horo.Clear,<td width="292" align="justify" valign="top">)
    set %Horo.Clear $remove(%Horo.Clear,<td width="293" align="justify" valign="top">)
    set %Horo.Clear $remove(%Horo.Clear,<td width="294" align="justify" valign="top">)
    set %Horo.Clear $remove(%Horo.Clear,<td width="295" align="justify" valign="top">)
Je te conseille de mettre tout tes $remove en un seul, ca sera plus rapide (même si cela n'est pas très visible à l'oeil nu)
$remove(%Horo.chear,truc1 a supprimer,truc2 a supprimer,truc3 a supprimer,etc)

C'est un bon début, mais à améliorer.

Bonne continuation.

Commentaire de World_mIRC le 17/11/2004 12:39:29

Salut a tous les deux :)

pour repondre a Zova, les hash tables je sais pas faire et je sais que les slash sont pas utiles mais je trouve ça plus jolie :p

SornDrixer j'ai reduit le $remove de la fin comme tu m'as suggeré, mais pour le
-----------------
var %a Belier Taureau Gemeaux Cancer Lion Vierge Balance Scorpion Sagittaire Capricorne Verseau Poisson
if $istok(%a,$2,32) { set %Horo.signe $2 }
-----------------
ça corrige pas les fautes d'orthographe des signes !?

Commentaire de SornDrixer le 17/11/2004 13:16:39 administrateur CS

World_mIRC : Belier, belier, beLier (ou autre) n'est pas une faute d'orthographe si c'est à ca que tu fais référence.
Si par exemple la personne tape bélier au lieu de belier, ou gemaux à la place de gemeaux, le code ne réagira pas. (Tout à fait normal vu que le nom du signe a été mal orthographié)

Dans le cas des majuscules/minuscule, on peut facilement faire un code pour mettre la 1ère lettre en majuscule et le reste en minuscule.

Je te le fais :
alias majmot return $+($upper($left($1,1)),$lower($right($1,$calc($len($1) - 1))))

$majmot(BELIER) va retourner Belier
$majmot(poiSSon) va retourner Poisson
etc.., je pense que tu as compris le principe.
Ca adapte la casse (majuscule/minuscule) comme tu le dsires.

Commentaire de World_mIRC le 17/11/2004 14:24:24

oui moi je parle vraiment des fautes d'orthographe
-----------------
elseif (($2 == Gemeau) || ($2 == Gemeaux))
-----------------
pour $upper et $lower je connais ^^

si je change mon truc par ta ligne, ça va pas reagir aux 2 - 3 fautes que j'avais pu observer
c'est dommage :s

Commentaire de World_mIRC le 17/11/2004 14:38:33

mouais ... remarque on est sensé le connaitre son signe :p

pi de toute façon y'a tjrs l'alias Horo.404 pour rappeler les signes en cas d'erreur :D

n'empeche que ... pk faire simple kan on peut faire compliqué ... héhé
il marche quand même bien mon truc hein :)

Commentaire de tofu le 17/11/2004 18:36:44

t'as qu'à faire un dialog de configuration avec les mots à prendre en compte si l'orthographe est pas exacte.

Commentaire de geraldo le 11/12/2004 22:31:20

euh j'ai une question on le colle ou ton bout de script ??? dans un remote? merci

Commentaire de World_mIRC le 11/12/2004 22:45:16

oui tu copie/colle tout dans une remote :)

Commentaire de geraldo le 12/12/2004 18:53:06

merci

Commentaire de tomaprice le 20/12/2004 11:11:48

comment faire pour que l'horoscope apparaisse en notice svp? pke jai essayé de modif les /msg par /notice ou encore /notice %nick mais ça envoie la notice a tous ceux qui sont présents sur le salon :$

Commentaire de ronio7777 le 30/12/2004 16:33:01

c chelou ca ne marche pas pour moi .....
ca n'affiche que:
Vous étes capricorne - né(e) du 23.12 au 19.01

et c tout

Commentaire de DeViL66 le 03/05/2005 21:19:29

bah moi ya toujours 1 truc sur 4 qui fonctionne, le 1er (Humeur) Pas normal je pense :)
Sinon j'ai du remettre les variables 1 par 1 parce qu'elle ne se sont pas bien mise au load enfin rien de grave...
Merci de résoudre mon pbm :)

tomaprice essaye de mettre $nick au lieu de %nick parce que %nick c'est pour les variables*

+

Commentaire de Reload2 le 15/08/2005 02:21:22

Je crois que ton truc a un ptit probleme :S. c'est que quand je tape pour voir un horoscope, ca me donne juste l'horroscope de l'humeur, et ca affiche les autres lignes vides :S. Je ne sais pas pk ca me fait ca, car je suis pas tres bon scripteur. Mais sinon, ton script est bien :)

Commentaire de M3Merlin le 24/03/2006 22:38:14

ba voila moi en faite ca me mais que la date de l'horoscope mais pas les autre "humour" "travail" etc
donc pourrai tu me dire comment faire car je debute niveau scripting merci ;)

Commentaire de XavSniper le 04/12/2006 06:39:04

En effet, ça n'affiche que "les humour" "santé" "travail", mais ça c'est parce que le site a subit des modifs... et donc le code devient:

ON *:SOCKREAD:horos:{
  sockread %Horo.Read
  set %Horo.Read $remove(%Horo.Read,<TD>,</td>,<TR>,</tr>,</table>,</font>,<b>,</b>,<br>,</a>,<center>,</center>,<HTML>,</html>)
  set %Horo.Read $remove(%Horo.Read,</script>,<head>,</head>,<TITLE>,</TITLE>,</div>, ,<nobr>,</nobr>,<H1>,</body>,<br />)
  if (humeur.gif isin %Horo.Read) { /msg %Horo.Chan .:: 10HUMEUR ::. }
  if (amour.gif isin %Horo.Read) { /msg %Horo.Chan .:: 13AMOUR ::. }
  if (travail.gif isin %Horo.Read) { /msg %Horo.Chan .:: 12TRAVAIL ::. }
  if (vitalite.gif isin %Horo.Read) { /msg %Horo.Chan .:: 3VITALITE ::. }
  if (<td colspan="2"><div align="justify"> isin %Horo.Read) { /msg %Horo.Chan $Clear.horo(%Horo.Read) }
}

Par conséquent l'alias Clear.horo change aussi et donne ceci:

alias -l Clear.horo {
  set %Horo.Clear $1-
  set %Horo.Clear $remove(%Horo.Clear,<td colspan="2"><div align="justify">)
  return %Horo.Clear
}

C'est plus léger tout de suite hein :p
Sinon le code est pas mal (même si ça flood un peu quand même...)

Have Fun ;)

Commentaire de hunter38 le 06/06/2007 16:31:02

sa ne marche pas chez moi ^^
je fais !horo + signe n'importe où ou juste sur un salon sur lequel je suis !op?

Commentaire de NOMADYSTIC le 04/07/2007 12:17:21

bon en regardent ici et la ds vos commentaire jai réusit a faire marcher le code, pour ceux qui bricole pas trop les code le voici, ps: jai changé les couleur, et aussi !!!!! GROS BUG !!!!! si quelque de malfaisent decide de faire !horo !horo !horo !horo signe !horo signe... on plante en ecess flood,, ya moyen de faire un anti flood genre maximum 2 !horo en 15sec

#############
# HOROSCOPE #
#############

ON 1:LOAD:{
  set %date.Belier 21.03 au 20.04 | set %date.Taureau 21.04 au 20.05
  set %date.Gemeaux 21.05 au 20.06 | set %date.Cancer 21.06 au 22.07
  set %date.Lion 23.07 au 22.08 | set %date.Vierge 23.08 au 22.09
  set %date.Balance 23.09 au 23.10 | set %date.Scorpion 24.10 au 22.11
  set %date.Sagittaire 23.11 au 22.12 | set %date.Capricorne 23.12 au 19.01
  set %date.Verseau 20.01 au 18.02 | set %date.Poissons 19.02 au 20.03
}

ON *:TEXT:!Horo*:#:{
  if ($2 != $null ) {
    if ($2 == Belier) { set %Horo.signe Belier }
    elseif ($2 == Taureau) { set %Horo.signe Taureau }
    elseif (($2 == Gemeau) || ($2 == Gemeaux)) { set %Horo.signe Gemeaux }
    elseif ($2 == Cancer) { set %Horo.signe Cancer }
    elseif ($2 == Lion) { set %Horo.signe Lion }
    elseif ($2 == Vierge) { set %Horo.signe Vierge }
    elseif ($2 == Balance) { set %Horo.signe Balance }
    elseif ($2 == Scorpion) { set %Horo.signe Scorpion }
    elseif (($2 == Sagittaire) || ($2 == Sagitaire)) { set %Horo.signe Sagittaire }
    elseif ($2 == Capricorne) { set %Horo.signe Capricorne }
    elseif (($2 == Verseau) || ($2 == Versau)) { set %Horo.signe Verseau }
    elseif (($2 == Poisson) || ($2 == Poissons)) { set %Horo.signe Poissons }
    else { /Horo.404 }
    set %Horo.Chan $chan | set %Horo.Nick $nick | /horoscope
    var %date.signe = % $+ date. $+ %Horo.signe
    /msg %Horo.Chan 14Vous Êtes15 %Horo.signe 14- Né(e) Du15 [ [ %date.signe ] ] 14
  }
  else { /Horo.404 }
}

ON *:SOCKOPEN:horos:{ sockwrite -n horos GET http://www.horoscope.fr/horoscopes/horoscopes.php?Signe= $+ %Horo.signe }

ON *:SOCKREAD:horos:{
  sockread %Horo.Read
  set %Horo.Read $remove(%Horo.Read,<TD>,</td>,<TR>,</tr>,</table>,</font>,<b>,</b>,<br>,</a>,<center>,</center>,<HTML>,</html>)
  set %Horo.Read $remove(%Horo.Read,</script>,<head>,</head>,<TITLE>,</TITLE>,</div>, ,<nobr>,</nobr>,<H1>,</body>,<br />)
  if (humeur.gif isin %Horo.Read) { /msg %Horo.Chan 15.14:: 6HUMEUR 14::15. }
  if (amour.gif isin %Horo.Read) { /msg %Horo.Chan 15.14:: 13AMOURS 14::15. }
  if (travail.gif isin %Horo.Read) { /msg %Horo.Chan 15.14:: 3TRAVAIL 14::15. }
  if (vitalite.gif isin %Horo.Read) { /msg %Horo.Chan 15.14:: 9VITALITE 14::15. }
  if (<td colspan="2"><div align="justify"> isin %Horo.Read) { /msg %Horo.Chan $Clear.horo(15 %Horo.Read) }
}

alias -l horoscope { sockclose horos | sockopen horos www.horoscope.fr 80 }

alias -l Clear.horo {
  set %Horo.Clear $1-
  set %Horo.Clear $remove(%Horo.Clear,<td colspan="2"><div align="justify">)
  return %Horo.Clear
}

alias -l Horo.404 {
  notice $nick 4/0!4\ 0<<<< == Erreur de Synthaxe == >>>> 4/0!4\
  notice $nick 14Voici Tous Les Signes Astrologique Disponibles ::
  notice $nick 15Belier 14? 15Taureau 14? 15Gemeaux 14? 15Cancer 14? 15Capricorne 14? 15Vierge
  notice $nick 15Balance 14? 15Scorpion 14? 15Sagittaire 14? 15Lion 14? 15Verseau 14? 15Poissons
  notice $nick 4[SYNTHAXE] 14!Horo Signe
  HALT
} }

Commentaire de boulet7612 le 04/07/2007 16:25:23

source vraiment plus a jour.bon code quand meme je tapporte les modification que jai faite
ON 1:LOAD:{
  set %date.Belier 21.03 au 20.04 | set %date.Taureau 21.04 au 20.05
  set %date.Gemeaux 21.05 au 20.06 | set %date.Cancer 21.06 au 22.07
  set %date.Lion 23.07 au 22.08 | set %date.Vierge 23.08 au 22.09
  set %date.Balance 23.09 au 23.10 | set %date.Scorpion 24.10 au 22.11
  set %date.Sagittaire 23.11 au 22.12 | set %date.Capricorne 23.12 au 19.01
  set %date.Verseau 20.01 au 18.02 | set %date.Poissons 19.02 au 20.03
  echo 1 -a 12(¯`'·.?(¯`'·.? _______________ ?.·'?¯)?.·'?¯)
  echo 1 -a 4» Add-on Horoscope pour BoT 4Loaded avec Succès !
  Horo.PuB
}
ON 1:UNLOAD:{
  unset %date.* | unset %Horo.*
  echo 1 -a 12(¯`'·.?(¯`'·.? _______________ ?.·'?¯)?.·'?¯)
  echo 1 -a 4» Add-on Horoscope pour BoT 4Unloaded avec Succé !
  Horo.PuB
}

alias -l Horo.PuB {
  echo 1 -a 4» 6URL de Référance 3:: http://www.horoscope.fr/
  echo 1 -a 4» 7Auteur 3:: Folken
  echo 1 -a 4» 10Site 3:: http://www.pub-line.com/world.mirc/
  echo 1 -a 12 (_?.·'?(_?.·'? ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯ `'·.?_)`'·.?_)
}

ON *:TEXT:!Horo*:#:{
  if ($2 != $null ) {
    if ($2 == Belier) {  set %date.Belier 4 21.03 15au 7 20.04 | set %Horo.signe Belier }
    elseif ($2 == Taureau) { set %date.Taureau 4 21.04 15au 7 20.05 | set %Horo.signe Taureau }
    elseif (($2 == Gemeau) || ($2 == Gemeaux)) { set %date.Gemeaux 4 21.05 15au 7 20.06 | set %Horo.signe Gemeaux }
    elseif ($2 == Cancer) { set %date.Cancer 4 21.06 15au 7 22.07 | set %Horo.signe Cancer }
    elseif ($2 == Lion) { set %date.Lion 4 23.07 15au 7 22.08 | set %Horo.signe Lion }
    elseif ($2 == Vierge) { set %date.Vierge 4 23.08 15au 7 22.09 | set %Horo.signe Vierge }
    elseif ($2 == Balance) { set %date.Balance 4 23.09 15au 7 23.10 | set %Horo.signe Balance }
    elseif ($2 == Scorpion) { set %date.Scorpion 4 24.10 15au 7 22.11 | set %Horo.signe Scorpion }
    elseif (($2 == Sagittaire) || ($2 == Sagitaire)) { set %date.Sagittaire 4 23.11 15au 7 22.12 | set %Horo.signe Sagittaire }
    elseif ($2 == Capricorne) { set %date.Capricorne 4 23.12 15au 7 19.01 | set %Horo.signe Capricorne }
    elseif (($2 == Verseau) || ($2 == Versau)) { set %date.Verseau 4 20.01 15au 7 18.02 | set %Horo.signe Verseau }
    elseif (($2 == Poisson) || ($2 == Poissons)) { set %date.Poissons 4 19.02 15au 7 20.03 | set %Horo.signe Poissons }
    else { Horo.404 }
    set %Horo.Chan $chan | set %Horo.Nick $nick | horoscope
    var %date.signe = % $+ date. $+ %Horo.signe
    msg %Horo.Chan Vous étes %Horo.signe - né(e) du6 [ [ %date.signe ] ]
  }
  else { Horo.404 }
}

ON *:SOCKOPEN:horos:{ sockwrite -n horos GET http://www.horoscope.fr/horoscopes/horoscopes.php?Signe= $+ %Horo.signe }

ON *:SOCKREAD:horos:{
  sockread %Horo.Read
  set %Horo.Read $remove(%Horo.Read,<TD>,</td>,<TR>,</tr>,</table>,</font>,<b>,</b>,<br>,</a>,<center>,</center>,<HTML>,</html>)
  set %Horo.Read $remove(%Horo.Read,</script>,<head>,</head>,<TITLE>,</TITLE>,</div>, ,<nobr>,</nobr>,<H1>,</body>,<br />)
  if (humeur.gif isin %Horo.Read) { msg %Horo.Chan .:: 8HUMEUR ::. }
  if (amour.gif isin %Horo.Read) { msg %Horo.Chan .:: 4AMOUR ::. }
  if (travail.gif isin %Horo.Read) { msg %Horo.Chan .:: 12TRAVAIL ::. }
  if (vitalite.gif isin %Horo.Read) { msg %Horo.Chan .:: 9VITALITE ::. }
  if (<td colspan="2"><div align="justify"> isin %Horo.Read) { msg %Horo.Chan $Clear.horo(%Horo.Read) }

}

alias -l horoscope { sockclose horos | sockopen horos www.horoscope.fr 80 }

alias -l Clear.horo {
  set %Horo.Clear $1-
  set %Horo.Clear $remove(%Horo.Clear,<td colspan="2"><div align="justify">)
  return %Horo.Clear
}

alias -l Horo.404 {
  notice $nick 4/1!4\ 4,8<<<< == Erreur de Synthaxe == >>>> 4/1!4\
  notice $nick voici tous les signes Astrologique disponibles ::
  notice $nick 8Belier 9? 8Taureau 9? 8Gemeaux 9? 8ancer 9 8apricorne 9? 8ierge
  notice $nick 8alance 9 8corpion 9 8agittaire 9 8ion 9 8erseau 9 8oissons
  notice $nick 4[SYNTHAXE] 12!Horo Signe
  HALT
}

Commentaire de hunter38 le 04/07/2007 19:28:13

excélente source nomadystic.

Commentaire de hunter38 le 04/07/2007 19:41:41

mais tu as changer les couleurs mais en gris on voit rien

Commentaire de NOMADYSTIC le 04/07/2007 22:12:39

ouais chez moi les couleur background son en noir, et faut pas oublier que ses pas vraiment ma source ;) des idées pour l'anti flood?

Commentaire de tofu le 05/07/2007 06:58:10

une variable %en.cours booléenne, à 1 pendant l'exécution d'une lecture d'horoscope et à 0 lorsque c'est fini. et un if dans l'aliase horoscope..

Commentaire de hunter38 le 05/07/2007 09:56:32

sa me semble etre interressant tofu
je V essayer de l'appliquer.

Commentaire de NOMADYSTIC le 05/07/2007 13:16:07

moi je sais pas comment codé se que tu me dit tu pourrais me donner le code pour que je me base dessu? :P

Commentaire de Little93 le 03/08/2008 13:38:27

bonjours moi je tape !Horo cancer et !horo cancer aucun des 2 ne fonctin pourtant j'ai bien mit le scripte dans remote
#############
# HOROSCOPE #
#############

ON 1:LOAD:{
  set %date.Belier 21.03 au 20.04 | set %date.Taureau 21.04 au 20.05
  set %date.Gemeaux 21.05 au 20.06 | set %date.Cancer 21.06 au 22.07
  set %date.Lion 23.07 au 22.08 | set %date.Vierge 23.08 au 22.09
  set %date.Balance 23.09 au 23.10 | set %date.Scorpion 24.10 au 22.11
  set %date.Sagittaire 23.11 au 22.12 | set %date.Capricorne 23.12 au 19.01
  set %date.Verseau 20.01 au 18.02 | set %date.Poissons 19.02 au 20.03
  echo 1 -a 12(¯`'·.?(¯`'·.? _______________ ?.·'?¯)?.·'?¯)
  echo 1 -a 4» Add-on Horoscope pour BoT 4Loaded avec Succès !
  Horo.PuB
}
ON 1:UNLOAD:{
  unset %date.* | unset %Horo.*
  echo 1 -a 12(¯`'·.?(¯`'·.? _______________ ?.·'?¯)?.·'?¯)
  echo 1 -a 4» Add-on Horoscope pour BoT 4Unloaded avec Succé !
  Horo.PuB
}

alias -l Horo.PuB {
  echo 1 -a 4» 6URL de Référance 3:: http://www.horoscope.fr/
  echo 1 -a 4» 7Auteur 3:: Folken
  echo 1 -a 4» 10Site 3:: http://www.pub-line.com/world.mirc/
  echo 1 -a 12 (_?.·'?(_?.·'? ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯ `'·.?_)`'·.?_)
}

ON *:TEXT:!Horo*:#:{
  if ($2 != $null ) {
    if ($2 == Belier) {  set %date.Belier 4 21.03 15au 7 20.04 | set %Horo.signe Belier }
    elseif ($2 == Taureau) { set %date.Taureau 4 21.04 15au 7 20.05 | set %Horo.signe Taureau }
    elseif (($2 == Gemeau) || ($2 == Gemeaux)) { set %date.Gemeaux 4 21.05 15au 7 20.06 | set %Horo.signe Gemeaux }
    elseif ($2 == Cancer) { set %date.Cancer 4 21.06 15au 7 22.07 | set %Horo.signe Cancer }
    elseif ($2 == Lion) { set %date.Lion 4 23.07 15au 7 22.08 | set %Horo.signe Lion }
    elseif ($2 == Vierge) { set %date.Vierge 4 23.08 15au 7 22.09 | set %Horo.signe Vierge }
    elseif ($2 == Balance) { set %date.Balance 4 23.09 15au 7 23.10 | set %Horo.signe Balance }
    elseif ($2 == Scorpion) { set %date.Scorpion 4 24.10 15au 7 22.11 | set %Horo.signe Scorpion }
    elseif (($2 == Sagittaire) || ($2 == Sagitaire)) { set %date.Sagittaire 4 23.11 15au 7 22.12 | set %Horo.signe Sagittaire }
    elseif ($2 == Capricorne) { set %date.Capricorne 4 23.12 15au 7 19.01 | set %Horo.signe Capricorne }
    elseif (($2 == Verseau) || ($2 == Versau)) { set %date.Verseau 4 20.01 15au 7 18.02 | set %Horo.signe Verseau }
    elseif (($2 == Poisson) || ($2 == Poissons)) { set %date.Poissons 4 19.02 15au 7 20.03 | set %Horo.signe Poissons }
    else { Horo.404 }
    set %Horo.Chan $chan | set %Horo.Nick $nick | horoscope
    var %date.signe = % $+ date. $+ %Horo.signe
    msg %Horo.Chan Vous étes %Horo.signe - né(e) du6 [ [ %date.signe ] ]
  }
  else { Horo.404 }
}

ON *:SOCKOPEN:horos:{ sockwrite -n horos GET http://www.horoscope.fr/horoscopes/horoscopes.php?Signe= $+ %Horo.signe }

ON *:SOCKREAD:horos:{
  sockread %Horo.Read
  set %Horo.Read $remove(%Horo.Read,<TD>,</td>,<TR>,</tr>,</table>,</font>,<b>,</b>,<br>,</a>,<center>,</center>,<HTML>,</html>)
  set %Horo.Read $remove(%Horo.Read,</script>,<head>,</head>,<TITLE>,</TITLE>,</div>, ,<nobr>,</nobr>,<H1>,</body>,<br />)
  if (humeur.gif isin %Horo.Read) { msg %Horo.Chan .:: 8HUMEUR ::. }
  if (amour.gif isin %Horo.Read) { msg %Horo.Chan .:: 4AMOUR ::. }
  if (travail.gif isin %Horo.Read) { msg %Horo.Chan .:: 12TRAVAIL ::. }
  if (vitalite.gif isin %Horo.Read) { msg %Horo.Chan .:: 9VITALITE ::. }
  if (<td colspan="2"><div align="justify"> isin %Horo.Read) { msg %Horo.Chan $Clear.horo(%Horo.Read) }

}

alias -l horoscope { sockclose horos | sockopen horos www.horoscope.fr 80 }

alias -l Clear.horo {
  set %Horo.Clear $1-
  set %Horo.Clear $remove(%Horo.Clear,<td colspan="2"><div align="justify">)
  return %Horo.Clear
}

alias -l Horo.404 {
  notice $nick 4/1!4\ 4,8<<<< == Erreur de Synthaxe == >>>> 4/1!4\
  notice $nick voici tous les signes Astrologique disponibles ::
  notice $nick 8Belier 9? 8Taureau 9? 8Gemeaux 9? 8ancer 9 8apricorne 9? 8ierge
  notice $nick 8alance 9 8corpion 9 8agittaire 9 8ion 9 8erseau 9 8oissons
  notice $nick 4[SYNTHAXE] 12!Horo Signe
  HALT
}

Commentaire de CeRvAL le 13/05/2011 13:30:14

Bonjour,

J'avais utilisé je crois cette source y a qq années pour mon salon.(je pense que c'est celle là)
J'ai essayé de la remettre en service pour les users de mon chan mais je me rend compte que la source n'est plus vraiment a jour.
Serait-il possible de voir comment je pourrais la refaire fonctionner.

Car ce type de source marche bien sur les caneaux IRC.
L'ideale serait un retour en pv et un anti-flood avec.

Merci d'avance

CeRVAL

Ajouter un commentaire

Nos sponsors

Derniers Blogs

TECHDAYS PARIS 2012 : SESSION PLEINIèRE JOUR 3 par ROMELARD Fabrice

MISHRA READER : UN LECTEUR RSS TRèS ZUNE STYLE EN OPEN SOURCE ! par Vko

[FRAMEWORK 4] LES TASKS ET LE THREAD UI par fathi

WORKFLOW FOUNDATION 3 A UN PIED DANS LA TOMBE par JeremyJeanson

TECHDAYS PARIS 2012 : NOUVELLES TENDANCES DU POSTE DE TRAVAIL - BRING YOUR OWN PC par ROMELARD Fabrice

Forum

CONFLIT ENTRE BOTSERV ET CHANSERV ? par Nordicansa

RE : AIDE par Nico26000

RE : AIDE par WorldDMT

RE : AFFICHAGE DES JOIN/PART/QUIT DANS UNE FENêTRE à PART @JPQ ? par WorldDMT

AIDE par Nico26000

Côté IT

Offres d'emploi

Formations Video

Appels d'offres

Creation d-un site internet similaire a Meetic CDC Disponible
Budget : 8 000€
Integration E commerce d-une application graphique interactive
Budget : 4 000€
URGENT-Developpement d-un annuaire
Budget : 13 000€

Logiciels

Academy System (17.2.1.0)
ACADEMY SYSTEM (17.2.1.0)

Logiciel de gestion des établissements. - élèves/étudiants (inscription, dossier, absence...) -...

Cliquez pour télécharger Academy System
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
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