LockDown Script

#################################################################################################################################################################
#THIS IS SCRIPT IS MADE BY COMPUTERTECH AND BLACKSHADOW
#################################################################################################################################################################
#Have A Script Request Use The Contact Options Below#
#####################################################
#CONTACT OPTIONS
#
#ComputerTech
#IRC IRC.FREENODE.NET ##COMPUTERTECH123
#EMAIL COMPUTERTECH312@GMAIL.COM
#GitHub page : https://github.com/computertech312
#####################################################
#BLaCkShaDoW
#IRC us.undernet.org #tcl-help
#EMAIL blackshadow@tclscripts.net                                                     ##
#GitHub page : https://github.com/tclscripts/
#####################################################
#ComputerTech Productions                           #
#####################################################
#Commands
#
# +999 To Activate The LockMode
# -999 To DeActivate The LockMode
# .clonescan to activate kickban scan
# !masskick  kicks everyone not oped off the channel
#
#################################################################################################################################################################
# START OF EDITING
#################################################################################################################################################################
# put # before die below
#die "Please Make Sure You Have Edited lockdown.tcl The Way You Want It"

# Here you set the maximum number of clones to which the bot will act according to the configuration

set scn(maxclone) "3"

# Here you set the time frame in which the bot will scan the clone channel

set scn(time) "30"

#Set here what flags the clone scan command can activate. ( .clonescan )

set scn(flags) "o|o"

#Set to 1 for kickban
#Set to 0 for notify

set scn(what) "0"

#If you set to scn (what) "1" set the reason for the kickban here.

set scn(reason) "This host% host% has exceeded the number of clones accepted on %chan%. For more info contact Operators."

#If you have set to scn (what) "1" set here the duration of the money. (minute)

set scn(btime) "30"
#################################################################################################################################################################
#END OF EDITING # NO EDTING NEEDED BELOW
#################################################################################################################################################################


bind pub  -  "+999"  do_lock_mode

bind pub  -  "-999"  do_unlock_mode

bind pub $scn(flags) .clonescan scanner
setudef flag clonescan


bind pub n|m !masskick massk



proc do_lock_mode {nick ushost handle chan text} {

    if {![botisop $chan]} {
        putserv "privmsg $chan :/<pssst!/>  I'm not op'd  "
        return 0
    }

    if {![isop $nick $chan]} {
        putserv "privmsg $chan :Sorry $nick, but you are not op'd in $chan right now"
        return 0
    }



    putserv "mode $chan +imVk lock"


}


proc do_unlock_mode {nick ushost handle chan text} {

    if {![botisop $chan]} {
        putserv "privmsg $chan :/<pssst!/>  I'm not op'd  "
        return 0
    }

    if {![isop $nick $chan]} {
        putserv "privmsg $chan :Sorry $nick, but you are not op'd in $chan right now"
        return 0
    }


    putserv "mode $chan -imVk lock"

}


if {![info exists clonescanner_running]} {
    timer $scn(time) clonescan:timer
    set clonescanner_running 1
}


proc scanner {nick host hand chan arg} {
    global scn
    array set clones [list]
    clonescan:act $chan $nick $hand 0 0
}

proc clonescan:timer {} {
    global scn
    set type 1
    set channels ""
    foreach chan [channels] {
        if {[validchan $chan] && [channel get $chan clonescan]} {
            lappend channels $chan
        }
    }
    if {$channels != ""} {
        clonescan:act $channels "nick" "chan1" 1 0
    }
}

proc clonescan:act {channels nick hand type counter} {
    global scn botnick
    set chan [lindex $channels $counter]
    set cc [expr $counter + 1]
    set found_clones 0
    set found_mask ""
    set theclones ""
    array set clones [list]
    if {$chan != ""} {
        set replace(%chan%) $chan
        foreach user [chanlist $chan] {
            set host [string tolower [lindex [split [getchanhost $user $chan] @] 1]]
            if {[string match "*undernet.org*" $host]} {
                continue
            }
            set replace(%host%) $host
            lappend clones($host) $user
        }
        foreach clone [array names clones] {
            set userlist [join $clones($clone)]
            if {[llength [split $userlist]] >= $scn(maxclone)} {
                set found_clones 1
                lappend found_mask $clone
                lappend theclones $clones($clone)
                if {$type == "0"} {
                    putserv "PRIVMSG $nick :We Found [llength [split $userlist]] clones on $chan from the host $clone. these are: [join $clones($clone) ", "]"
                }
            }
        }
        if {$found_clones == "1"} {
            if {$type == "1"} {
                putserv " @$chan :[llength [split $theclones]] $found_mask. These are: [join $theclones " ,"]"
            }
            if {$scn(what) == "1"} {
                foreach m $found_mask {
                    set mask "*!*@$m"
                    set replace(%chan%) $chan
                    set reason [string map [array get replace] $scn(reason)]
                    newchanban $chan $mask $botnick $reason $scn(btime)
                }
            }
        }
    }
    if {([lindex $channels $cc] != "") && ($type == "1")} {
        utimer 5 [list clonescan:act $channels $nick $hand $type $cc]
    }
    if {($type == "0") && ($found_clones == "0")} {
        putserv "PRIVMSG $chan :\005\[BT\]\005 We didn't find clones on $chan."
    }
}


proc massk {nick host hand chan var} {
    global botnick
    if {$var != ""} { set reason $var } else { set reason "cleaning up channel" }
    if {[isop $botnick $chan]} {
        putlog "masskick activated on $chan by $nick!"
        putquick "MODE $chan +im"
        timer 2 "puthelp \"MODE $chan -im\""
        foreach user [chanlist $chan] {
            if {![isop $user $chan] && ![matchattr [nick2hand $user $chan] b|b $chan] && ![matchattr [nick2hand $user $chan] o|o $chan]} {
                putkick $chan $user $reason
            }
        }
    } else { puthelp "NOTICE $nick :Gimme ops first!" }
}

putlog "lockdown.tcl Created By ComputerTech and BLaCkShaDoW Loaded Successfully"

##########################################################################################################################################
#CREATED BY COMPUTERTECH AND BLACKSHADOW
##########################################################################################################################################