You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

90 lines
3.7 KiB

################################################################################
# #
# W5CL - W00d5t0ck's ChanLimit script #
# #
# Written by W00d5t0ck@IRCnet (also W00d5t0ck@SulIRC) #
# #
# History: #
# 2003/09/11 First version #
# 2003/09/12 First public release #
# #
# Tested on eggdrop1.6.15 with tcl8.3 on UnrealIRCd3.1.6-Noon, on a debian 3.0 #
# with the 2.4.18 (distribution) kernel .) #
# #
# Good work to you, bot-owner! #
# #
# Feel free to look for me on IRCnet's #eggdrop or on SulIRC's #help for help! #
# If I don't answer, don't forget to CTCP BEEP me! If I still don't answer, #
# I'm Not Behind Keyboard. #
# #
# Licensed under GPL v2 #
# #
################################################################################
####################
# General settings #
####################
# Setting name for channels which are limited [w5cl]
set w5cl-limit "w5cl"
# Number added to number of users on channel limit [3]
set w5cl-plus 3
# Flags for users who can set or unset channel limit (turn on/off) [m|m]
set w5cl-flags "m|m"
############################################################################
# Please do not edit ANYTHING beyond here, unless you really know what you #
# are doing! #
############################################################################
set w5cl-version "1.0"
# Default values. I'm a bit paranoid .)
if {[catch {set w5cl-limit}]} {set w5cl-limit "w5cl"}
if {[catch {set w5cl-plus}]} {set w5cl-plus 3}
if {[catch {set w5cl-flags}]} {set w5cl-flags "m|m"}
catch {setudef flag ${w5cl-limit} }
bind join * * w5cljoin
bind part * * w5clpart
bind sign * * w5clsign
proc w5cljoin {nick uhost hand chan} {
global w5cl-limit w5cl-plus
if {[botonchan $chan]} {
if {[botisop $chan] && [channel get $chan ${w5cl-limit}]} {
set num [expr [llength [chanlist $chan]] + ${w5cl-plus}]
putserv "MODE $chan +l $num"
}
} else {putlog "Got information from $chan, and I'm not on it!"}
return 0
}
proc w5clpart {nick uhost hand chan msg} {
global w5cl-limit w5cl-plus
if {[botonchan $chan]} {
if {[botisop $chan] && [channel get $chan ${w5cl-limit}]} {
set num [expr [llength [chanlist $chan]] + ${w5cl-plus} - 1]
putserv "MODE $chan +l $num"
}
} else {putlog "Got information from $chan, and I'm not on it!"}
return 0
}
proc w5clsign {nick uhost hand chan reason} {
global w5cl-limit w5cl-plus
if {[botonchan $chan]} {
if {[botisop $chan] && [channel get $chan ${w5cl-limit}]} {
set num [expr [llength [chanlist $chan]] + ${w5cl-plus} - 1]
putserv "MODE $chan +l $num"
}
} else {putlog "Got information from $chan, and I'm not on it!"}
return 0
}
putlog "W00d5t0ck's chanlimit script, v${w5cl-version}"