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

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
Şeytanın çeşitleri varmıdır	xena	Hadis-i Şerifler	0	18 Mayıs 2014 20:11
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
Sel Nedir Önlemleri Varmıdır	YapraK	Türkiye'nin Coğrafi Bölgeleri	0	05 Mayıs 2009 21:29
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)

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.