,
bind pub - !ban banned #PROC proc banned {nick uhand host chan text} { if {![isop $nick $chan]} {return 0} putquick "samode $chan +b $text" putquick "privmsg $chan : $text Basariyla Banlandi $nick" } 

bind pub - !ban msg_silence
proc msg_silence {nick uhost handle chan arg} {
global botnick
set person [lindex $arg 0]
set mask "[string range [lindex [split [getchanhost $person $chan] "@"] 1] 0 end]"
if {$person == $botnick} {return}
if {[isop $nick $chan] || [ishalfop $nick $chan] || [onchan $nick "#op"]} {
if {![ishalfop $person $chan] && ![isop $person $chan]} {
putquick "PRIVMSG IRC mode $chan +b ~q:[getchanhost $person $chan]"
putquick "NOTICE $person Kanal kurallarına uymadığınız tespit edildi. IP'niz banlandı."
putquick "PRIVMSG #bilgi $chan kanalında *****$person***** nickli üyeye -----$nick----- tarafından !ban komutu uygulandı."
}
}
}

bind pub -|- .b pub:ban

proc pub:ban {nick host hand chan text} {

    set chan [string tolower $chan]
    if {$chan == "#mainchan" || $chan == "#staffchannel" } {
        if {![onchan $nick #help]} { return }
        set users [list]
        set umasks [list]
        set text [string trim $text]
        if { $text eq "" } { set text $nick }
        set text [split $text]
        set last_el [lindex $text end]

        ## determine if last element is a number. If it is,  use it as ban time in minutes.  If it is not, then default bant time is 5 minutes.
        if {[string is digit $last_el]} {
            set text [lrange $text 0 end-1]
            set ban_time $last_el
        } else {
            set ban_time 5
        }

        foreach user $text {

            if {![onchan $user #mainchan]} {
                putserv "NOTICE $nick $user is not on channel #mainchan"
            } elseif {[isop $user #mainchan]} {
                putserv "notice $nick :$user is op on #mainchan "
            } else {
                if {[onchan $user #staffchannel]} {
                    putserv "NOTICE $nick $user is on channel #staffchannel dont ban him/her"
                }
                if {[set chost [getchanhost $user #mainchannel]] ne ""} {
                    switch -glob -- $chost {
                        {*.irccloud.com} - {*.mibbit.com} - {*.kiwiirc.com} - {*.5A29D2BF.IP}  {
                            set mask2x *![lindex [split $chost @] 0]@*
                        }
                        {default} {
                            set mask2x [maskhost "$user!$chost" 2]
                        }

                    }
                    lappend users $user
                    lappend umasks $mask2x

                }
            }
        }
        set count [llength $umasks]
        stackBans3a #mainchannel [join $umasks] 12
        stackvoices31x #mainchannel [join $umasks] 12
        after [expr $ban_time*1000*60] [list stackBans4a #mainchannel [join $umasks] 12 ]
    }

 }