This is the new home of the egghelp.org community forum.
All data has been migrated (including user logins/passwords) to a new phpBB version.


For more information, see this announcement post. Click the X in the top right-corner of this box to dismiss this message.

How to control flood in specials tcl files?

Help for those learning Tcl or writing their own scripts.
m
mojado
Voice
Posts: 27
Joined: Wed Dec 19, 2007 10:29 am

How to control flood in specials tcl files?

Post by mojado »

I want to limit flood in my bot when I use special TCL like this. I need permit onlye 3 or 4 lines in 30 seconds....how can I configure this file to achieve this objective?? :?:


chuck.tcl

Code: Select all

# chuck Quotes 1.0 by c0wa. 14/12/07

bind pub - !chuck pub_chuck

proc pub_chuck {nick mask hand channel args} {
   global chuck
   puthelp "PRIVMSG $channel :[lindex $chuck [rand [llength $chuck]]]"
   }

set chuck {

"\"Amarás a Chuck Norris sobre todas las cosas.\"" 

"\"No tomarás el nombre de Chuck Norris en vano.\""

"\"Lo invitarás a todas tus fiestas y la de los amigos, sobre todo si son las de Shark.\""

"\"Lo debes honrar.\""

"\"No lo matarás, es imposible.\""

"\"No le mentirás, el castigo será la muerte.\""

"\"Chuck Norris a escuchado el silencio absoluto.\""

"\"El sombrero de Chuck esta hecho con piel de los heuvos del increible Hulk que el mismo arranco.\""

"\"El reloj Chuck Norris puede calcular la hora en otros planetas.\""

"\"Chuck Norris tiene en su casa un agujero negro. Y te preguntarás: ¿Cómo que no lo absorbe?. Es fácil, si lo absorbe: recibe una gran patada giratoria.\""

"\"A Chuck le cabe el Counter en un Diskette.\""

"\"Chuck Norris es capaz viajar en el tiempo a través de su inodoro.\""

"\"Chuck Norris no estudió historia, el mismo es la historia.\""

"\"Chuck Norris se limpia el orto con papel de lija...¿y qué?.\""

"\"Chuck no conoce el miedo; no ha tenido ese placer.\""

"\"Chuck Norris no tiene sombra porque no puede existir nada en el mundo que se parezca a él.\""

"\"Los dinosaurios miraron mal a Chuck Norris una vez. Sólo una.\""

"\"El principal producto exportado por Chuck Norris es dolor.\""

"\"Mientras rodaba Walker: Texas Ranger, Chuck Norris resucitó a un corderito, que había nacido muerto, frotando prolongadamente su barba contra la criatura. Poco después de que el animal volviera a la vida, Chuck Norris le dio una patada giratoria delante de todo el mundo, rompiéndole el cuello, para recordar a la multitud que lo que Chuck nos da, Chuck nos quita.\""

"\"Chuck Norris se comió el higado de Hannibal Lecter.\""

"\"Cuando Chuck Norris mira al horizonte, puede ver su nuca.\""

"\"Un oso trató de devorar a Chuck Norris. Chuck le mostró su mejor golpe y el oso decidió devorarse a sí mismo, ya que era la forma menos dolorosa de morir.\""

"\"El corazón de Chuck Norris no se parará nunca, Chuck le amenazó con sacarle de dentro y darle una patada giratoria.\""

"\"Chuck Norris puede grabar 900 Mb en discos de 650Mb. Por los dos lados.\""

"\"Chuck Norris fue el primero en usar LSD y no alucinó.\""

"\"Las plantas no crecen buscando la luz del sol. Buscan a Chuck Norris.\""

"\"El Ratoncito Pérez no existe. Dejó de existir al intentar robarle un diente a Chuck Norris.\""

"\"Una leyenda dice que Chuck Norris se ha equivocado una vez en su vida, el único testigo murió antes de poderse percatar de lo que había presenciado.\""

"\"Chuck Norris no se asea, más le vale a la suciedad saber cuándo debe desprenderse del cuerpo de Chuck.\""

"\"Chuck Norris puede hacer un ángulo de 361º.\""

"\"Chuck Norris nunca se meó en la cama de pequeño. Era la cama la que se orinaba de miedo.\""

"\"Chuck Norris puede rebobinar un DVD.\""

"\"Chuck Norris puede hacer un triángulo con solo 2 lados.\""

"\"Chuck Norris puede aplaudir con una sola mano.\""

"\"Ni se te ocurra intentar robarle.\""

"\"No levantarás falsos testimonios ni mentiras ni hechos que no haya realizado, aunque todo lo puede hacer, si él quiere.\""

"\"No desees con él pensamientos ni deseos impuros.\""

"\"No codiciarás ningún bien, todo pertenece a Chuck Norris.\""

"\"Chuck Norris puede oir el silencio.\""

"\"Chuck Norris puede cantar en un instrumental.\""

"\"Chuck Norris toca la guitarra sin tocar ninguna cuerda, tan solo le advierte a la guitarra de que debe sonar.\""

"\"Chuck Norris indujo al alcohol a los Guns N' Roses.\""

"\"Chuck Norris puede hacer que un Re suene como Sol con solo mirarlo.\""

"\"Los hermanos Gallagher se pelearon por que de pequeños los dos querian ser Chuck Norris.\""

"\"Chuck norris partio un cuchillo con una sandia.\""

"\"El calentamiento global es producto de una masturbacion de Chuck Norris.\""

"\"Chuck Norris puede saltar para abajo.\""

"\"Chuck Norris no escucha musica, la musica tiene miedo.\""

"\"Chuck Norris no juega. GANA.\""

"\"Chuck Norris no lo intenta. Acierta.\""

"\"Chuck no ha nacido y ya murió.\""

"\"Chuck conoce lo desconocido.\""

"\"Chuck Norris ve con los ojos cerrados.\""

"\"Chuck Norris es TODO y NADA a la vez.\""

"\"Chuck Norris no es un hombre, es EL HOMBRE.\""

"\"Las estrellas miran a Chuck Norris y piensan en el infinito.\""

"\"Cuando Chuck mea, cae lluvia ácida.\""

"\"Chuck Norris puede ver en la oscuridad.\""

"\"Chuck Norris puede aplaudir con una mano.\""

"\"Chuck Norris no va a la Iglesia, habla directamente con Dios... por teléfono.\""

"\"Chuck Norris inventó SuperPi y el Orthos.\""

"\"Chuck Norris se masturba con fotos de Chuck Norris.\""

"\"Chuck Norris puede tocar su codo izquierdo: Con su mano izquierda.\""

"\"Chuck Norris podría acabar con todos nosotros, pero afortunadamente, permite que el Sol salga a diario.\""

"\"Chuck inspiró al Che Guevara.\""

"\"Chuck Norris le hizo la permanente a un calvo.\""

"\"Chuck Norris se caga de frío en el Sahara en pleno mediodía.\""

"\"Chuck Norris sabe dónde está el culo del mundo.\""

"\"Chuck Norris le dijo a Galileo Galilei que la tierra se movia alrededor del sol.\""

"\"Chuck Norris puede atascar el inodor con un meo.\""

"\"Chuck Norris no salta, la tierra huye de él.\""

"\"Chuck Norris nunca sale a mirar la luna. La luna sale a mirar a Chuck Norris.\""

"\"Chuck Norris es el unico que se puede masturbar....con el pie.\""

"\"Todos somos descendientes de Chuck Norris.\""

"\"Chuck Norris sabe la medida del universo.\""

"\"Chuck Norris es la única persona que sabe cómo es Alá.\""

"\"Chuck Norris Folló con Grace Kelly y Marilyn Monroe, ayer.\""

"\"Chuck Norris predijo a Nostradamus.\""

"\"Chuck Norris puede hablar con los que le tienen no admitido en el msn.\""

"\"Un auto no atropella a Chuck Norris, Chuck Norris atropella el auto.\""

"\"El emule de Chuck Norris baja a 400 gb/s, con una conexión de 56 kb/s, con los puertos cerrados, con el firewall activado y sin compartir ni un solo archivo. Y si a la mula se le ocurre ponerse la venda de los ojos, inmediatamente se la quita de una patada giratoria.\""

"\"Chuck Norris no aplaude con las manos, sino que agarra a las dos personas más cercanas a él y las aplasta una contra la otra repetidamente.\""

"\"Chuck Norris vende su orina en lata. Se le conoce como Red Bull.\""

"\"El Viagra es semen de Chuck Norris solidificado.\""

"\"Chuck Norris se corta las uñas de la mano izquierda con la mano izquierda.\""

"\"Chuck Norris se puede rascar el codo derecho con la mano derecha.\""

"\"Chuck Norris no necesita cortinas. Nadie se atreve a mirar por las ventanas de su casa.\""

"\"Un día un hombre le pregunto la hora a Chuck Norris. Minutos mas tarde murió.\""

"\"El látigo de Indiana Jones esta trenzado con pelo de la barba de Chuck.\""

"\"El reloj Chuck Norris puede calcular la hora en otros planetas.\""

}


