!ban-!unban-!kick-!op-!deop vs... Kodları - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

CanCeL · 31 Ekim 2007, 00:11

İşe yarar diye düşündüm bu kodu yazdım.
Bu komutları sadece oda Operatorleri kullanabilir.

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

###########################
# Hazırlayan by: CanCeL
###########################
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"
} 
bind pub - !unban ubanned
#PROC
proc ubanned {nick uhand host chan text} {
if {![isop $nick $chan]} {return 0}
putquick "samode $chan -b $text"
putquick "privmsg $chan : $text Basariyla Banı Kaldırıldı $nick"
}
bind pub - !kick kicked
#PROC
proc kicked {nick uhand host chan text} {
if {![isop $nick $chan]} {return 0}
putquick "kick $chan $text Aykırı Davranış!"
putquick "privmsg $chan : $text Odadan uzaklastırıldı $nick"
}
bind pub - !kb kban
#PROC
proc kban {nick uhand host chan text} {
if {![isop $nick $chan]} {return 0}
putquick "samode $chan +b $text"
putquick "kick $chan $text Aykırı Davranış!"
putquick "privmsg $chan : $text Odadan banlanıp uzaklastırıldı $nick"
}
bind pub - !voice vops
#PROC
proc vops {nick uhand host chan text} {
if {![isop $nick $chan]} {return 0}
putquick "samode $chan +v $text"
putquick "privmsg $chan : $text Voice konumuna cıkarıldı. $nick"
} 
bind pub - !devoice dvop
#PROC
proc dvop {nick uhand host chan text} {
if {![isop $nick $chan]} {return 0}
putquick "samode $chan -v $text"
putquick "privmsg $chan : $text Voice konumundan indirildi. $nick"
} 
bind pub - !op top
#PROC
proc top {nick uhand host chan text} {
if {![isop $nick $chan]} {return 0}
putquick "samode $chan +o $text"
putquick "privmsg $chan : $text Operator Konumuna Cıkarıldı $nick"
} 
bind pub - !deop deop
#PROC
proc deop {nick uhand host chan text} {
if {![isop $nick $chan]} {return 0}
putquick "samode $chan -o $text"
putquick "privmsg $chan : $text Operator Konumundan Indirildi. $nick"
} 
bind pub - !temizle clear
#PROC
proc clear {nick uhand host chan text} {
if {![isop $nick $chan]} {return 0}
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :Oda Ekranı Temizlendi $nick !"
}

Komutlar:
!ban <nick>
!unban <nick>
!kick <nick>
!kb <nick>
!op <nick>
!deop <nick>
!voice <nick>
!devoice <nick>
!temizle

Botun daha hızlı işlem yapması için;

SHH'ye login olun ve;
cd egg*1*
cd src
cd mod
cd server.mod
pico server.c
Açılan dosyada
#define msgrate 2
satırını bulup
#define msgrate 0
Şeklinde değiştirip ctrl +x + y basarak (kaydeder) çıkıyorsunuz. Daha sonra:
cd
cd egg*1*
yazıp açılan dizinde sırasıyla
./configure
make config
make
make install

DipNot: Test ettim gayet güzel çalışıyor, CR'de kullanılan komutları ekledim (!ban-!unban) Unrealda kullanacak olanlar "samode $chan" yazan yerlere "os mode $chan" yapması yeterli olacak. Ayrıca botun !kb/kick gibi komutları kullanması icin odada op konumunda bulunması lazım ve operini açması lazım...
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Saygılar...

illegal_NicCK · 31 Ekim 2007, 17:48

Herbişeyine sağlık kanka. Güzel çalışma tebrikler.

SaW · 31 Ekim 2007, 21:35

Son dönemlerde TCL scriptingde de hazır tcllerin değil de bu şekilde iyi/kötü emek verilerek hazırlanmış TCL'lerin de artması beni sevindiriyor.. TCL scriptinge olan bu ilgi gerçekten bir "TCL sever" olarak beni mutlu ediyor..
Bunu yazan ve paylaşan arkadaşa tekrar teşeşkkürler, bu işler böyle başlar ve gelişir..
Şimdi bu kodu bizi eleştirelim (olumlu yönde, bişeyler öğrenmek adına..)
Parça parça kodu ele almak istiyorum..

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

