Join-part need help

[silverboy]

Can anyone help me convert this mrc to a tcl ??? plzzz

Code: Select all

ON @*:PART:#:{
  IF ($nick isop #) { RETURN }
  SET -u60 %rd. [ $+ [ $chan ] $+ . $+ [ $nick ] ] $calc( %rd. [ $+ [ $chan ] $+ . $+ [ $nick ] ] + 1 )
  ; This just sets a variable: %rd.#channel.nick to keep track of the nbr of joins in 60secs
  IF ( %rd. [ $+ [ $chan ] $+ . $+ [ $nick ] ] >= 2) {
    ; This if statement checks to see if the variable is >= 4, the
if  x isop $chan { msg x ban $chan $nick $read(kicks.txt) 100 100 Join/part flood  }
  }
}

[caesar]

Code: Select all

setudef flag rdoor

bind part * * revolving:door

proc revolving:door {nick uhost hand chan txt} {
  if {![channel get $chan rdoor] || ![botisop $chan] || ![onchan X $chan]} return
  if {[unixtime] - [getchanjoin $nick $chan] <= 60} {
    putserv "PRIVMSG X :ban $chan *!*@[lindex [split $uhost @] 1] 100 100 Join/part flood"
  }
}

Just '.chanset #channel +/-rdoor' to activate/deactivate it.

[silverboy]

Thanxxxxxxxxxxxxx that script was great but can u make it +r for 60 secs when it detects a revolving door flood...I really get irritated when the chan banlist gets full ( 45 bans ) but when the bot bans via X it can add ard 300 bans

[caesar]

sure, just add after

Code: Select all

putserv "PRIVMSG X :ban $chan *!*@[lindex [split $uhost @] 1] 100 100 Join/part flood" 

this:

Code: Select all

putquick "MODE $chan +r" -next
utimer 60 [list putquick "MODE $chan -r" -next]

and should do what you wanted.