putlog "Chuck Quotes 1.0 by c0wa loaded ..."

Thanxs in advance.
User avatar
strikelight
Owner
Posts: 708
Joined: Mon Oct 07, 2002 10:39 am
Contact:

Post by strikelight »

If the puthelp queue isn't enough to prevent your bot from flooding, try BarkerJr's Queues.tcl and modify your code accordingly.
m
mojado
Voice
Posts: 27
Joined: Wed Dec 19, 2007 10:29 am

Post by mojado »

strikelight wrote:If the puthelp queue isn't enough to prevent your bot from flooding, try BarkerJr's Queues.tcl and modify your code accordingly.

Sorry, I don´t understand.....I want only a commands to manage flood control in this script....

Thanxs for your help.:)
User avatar
Sir_Fz
Revered One
Posts: 3794
Joined: Sun Apr 27, 2003 3:10 pm
Location: Lebanon
Contact:

Post by Sir_Fz »

This should add some flood control (it's a modified version of your proc:

Code: Select all

proc pub_chuck {nick mask hand channel args} {
 global chuck
 if {[throttled $chan 30] >= 4} {
  puthelp "PRIVMSG $channel :[lindex $chuck [rand [llength $chuck]]]"
 }
}

# user's throttled procedure with slight modification
proc throttled {id time} {
 global throttled
 if {[info exists throttled($id)]} {
  incr throttled($id)
 } {
  set throttled($id) 1
  utimer $time [list unset throttled($id)]
 }
 set throttled($id)
}
This will allow only 3 requests every 30 seconds (notice the '30' and the '>= 4' in the if-statement).
m
mojado
Voice
Posts: 27
Joined: Wed Dec 19, 2007 10:29 am

Post by mojado »

The file chuck.tcl now looks like this....

Code: Select all

# chuck Quotes 1.0 by FragUK. 14/10/07
#
bind pub - !chuck pub_chuck
proc pub_chuck {nick mask hand channel args} {
 global chuck
 if {[throttled $chan 30] >= 4} {
  puthelp "PRIVMSG $channel :[lindex $chuck [rand [llength $chuck]]]"
 }
}

# user's throttled procedure with slight modification
proc throttled {id time} {
 global throttled
 if {[info exists throttled($id)]} {
  incr throttled($id)
 } {
  set throttled($id) 1
  utimer $time [list unset throttled($id)]
 }
 set throttled($id)
}


"\"Amarás a Chuck Norris sobre todas las cosas.\"" 

"\"No tomarás el nombre de Chuck Norris en vano.\""

"\"Lo invitarás a todas tus fiestas y la de los amigos, sobre todo si son las de Shark.\""

"\"Lo debes honrar.\""

bla bla bla.....
But....when I execute the eggdrop receive this error.

Image

Many thanxs for your help.:)
User avatar
YooHoo
Owner
Posts: 939
Joined: Thu Feb 13, 2003 10:07 pm
Location: Redwood Coast

Post by YooHoo »

you forgot to make $chuck a variable. You need to add:

Code: Select all

set chuck {
...chuck stuff...
}
m
mojado
Voice
Posts: 27
Joined: Wed Dec 19, 2007 10:29 am

Post by mojado »

Thanxs for reply YooHoo....but not works .....Give me the same error.:?

chuck.tcl

Code: Select all

# chuck Quotes 1.0 by FragUK. 14/10/07
#
bind pub - !chuck pub_chuck

proc pub_chuck {nick mask hand channel args} {
 global chuck
 if {[throttled $chan 30] >= 4} {
  puthelp "PRIVMSG $channel :[lindex $chuck [rand [llength $chuck]]]"
 }
}

# user's throttled procedure with slight modification
proc throttled {id time} {
 global throttled
 if {[info exists throttled($id)]} {
  incr throttled($id)
 } {
  set throttled($id) 1
  utimer $time [list unset throttled($id)]
 }
 set throttled($id)
} 

set chuck {
...chuck stuff...
}



"\"Amarás a Chuck Norris sobre todas las cosas.\"" 

"\"No tomarás el nombre de Chuck Norris en vano.\""

bla bla bla bla........

Thanxs in advance.
User avatar
YooHoo
Owner
Posts: 939
Joined: Thu Feb 13, 2003 10:07 pm
Location: Redwood Coast

