egghelp/eggheads community

Flood Protection for trigger

2008-08-30T07:49:04-04:00

Japp all can write too

Thanks a lot

Statistics: Posted by tuShai — Sat Aug 30, 2008 7:49 am

Flood Protection for trigger

2008-08-28T17:51:38-04:00

Thanks

Statistics: Posted by Fraud — Thu Aug 28, 2008 5:51 pm

Flood Protection for trigger

2008-08-28T10:27:31-04:00

change:

Code:

variable method "privmsg"

Code:

variable method "notice"

Statistics: Posted by r0t3n — Thu Aug 28, 2008 10:27 am

Flood Protection for trigger

2008-08-28T07:24:52-04:00

Works good for me.

One more change if its possible. Can u change this

putserv "$rules::variable::method $nickname :Function in use, please try again in around 20 seconds."

in a notice message?
Thanks

Statistics: Posted by Fraud — Thu Aug 28, 2008 7:24 am

Flood Protection for trigger

2008-08-27T08:50:27-04:00

Code:

namespace eval rules {namespace eval variable {variable trigger ".rules"variable channel "#channel"variable filename "scripts/rules.txt"variable method "privmsg"variable use "0"if {![info exists timer]} {     variable timer "" } elseif {$timer != ""} {     catch {killutimer $timer}variable timer ""}variable timeout "20"; # in seconds}bind PUBM - "$::rules::variable::channel $::rules::variable::trigger*" [namespace current]::publicproc public {nickname hostname handle channel arg} {if {$rules::variable::use} {putserv "$rules::variable::method $nickname :Function in use, please try again in around 20 seconds."} else {set rules::variable::use "1"set rules::variable::timer [utimer $rules::variable::timeout [list set rules::variable::use "0"]]set file [open $rules::variable::filename r]set data [read -nonewline $file]close $fileif {[llength $data] < 1} {putserv "$rules::variable::method $nickname :There are no rules..."} else {foreach line [split $data \n] {if {$line == ""} { continue }putserv "$rules::variable::method $nickname :$line"}}}}}

Untested

Statistics: Posted by r0t3n — Wed Aug 27, 2008 8:50 am

Flood Protection for trigger

2008-08-27T07:04:34-04:00

Hi.
I have a little Script here that needs a Spamtrigger but i am not shure where to insert it. Hopefully you can help me with this.
Well, first the Script

Code:

namespace eval rules {   namespace eval variable {      variable trigger ".rules"      variable channel "#channel"      variable filename "scripts/rules.txt"      variable method "privmsg"   }   bind PUBM - "$::rules::variable::channel $::rules::variable::trigger*" [namespace current]::public   proc public {nickname hostname handle channel arg} {      set file [open $::rules::variable::filename r]      while {![eof $file]} {         switch $::rules::variable::method {            privmsg {               putmsg $nickname [gets $file]            }            notice {               putnotc $nickname [gets $file]               }         }      }      close $file   }}

and here is an example of an Spamcheck Trigger i would like to use
Maybe you have a better one...

Code:

set inuse 0proc pub:info {nick host hand chan arg} {    global inuse    if { $inuse == 1 } {    putquick "PRIVMSG $nick :Pls wait 20 Secs. Function is in use"    return

Thanks to all for helping me

Statistics: Posted by tuShai — Wed Aug 27, 2008 7:04 am