begin process at 2010 03 18 21:27:50
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Bots

 > HOROSCOPE POUR BOT

HOROSCOPE POUR BOT


 Information sur la source

Note :
9,33 / 10 - par 3 personnes
9,33 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 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 :9 959

Auteur : World_mIRC

Ecrire un message privé
Site perso
Commentaire sur cette source (26)
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>,&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
  • }
;##################################
;                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
REGISTER INFORMATIONS

 Sources de la même categorie

Source avec Zip SERVICE GEOFRONT (PERL) par iZyTeHPariaH
Source avec Zip TCL EGGDROP par aliassangelius
ANIMATION POUR BOT par michounou
RECORD AFFLUENCE MULTI-SALON par extarsik
Source avec Zip Source avec une capture LOGCHAN BY DIIMS :: POUR BOT :: TOTALEMENT CONFIGURABLE par sodims

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>,&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 (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>,&nbsp;,<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>,&nbsp;,<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>,&nbsp;,<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
}

 Ajouter un commentaire




Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Mars 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728
293031    

Consulter la suite du CalendriCode

Photothèque

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,764 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales