IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)

- Eggdrop, NeoStats, BNC (https://www.ircforumlari.net/eggdrop-neostats-bnc/)

- - Böyle bir tcl varmıdır ? (https://www.ircforumlari.net/eggdrop-neostats-bnc/30841-boyle-bir-tcl-varmidir.html)

BaRoN

26 Nisan 2007 17:11

Böyle bir tcl varmıdır ?

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

Cevap: Böyle bir tcl varmıdır ?

Kod:

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

Cevap: Böyle bir tcl varmıdır ?

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

BuCaLI

27 Nisan 2007 19:41

Cevap: Böyle bir tcl varmıdır ?

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

Kod:

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

Cevap: Böyle bir tcl varmıdır ?

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

Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 01:40.