Post by YooHoo »

:lol: ur crackin me up :lol: look, mojado, it should look just like this:

Code: Select all

bind pub - !chuck pub_chuck

proc pub_chuck {nick mask hand channel args} {
   global chuck
   puthelp "PRIVMSG $channel :[lindex $chuck [rand [llength $chuck]]]"
   }

proc throttled {id time} {
 global throttled
 if {[info exists throttled($id)]} {
  incr throttled($id)
 } {
  set throttled($id) 1
  utimer $time [list unset throttled($id)]
 }
 set throttled($id)
}

set chuck {

"\"Amarás a Chuck Norris sobre todas las cosas.\""

"\"No tomarás el nombre de Chuck Norris en vano.\""

"\"Lo invitarás a todas tus fiestas y la de los amigos, sobre todo si son las de Shark.\""

"\"Lo debes honrar.\""

"\"No lo matarás, es imposible.\""

"\"No le mentirás, el castigo será la muerte.\""

"\"Chuck Norris a escuchado el silencio absoluto.\""

"\"El sombrero de Chuck esta hecho con piel de los heuvos del increible Hulk que el mismo arranco.\""

"\"El reloj Chuck Norris puede calcular la hora en otros planetas.\""

"\"Chuck Norris tiene en su casa un agujero negro. Y te preguntarás: ¿Cómo que no lo absorbe?. Es fácil, si lo absorbe: recibe una gran patada giratoria.\""

"\"A Chuck le cabe el Counter en un Diskette.\""

"\"Chuck Norris es capaz viajar en el tiempo a través de su inodoro.\""

"\"Chuck Norris no estudió historia, el mismo es la historia.\""

"\"Chuck Norris se limpia el orto con papel de lija...¿y qué?.\""

"\"Chuck no conoce el miedo; no ha tenido ese placer.\""

"\"Chuck Norris no tiene sombra porque no puede existir nada en el mundo que se parezca a él.\""

"\"Los dinosaurios miraron mal a Chuck Norris una vez. Sólo una.\""

"\"El principal producto exportado por Chuck Norris es dolor.\""

"\"Mientras rodaba Walker: Texas Ranger, Chuck Norris resucitó a un corderito, que había nacido muerto, frotando prolongadamente su barba contra la criatura. Poco después de que el animal volviera a la vida, Chuck Norris le dio una patada giratoria delante de todo el mundo, rompiéndole el cuello, para recordar a la multitud que lo que Chuck nos da, Chuck nos quita.\""

"\"Chuck Norris se comió el higado de Hannibal Lecter.\""

"\"Cuando Chuck Norris mira al horizonte, puede ver su nuca.\""

"\"Un oso trató de devorar a Chuck Norris. Chuck le mostró su mejor golpe y el oso decidió devorarse a sí mismo, ya que era la forma menos dolorosa de morir.\""

"\"El corazón de Chuck Norris no se parará nunca, Chuck le amenazó con sacarle de dentro y darle una patada giratoria.\""

"\"Chuck Norris puede grabar 900 Mb en discos de 650Mb. Por los dos lados.\""

"\"Chuck Norris fue el primero en usar LSD y no alucinó.\""

"\"Las plantas no crecen buscando la luz del sol. Buscan a Chuck Norris.\""

"\"El Ratoncito Pérez no existe. Dejó de existir al intentar robarle un diente a Chuck Norris.\""

"\"Una leyenda dice que Chuck Norris se ha equivocado una vez en su vida, el único testigo murió antes de poderse percatar de lo que había presenciado.\""

"\"Chuck Norris no se asea, más le vale a la suciedad saber cuándo debe desprenderse del cuerpo de Chuck.\""

"\"Chuck Norris puede hacer un ángulo de 361º.\""

"\"Chuck Norris nunca se meó en la cama de pequeño. Era la cama la que se orinaba de miedo.\""

"\"Chuck Norris puede rebobinar un DVD.\""

"\"Chuck Norris puede hacer un triángulo con solo 2 lados.\""

"\"Chuck Norris puede aplaudir con una sola mano.\""

"\"Ni se te ocurra intentar robarle.\""

"\"No levantarás falsos testimonios ni mentiras ni hechos que no haya realizado, aunque todo lo puede hacer, si él quiere.\""

"\"No desees con él pensamientos ni deseos impuros.\""

"\"No codiciarás ningún bien, todo pertenece a Chuck Norris.\""

"\"Chuck Norris puede oir el silencio.\""

"\"Chuck Norris puede cantar en un instrumental.\""

"\"Chuck Norris toca la guitarra sin tocar ninguna cuerda, tan solo le advierte a la guitarra de que debe sonar.\""

"\"Chuck Norris indujo al alcohol a los Guns N' Roses.\""

"\"Chuck Norris puede hacer que un Re suene como Sol con solo mirarlo.\""

"\"Los hermanos Gallagher se pelearon por que de pequeños los dos querian ser Chuck Norris.\""

"\"Chuck norris partio un cuchillo con una sandia.\""

"\"El calentamiento global es producto de una masturbacion de Chuck Norris.\""

"\"Chuck Norris puede saltar para abajo.\""

"\"Chuck Norris no escucha musica, la musica tiene miedo.\""

"\"Chuck Norris no juega. GANA.\""

"\"Chuck Norris no lo intenta. Acierta.\""

"\"Chuck no ha nacido y ya murió.\""

"\"Chuck conoce lo desconocido.\""

"\"Chuck Norris ve con los ojos cerrados.\""

"\"Chuck Norris es TODO y NADA a la vez.\""

"\"Chuck Norris no es un hombre, es EL HOMBRE.\""

"\"Las estrellas miran a Chuck Norris y piensan en el infinito.\""

"\"Cuando Chuck mea, cae lluvia ácida.\""

"\"Chuck Norris puede ver en la oscuridad.\""

"\"Chuck Norris puede aplaudir con una mano.\""

"\"Chuck Norris no va a la Iglesia, habla directamente con Dios... por teléfono.\""

"\"Chuck Norris inventó SuperPi y el Orthos.\""

"\"Chuck Norris se masturba con fotos de Chuck Norris.\""

"\"Chuck Norris puede tocar su codo izquierdo: Con su mano izquierda.\""

"\"Chuck Norris podría acabar con todos nosotros, pero afortunadamente, permite que el Sol salga a diario.\""

"\"Chuck inspiró al Che Guevara.\""

"\"Chuck Norris le hizo la permanente a un calvo.\""

"\"Chuck Norris se caga de frío en el Sahara en pleno mediodía.\""

"\"Chuck Norris sabe dónde está el culo del mundo.\""

"\"Chuck Norris le dijo a Galileo Galilei que la tierra se movia alrededor del sol.\""

"\"Chuck Norris puede atascar el inodor con un meo.\""

"\"Chuck Norris no salta, la tierra huye de él.\""

"\"Chuck Norris nunca sale a mirar la luna. La luna sale a mirar a Chuck Norris.\""

"\"Chuck Norris es el unico que se puede masturbar....con el pie.\""

"\"Todos somos descendientes de Chuck Norris.\""

"\"Chuck Norris sabe la medida del universo.\""

"\"Chuck Norris es la única persona que sabe cómo es Alá.\""

"\"Chuck Norris Folló con Grace Kelly y Marilyn Monroe, ayer.\""

"\"Chuck Norris predijo a Nostradamus.\""

"\"Chuck Norris puede hablar con los que le tienen no admitido en el msn.\""

"\"Un auto no atropella a Chuck Norris, Chuck Norris atropella el auto.\""

"\"El emule de Chuck Norris baja a 400 gb/s, con una conexión de 56 kb/s, con los puertos cerrados, con el firewall activado y sin compartir ni un solo archivo. Y si a la mula se le ocurre ponerse la venda de los ojos, inmediatamente se la quita de una patada giratoria.\""

"\"Chuck Norris no aplaude con las manos, sino que agarra a las dos personas más cercanas a él y las aplasta una contra la otra repetidamente.\""

"\"Chuck Norris vende su orina en lata. Se le conoce como Red Bull.\""

"\"El Viagra es semen de Chuck Norris solidificado.\""

"\"Chuck Norris se corta las uñas de la mano izquierda con la mano izquierda.\""

"\"Chuck Norris se puede rascar el codo derecho con la mano derecha.\""

"\"Chuck Norris no necesita cortinas. Nadie se atreve a mirar por las ventanas de su casa.\""

"\"Un día un hombre le pregunto la hora a Chuck Norris. Minutos mas tarde murió.\""

"\"El látigo de Indiana Jones esta trenzado con pelo de la barba de Chuck.\""

"\"El reloj Chuck Norris puede calcular la hora en otros planetas.\""

}


