Horoscope pour bot

Soyez le premier à donner votre avis sur cette source.

Snippet vu 13 628 fois - Téléchargée 31 fois

Contenu du snippet

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 / Exemple :


;##################################
;                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 ]

A voir également

Ajouter un commentaire

Commentaires

Messages postés
3
Date d'inscription
vendredi 1 juin 2012
Statut
Membre
Dernière intervention
1 juin 2012

bonjour je ne sais pas pour vous mais moi sa me donne que la date quand je tape !horo lion et un méssage d'érreur

Erreur synthaxe

sui qelqu'un a une idée
merci
Messages postés
11
Date d'inscription
lundi 26 janvier 2004
Statut
Membre
Dernière intervention
11 février 2006

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
Messages postés
4
Date d'inscription
dimanche 3 août 2008
Statut
Membre
Dernière intervention
3 août 2008

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>,, , ,
,,<center>,</center>,<HTML>,</html>)
set %Horo.Read $remove(%Horo.Read,</script>,<head>,</head>,<TITLE>,</TITLE>,
, ,<nobr>,</nobr>,<H1>,,
)
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">
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">
)
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
}
Messages postés
21
Date d'inscription
dimanche 1 juillet 2007
Statut
Membre
Dernière intervention
10 juillet 2007

moi je sais pas comment codé se que tu me dit tu pourrais me donner le code pour que je me base dessu? :P
Messages postés
46
Date d'inscription
samedi 12 mai 2007
Statut
Membre
Dernière intervention
12 juin 2007

sa me semble etre interressant tofu
je V essayer de l'appliquer.
Afficher les 28 commentaires

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 (World_mIRC)