Çevrimdışı

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

SeLamun aLeykmm... !voice !devoice !op !deop 5 Kişiden fazla kanallara giriş yapsin + Girdiqi KanaLda Kendini +a aLsin. Yardimci OLabilecek ßirileri KOmut yada Tcl wericek ßirisi warsa...Şimdiden Teşekkürler..

###########
#!v nick
#!voice nick
#!dv nick
#!devoice nick
###########
bind pub - !v voice
bind pub - !voice voice
proc voice {nick user hand chan arg} {
set dnick [lindex $arg 0]
if {![isop $nick $chan]} {return 0}
putquick "mode $chan +v $dnick"
}
bind pub - !dv dvoice
bind pub - !devoice dvoice
proc dvoice {nick user hand chan arg} {
set dnick [lindex $arg 0]
if {![isop $nick $chan]} {return 0}
putquick "mode $chan -v $dnick"
}

###########
#!deop nick
#!deopme
###########
bind pub - !deop tcdeop
proc tcdeop {nick user hand chan arg} {
set dnick [lindex $arg 0]
if {![isop $nick $chan]} {return 0}
putquick "mode $chan -a $dnick"
putquick "mode $chan -o $dnick"
}
bind pub - !deopme tcdeopme
proc tcdeopme {nick user hand chan arg} {
if {![isop $nick $chan]} {return 0}
putquick "mode $chan -o $nick"
}

!op olayı için [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] bir çok tcl var ama hiç birini çalıştıramadım.

#######
#5 kişilik kanallar için
#######

set usersayisi 5
bind raw - "322" kanal_listele
set listzaman 30
if {![string match "*kanal_listesi*" [utimers]]} {
utimer $listzaman kanal_listesi
}
proc kanal_listesi {} {
global listzaman
putserv "LIST"
utimer $listzaman kanal_listesi
return 1
}
proc kanal_listele {from keyword arg} {
global usersayisi globalkanallar botnick
set listekanaladi [lindex $arg 1]
set guncelsayi [lindex $arg 2]
if {[lsearch -exact $globalkanallar [string tolower $listekanaladi]] != -1} {return 0}
if {$guncelsayi >= $usersayisi && ![validchan $listekanaladi]} {
channel add $listekanaladi { flood-chan 10:2 }
}
if {$guncelsayi < $usersayisi && [validchan $listekanaladi]} {
channel remove $listekanaladi
} else {
return 0
}
}

########
#Kanala girdiginde kenedine +a vermesi için
########

bind join - * join:check
proc join:check {nick uhost hand chan} {
global botnick
if {$nick==$botnick} {
putquick "mode $chan +o $botnick"
putquick "PRIVMSG $chan :4Sunucu Koruma botu2 $chan 4kanalına giriş yapmıştır.7 Hepinize hoş sohbetler."
}
return 0
}

Umarım işini Görür...