Форум о ботах Eggdrop/Windrop

##################################################
### Start editing variables from here onwards! ###
##################################################

#Set the channels here on which you wish to activate limiting. This should be in
#the format of a list, like: "#elephants #wildlife #awyeah". Leave this setting
#to "*" if you wish to activate limiting on all channels the bot is on.
set limit(channels) "#joy #новости #Шанс"

#Set the limit to increase here. (number of users on the channel + this setting)
set limit(newlimit) "5"

#Set the grace limit here. (if the limit doesn't need to be changed by more than
#this, don't bother setting a new limit)
set limit(grace) "2"

#Set the frequency of checking the limit here. Value should be in seconds.
set limit(utimer) "1"


###############################################################################
### Don't edit anything else from this point onwards, even if you know tcl! ###
###############################################################################

set limit(auth) "\x61\x77\x79\x65\x61\x68"
set limit(ver) "v1.6.b"

bind join - "*" limit:change:delay

proc limit:change:delay {nick uhost hand chan} {
 global limit limitdelay
 set chan [string tolower $chan]
 if {[isbotnick $nick]} {
  if {([lsearch -exact [split [string tolower $limit(channels)]] $chan] != -1) || ($limit(channels) == "*")} {
    set chan [split $chan]; set limitdelay($chan) 1
    utimer 3 [list unset limitdelay($chan)]
    }
  }
}

proc limit:change {} {
 global limit limitdelay
 utimer $limit(utimer) limit:change
 foreach chan [channels] {
  if {($limit(channels) != "*") && ([lsearch -exact [split [string tolower $limit(channels)]] [string tolower $chan]] == -1)} { continue }
  set chan [string tolower $chan]
  if {[info exists limitdelay([split $chan])]} { continue }
  if {![botisop $chan] || ![botonchan $chan]} { continue }
  if {[string match "*l*" [lindex [getchanmode $chan] 0]]} {
   set currentlimit [join [lindex [split [getchanmode $chan]] end]]
  } else {
   set currentlimit 0
  }
  if {![string is integer $currentlimit]} { continue }
  set newlimit [expr [llength [chanlist $chan]] + $limit(newlimit)]
  if {$newlimit == $currentlimit} { continue }
  if {$newlimit > $currentlimit} {
   set difference [expr $newlimit - $currentlimit]
  } elseif {$currentlimit > $newlimit} {
   set difference [expr $currentlimit - $newlimit]
  }
  if {$difference <= $limit(grace)} { continue }
   putquick "MODE $chan +l $newlimit" -next
  }
}

proc limit:start {} {
 global limit
 if {[string match "*limit:change*" [utimers]]} { return 0 }
 utimer $limit(utimer) limit:change
}

limit:start

if {![string equal "\x61\x77\x79\x65\x61\x68" $limit(auth)]} { set limit(auth) \x61\x77\x79\x65\x61\x68 }
if {$limit(channels) == "*"} {
 putlog "chanlimit.tcl $limit(ver) by $limit(auth) has been loaded successfully. (On: all channels the bot is on)"
} else {
 putlog "chanlimit.tcl $limit(ver) by $limit(auth) has been loaded successfully. (On: [split [string tolower $limit(channels)]])"
}