eski nicke geçme tcl - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

unpainful · 17 Mart 2016, 22:06

PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!


bind pub - !off off

proc off {nick uhand host chan text} {

  global botnick dj

  if {[string match -nocase "#DJ" $chan]} {

    putquick "chghost $nick $dj(host)"

    putquick "chgident $nick $dj(ident)"

    putquick "chgname $nick $dj(name)"

    putquick "operserv raw svsmode $nick +Wq :1"

    putquick "operserv raw svsnick $nick $nick :1"

  }

}

Bu tcl kodlarına göre , DJ takısı olan kişi !off yaptığında tekrar nasıl orjinal nickini alabilir?

putquick "operserv raw svsnick DJ'$nick $nick :1" denedim ama pek başarılı olamadım.

rascoLn · 18 Mart 2016, 00:33

putquick "operserv raw svsnick $nick [string map -nocase {"DJ_" ""} $nick] :1"

dj öneki olarak "DJ_" yi kullandım sen sunucunda hangi öneki kullanıyorsan onu yaz oraya o sekilde dene..

unpainful · 18 Mart 2016, 16:58

rascoLn Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

putquick "operserv raw svsnick $nick [string map -nocase {"DJ_" ""} $nick] :1"

dj öneki olarak "DJ_" yi kullandım sen sunucunda hangi öneki kullanıyorsan onu yaz oraya o sekilde dene..

Teşekkür ediyorum deneyeceğim , birde !ignore nick komutunu uyguladığımızda !istek yapan nicki engelleyebilirmiyiz radyoda @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]?

rascoLn · 18 Mart 2016, 22:59

İGNORE PROSEDÜRÜ (Karalisteye ekleme)

PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!


bind pub - !ignore engelle
proc engelle {nick host handle chan text} {
if {[llength $text] eq 1 & [onchan $text $chan] & [onchan $nick "#dj"]} {
set dosya [open "nickler.txt" a]
puts $dosya $text
close $dosya
putquick "privmsg #dj :\002 $text \002karalisteye eklendi.."
} 
}

DEIGNORE PROSEDÜRÜ (Karalisteden çıkarma)

PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!


bind pub - !deignore engelac
proc engelac {nick host handle chan text} {
if {[llength $text] eq 1 & [onchan $nick "#dj"]} {
set nickdosyasi [open "nickler.txt" r]
set nicks [split [read -nonewline $nickdosyasi] \n]
close $nickdosyasi
set nicki [lsearch -nocase $nicks $text]
set buldegis [lreplace $nicks $nicki $nicki]
set olustur [open "nickler.txt" w]
puts $olustur [join $buldegis "\n"]
close $olustur
putquick "privmsg #dj :\002 $text \002karalisteden çıkartıldı.."
}
}

ISTEK PROSEDURUNDE ISTEK YOLLANMADAN ONCE EKLENECEK KOD :

PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!


set nickdosyasi [open "nickler.txt" r]
set nicks [split [read -nonewline $nickdosyasi] \n]
close $nickdosyasi
set uyari "Nickiniz istek gönderimi için engellenmiştir.."
if {[lsearch -nocase $nicks $nick] > -1]} { putquick "notice $nick : $uyari"; return }

+ Kanal yerlerini kendi kanalınıza göre ayarlayınız..
+ lsearch -nocase komutu TCL8.5 ve üstü versionlarda çalışmaktadır bilginize...

unpainful · 18 Mart 2016, 23:19

rascoLn Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

İGNORE PROSEDÜRÜ (Karalisteye ekleme)

PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!


bind pub - !ignore engelle

proc engelle {nick host handle chan text} {

if {[llength $text] eq 1 & [onchan $text $chan] & [onchan $nick "#dj"]} {

set dosya [open "nickler.txt" a]

puts $dosya $text

close $dosya

putquick "privmsg #dj :\002 $text \002karalisteye eklendi.."

} 

}

