Horoscope pour bot

Commenter

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

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