IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
  sohbet

2Beğeni(ler)
  • 1 Post By Bülbül
  • 1 Post By Albo

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 30 Ağustos 2019, 17:54   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Eggdrop !ban Nick yerine hosta ban attırmak




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
, 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.

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Alt 30 Ağustos 2019, 18:10   #2
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Eggdrop !ban Nick yerine hosta ban attırmak




ReaXiOn Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
, 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:   Kodu kopyalamak için üzerine çift tıklayın!
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.

 
Alıntı ile Cevapla

Alt 01 Mayıs 2022, 23:33   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Eggdrop !ban Nick yerine hosta ban attırmak




Hocam ChatLik.Com sunucusuna bakabilirmisiniz. Rica etsem

 
Alıntı ile Cevapla

Alt 15 Mayıs 2022, 21:41   #4
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Re: Eggdrop !ban Nick yerine hosta ban attırmak




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
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

 
Alıntı ile Cevapla

Cevapla

Etiketler
tcl yardim


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 
Seçenekler
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Eggdrop badnick.TCL !komut nick txt'den okuyor. :) soLyanim Eggdrop, NeoStats, BNC 12 31 Mart 2024 17:34
Web Nick Kayit Sistemi (Eggdrop + PHP for IRCServices) v1 :p ¿ Eggdrop, NeoStats, BNC 1 29 Ağustos 2013 16:45
eggdrop nick kayit etmesi Tupac Eggdrop, NeoStats, BNC 5 04 Haziran 2013 03:19
eggdrop nick deişme snapcstrike TCL Scriptler 1 17 Mart 2009 00:53
Eggdrop Nick Şifre Sorunu hiLazz Eggdrop, NeoStats, BNC 12 15 Haziran 2008 21:15