désoler je le re voici
voila j'ai supprimer quelque texte jespere que ca passe
le problème ces que ca rien ne se passe du tous et aucune erreur en pl
tcl
# Fun v1.1
# Neon's Web (http://www.eggdrop.online.fr)
# by Neon (chris.neon@bigfoot.com)
# Modified 2004 by LEXLuTHoR (lex.luthor@evc.net)
#####################################################################
## Configuration du Script ##########################################
#####################################################################
# Anti flood sur les commandes du Bot x:y (x=nombre de fois, y=secondes) :
set fun(flood) 5:30
# Ignorer l'utilisateur après son flood (0=non, 1=oui) :
set fun(ignore) 0
# Si oui, combien de temps (en minutes) :
set fun(ignoretime) 0
# Laisser faire les utilisateurs ayant certains flags :
set fun(ignflags) "fmnov|fmnov"
# /mode #arcouille +h
## Blagues ##########################################################
#####################################################################
# Channels où seront envoyés les blagues :
set blagues(chans) "#Accueil"
# Intervalle de temps entre chaque blague en minutes (0=désactivé) :
set blagues(time) 8
# Editer ici les blagues :
set blagues(msgs) {
"0,6Infos: 9,1 Utilises le joke en tapant 0,12!jokes , 9,1si tu ne connais pas la signification d'un mot tapes 0,12!dico <mot> , 9,1si tu cherches une personne tapes 0,12!tapavu <pseudo> , 9,1tu veux savoir quel job tu feras plus tard tapes 0,12!job , 9,1tu veux savoir le record d'audience du salon tapes 0,12!max9,1..."
"0,6Infos: 9,1 Tu veux connaîtres les actualités du jour vas sur : #actu , 9,1si tu aimes les jeux de roulette, de blackjack, de dés ou même le 421 vas sur :0,12#casino , 9,1et enfin pour découvrir notre radio [Frequence3] vas sur :0,12#radio - Bon tchat à toi !..."
"0,6Saviez Vous Que: 9,1 Se berser dans une chaise bersante sans arrêter fait que le record du monde est de 440heures!"
"0,10Proverbe: 0,6La confiance en soi, c'est la capacité de se confier, de s'exprimer, de se révéler à une autre personne sans avoir peur de se faire juger!"
"0,6Saviez Vous Que: 9,1 Le sexe peut enlevé la douleur de l'hartrite pendant 6 heures!"
"0,6Saviez Vous Que: 9,1 La bague de fiançaille a vue le jour en 1477 quand L'archiduc de Maximillien d'Australie a offert une bague en diamant a Mary de Burgundy!"
"0,10Proverbe: 0,6L'avenir est un présent à venir où l'on devra comme maintenant saisir l'instant qui passe!"
"0,10Proverbe: 0,6Les hommes ont tout perfectionné, sauf les hommes!"
"0,10Proverbe à la con : 0,6Il ne faut pas vendre la charrue avant d'avoir tué les bÅ“ufs!"
"0,6Saviez Vous Que: 9,1A l'origine, le Père Noël était vert!"
"0,6Saviez Vous Que: 9,1Il y a chaque jour plus de billets imprimés pour le Monopoly que pour le Trésor US!"
"0,6Saviez Vous Que: 9,1Les Hommes peuvent lire une plus petite écriture imprimée que les Femmes, par contre les Femmes entendent mieux!"
"0,6Saviez Vous Que: 9,1Pourcentage du continent africain encore sauvage : 28%!"
"0,6Saviez Vous Que: 9,1OK ? Maintenant écoutez ça : pourcentage du continent nord-américain encore sauvage : 38%!"
"0,6Saviez Vous Que: 9,1Les plus jeunes parents au monde avaient 8 et 9 ans et vivaient en Chine en 1910!"
"0,6Saviez Vous Que: 9,1Le plus jeune Pape était âgé de 11 ans!"
"0,6Saviez Vous Que: 9,1Sur tous les jeux de cartes, les 4 Rois représentent les 4 Grands Rois de l'Histoire : Pique : le Roi David / Trêfle : Alexandre Le Grand / Coeur :Richard Coeur de Lion / Carreau : Jules César!"
"0,6Saviez Vous Que: 9,1Lorsque vous croisez une statue équestre dans un parc, si le cheval a ses 2 jambes avant en l'air, le personnage représenté est mort au combat. Si une jambe est en l'air, le personnage est mort des suites de blessures reçues au combat. Si les 4 jambes sont au sol, le personnages est mort de causes naturelles (pas au combat). Au passage, le cheval a des jambes, et non des pattes!"
"0,6Saviez Vous Que: 9,1Qu'est-ce qui se produit le plus au mois de Décembre que dans n'importe quel autre mois ? la conception!"
"0,6Saviez Vous Que: 9,1Si on épelle tous les nombres en anglais (one, two, three, four,...) jusqu'où faut-il aller pour trouver la lettre A ? 1000 (one thousAnd)"
"0,6Saviez Vous Que: 9,1Qu'ont en commun les gilets pare-balle, les escaliers de secours, les essuie-glace, les imprimantes laser ? Tous ont été inventés par des femmes!"
"0,6Saviez Vous Que: 9,1Quel est le seul aliment qui ne se gâte pas ? Le miel!"
"0,6Saviez Vous Que: 9,1Une coutume vieille de 4000ans, à Babylone, voulait que pendant le mois qui suivait un mariage, le père de la mariée devait offrir à boire à son beau-fils autant de mead qu'il pouvait. Le mead était une bière à base de miel, et comme le calendrier était basé sur les cycles lunaires, cette période était appelée le mois du miel, et d'où, de nos jours la Lune de Miel!"
"0,6Saviez Vous Que: 9,1Sous l'Ancienne Angleterre, si on n'était pas membre de la famille royale, on ne pouvait pas avoir de relations sexuelles sans l'accord du Roi. Pour avoir un bébé, il fallait demander audience auprès du Roi, qui vous remettait un panneau à clouer sur votre porte pendant le rapport. Sur le panneau était écrit FUCK pour Fornication Under Consent of King. Vous connaissez maintenant l'origine de ce mot ( Légende urbaine )"
"0,6Saviez Vous Que: 9,1Si vous criez pendant 8 ans, 7 mois et 6 jours, vous produirez assez d'énergie de son pour chauffer une tasse de café (Ça n'a pas l'air de valoir la peine)"
"0,6Saviez Vous Que: 9,1Si tu pètes continuellement pendant 6 ans et 9 mois, assez de gaz est produit pour créer l'énergie d'une bombe atomique (Ah, là c'est mieux )"
"0,6Saviez Vous Que: 9,1Le coeur humain crée assez de pression quand il pompe le sang dans le corps pour gicler du sang à 30 pieds (Oh mon Dieu )"
"0,6Saviez Vous Que: 9,1L'orgasme d'un cochon dure 30 minutes (Dans ma prochaine vie, je veux être un cochon )"
"0,6Saviez Vous Que: 9,1Vous dépensez 150 calories par heure en vous cognant la tête sur un mur?"
"0,6Saviez Vous Que: 9,1La fourmi peut soulever 50 fois son poids, tirer 30 fois son poids et tombe toujours sur son côté droit lorsqu'elle est intoxiquée?"
"0,6Saviez Vous Que: 9,1Un cafard vivra 9 jours sans sa tête avant de mourir de faim?"
"0,6Saviez Vous Que: 9,1Le mâle de la menthe religieuse ne peut pas s'accoupler pendant que sa tête est attachée à son corps. La femelle initie le sexe en arrachant la tête du mâle?"
"0,6Saviez Vous Que: 9,1Certains lions s'accouplent 50 fois par jour?"
"0,6Saviez Vous Que: 9,1Les papillons goûtent avec leurs pieds?"
"0,6Saviez Vous Que: 9,1Les éléphants sont les seules animaux qui ne peuvent pas sauter?"
"0,6Saviez Vous Que: 9,1L'urine de chat brille sous une ( blacklight )?"
"0,6Saviez Vous Que: 9,1L'oeil d'une autruche est plus gros que son cerveau?"
"0,6Saviez Vous Que: 9,1L'étoile de mer n'a pas de cerveau?"
"0,6Saviez Vous Que: 9,1Les ours polaires sont gauchers?"
"0,6Saviez Vous Que: 9,1Les humains et les dauphins sont les seules espèces animales à avoir du sexe pour le plaisir?"
"0,6Saviez Vous Que: 9,1Plusieurs systèmes antivol pour voiture existent de nos jours, mais le tout premier a été celui D'Abraham Neiman?"
"0,6Saviez Vous Que: 9,1Le coeur d'une crevette est logé dans sa tête?"
"0,6Saviez Vous Que: 9,1Une étude de près de 200 000 autruches, pendant plus de 80 ans, ne rapporte aucun cas où on aurait vu une autruche se mettre la tête dans le sable?"
"0,6Saviez Vous Que: 9,1Les porcs ne sont physiquement pas capables de regarder le ciel?"
"0,6Saviez Vous Que: 9,1Plus de 50% des gens, à travers le monde, n'ont jamais fait ou n'ont jamais reçu d'appels téléphoniques?"
"0,6Saviez Vous Que: 9,1Il est impossible de lécher votre coude?"
"0,6Saviez Vous Que: 9,1Les rats et les chevaux ne peuvent vomir?"
"0,6Saviez Vous Que: 9,1Si vous éternuez trop fort, vous pourriez vous casser une côte?"
"0,6Saviez Vous Que: 9,1Si vous tentez de retenir un éternuement, vous pourriez causer la rupture d'une veine au cerveau ou dans votre nuque et mourir?"
"0,6Saviez Vous Que: 9,1Si, de force, vous gardez vos yeux ouverts lorsque vous éternuez, ils pourraient sortir des orbites?"
"0,6Saviez Vous Que: 9,1Les rats se multiplient si rapidement qu'en 18 mois, un couple de rat peut avoir plus d'un million de descendants?"
"0,6Saviez Vous Que: 9,1Dans chaque épisode de l'émission télévisée américaine SEINFELD, il y a un SURHOMME (Superman) quelque part?"
"0,6Saviez Vous Que: 9,1Le briquet a été inventé avant l'allumette?"
"0,6Saviez Vous Que: 9,1 35% des gens qui utilisent les annonces personnelles des journaux pour trouver compagnon ou compagne sont déjà mariés?"
"0,6Saviez Vous Que: 9,1À travers le monde, 23% des problèmes aux photocopieurs sont causés par des gens qui s'assoient sur l'appareil pour photocopier leur derrière?"
"0,6Saviez Vous Que: 9,1Pendant la durée moyenne d'une vie, une personne qui dort avalera 70 insectes et 10 araignées?"
"0,6Saviez Vous Que: 9,1La plupart des rouges à lèvres contiennent des écailles de poisson?"
"0,6Saviez Vous Que: 9,1Comme les empreintes digitales, l'empreinte de la langue est différente chez chaque personne?"
"0,6Saviez Vous Que: 9,1Quel est le seul aliment qui ne se gâte pas ? (Le miel)!"
"0,6Saviez Vous Que: 9,1Une coutume vieille de 4000 ans, à Babylone, voulait que pendant le mois qui suivait un mariage, le père de la mariée devait offrir à boire à son beau-fils autant de mead qu'il pouvait. Le mead était une bière à base de miel, et comme le calendrier était basé sur les cycles lunaires, cette période était appelée le mois du miel, et d'où, de nos jour la Lune de Miel!"
"0,6Saviez Vous Que: 9,1Sous l'Ancienne Angleterre, si on n'était pas membre de la famille royale, on ne pouvait pas avoir de relations sexuelles sans l'accord du Roi. Pour avoir un bébé, il fallait demander audience auprès du Roi, qui vous remettait un panneau à clouer sur votre porte pendant le rapport!"
"0,6Saviez Vous Que: 9,1Sur le panneau était écrit F U C K pour Fornication Under Consent of King. Vous connaissez maintenant l'origine de ce mot!"
"0,6Saviez Vous Que: 9,1Les Ecossais ont inventé un jeu il y a des années. Il était intitulé :Gentlemen Only, Ladies Forbidden (Réservé aux Hommes, Interdit aux Femmes) G O L F c'est ainsi que ce mot est entré au dictionnaire!"
"0,6Saviez Vous Que: 9,1La librairie principale de l'université d'Indiana s'enfonce de 3 centimètres chaque année, car lorsqu'elle a été construite, les ingénieurs ont oublié de prendre en compte le poids des livres qui occuperaient l'édifice!"
"0,2Citations: 0,3Certaines vous amuseront, certaines vous fascineront, d'autres vous laisseront sans doute perplexes. Le plus important étant que l'on essaie d'apprendre le plus simplement du monde une chose par jour!"
"0,6Saviez Vous Que: 9,1Le nom entier de Donald, est Donald Fauntleroy Duck?"
"0,6Saviez Vous Que: 9,1En 1997, les lignes aériennes américaines ont économisé 40 000 dollars en enlevant une olive de chaque salade?"
"0,6Saviez Vous Que: 9,1Une girafe peut nettoyer ses oreilles avec la langue?"
"0,6Saviez Vous Que: 9,1Des millions d'arbres sont plantés par accident par les écureuils, en enterrant des graines et en oubliant où ils les ont mis?"
"0,6Saviez Vous Que: 9,1Manger une pomme est plus efficace qu'un café pour rester éveillé?"
"0,6Saviez Vous Que: 9,1Les fourmis s'étirent le matin en se réveillant?"
"0,6Saviez Vous Que: 9,1Les brosses à dents bleues sont plus utilisées que les rouges?"
"0,6Saviez Vous Que: 9,1Le cochon est, avec l'homme, l'animal qui se brûle la peau au soleil?"
"0,6Saviez Vous Que: 9,1Les dauphins dorment avec un oeil ouvert?"
"0,6Saviez Vous Que: 9,1L 'oeil de l'autruche est plus grand que son cerveau?"
"0,6Saviez Vous Que: 9,1Le couac d'un canard ne produit pas d'écho, et personne ne sait pourquoi?"
"0,6Saviez Vous Que: 9,1Il est impossible d'éternuer les yeux ouverts?"
"0,6Saviez Vous Que: 9,1A peu près 99% des personnes qui lisent ce texte ont essayé de se lécher le coude. Heureusement qu'on n'a pas dit le sexe?"
"0,6Saviez Vous Que: 9,1Le coeur humain crée assez de pression quand il pompe le sang pour le propulser à 9 mètres (n'essayez pas ça chez vous)"
"0,6Saviez Vous Que: 9,1Frapper votre tête contre un mur consomme 150 calories par heure ....et en plus ça occupe?"
"0,6Saviez Vous Que: 9,1Les Hommes et les Dauphins sont les seules espèces à avoir des rapports sexuels pour le plaisir?"
"0,6Saviez Vous Que: 9,1En moyenne, les gens ont plus peur des araignées que de la mort (ça marche aussi dans l'autre sens)"
"0,6Saviez Vous Que: 9,1Le muscle le plus puissant du corps humain est la langue?"
"0,6Saviez Vous Que: 9,1Vous ne pouvez pas vous tuer en retenant votre souffle?"
"0,6Saviez Vous Que: 9,1Les americains mangent en moyenne 9 hectares de pizza tous les jours?"
"0,6Saviez Vous Que: 9,1vous avez plus de chances d'être tué par un bouchon de champagne que par une araignée venimeuse?"
"0,6Saviez Vous Que: 9,1En moyenne, les droitiers vivent 9 ans de plus que les gauchers?"
"0,6Saviez Vous Que: 9,1Un orgasme du cochon dure 30 minutes (on comprend mieux les fameux cris)"
"0,6Saviez Vous Que: 9,1Un crocodile ne peut pas sortir sa langue de la gueule?"
"0,6Saviez Vous Que: 9,1La fourmi peut soulever 50 fois son poids, peut tirer 30 fois son poids et tombe toujours sur son côté droit quand elle est empoisonnée?"
"0,6Saviez Vous Que: 9,1Le poisson-chat a plus de 27000 papilles gustatives, ce qui fait de lui l'animal qui a le plus de papilles gustatives?"
"0,6Saviez Vous Que: 9,1La puce peut sauter 350 fois la longueur de son corps, c'est comme si un humain sautait la longueur d'un terrain de football?"
"0,6Saviez Vous Que: 9,1Le mâle de la mante religieuse ne peut pas copuler tant que sa tête est attachée à son corps. La femelle initie la copulation en le décapitant?"
"0,6Saviez Vous Que: 9,1Les éléphants sont les seuls animaux qui ne peuvent pas sauter?"
"0,6Saviez Vous Que: 9,1L'oeil d'une autruche est plus gros que son cerveau?"
"0,6Saviez Vous Que: 9,1L'escargot possède 7 neurones et 14000 dents?"
"0,6Saviez Vous Que: 9,1Les pieuvres ont trois coeurs?"
"0,6Saviez Vous Que: 9,1En 1996 aux USA, 27 personnes ont été blessées par des requins, et 40500 par des toilettes publiques?"
"0,6Saviez Vous Que: 9,1Des millions d'arbres sont plantés par accident par les écureuils qui enterrent des graines et oublient où ils les ont mises?"
"0,6Saviez Vous Que: 9,1Plus de 50 000 crabes envahissent une plage proche de Melbourne?"
"0,6Saviez Vous Que: 9,1Les fourmis s'étirent le matin en se réveillant?"
"0,6Saviez Vous Que: 9,1Une étude de près de 200 000 autruches, pendant plus de 80 ans, ne rapporte aucun cas où on aurait vu une autruche se mettre la tête dans le sable?"
"0,6Saviez Vous Que: 9,1Les porcs ne sont physiquement pas capables de regarder le ciel?"
"0,6Saviez Vous Que: 9,1Les rats se multiplient si rapidement qu'en 18 mois, un couple de rats peut avoir plus d'un million de descendants?"
"0,6Saviez Vous Que: 9,1Pendant la durée moyenne d'une vie, une personne qui dort avalera 70 insectes et 10 araignées?"
"0,6Saviez Vous Que: 9,1C'est possible de faire monter des escaliers à une vache, mais c'est impossible de la faire redescendre?"
"0,6Saviez Vous Que: 9,1Un escargot peut dormir durant 3 ans?"
"0,6Saviez Vous Que: 9,1Les cacahuètes sont un des ingrédients pour fabriquer de la dynamite?"
"0,6Saviez Vous Que: 9,1Le requin est le seul poisson qui peut cligner les 2 yeux?"
"0,6Saviez Vous Que: 9,1Il y a plus de poulets que de gens sur la terre?"
"0,6Saviez Vous Que: 9,1Les amandes sont de la famille des pêches?"
"0,6Saviez Vous Que: 9,1Un chat a 32 muscles dans chaque oreille?"
"0,6Saviez Vous Que: 9,1La plupart des gens s'endorment en 7 minutes?"
"0,6Saviez Vous Que: 9,1Sur chaque continent, il y a une ville qui s'appelle Rome?"
"0,6Saviez Vous Que: 9,1Les escargots peuvent dormir 3 ans?"
"0,6Saviez Vous Que: 9,1Un crocodile ne peut pas sortir sa langue?"
#####################################################################
#####################################################################
#####################################################################
proc fun:flood:init {} {
global fun funflood
set fun(floodnum) [lindex [split $fun(flood) :] 0]
set fun(floodtime) [lindex [split $fun(flood) :] 1]
set i [expr $fun(floodnum) - 1]
while {$i >= 0} {
set funflood($i) 0
incr i -1
}
}
fun:flood:init
proc fun:flood {nick uhost} {
global fun funflood botnick
if {$fun(floodnum) == 0} {
return 0
}
set i [expr $fun(floodnum) - 1]
while {$i >= 1} {
set funflood($i) $funflood([expr $i - 1])
incr i -1
}
set funflood(0) [unixtime]
if {[expr [unixtime] - $funflood([expr $fun(floodnum) - 1])] <= $fun(floodtime)} {
if {$fun(ignore)} {
newignore [join [maskhost *!*[string trimleft $uhost ~]]] $botnick "Flood" $fun(ignoretime)
}
return 1
} {
return 0
}
}
proc fun:pub:bot {nick uhost hand channel arg} {
global fun bot botnick
if ![matchattr $nick $fun(ignflags) $channel] {
if {[fun:flood $nick $uhost]} {
return 0
}
}
if {(([lsearch -exact [string tolower $bot(chans)] [string tolower $channel]] != -1) || ($bot(chans) == "*")) && (![matchattr $hand b]) && ($nick != $botnick)} {
putserv "PRIVMSG $channel :[lindex $bot(msgs) [rand [llength $bot(msgs)]]]"
return 1
}
}
#bind join -|- * fun:join
#proc fun:join {nick uhost hand channel} {
#global fun accueil botnick
#if {$fun(accueil)&&[info exists accueil($channel)]&&($nick != $botnick)} {
# puthelp "NOTICE $nick :[lindex $accueil($channel) [rand [llength $accueil($channel)]]]"
# return 1
#}
#}
#bind part -|- * fun:part
#proc fun:part {nick uhost hand channel} {
#global fun part botnick
#if {$fun(part)&&[info exists part($channel)]&&($nick != $botnick)} {
# puthelp "NOTICE $nick :[lindex $part($channel) [rand [llength $part($channel)]]]"
# return 1
#}
#}
if {(($blagues(time) != 0) && (![string match "*fun:blagues*" [timers]]))} {
timer $blagues(time) fun:blagues
}
proc fun:blagues {} {
global blagues
foreach channel $blagues(chans) {
puthelp "PRIVMSG $channel :[lindex $blagues(msgs) [rand [llength $blagues(msgs)]]]"
}
if {(($blagues(time) != 0) && (![string match "*fun:blagues*" [timers]]))} {
timer $blagues(time) fun:blagues
}
return 1
}
proc fun:pub:bonjour {nick uhost hand channel arg} {
global bonjour fun botnick
if ![matchattr $nick $fun(ignflags) $channel] {
if {[fun:flood $nick $uhost]} {
return 0
}
}
if {(([lsearch -exact [string tolower $bonjour(chans)] [string tolower $channel]] != -1) || ($bonjour(chans) == "*")) && (![matchattr $hand b]) && ($nick != $botnick)} {
if ![string length $arg] {
puthelp "PRIVMSG $channel :[lindex $bonjour(msgs) [rand [llength $bonjour(msgs)]]] $nick"
return 1
}
}
}
proc fun:pub:bonapp {nick uhost hand channel arg} {
global bonapp fun botnick
if ![matchattr $nick $fun(ignflags) $channel] {
if {[fun:flood $nick $uhost]} {
return 0
}
}
if {(([lsearch -exact [string tolower $bonapp(chans)] [string tolower $channel]] != -1) || ($bonapp(chans) == "*")) && (![matchattr $hand b]) && ($nick != $botnick)} {
if ![string length $arg] {
puthelp "PRIVMSG $channel :[lindex $bonapp(msgs) [rand [llength $bonapp(msgs)]]] $nick"
return 1
}
}
}
proc fun:pub:aurevoir {nick uhost hand channel arg} {
global aurevoir fun botnick
if ![matchattr $nick $fun(ignflags) $channel] {
if {[fun:flood $nick $uhost]} {
return 0
}
}
if {(([lsearch -exact [string tolower $aurevoir(chans)] [string tolower $channel]] != -1) || ($aurevoir(chans) == "*")) && (![matchattr $hand b]) && ($nick != $botnick)} {
if ![string length $arg] {
puthelp "PRIVMSG $channel :[lindex $aurevoir(msgs) [rand [llength $aurevoir(msgs)]]] $nick"
return 1
}
}
}
#my reponse
putlog "Fun v1.2.2 by Neon LoaDed!"
voila j'ai supprimer quelque texte jespere que ca passe
le problème ces que ca rien ne se passe du tous et aucune erreur en pl