putlog "Chuck Quotes 1.0 by c0wa loaded ..."
m
mojado
Voice
Posts: 27
Joined: Wed Dec 19, 2007 10:29 am

Post by mojado »

Thanxs YooHoo, now, the eggdrop starts fine...but the control flood in only 3 requests every 30 seconds NOT works.:(

Again, thanxs man.:)
User avatar
Sir_Fz
Revered One
Posts: 3794
Joined: Sun Apr 27, 2003 3:10 pm
Location: Lebanon
Contact:

Post by Sir_Fz »

Unfortunately YooHoo didn't paste the whole modification so here it goes:

Code: Select all

bind pub - !chuck pub_chuck

proc pub_chuck {nick mask hand channel args} {
 global chuck
 if {[throttled $channel 30] >= 4} {
  puthelp "PRIVMSG $channel :[lindex $chuck [rand [llength $chuck]]]"
 }
}

# user's throttled procedure with slight modification
proc throttled {id time} {
 global throttled
 if {[info exists throttled($id)]} {
  incr throttled($id)
 } {
  set throttled($id) 1
  utimer $time [list unset throttled($id)]
 }
 set throttled($id)
}

set chuck {

"\"Amarás a Chuck Norris sobre todas las cosas.\""

"\"No tomarás el nombre de Chuck Norris en vano.\""

"\"Lo invitarás a todas tus fiestas y la de los amigos, sobre todo si son las de Shark.\""

"\"Lo debes honrar.\""

"\"No lo matarás, es imposible.\""

"\"No le mentirás, el castigo será la muerte.\""

"\"Chuck Norris a escuchado el silencio absoluto.\""

"\"El sombrero de Chuck esta hecho con piel de los heuvos del increible Hulk que el mismo arranco.\""

"\"El reloj Chuck Norris puede calcular la hora en otros planetas.\""

"\"Chuck Norris tiene en su casa un agujero negro. Y te preguntarás: ¿Cómo que no lo absorbe?. Es fácil, si lo absorbe: recibe una gran patada giratoria.\""

"\"A Chuck le cabe el Counter en un Diskette.\""

"\"Chuck Norris es capaz viajar en el tiempo a través de su inodoro.\""

"\"Chuck Norris no estudió historia, el mismo es la historia.\""

"\"Chuck Norris se limpia el orto con papel de lija...¿y qué?.\""

"\"Chuck no conoce el miedo; no ha tenido ese placer.\""

"\"Chuck Norris no tiene sombra porque no puede existir nada en el mundo que se parezca a él.\""

"\"Los dinosaurios miraron mal a Chuck Norris una vez. Sólo una.\""

"\"El principal producto exportado por Chuck Norris es dolor.\""

"\"Mientras rodaba Walker: Texas Ranger, Chuck Norris resucitó a un corderito, que había nacido muerto, frotando prolongadamente su barba contra la criatura. Poco después de que el animal volviera a la vida, Chuck Norris le dio una patada giratoria delante de todo el mundo, rompiéndole el cuello, para recordar a la multitud que lo que Chuck nos da, Chuck nos quita.\""

"\"Chuck Norris se comió el higado de Hannibal Lecter.\""

"\"Cuando Chuck Norris mira al horizonte, puede ver su nuca.\""

"\"Un oso trató de devorar a Chuck Norris. Chuck le mostró su mejor golpe y el oso decidió devorarse a sí mismo, ya que era la forma menos dolorosa de morir.\""

"\"El corazón de Chuck Norris no se parará nunca, Chuck le amenazó con sacarle de dentro y darle una patada giratoria.\""

"\"Chuck Norris puede grabar 900 Mb en discos de 650Mb. Por los dos lados.\""

"\"Chuck Norris fue el primero en usar LSD y no alucinó.\""

"\"Las plantas no crecen buscando la luz del sol. Buscan a Chuck Norris.\""

"\"El Ratoncito Pérez no existe. Dejó de existir al intentar robarle un diente a Chuck Norris.\""

"\"Una leyenda dice que Chuck Norris se ha equivocado una vez en su vida, el único testigo murió antes de poderse percatar de lo que había presenciado.\""

"\"Chuck Norris no se asea, más le vale a la suciedad saber cuándo debe desprenderse del cuerpo de Chuck.\""

"\"Chuck Norris puede hacer un ángulo de 361º.\""

"\"Chuck Norris nunca se meó en la cama de pequeño. Era la cama la que se orinaba de miedo.\""

"\"Chuck Norris puede rebobinar un DVD.\""

"\"Chuck Norris puede hacer un triángulo con solo 2 lados.\""

"\"Chuck Norris puede aplaudir con una sola mano.\""

"\"Ni se te ocurra intentar robarle.\""

"\"No levantarás falsos testimonios ni mentiras ni hechos que no haya realizado, aunque todo lo puede hacer, si él quiere.\""

"\"No desees con él pensamientos ni deseos impuros.\""

"\"No codiciarás ningún bien, todo pertenece a Chuck Norris.\""

"\"Chuck Norris puede oir el silencio.\""

"\"Chuck Norris puede cantar en un instrumental.\""

"\"Chuck Norris toca la guitarra sin tocar ninguna cuerda, tan solo le advierte a la guitarra de que debe sonar.\""

"\"Chuck Norris indujo al alcohol a los Guns N' Roses.\""

"\"Chuck Norris puede hacer que un Re suene como Sol con solo mirarlo.\""

"\"Los hermanos Gallagher se pelearon por que de pequeños los dos querian ser Chuck Norris.\""

"\"Chuck norris partio un cuchillo con una sandia.\""

"\"El calentamiento global es producto de una masturbacion de Chuck Norris.\""

"\"Chuck Norris puede saltar para abajo.\""

"\"Chuck Norris no escucha musica, la musica tiene miedo.\""

"\"Chuck Norris no juega. GANA.\""

"\"Chuck Norris no lo intenta. Acierta.\""

"\"Chuck no ha nacido y ya murió.\""

"\"Chuck conoce lo desconocido.\""

"\"Chuck Norris ve con los ojos cerrados.\""

"\"Chuck Norris es TODO y NADA a la vez.\""

"\"Chuck Norris no es un hombre, es EL HOMBRE.\""

"\"Las estrellas miran a Chuck Norris y piensan en el infinito.\""

"\"Cuando Chuck mea, cae lluvia ácida.\""

"\"Chuck Norris puede ver en la oscuridad.\""

"\"Chuck Norris puede aplaudir con una mano.\""

"\"Chuck Norris no va a la Iglesia, habla directamente con Dios... por teléfono.\""

"\"Chuck Norris inventó SuperPi y el Orthos.\""

"\"Chuck Norris se masturba con fotos de Chuck Norris.\""

"\"Chuck Norris puede tocar su codo izquierdo: Con su mano izquierda.\""

"\"Chuck Norris podría acabar con todos nosotros, pero afortunadamente, permite que el Sol salga a diario.\""

"\"Chuck inspiró al Che Guevara.\""

"\"Chuck Norris le hizo la permanente a un calvo.\""

"\"Chuck Norris se caga de frío en el Sahara en pleno mediodía.\""

"\"Chuck Norris sabe dónde está el culo del mundo.\""

"\"Chuck Norris le dijo a Galileo Galilei que la tierra se movia alrededor del sol.\""

"\"Chuck Norris puede atascar el inodor con un meo.\""

"\"Chuck Norris no salta, la tierra huye de él.\""

"\"Chuck Norris nunca sale a mirar la luna. La luna sale a mirar a Chuck Norris.\""

"\"Chuck Norris es el unico que se puede masturbar....con el pie.\""

"\"Todos somos descendientes de Chuck Norris.\""

"\"Chuck Norris sabe la medida del universo.\""

"\"Chuck Norris es la única persona que sabe cómo es Alá.\""

"\"Chuck Norris Folló con Grace Kelly y Marilyn Monroe, ayer.\""

"\"Chuck Norris predijo a Nostradamus.\""

"\"Chuck Norris puede hablar con los que le tienen no admitido en el msn.\""

"\"Un auto no atropella a Chuck Norris, Chuck Norris atropella el auto.\""

"\"El emule de Chuck Norris baja a 400 gb/s, con una conexión de 56 kb/s, con los puertos cerrados, con el firewall activado y sin compartir ni un solo archivo. Y si a la mula se le ocurre ponerse la venda de los ojos, inmediatamente se la quita de una patada giratoria.\""

"\"Chuck Norris no aplaude con las manos, sino que agarra a las dos personas más cercanas a él y las aplasta una contra la otra repetidamente.\""

"\"Chuck Norris vende su orina en lata. Se le conoce como Red Bull.\""

"\"El Viagra es semen de Chuck Norris solidificado.\""

"\"Chuck Norris se corta las uñas de la mano izquierda con la mano izquierda.\""

"\"Chuck Norris se puede rascar el codo derecho con la mano derecha.\""

"\"Chuck Norris no necesita cortinas. Nadie se atreve a mirar por las ventanas de su casa.\""

"\"Un día un hombre le pregunto la hora a Chuck Norris. Minutos mas tarde murió.\""

"\"El látigo de Indiana Jones esta trenzado con pelo de la barba de Chuck.\""

"\"El reloj Chuck Norris puede calcular la hora en otros planetas.\""

}


