Böyle bir tcl varmıdır ? - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

BaRoN · 26 Nisan 2007, 17:11

S.a Öncelikle ;

!voice nick
!devoice nick
!kick nick
!kb nick
!zline nick ( belirlediğim çıkış mesajı olmalı )
!sajoin nick
!sapart nick
!link ( belirleğiim bir url ismi yazsın )

ßöyle bir tcl ye ihtiyacım var tcl sadece owner ini tanısın yalnız başkası kullanamasın kanal sahibede dahil sadece owner + olarak owner birden çok olabilirmi ?
paylaşırsanız sevinirim . ?

BY_BuRN · 26 Nisan 2007, 22:01

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

bind pub - !k kick
bind pub - !b ban
bind pub - !kb kick-ban
proc kick {n u h c a} {
if {[isowner $n $c]} { 
set gnick [lindex $a 0]
putserv "kick $c $gnick" 
}
if {![isowner $n $c]} { 
putserv "privmsg $c $n Bu komudu kullanmaya Yetkili degilsiniz!" 
}
}
proc ban {n u h c a} {
if {[isowner $n $c]} { 
set gnick [lindex $a 0]
putserv "mode $c +b $gnick" 
}
if {![isowner $n $c]} { 
putserv "privmsg $c $n Bu komudu kullanmaya Yetkili degilsiniz!" 
}
}
proc kick-ban {n u h c a} {
if {[isowner $n $c]} { 
set gnick [lindex $a 0]
putserv "mode $c +b $gnick"
putserv "kick $c $gnick" 
}
if {![isowner $n $c]} { 
putserv "privmsg $c $n Bu komudu kullanmaya Yetkili degilsiniz!" 
}
}

kod CchennemM e aittir. Çalışıyormu diye denemedim !k nick !b nick !kb nick diye çalışması gerekmektedir.İstediklerine göre geliştirebilirsin.

BaRoN · 27 Nisan 2007, 18:40

çalışmıyor bu yardımlarınıza ihtiyacım var ?

BuCaLI · 27 Nisan 2007, 19:41

tek nickin kullanmasını istiyorsan owner yerine kullanacak nicki yazarsın bu şekilde çalışır.

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

set owner "Komutlari_Kullanacak_Nick"
bind pub - !k kick
proc kick {n u h c a} {
global owner
 if {$n == $owner} { 
 set gnick [lindex $a 0]
 putserv "kick $c $gnick" 
 } else { 
 putserv "privmsg $c $n Bu komudu kullanmaya Yetkili degilsiniz!" 
 }
}
 
bind pub - !b ban
proc ban {n u h c a} {
global owner
 if {$n == $owner} { 
 set gnick [lindex $a 0]
 putserv "mode $c +b $gnick" 
 } else { 
 putserv "privmsg $c $n Bu komudu kullanmaya Yetkili degilsiniz!" 
 }
}
 
bind pub - !kb kick-ban
proc kick-ban {n u h c a} {
global owner
 if {$n == $owner} { 
 set gnick [lindex $a 0]
 putserv "mode $c +b $gnick"
 putserv "kick $c $gnick" 
 } else { 
 putserv "privmsg $c $n Bu komudu kullanmaya Yetkili degilsiniz!" 
 }
}

BaRoN · 27 Nisan 2007, 20:26

gadam eyv saol çok işime yaradı cehennem şuan tcl üzerinde geliştirme yapıom adama benzerse burda paylaşacam çok saol ...

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Sanalda aşk varmıdır ?	IneGoL	IF Soruyor	12	13 Temmuz 2022 12:09
Bakterilerin Faydaları Varmıdır	PySSyCaT	Sağlık Köşesi	0	16 Ocak 2016 20:10
Kusursuz eş varmıdır?	pyracantha	İslamiyet	0	22 Aralık 2010 21:02
Cinler gerçekten varmıdır ?	Candy	Esrarengiz Olaylar	11	08 Aralık 2010 20:31
Tanrı varmıdır?	Beck	Genel Paylaşım	17	13 Mayıs 2007 14:13

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.