DEIGNORE PROSEDÜRÜ (Karalisteden çıkarma)

PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!


bind pub - !deignore engelac

proc engelac {nick host handle chan text} {

if {[llength $text] eq 1 & [onchan $nick "#dj"]} {

set nickdosyasi [open "nickler.txt" r]

set nicks [split [read -nonewline $nickdosyasi] \n]

close $nickdosyasi

set nicki [lsearch -nocase $nicks $text]

set buldegis [lreplace $nicks $nicki $nicki]

set olustur [open "nickler.txt" w]

puts $olustur [join $buldegis "\n"]

close $olustur

putquick "privmsg #dj :\002 $text \002karalisteden çıkartıldı.."

}

}

ISTEK PROSEDURUNDE ISTEK YOLLANMADAN ONCE EKLENECEK KOD :

PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!


set nickdosyasi [open "nickler.txt" r]

set nicks [split [read -nonewline $nickdosyasi] \n]

close $nickdosyasi

set uyari "Nickiniz istek gönderimi için engellenmiştir.."

if {[lsearch -nocase $nicks $nick] > -1]} { putquick "notice $nick : $uyari"; return }

+ Kanal yerlerini kendi kanalınıza göre ayarlayınız..
+ lsearch -nocase komutu TCL8.5 ve üstü versionlarda çalışmaktadır bilginize...

Teşekkür ederim @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] fakat ignore kaldırma çalışmıyor malesef ve en sonki kodu nereye eklememiz gerek?

rascoLn · 19 Mart 2016, 11:55

deignore çalıişıyor fakat attığım postun sonundaki yazıyı okumadınız TCL8.5 ve üzeri versionlarda çalışacak komutu belirtmişim orda o yuzden ignore kaldırma çalışmamıştır sizde.

Neise o komutun amacı farzedelim nickler.txt içinde "unpainful" nicki var ben silme işlemi yaparken "uNPainFuL" yazdım büyük küçük ayrımı yapmadan o nicki yakalayıp silmesi içindi.

Şimdi vericeğim kodda çalışacaktır fakat büyük küçük uyumsuz olur buna dikkat edelim aynısını yazmak zorunda kalacaksınız..

deignore prosedüründe bu satırı :

PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!


set nicki [lsearch -nocase $nicks $text]

Şu satırla değiştir:

PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!


set nicki [lsearch -exact $nicks $text]

Diğer sorunuza gelirsek kullandığınız botun tcl sini bilmediğim için o şekilde yazdım
son kodları. Tcl de !istek komutunu çalıştıran prosedürün icinde kullanacaksınız o kodu.

!istek yazdığı an verdiğim sorgu devreye girecek nicki varsa listede uyarıyı gösterecek..

Yine o kodda bu satırı:
if {[lsearch -nocase $nicks $nick] > -1]} { putquick "notice $nick : $uyari"; return }
Şu satırla değiştir:
if {[lsearch -exact $nicks $nick] > -1]} { putquick "notice $nick : $uyari"; return }

unpainful · 19 Mart 2016, 19:38

Alıntı:

bind pub - !istek istekoff
proc istekoff {nick uhost hand chan text} {
setudef flag radyocmd
if {[string match -nocase "#DJ" $chan]} {
set komut [lindex $text 0]
if {$komut == ""} { putquick "PRIVMSG #DJ :Kullanımı !istek aç/kapat şeklindedir."; return 0 }
if {[string match -nocase "ac" $komut]} { channel set $chan +radyocmd; putquick "PRIVMSG #DJ Radyo İstekleri Kabul Edilecek."; return 0 }
if {[string match -nocase "kapat" $komut]} { channel set $chan -radyocmd; putquick "PRIVMSG #DJ Radyo İstekleri Reddedilecek."; return 0 }
}
if {[string match -nocase "#Radyo" $chan]} {
if {[lsearch -exact [channel info #DJ] +radyocmd] != -1} {
putquick "PRIVMSG #Radyo :2İsteğiniz DJ'lerimize İletilmiştir 4$nick ,2teşekkürler."
putquick "PRIVMSG #DJ 6G E L E N İ S T E K"
putquick "PRIVMSG #DJ 4----------------------------------------------------"
putquick "PRIVMSG #DJ 2İstek:1 $text "
putquick "PRIVMSG #DJ 4----------------------------------------------------"
putquick "PRIVMSG #DJ 2İstekte Bulunan Kullanıcı: 1 $nick"
putquick "PRIVMSG #DJ 4----------------------------------------------------"
}
if {[lsearch -exact [channel info #DJ] +radyocmd] == -1} {
putquick "PRIVMSG #Radyo Üzgünüz Dj'imiz İstekleri Kabul Etmemektedir $nick."

}
}
}

Istek tcl bu şekilde fakat belirttiğiniz kodu ekleyince hiç bir şekilde istek almıyor @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

rascoLn · 19 Mart 2016, 23:58

PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!


bind pub - !istek istekoff
proc istekoff {nick uhost hand chan text} {
  setudef flag radyocmd
  if {[string match -nocase "#DJ" $chan]} {
    set komut [lindex $text 0]
    if {$komut == ""} { putquick "PRIVMSG #DJ :Kullanımı !istek aç/kapat şeklindedir."; return 0 }
    if {[string match -nocase "ac" $komut]} { channel set $chan  +radyocmd; putquick "PRIVMSG #DJ Radyo İstekleri Kabul Edilecek.";  return 0 }
    if {[string match -nocase "kapat" $komut]} { channel set $chan  -radyocmd; putquick "PRIVMSG #DJ Radyo İstekleri Reddedilecek."; return 0  }
    }
    if {[string match -nocase "#Radyo" $chan]} {
    if {[lsearch -exact [channel info #DJ] +radyocmd] != -1} {
        set nickdosyasi [open "nickler.txt" r] 
        set nicks [split [read -nonewline $nickdosyasi] \n] 
        close $nickdosyasi 
        set uyari "Nickiniz istek gönderimi için engellenmiştir.." 
    if {[lsearch -exact $nicks $nick] ne -1]} { putquick "notice $nick : $uyari"; return }  
      putquick "PRIVMSG #Radyo :2İsteğiniz DJ'lerimize İletilmiştir 4$nick ,2teşekkürler."
    putquick "PRIVMSG #DJ 6G E L E N  İ S T E K"
    putquick "PRIVMSG #DJ 4----------------------------------------------------"
    putquick "PRIVMSG #DJ 2İstek:1 $text "
    putquick "PRIVMSG #DJ 4----------------------------------------------------"
    putquick "PRIVMSG #DJ 2İstekte Bulunan Kullanıcı: 1 $nick"
    putquick "PRIVMSG #DJ 4----------------------------------------------------"
    }
    if {[lsearch -exact [channel info #DJ] +radyocmd] == -1} { 
    putquick "PRIVMSG #Radyo Üzgünüz Dj'imiz İstekleri Kabul Etmemektedir $nick."  
 
    }
  }
}

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Nicke Göre Ban	eLsukr	mIRC Scripting Sorunları	5	07 Aralık 2012 23:30
nickim değiştiğinde tekrar oto eski nicke gecsin	Dangerous123	mIRC Scripting Sorunları	6	11 Aralık 2011 13:13
tek tıkla nıck op alıp ban atıp eski nicke gecme tüm kanalalrda	muratt_aziz	mIRC Scripting Hazır Kodlar	0	02 Ekim 2009 11:29
Stats ta Nicke Gline	BeSt!	mIRC Scripting Sorunları	20	18 Nisan 2008 02:18
Nicke geri dönüş	MavipikSeL	mIRC Scripting Sorunları	6	16 Ekim 2006 08:03

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.