putlog "Chuck Quotes 1.0 by c0wa loaded ..."
And please... try to understand just a little tiny bit about Tcl.

Edit: Fixed bug.
Last edited by Sir_Fz on Mon Mar 03, 2008 12:00 pm, edited 2 times in total.
User avatar
YooHoo
Owner
Posts: 939
Joined: Thu Feb 13, 2003 10:07 pm
Location: Redwood Coast

Post by YooHoo »

:oops: thanks Sir_Fz
m
mojado
Voice
Posts: 27
Joined: Wed Dec 19, 2007 10:29 am

Post by mojado »

Sir_Fz wrote:And please... try to understand just a little tiny bit about Tcl.
Thanxs, but I´m not a programmer. :oops:

Your .conf give me these error:

Image


But.....I solved correcting this line....

if {[throttled $channel 30] >= 4} {

Now, I am going to check if the excess flood is controlled and operated properly.



Sir_Fz & YooHoo many thanxs.:D

Regards.
m
mojado
Voice
Posts: 27
Joined: Wed Dec 19, 2007 10:29 am

Post by mojado »

Thanks for all, but doesn´t work flood control.....I can still send multiple lines without being stopped. :( :oops:



Greetings.
User avatar
YooHoo
Owner
Posts: 939
Joined: Thu Feb 13, 2003 10:07 pm
Location: Redwood Coast

Post by YooHoo »

these are simple errors. the procedure is declaring the argument 'channel', but you are using the variable '$chan'. Simply change it to match. Also, I have been told not to use the argument 'args', as it has special meaning in tcl. Instead, use a different argument, like 'rest'. pub_chuck should look like this:

Code: Select all

proc pub_chuck {nick mask hand chan rest} {
 global chuck
 if {[throttled $chan 30] >= 4} {
  puthelp "PRIVMSG $chan :[lindex $chuck [rand [llength $chuck]]]"
 }
} 
m
mojado
Voice
Posts: 27
Joined: Wed Dec 19, 2007 10:29 am

Post by mojado »

YooHoo wrote:these are simple errors. the procedure is declaring the argument 'channel', but you are using the variable '$chan'. Simply change it to match. Also, I have been told not to use the argument 'args', as it has special meaning in tcl. Instead, use a different argument, like 'rest'. pub_chuck should look like this:

Code: Select all

proc pub_chuck {nick mask hand chan rest} {
 global chuck
 if {[throttled $chan 30] >= 4} {
  puthelp "PRIVMSG $chan :[lindex $chuck [rand [llength $chuck]]]"
 }
} 
Thanxs YooHoo.:)
But......(yeap, always are a but....):oops:
If I use your lines cause me the error descripted.

Image



Another doubt....If they worked flood control, how long time after 4 lines in 30 seconds could be write !chuck ?

I hope that does not bother with many queries. :?

Thanxs.
Post Reply