Kod: Kodu kopyalamak için üzerine çift tıklayın!
##################################################################################
#Radyo Kanalında (%) Olanlar icin, #DJ Kanalina Yönlendirme ve özel HOST TCL'si. #
##################################################################################
set hopkanal "#DJ"
channel add $opkanal
bind mode - "*+h*" hop:yonlendir
proc hop:yonlendir {nick uhost hand chan mc kimdir} {
global hopkanal
if {![string match -nocase "#Radyo" $chan]} {return 0}
putquick "sajoin $kimdir $hopkanal"
putquick "CHGIDENT $kimdir DJ"
putquick "CHGHOST $kimdir DJ.site.com"
putquick "CHGNAME $kimdir 4,1\[ 0site.com DJ4 \]"
}
bind time - "* * * * *" time:hoptara
proc time:hoptara {min hour day month year} {
global hopkanal botnick
foreach kanallar [channels] {
if {$kanallar == $opkanal} { continue }
foreach hopcuk [chanlist $kanallar] {
if {[onchan $hopcuk $hopkanal]} { continue }
if {[isop $hopcuk $kanallar] && $hopcuk != $botnick} {
putquick "sajoin $hopcuk $hopkanal"
}
}
}
}
bolede deneyin