Code:

#Its Made To Work With The Channel Modes +Dm#Its To Prevent Join/Part Flood From Botnets and Lame Script Kiddow#My info: xplorer@live.ca - irc.undernet.org - #mircscripting  #This Tcl *ONLY* Work on ONE (1) Channel#Enter the name below set modeD(channel) "#CHANGE_ME_NOW" #Set The mode to give, I SUGGEST you to keep it to "v"  set modeD(mode) "v" # Binds bind time - "* * * *" modeD:timebind raw - 355 modeD:raw353bind raw - 315 modeD:raw353bind raw - 352 modeD:raw352 proc modeD:raw352 {from raw arg} { global modeD     set host [lindex [split $arg] 3]     set host "*!*@$host"     set nick [lindex [split $arg] 5]if { [isban $host $modeD(channel)] || [isban [maskhost $host] $modeD(channel)] || [isban $host]|| [isban [maskhost $host]] } {#If Reached here The user is  in blacklist host!return}putquick "MODE $modeD(channel) +v $nick"        putcmdlog "MODE $modeD(channel) +v $nick" }  proc modeD:time {min hour day month year} {    global modeD    if {[validchan $modeD(channel)]} {        if {[regexp {D|d} [lindex [getchanmode $modeD(channel)] 0]]} {            putquick "NAMES -d $modeD(channel)" -next    putcmdlog "Doing -d "        }    }} proc modeD:raw353 {from raw arg} {    global modeDputcmdlog "I am in modeD:raw353"    set channel [lindex [split $arg] 2]putcmdlog "$arg"    if {[set mode $modeD(mode)] == ""} {        set mode "v"    }    if {![string equal -nocase $channel $modeD(channel)]} { return }    putcmdlog "$arg"    set list2 [lindex [split $arg :] 1]    putcmdlog "$list2"    foreach user [lindex [split $arg :] 1] {        if {$user != "" && (![onchan $user $channel] || (![isop $user $channel] && ![isvoice $user $channel]))} {    putquick "WHO $user"        }    }} #########putlog "Delay Voice +Dm XploreR@Live.Ca"