Çevrimdışı

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

 

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