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

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?

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)

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

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.