msnsmsmms

# Restricted access TCL V1.1
# by Xipetotec - Xipetotec@mail.bg

####################################
# Debug
####################################
# there were 2 bugs:
# 1) I forget the global line in the proc
# 2) The ban was a global one, stupid isn't it?

# this tcl make a restricted access
# to a specify channel.
# only pples who are in bot list can
# join channel.

####################################
# Values to modify
####################################

# canal donde estara activa la tcl

set r_chan "#Mors-adm"

set r_ban 1
# if 0, the tcl just kick the user - 0 kick - 1 ban

set r_time 60
# duration of ban, 0 for perm, in minutes - duracion del ban en minutos

###################################
# You may not modify it
##################################

bind join -|- "$r_chan *!*@*" out

proc out { nick uhost hand chan } {
global r_ban r_time r_chan
if { ![validuser $hand] } {
putserv "KICK $chan $nick :Lo Siento Canal Restringido || Solo para administradores/devels"
if { $r_ban == 1 } {
newchanban $chan [string trimleft [maskhost [getchanhost $nick $chan]] ~] CrazyHelp "May find your channel" $r_time
}
}
}

putlog "Restrict 1.1 loaded"