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

5Beğeni(ler)

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 30 Mart 2015, 17:19   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Eggdrop badnick.TCL !komut nick txt'den okuyor. :)




#sorf kanalında !yasakla nick yapıldığın nickleri scripts/nicklist.txt e kayıt eder ve burada kayıtlı olan nickler Eggdrop bot'un olduğu kanala girdiğinde bot nicki banlar ve #cinsellik odasına sajoinler.

Komutlar !yasakla nick (nick ekler.)
!yasaklama nick (txt'de ki nicki siler.)

txt'yi elle oluşturmaktan ziyade sunucuya giren badnicklere göre olusturmanız mesela badnick1 sunucunuza girdi
!yasakla badnick1 diye listeye almanız daha iyidir.

En azından txt'de gereksiz nick birikintisi olmaz.


PHP Kod:   Kodu kopyalamak için üzerine çift tıklayın!
bind join "% *" wscom
proc wscom 
{nick uhost handle chan} { 
set nicklist "scripts/nicklist.txt" 
    
set opinfo [open $nicklist r
    
set lines [split [read -nonewline $opinfo] \n
close $opinfo 
    
foreach opcheck $lines 
        if {[
string match -nocase "$nick$opcheck]} { 
      
putquick "MODE $chan +b $nick"
      
putquick "KICK $chan $nick 4nickiniz global kanallara uygun degildir. /nick yeninick komutu ile nickinizi degistirebilirsiniz."
      
putquick "SAJOIN $nick #cinsellik"    
        


    } 



bind pub o|!yasakla yasakla 
proc yasakla 
{nick host hand chan text} { 
    
set badnick [join [lindex [split $text0]] 
    
set ops [open "scripts/nicklist.txt"
    
set nicks [split [read -nonewline $ops] \n
 
close $ops 
    
if {![llength $nicks]} { 
        
set ops [open "scripts/nicklist.txt" w
    } else { 
        
set ops [open "scripts/nicklist.txt" a
    } 
    foreach 
line $nicks 
        if {[
string match -nocase "$badnick$line]} { 
     
putquick "NOTICE $nick :$badnick yasakli listesine eklendi." 

        

    } 
 
puts $ops "$badnick
   
close $ops 


bind pub o|!yasaklama yasaklama 
proc yasaklama 
{nick host hand chan text} { 
    
set yasaklama [join [lindex [split $text0]] 
    
set ops [open "scripts/nicklist.txt"
    
set nicks [split [read -nonewline $ops] \n
 
close $ops 
    
if {![llength $nicks]} { 
   
putquick "NOTICE $nick :nick yasakli listesinden silindi." 
   
    

    
set line [lsearch -exact $nicks "$yasaklama
    
set badnicks [lreplace $nicks $line $line
    
set ops [open "scripts/nicklist.txt" w
    
puts $ops [join $badnicks "\n"
  
close $ops 


scripts/nicklist.txt eklemeyi unutmayın.

test etmek için irc.websohbet.com sunucusuna nickinizi badnickolarak girip deneyebilirsiniz.

tekrar belirtmekte fayda var.
Bot badnickleri sadece kendi olduğu kanallardan atar.
Daha geliştirilebilir bir şeylerde çıkarmaya çalışılabilir İF üzerinde.

İyi forumlar.

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları reklam ver Benimmekan Mobil Sohbet
Alt 20 Nisan 2015, 21:40   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Eggdrop badnick.TCL !komut nick txt'den okuyor. :)




soLyanim Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
#sorf kanalında !yasakla nick yapıldığın nickleri scripts/nicklist.txt e kayıt eder ve burada kayıtlı olan nickler Eggdrop bot'un olduğu kanala girdiğinde bot nicki banlar ve #cinsellik odasına sajoinler.

Komutlar !yasakla nick (nick ekler.)
!yasaklama nick (txt'de ki nicki siler.)

txt'yi elle oluşturmaktan ziyade sunucuya giren badnicklere göre olusturmanız mesela badnick1 sunucunuza girdi
!yasakla badnick1 diye listeye almanız daha iyidir.

En azından txt'de gereksiz nick birikintisi olmaz.


PHP Kod:   Kodu kopyalamak için üzerine çift tıklayın!
bind join "% *" wscom
proc wscom 
{nick uhost handle chan} { 
set nicklist "scripts/nicklist.txt" 
    
set opinfo [open $nicklist r
    
set lines [split [read -nonewline $opinfo] \n
close $opinfo 
    
foreach opcheck $lines 
        if {[
string match -nocase "$nick$opcheck]} { 
      
putquick "MODE $chan +b $nick"
      
putquick "KICK $chan $nick 4nickiniz global kanallara uygun degildir. /nick yeninick komutu ile nickinizi degistirebilirsiniz."
      
putquick "SAJOIN $nick #cinsellik"    
        


    } 



bind pub o|!yasakla yasakla 
proc yasakla 
{nick host hand chan text} { 
    
set badnick [join [lindex [split $text0]] 
    
set ops [open "scripts/nicklist.txt"
    
set nicks [split [read -nonewline $ops] \n
 
close $ops 
    
if {![llength $nicks]} { 
        
set ops [open "scripts/nicklist.txt" w
    } else { 
        
set ops [open "scripts/nicklist.txt" a
    } 
    foreach 
line $nicks 
        if {[
string match -nocase "$badnick$line]} { 
     
putquick "NOTICE $nick :$badnick yasakli listesine eklendi." 

        

    } 
 
puts $ops "$badnick
   
close $ops 


bind pub o|!yasaklama yasaklama 
proc yasaklama 
{nick host hand chan text} { 
    
set yasaklama [join [lindex [split $text0]] 
    
set ops [open "scripts/nicklist.txt"
    
set nicks [split [read -nonewline $ops] \n
 
close $ops 
    
if {![llength $nicks]} { 
   
putquick "NOTICE $nick :nick yasakli listesinden silindi." 
   
    

    
set line [lsearch -exact $nicks "$yasaklama
    
set badnicks [lreplace $nicks $line $line
    
set ops [open "scripts/nicklist.txt" w
    
puts $ops [join $badnicks "\n"
  
close $ops 


scripts/nicklist.txt eklemeyi unutmayın.

test etmek için irc.websohbet.com sunucusuna nickinizi badnickolarak girip deneyebilirsiniz.

tekrar belirtmekte fayda var.
Bot badnickleri sadece kendi olduğu kanallardan atar.
Daha geliştirilebilir bir şeylerde çıkarmaya çalışılabilir İF üzerinde.

İyi forumlar.

Merhaba...
Bunu Hangi Kanalda Yapıyoruz ?
Yada bi Yönetim Odası Belirliyebilir muyuz..

Mesela #GlobalOP Kanalımız |> Sadece &-@`ler Yasaklayabilse Yapılabilir mi ?

 
Alıntı ile Cevapla

Alt 22 Nisan 2015, 17:52   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Eggdrop badnick.TCL !komut nick txt'den okuyor. :)




Duzeltilmesi gereken yer

Bu kısmı :
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
set ops [open "scripts/nicklist.txt"]



Şu şekilde değiştir:

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
set ops [open "scripts/nicklist.txt" r]



Eğer istenilen bir kanal içerisinde komut uygulanıcaksa kanal değişkeni oluşturursun..

ORNEK :
set kanal "kanalismi"

sonrasında procedurumuzden gelen kanalı yani "chan" verisini oluşturduğumuz kanal değişkeniyle aynımı eşitmi diye sorgularsınız

ORNEK :
proc blabla {nick host hand chan text} {
global kanal
if {$chan == $kanal} {
eşitse burdaki komutları uygular
} else {
eşit değilse burdakileri uygular
}
}

kırmızı ile belirttiğim sorguda eşitliği aradık eğer eşitlik sağlandı ise sorgumuzun içine gir dedik. süslü parantezlere dikkat edelim eger içerideki komutların sadece o kanalda çalışmasını istiyorsak tümünü bu sorgunun içine almamız gerekmektedir..

Hanqi kanalda komutun çalışacağını ayarladıktan sonra op veya sop arkadaşların sadece bu komutu kullanmasını istiyoruz dersek komutumuz;

ORNEK: [isop $nick $chan]

Yani kanal üstünde nick op ise demek $chan yerine yukarıda olusturdugumuz "kanal" değişkenini atarsak sadece o kanaldakilere bakılır yani [isop $nick $kanal]...

Ama o kanaldakiler zaten op ben sadece o kanaldakiler kullanabilsin istiyorum denirse bu seferde ;

ORNEK : [onchan $nick $chan]

kodunu kullanmanız gerekecek. Burdada nick o kanal üstünde ise kullanabilsin diyoruz.


Bu tür kodları sorgu içerisinde kullanınız . IF , ELSEIF, ELSE


 
Alıntı ile Cevapla

Alt 10 Ağustos 2015, 21:58   #4
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Eggdrop badnick.TCL !komut nick txt'den okuyor. :)




admin ops denedim komut calismiyor

 
Alıntı ile Cevapla

Alt 10 Ağustos 2015, 21:59   #5
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Eggdrop badnick.TCL !komut nick txt'den okuyor. :)




!yasakla _cam
sekilde yaptim ama komut hic bir oda calismiyor..

 
Alıntı ile Cevapla

Alt 11 Ağustos 2015, 04:49   #6
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Eggdrop badnick.TCL !komut nick txt'den okuyor. :)




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
bind join - "*" wscom proc wscom {nick uhost handle chan} { if { [file isfile "scripts/nicklist.txt"] } { set opinfo [open "scripts/nicklist.txt" r] set lines [read $opinfo] close $opinfo if { [lsearch -exact $lines $nick] > -1 } { putquick "MODE $chan +b $nick" putquick "KICK $chan $nick nickiniz global kanallara uygun degildir. /nick yeninick komutu ile nickinizi degistirebilirsiniz." putquick "SAJOIN $nick #cinsellik" } } } bind pub - !yasakla yasakla proc yasakla {nick host hand chan text} { if {![isop $nick $chan]} { return 0 } if { [file isfile "scripts/nicklist.txt"] } { set badnick [lindex $text 0] set ops [open "scripts/nicklist.txt" r] set nicks [read $ops] close $ops if { [lsearch -exact $nicks $badnick] eq -1 } { set ops [open "scripts/nicklist.txt" a] puts $ops " $badnick" close $ops putquick "NOTICE $nick :$badnick yasakli listesine eklendi." } else { putquick "NOTICE $nick :$badnick nicki yasakli listesinde mevcut." } } else { set badnick [lindex $text 0] set ops [open "scripts/nicklist.txt" w] puts $ops " $badnick" close $ops putquick "NOTICE $nick :$badnick yasakli listesine eklendi." } } bind pub - !yasaklama yasaklama proc yasaklama {nick host hand chan text} { if {![isop $nick $chan]} { return 0 } if { [file isfile "scripts/nicklist.txt"] } { set yasaklama [lindex $text 0] set ops [open "scripts/nicklist.txt" r] set nicks [read $ops] close $ops if { [lsearch -exact $nicks $yasaklama] > -1 } { set line [lsearch -exact $nicks $yasaklama] set badnicks [lreplace $nicks $line $line] set ops [open "scripts/nicklist.txt" w] puts $ops $badnicks close $ops putquick "NOTICE $nick :$yasaklama yasakli listesinden silindi." } else { putquick "NOTICE $nick :$yasaklama yasakli listesinde mevcut değil." } } else { close [open "scripts/nicklist.txt" w] putquick "NOTICE $nick :nicklist.txt dosyasi yoktu olusturuldu." } }



Konu rascoLn tarafından (11 Ağustos 2015 Saat 13:30 ) değiştirilmiştir.
 
Alıntı ile Cevapla

Alt 11 Ağustos 2015, 18:57   #7
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Eggdrop badnick.TCL !komut nick txt'den okuyor. :)




ise yaramiyor ops odasinda adminde global odada !yasaklama fotomodel yaptim olmadi..

rascoLn 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 join - "*" wscom proc wscom {nick uhost handle chan} { if { [file isfile "scripts/nicklist.txt"] } { set opinfo [open "scripts/nicklist.txt" r] set lines [read $opinfo] close $opinfo if { [lsearch -exact $lines $nick] > -1 } { putquick "MODE $chan +b $nick" putquick "KICK $chan $nick nickiniz global kanallara uygun degildir. /nick yeninick komutu ile nickinizi degistirebilirsiniz." putquick "SAJOIN $nick #cinsellik" } } } bind pub - !yasakla yasakla proc yasakla {nick host hand chan text} { if {![isop $nick $chan]} { return 0 } if { [file isfile "scripts/nicklist.txt"] } { set badnick [lindex $text 0] set ops [open "scripts/nicklist.txt" r] set nicks [read $ops] close $ops if { [lsearch -exact $nicks $badnick] eq -1 } { set ops [open "scripts/nicklist.txt" a] puts $ops " $badnick" close $ops putquick "NOTICE $nick :$badnick yasakli listesine eklendi." } else { putquick "NOTICE $nick :$badnick nicki yasakli listesinde mevcut." } } else { set badnick [lindex $text 0] set ops [open "scripts/nicklist.txt" w] puts $ops " $badnick" close $ops putquick "NOTICE $nick :$badnick yasakli listesine eklendi." } } bind pub - !yasaklama yasaklama proc yasaklama {nick host hand chan text} { if {![isop $nick $chan]} { return 0 } if { [file isfile "scripts/nicklist.txt"] } { set yasaklama [lindex $text 0] set ops [open "scripts/nicklist.txt" r] set nicks [read $ops] close $ops if { [lsearch -exact $nicks $yasaklama] > -1 } { set line [lsearch -exact $nicks $yasaklama] set badnicks [lreplace $nicks $line $line] set ops [open "scripts/nicklist.txt" w] puts $ops $badnicks close $ops putquick "NOTICE $nick :$yasaklama yasakli listesinden silindi." } else { putquick "NOTICE $nick :$yasaklama yasakli listesinde mevcut değil." } } else { close [open "scripts/nicklist.txt" w] putquick "NOTICE $nick :nicklist.txt dosyasi yoktu olusturuldu." } }



 
Alıntı ile Cevapla

Alt 11 Ağustos 2015, 20:25   #8
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Eggdrop badnick.TCL !komut nick txt'den okuyor. :)




Botun olduğu kanalda op olan kisiler tarafından uygulanır

 
Alıntı ile Cevapla

Alt 11 Ağustos 2015, 21:46   #9
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Eggdrop badnick.TCL !komut nick txt'den okuyor. :)




zaten op olanlar deniyo

 
Alıntı ile Cevapla

Alt 11 Ağustos 2015, 21:49   #10
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Eggdrop badnick.TCL !komut nick txt'den okuyor. :)




21:48] <@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]> !yasaklama camda

 
Alıntı ile Cevapla

Cevapla

Etiketler
badnicktcl, eggdrop, komut, nick, okuyor, txtden


Konuyu Toplam 4 Üye okuyor. (0 Kayıtlı üye ve 4 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
!badnick ekle nick ( Kill + nick değiştirme şeklinde ) Heavenly mIRC Scripting Sorunları 20 09 Mayıs 2022 23:25
Eggdrop Komut Soru Botu oPtimiSt TCL Scriptler 0 19 Ocak 2012 11:03
BadNick, Bad Nick geniune mIRC Scripting Sorunları 6 01 Mart 2009 03:41
Eggdrop 'uma komut yazdırmak ßaşkentli Eggdrop, NeoStats, BNC 3 26 Şubat 2008 03:13
çalıştıramadım bir komut mode nick +d kurugaddere mIRC Scripting Sorunları 8 20 Kasım 2007 13:12