proc banned {nick uhand host chan text} {
if {![isop $nick $chan]} {return 0} ;komutu yazana op değilse çalışma. Buraya kadar güzel.
Şimdi gelelim $text değerine.. !ban kelimesinden sonra gelen bütün kelimeleri kapsar.. Yani diyelimki !ban ahmet mehmet hasan yazdık.. ahmet nickine ahmet!*@* şeklinde ban koyacaktır.. O halde geliştirmek için neler yapabiliriz..
Diyelimki ip ye ban atmasını istiyoruz, o halde yapmamız gereken şu: Nickin kanaldaki hostunu getchanhost komutunu kullanarak almaya çalışacaz..
biz $text değerinin bir den fazla kelime olma ihtimaline karşın, birinci kelimesini banlanacak nick olarak alalım.. bunun için ise lindex komutunu kullanacaz.. Şimdi örneklerle gösterelim..
[lindex $text 0] dediğimiz zaman $text değerinin ilk değerini alır..
şimdi sıra getchanhost ile bu ilk değerin (nickin) kanaldaki hostunu alalım..
[getchanhost [lindex $text 0] $chan]
Böylece hostunu (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
masikinin ASDKAKLS.KJASDJKA.ASDJAJD.IP kısmını almış bulunuyoruz..)
Şimdi gelelim bunu banlamaya..
putquick "samode $chan +b $text"
Burayı putquick "mode $chan +b *!*@[getchanhost [lindex $text 0] $chan]"
Şekline çevirebiliriz..
Şimdi öğrenmek adına örneği genişletelim istiyorum..
Banlayınca kicklemekte lazım gelir
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Bu yüzden hani o $text değerindeki ilk ahmet değerinden sonrakileride kick nedeni olarak alalım.. yani bunu yazan kişi şöyle yazdı sayıyoruz : !ban ahmet sana yasak burası
"sana yasak burası" kick sebebi sayıyoruz. Peki bunu nasıl alacaz?
Bu kez bir başka komutla tanışıyoruz: lrange
lrange komutu bir aralık için kullanılır (lindex değerler kümesinde bir tek değer içindi..)
[lrange $text 1 end] bunu yazarsak (0 ilk değer içindi biz 1 kullandık) ikinci değerden başla en son değere kadar (en son değer dahil) al, demiş oluruz..
O halde öreniğimizde geçen !ban ahmet sana yasak burası koyu punta ile belirtiğim kısmı aldık..
Şimdi banladığımız kişiyi kickleyelim..

putquick "KICK $chan [lindex $text 0] [lrange $text 1 end]"

Şeklinde kanaldan kickledik..
O halde kodumuzun son görünümüne bakıp bir kaç ileri adıma daha gidecez..

proc banned {nick uhand host chan text} {
if {![isop $nick $chan]} {return 0}
putquick "mode $chan +b *!*@[getchanhost [lindex $text 0] $chan]"
putquick "KICK $chan [lindex $text 0] [lrange $text 1 end]"
}

Bu haliyle de kod hala yetersiz.. Geliştirmeye devam ediyoruz..
$text değerindeki ilk kelimeyi nick olarak algıla ve kanaldan hostunu al dedik.. Peki bu nick (ya da mask) kanalda değilse?
İşte bunun için if kullanmamız gerekecek.. Burada hem if nasıl kullanılır onu görecez ve hem bir iki yeni komutla daha tanışacaz..
Ne dedik? kanalda değilse.. Bunu da onchan komutuyla anlıyoruz..
Genel kullanımı [onchan $nick $chan] şeklindedir.. Burada bizim nick dediğimiz değer [lindex $text 0] idi.. öyleyse komutumuz [onchan [lindex $text $chan] olmalıdır.. Şimdi bunu if içine sokalım..
if {[onchan lindex $text $chan]} { komut...
Kullanım budur..
o halde kodun en son hali nedir?

proc banned {nick uhand host chan text} {
if {![isop $nick $chan]} {return 0}
if {[onchan [lindex $text 0] $chan]} {
putquick "mode $chan +b *!*@[getchanhost [lindex $text 0] $chan]"
putquick "KICK $chan [lindex $text 0] [lrange $text 1 end]"
}
}

Peki kanalda değilse? yani [onchan [lindex $text 0] $chan] değerinin olumsuz haliyse.. başına ! koyduğumuz hal yani..
ikinci bir if içine sokabiliriz veya bir kişi ya kanaldadır ya da değildir olacağı için bunların dışında manasına gelen else kullanabilir.. biz else kullanalım..

proc banned {nick uhand host chan text} {
if {![isop $nick $chan]} {return 0}
if {[onchan lindex $text $chan]} {
putquick "mode $chan +b *!*@[getchanhost [lindex $text 0] $chan]"
putquick "KICK $chan [lindex $text 0] [lrange $text 1 end]"
} else {
putquick "mode $chan +b [lindex $text 0]"
}
}

Şeklinde oluyor..

Tabi bütün bunları geliştirmek çok daha mümkün.. Bu sadece bir başlangıç olsun.. Alttaki diğer kodları da bu şekilde göstermek isterdim ama tek post altında çok uzun bir döküman olacağından okunmak için cazip olmayabilir..
Onları da bu postun ardından gelecek sorulara göre diğer postlarda ben ve diğer arkadaşımlarımla açıklamaya çalışırız..

Umarım faydalı olmuştur..

bLackdiamond · 28 Ocak 2008, 14:20

arkadaşlar bu tclye !+m !kill nick !zline gibi komutları nasıl ekleyebiliriz? Yardımcı olabilirmisiniz ?

pardon zline kill felan olmaz
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
oplar kullanacağı için af edersiniz ama
+m ve -m komutları için bir fikriniz var mı

CanCeL · 28 Ocak 2008, 14:33

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

arkadaşlar bu tclye !+m !kill nick !zline gibi komutları nasıl ekleyebiliriz? Yardımcı olabilirmisiniz ?

!+m komutunu şu şekilde yaparsın(Biraz inceleseydin kendinde hazırlayabilirdin)
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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


bind pub - !+m chanmod
#Komut algılama
proc chanmod {nick uhand host chan text} {
if {![isop $nick $chan]} {return 0}
putquick "mode $chan +m"
putquick "privmsg $nick : $chan +m Moduna Alindi $nick"
}

!zline komutunuda vereyim, diğerlerinize sen kendin üretirsin...

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


bind pub - !zline uzaklas
#Komut algılama
proc uzaklas {nick uhand host chan text} {
if {![isop $nick $chan]} {return 0}
putquick "zline $text"
}

Komut: !zline <nick> <Sebep>

bLackdiamond · 28 Ocak 2008, 14:36

Abiciğim Süpersin Çok tşk ederim
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

CanCeL · 28 Ocak 2008, 14:39

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

pardon zline kill felan olmaz
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
oplar kullanacağı için

O zaman !zline gibi komutlarıda kendi belirlediğin odadaki kişiler kullanabilir.

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


#Oper Odası
set yonetim "#Opers"
 
bind pub - !zline uzaklas
#Komut algılama
proc uzaklas {nick uhand host chan text} {
global yonetim
if {[isop $nick $chan] || [onchan $nick $yonetim]==0} {
putquick "zline $text"
}

!zline <nick> <sebep> komutunu sadece #Opers odasında uygulanmasına izin vermiş olursun böyle...
(Fakat komutu uygulayacağın odada op olmanda gerekiyor
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
)

bLackdiamond · 28 Ocak 2008, 18:01

bunu sadece adminlerin kullanmasını istiyorum onu nasıl yapabilirim ?

vblades · 02 Aralık 2010, 06:30

Arkadaslar Bizim Okey Sistemimizde Kanaldan Yazılar irc ye LMSG olarak dusuyor ben bu tcl yı cok ıstedım buldum denedım !op olarak calısıyor yanlız mirci sadece adminler kullanıyor diger gorevlilere mirc kullanmasi okey sistemlerinde hem tehlike hem kapalı o yuzden bunu LMSG !op olarak nasıl kullana bilirim..Acil lazim gercekden ılgılenen olursa cok sevınırım

vblades · 03 Aralık 2010, 07:07

Yokmu Arkadaslar Bir Bakan ..rica Etsem Bununla Bilen Bir Kişi Yardımcı Olsun

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Kanalda Toplu İşlemler [Msg\|Notice\|İnvite\|Kick\|Ban\|Op\|Deop\|Voice\|Devoice]	Med Cezir	mIRC Parça Kodlar	2	01 Haziran 2013 20:23
!unban /unban değişimi	fener1907	mIRC Scripting Sorunları	8	17 Eylül 2009 23:49
ban,deop,kick korumaları	FeriT	mIRC Scripting Sorunları	2	21 Ocak 2008 14:20
KişiseL Ban Koruması (deop - Kick - ban+kick Yapıyor )	LauReLL	mIRC Scripting Hazır Kodlar	0	29 Haziran 2007 06:22

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.