Eggdrop badnick.TCL !komut nick txt'den okuyor. :) - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

soLyanim · 30 Mart 2015, 17:19

#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|o !yasakla yasakla 
proc yasakla {nick host hand chan text} { 
    set badnick [join [lindex [split $text] 0]] 
    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|o !yasaklama yasaklama 
proc yasaklama {nick host hand chan text} { 
    set yasaklama [join [lindex [split $text] 0]] 
    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.

No_FeaR · 20 Nisan 2015, 21:40

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|o !yasakla yasakla 
proc yasakla {nick host hand chan text} { 
    set badnick [join [lindex [split $text] 0]] 
    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|o !yasaklama yasaklama 
proc yasaklama {nick host hand chan text} { 
    set yasaklama [join [lindex [split $text] 0]] 
    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 ?

rascoLn · 22 Nisan 2015, 17:52

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

alphae · 10 Ağustos 2015, 21:58

admin ops denedim komut calismiyor

alphae · 10 Ağustos 2015, 21:59

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

rascoLn · 11 Ağustos 2015, 04:49

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

alphae · 11 Ağustos 2015, 18:57

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

rascoLn · 11 Ağustos 2015, 20:25

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

alphae · 11 Ağustos 2015, 21:46

zaten op olanlar deniyo

alphae · 11 Ağustos 2015, 21:49

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

Seçenekler
Yazdırılabilir şekli göster Sayfayı E-Mail olarak gönder
Stil
Normal Hybrid-Şeklinde gösterime geç Ağaç şeklinde gösterime geç

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

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

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.