IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası - Eggdrop !ban Nick yerine hosta ban attırmak

- Eggdrop, NeoStats, BNC (https://www.ircforumlari.net/eggdrop-neostats-bnc/)

- - Eggdrop !ban Nick yerine hosta ban attırmak (https://www.ircforumlari.net/eggdrop-neostats-bnc/834700-eggdrop-ban-nick-yerine-hosta-ban-attirmak.html)

Eggdrop !ban Nick yerine hosta ban attırmak

Kod:

,
 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" }

yukarıdaki tcl de ban i nick e atıyor. user nick deiştirip yenien giriyor. nick yerine host a ban attırabilirmiyim? nasıl düzenleyebilirim acaba.

Cevap: Eggdrop !ban Nick yerine hosta ban attırmak

Alıntı:

ReaXiOn Nickli Üyeden Alıntı (Mesaj 1042145420)

Kod:

,
 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" }

yukarıdaki tcl de ban i nick e atıyor. user nick deiştirip yenien giriyor. nick yerine host a ban attırabilirmiyim? nasıl düzenleyebilirim acaba.

Kod:

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ı."

}

}

}

#op kanalında olan kişiler bu kodu kullanabilir
yukarıdaki kodu kullanabilirsin #op kanalı yazan yeri kendine göre değiştirebilirsin.

Cevap: Eggdrop !ban Nick yerine hosta ban attırmak

Hocam ChatLik.Com sunucusuna bakabilirmisiniz. Rica etsem

Re: Eggdrop !ban Nick yerine hosta ban attırmak

Kod:

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 ]

    }
 

 }

try this