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

- TCL Scriptler (https://www.ircforumlari.net/tcl-scriptler/)

- - dj host +h olunca dj yonlendirme (https://www.ircforumlari.net/tcl-scriptler/902925-dj-host-h-olunca-dj-yonlendirme.html)

dj host +h olunca dj yonlendirme

Altaki kod çalışmadı

Yapılmak istenen Radyo odasında +h geceni direk Dj odasina Aktarsın.

Kod:

set opkanal "#Dj"

channel add $opkanal

bind mode – "*+h*" op:yonlendir

proc op:yonlendir {nick uhost hand chan mc kimdir} {

global opkanal

if {![string match -nocase "#Radyo" $chan]} {return 0}

putquick "sajoin $kimdir $opkanal"

putquick "CHGIDENT $kimdir DJ"

putquick "CHGHOST $kimdir Dj.site.Com"

}

Cevap: dj host +h olunca dj yonlendirme

Kod:

##################################################################################

#Radyo KanalÄ±nda (@) Olanlar icin, #DJ Kanalina Yönlendirme ve özel HOST TCL'si. #

##################################################################################

set opkanal "#DJ"

channel add $opkanal

bind mode - "*+h*" op:yonlendir

proc op:yonlendir {nick uhost hand chan mc kimdir} {

global opkanal

if {![string match -nocase "#Radyo" $chan]} {return 0}

putquick "sajoin $kimdir $opkanal"

putquick "CHGIDENT $kimdir DJ"

putquick "CHGHOST $kimdir DJ.site.com"

putquick "CHGNAME $kimdir 4,1\[ 0site.com DJ4 \]"

}

bind time - "* * * * *" time:optara

proc time:optara {min hour day month year} {

global opkanal botnick

foreach kanallar [channels] {

if {$kanallar == $opkanal} { continue }

foreach opcuk [chanlist $kanallar] { 

if {[onchan $opcuk $opkanal]} { continue }

if {[isop $opcuk $kanallar] && $opcuk != $botnick} {

putquick "sajoin $opcuk $opkanal"

}

}

}

}

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] dener misin

Cevap: dj host +h olunca dj yonlendirme

calismadi oplari cekiyor odaya..

Cevap: dj host +h olunca dj yonlendirme

Kod:

##################################################################################

#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