egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2003-11-04T13:17:55-04:00 https://forum.eggheads.org/app.php/feed/topic/6022 2003-11-04T13:17:55-04:00 2003-11-04T13:17:55-04:00 https://forum.eggheads.org/viewtopic.php?p=29488#p29488 <![CDATA[Need Help With A Public CMD.]]>

Code: 

# How many !rules in how many seconds => stop responding.set myrules 3:5:10bind pub - !rules pub:rulesbind part - * rules:partproc pub:rules {nick host hand chan text} {   global rules  set called [lindex [split $::myrules ":"] 0]  set insec [lindex [split $::myrules ":"] 1]  set reset [lindex [split $::myrules ":"] 2]  if {![info exists rules([strlwr $chan])]} {    set rules([strlwr $chan]) 0  }  incr rules([strlwr $chan])  utimer $reset [list rulesreset $chan]  if {$rules([strlwr $chan]) >= $called} {    return  }  putserv "Notice $nick :Rule 1.."   putserv "Notice $nick :Rule 2.."   putserv "Notice $nick :etc...." }proc rulesreset {chan} {  global rules  incr rules([strlwr $chan]) -1  return}proc rules:part {nick uhost hand chan msg} {  global rules  if {$nick != $::botnick} {    return  }  foreach arr_part [array names rules] {    if {[string match [strlwr $chan] $arr_part]} {      array unset rules [strlwr $chan]    }  }}

Statistics: Posted by caesar — Tue Nov 04, 2003 1:17 pm

]]> 2003-11-04T12:22:37-04:00 2003-11-04T12:22:37-04:00 https://forum.eggheads.org/viewtopic.php?p=29482#p29482 <![CDATA[Need Help With A Public CMD.]]> stop accepting the !rules cmd after The command was issued
3 times in 10seconds?


This is the code that needs changing.

Code: 

bind pub - !rules pub_rulesproc pub_rules { nick host hand chan testes} {putserv "Notice $nick :Rule 1.."putserv "Notice $nick :Rule 2.."putserv "Notice $nick :etc...."return 1 }
Please Help.
Thanks.

Statistics: Posted by CoMMy — Tue Nov 04, 2003 12:22 pm

]]>